Perl Script untuk SMS dari klub-mentari.com

19Jan06

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

mentari SMS
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.



10 Responses to “Perl Script untuk SMS dari klub-mentari.com”

  1. 1 DOZ

    Kenapa nggak jalanin skripnya di web ini? kan keren tuh. Nggak boleh ya?

    DOZ
    http://dozdozdoz.cjb.net

  2. Can anyone recommend me?
    I need an free sms service for my homepage.
    I am seeking one with the option to change the design(for a bit).
    Thanks a million!

  3. 3 dimas

    hai mas.. saya pngen bgt dikirimi script free sms yg bisa dipakai, tolong kirim ke e-mail saya ya mas ..? sbelumnya matur thank you

  4. 4 wahyu

    Mas gimana cara menjalankan script perl ini sampai mempublisnya. Maaf tolong detailnya bisa dikirimkan lewat email saya. Terima Kasih.

  5. 5 trimbil

    yank.. ak sama 1x ga sms or phon s putramu itu!!1
    lawong no.x aj ak ga punya!
    kl ga percaya ya udah!!
    tapi ya bt ap ak phon dy,kan ga ad gunanya jg!!
    mbok kmu phon ak SKr!!
    3mbil

  6. 6 jipenx

    ok jg tuh

  7. MOHON SMS DARI 3433 DIHENTIKAN. KARENA KAMI TERGANGGU DAN DIRUGIKAN OLEH SMS YANG BILA MENERIMA SAJA (TIDAK DIMINTA) AKAN MEMOTONG PULSA KAMI. SEMENTARA KAMI PAKE NO MENTARI 081541241030. ATAS PERHATIANNYA DIUCAPKAN TERIMA KASIH


  1. 1 Unofficial Indonesian Ubuntu Site » Blog Archive » Wikipedia Command Line
  2. 2 Kurang Kerjaan » Skrip SMS Mentari mentarisms.pl versi 2
  3. 3 Indosat Integrated Community Portal - Jadi satu ya? oh … «

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s


%d blogger menyukai ini: