Skrip SMS Mentari mentarisms.pl versi 2

04Mei06

Barusan jajal lagi nih.. memang ada beberapa penyesuaian dibanding versi terdahulu.

$ ./mentarisms.pl 628567074554
Test keren
[+] Obtaining SID: 28b0929d207b39106794b0cd5e21209b
[+] Obtaining Mentari number: 6285880667839
[+] Login sukses.
[+] Kirim SMS ke: 628567074554,
[+] Pesan yang akan dikirim: Test keren
[+] Send SMS Sukses.

Sourcenya:

#!/usr/bin/perl -w
# mentarisms.pl v1.02 by A. Uliansyah
# Mon, 5 dec 2005

$username = "username";
$password = "password";

if (!exists($ARGV[0])) {
print "Cara penggunaan:nt$0 nomor1 nomor2 nomor3 nomor4ntPesan: Tulis pesan di sini diakhiri dengan EnternnNomor tujuan ditulis dalam format internasional, contoh: 62815123456nn";
exit;
}
if (exists($ARGV[10])) {
print "$0 hanya dapat mengirimkan sms secara bersamaan ke 10 nomor sajan";
exit;
}

foreach (@ARGV) {
$recipient .= $_.", ";
}
chomp($recipient);

$message = ;
chomp($message);

use LWP::UserAgent;
use HTTP::Cookies;
$ua = LWP::UserAgent->new;
push @{ $ua->requests_redirectable }, 'POST';
$ua->env_proxy;
$ua->agent("$0/0.1 " . $ua->agent);
$ua->agent("Mozilla/8.0"); # pretend we are very capable browser
$ua->cookie_jar(HTTP::Cookies->new(file => "lwpcookies.txt", autosave => 1));

#looking for sid
my $sidcheck = HTTP::Request->new(GET => 'http://www.klub-mentari.com/');
$sidcheck->header('Accept' => 'text/html');
my $sidresponse = $ua->request($sidcheck);
if ($sidresponse->is_success) {
#print $sidresponse->as_string;
  my $sidmulai = index($sidresponse->as_string, "PHPSESSID");
  my $potong = substr($sidresponse->as_string, $sidmulai+10);
  my $sidselesai = index($potong, ";");
  $sid = substr($potong, 0, $sidselesai);
  print "[+] Obtaining SID: $sidn";
}
else { print "Error: ". $sidresponse->status_line; }

#login
 my $req = HTTP::Request->new(POST => 'http://www.klub-mentari.com/login.php');
 $req->content_type('application/x-www-form-urlencoded');
 $req->content('username='.$username.'&password='.$password.'&sid='.$sid.'&redirect=sms/send_sms2.php&login=Login');

my $res = $ua->request($req);
#  if ($res->is_success) { print $res->as_string; }
#  else { print "Error: ". $res->status_line ."n"; }
if ($res->is_success) {
  #print $res->as_string;
  my $mentarimulai = index($res->as_string, "name="username"");
  my $mentaripotong = substr($res->as_string, $mentarimulai+23);
  my $mentariselesai = index($mentaripotong, """);
  $mentari = substr($mentaripotong, 0, $mentariselesai);
  print "[+] Obtaining Mentari number: $mentarin";
  print "[+] Login sukses.n";
  print "[+] Kirim SMS ke: $recipientn";
  print "[+] Pesan yang akan dikirim: $messagen";
}
else {  print "[-] Login Error: ". $res->status_line ."n"; }

#send sms
$submit = "Kirim SMS";
$req = HTTP::Request->new(POST => 'http://www.klub-mentari.com/sms/xt_send_sms2.php');
 $req->content_type('application/x-www-form-urlencoded');
 $req->content('recipient='.$recipient.'&message='.$message.'&jml_kar=125&username='.$mentari.'&user_id=&submit='.$submit);

$res = $ua->request($req);
#  if ($res->is_success) { print $res->as_string; }
#  else { print "Error: ". $res->status_line; }
if ($res->is_success) { print "[+] Send SMS Sukses.n"; }
else { print "[-] Error Sending SMS: ". $res->status_line ."n"; }

# e0f

Filed under: Kreasiku   |  27 Komentar