Skrip mentarisms-2.03

26Jun06

Mohon maaf nih sama temen2 yang menggunakan skrip mentarisms, versi yang 2.02 itu saya buat nggak pake test dulu, cuman hasil dari perasaan aja.. Ternyata selain merubah DirectoryIndex, klub-mentari juga mengaktifkan HTTP Referrer untuk halaman sms/xt_send_sms2.php.

Nah, versi 2.03 ini sudah saya coba dan sukses.. Plus fitur tambahan untuk mendeteksi apakah kuota sms telah terlampaui.

# ./mentarisms-2.03.txt 628567074554
test kirim dari mentarisms skrip versi 2.03 nih.. Bismillah!
[+] Obtaining SID: 9d84ef9abce1511f8d6e884c7760cecb
[+] Obtaining Mentari number: 6281546031250
[+] Login sukses.
[+] Kirim SMS ke: 628567074554,
[+] Pesan yang akan dikirim: test kirim dari mentarisms skrip versi 2.03 nih.. Bismillah!
[+] Send SMS Sukses.

Skrip selengkapnya:

#!/usr/bin/perl -w
# mentarisms.pl v2.03 by A. Uliansyah <auliansyah@gmail.com>
# Thu, 22 Jun 2006 (Revisi: Mon, 26 Jun 2006)

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

$version = "v2.03";
if (!exists($ARGV[0])) {
print "mentarisms.pl versi $version oleh A. Uliansyah \<auliansyah\@gmail.com\>\n";
print "\tCara penggunaan:\n\t$0 [NOMOR1] [NOMOR2] [NOMOR3] .. [NOMOR10]\n";
print "\tPesan: [Tulis pesan di sini diakhiri dengan Enter]\n";
print "Nomor tujuan [NOMORn] ditulis dalam format internasional,";
print "contoh: 62815123456\nContoh: echo \"sms dari $0 versi $version nih\" | $0 628123456789\n";
exit;
}
if (exists($ARGV[10])) {
print "$0 hanya dapat mengirimkan sms secara bersamaan ke 10 nomor saja\n";
exit;
}

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

$message = <STDIN>;
chomp($message);

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

#looking for sid
my $sidcheck = HTTP::Request->new(GET => 'http://www.klub-mentari.com/index.php');
$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: $sid\n";
}
else { die "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');
$loginPost = 'username='.$username;
$loginPost .= '&password='.$password;
$loginPost .= '&sid='.$sid;
$loginPost .= '&redirect=sms/send_sms2.php&login=Login';
$req->content($loginPost);

my $res = $ua->request($req);
if (($res->is_success) && ($res->as_string =~ /Selamat datang $username/)) {
  #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: $mentari\n";
  print "[+] Login sukses.\n";
  print "[+] Kirim SMS ke: $recipient\n";
  print "[+] Pesan yang akan dikirim: $message\n";
}
elsif (($res->is_success) && ($res->as_string =~ /Selamat datang $username/))
{ die "[-] Login Error: Wrong Username and Password (unmatch maybe?)\n"; }
else {  die "[-] 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');
$kirimPost = 'recipient='.$recipient;
$kirimPost .= '&message='.$message;
$kirimPost .= '&jml_kar=125';
$kirimPost .= '&username='.$mentari;
$kirimPost .= '&user_id=&submit='.$submit;
$req->content($kirimPost);
$req->header('Referrer' => 'http://www.klub-mentari.com/sms/send_sms2.php');

$res = $ua->request($req);
#  if ($res->is_success) { print $res->as_string; }
#  else { print "Error: ". $res->status_line; }
if (($res->is_success) && ($res->as_string =~ /masuk antrian/))
{ print "[+] Send SMS Sukses.\n"; }
elsif (($res->is_success) && ($res->as_string =~ /melebihi/))
{ die "[-] SMS telah melebihi kuota.\n"; }
else { die "[-] Error Sending SMS: ". $res->status_line ."\n"; }

# e0f

Terimakasih untuk wawan yang sudah buat versi cgi-bin mentarisms. Source mentari sms versi cgi-bin bisa didownload dari sini. Dari pemberitahuan hetta, ada dua situs yang menggunakan skrip mentarisms yaitu: http://www.sindikat.net/sms dan http://www.punya.dd.am/sms/cgi-bin/sms.plTerimakasih atas kepercayaannya menggunakan skrip saya!

Filed under: Kreasiku   |  28 Comments