Perl Script untuk SMS dari klub-mentari.com

19Jan06

Alhamdulillah deh… akhirnya quota SMS dari Klub Mentari dibatasi juga..

Saya jadi bisa dengan tenang mempublish skrip sms ini tanpa takut disalahgunakan buat SMS Bombing. Si D3DY buat juga skrip semacam ini yang bisa menggunakan banyak login supaya quota smsnya juga nambah.

Yang gak mau repot, bisa:

wget http://www.halal-solusi.com/~auliansyah/mentarisms.txt

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

$username = "isi_sendiri";
$password = "isi_sendiri";
$mentari = "isi_sendiri_juga_contoh_6281546031250";

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);

print "Kirim SMS ke: $recipientn";
print "Pesan yang akan dikirim: $messagen";

use LWP::UserAgent;
use HTTP::Cookies;
$ua = LWP::UserAgent->new;
$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=index.php&login=Login');

my $res = $ua->request($req);
#  if ($res->is_success) { print $res->as_string; }
#  else { print "Error: ". $res->status_line; }
if ($res->is_success) { print "Login sukses.n"; }
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

Status: Deprecated! Skrip ini sudah tidak berjalan!

Silahkan gunakan skrip penggantinya.

Filed under: Kreasiku   |  10 Comments