Помогите исправить код на Perl

Dive_n0ll · 23 May 2010

Помогите исправить код перала.
Статья http://grabberz.com/showthread.php?t=23545&highlight=ZeuS

в исходном коде ошибки(
Сам код залил http://slil.ru/29188193
Кому не сложно посмотрите, буду весьма благодарен.

maxya · 23 May 2010

А сюда код вставить сложно было?

Dive_n0ll · 24 May 2010

Вот сам код...

#!/usr/bin/perl
#Скрипт обрабатывает файл urls.txt и ищет рабочие админки сутры и сохраняет их в файл tds.txt
use strict;
use warnings;
use IO::Socket;
use threads;

open(TDS, ">tds.txt") or die("Cannot open file Socks List File or File isn\'t writable");
open(URLS, "urls.txt") or die("Cannot open file URL List File");

my $threads = 100; # количество потоков
my @list;

my @URLS = <URLS>;
close URLS;
while (@URLS){
my $idx=0;
my @trl;
while (@URLS && ($idx <= $threads)){
my $url = shift(@URLS);
chomp($url);
$trl[$idx]=threads->create(&check, $idx, $url);
$idx++;
undef($url);
}
for(@trl){ $_->join; }
}

sub check{
my $url = $_[1];
if ($$url =~ /http://(.+?)/(.+)$/i){
my $host = $1;
my $dir = '/'.$2;
if (my $socket = IO::Socket::INET->new(Proto => "tcp", PeerAddr => "$host", PeerPort => 80)){
$socket->autoflush(1);
print $socket "GET $dir HTTP/1.1\r\n";
print $socket "Host: $host\r\n";
print $socket "User-Agent: Mozilla/5.0 (X11; U; Linux i686; ru; rv:1.9b5) Gecko/2008050509 Firefox/3.0b5\r\n";
print $socket "Accept: text/html\r\n";
print $socket "Connection: close\r\n\r\n";
my $answer;
$socket->recv($answer, 2048);
close($socket);
if ($answer =~ /SUTRA/i){
print "[+]".$$url."\n";
print TDS "$$url\n";
}
undef($answer);
undef($$url);
undef($host);
undef($dir);
}
}
}
close TDS;

#!/usr/bin/perl

use strict;
use warnings;
use IO::Socket;
use threads;

my $url * * *= $ARGV[0] || 'adms.txt'; # Файл с сылками для брута
my $user * * = $ARGV[1] || 'users.txt'; # Файл с именами пользователей
my $pass * * = $ARGV[2] || 'pass.txt'; # Файл с паролями
my $good * * = $ARGV[3] || 'good.txt'; # Файл куда будут сохранять хорошие пароли
my $logfile *= $ARGV[4] || 'log.txt'; # Файл куда будет писаться лог брута
my $threads *= $ARGV[5]; *# Количество потоков для брута

print q(
###############################################################
# * * * * * * * * * *Zeus Bruteforce v0.1 * * * * * * * * * * #
###############################################################
# *usage : zeus.pl [user] [pass] [good] [log] [thread...} } close GOODS; close LOGS; [/QUOTE]
Click to expand...

Помогите исправить код на Perl

Dive_n0ll New Member

maxya New Member

Dive_n0ll New Member

Useful Searches

Помогите исправить код на Perl

Dive_n0ll New Member

maxya New Member

Dive_n0ll New Member