publish by : A.Uliansyah
Reupload by: jiddigaul

APLIKASI INI SEBAIKNYA DISIMPAN DALAM BENTUK AKTIV PERL AGAR BISA BERJALAN DENGAN BAIK DI WEB ANDA

#!/usr/bin/perl -w 
# mentarisms.pl v2.02 by A. Uliansyah 
# Wed, 21 Jun 2006 

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

if (!exists($ARGV[0])) { 
print "Cara penggunaan:t$0 nomor1 nomor2 nomor3 nomor4tPesan: 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/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: $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