Skrip mentarisms versi 2.02

21Jun06

Error di mentarisms versi 2.01 disebabkan DocumentIndex semua situs-situs Indosat dialihkan ke jogja.php. Jadi error terjadi saat pencarian Session ID karena URL tujuan cuman klub-mentari.com thok. Perbaikannya dengan menambahkan index.php setelah klub-mentari.com.

Skrip mentarisms versi 2.02 selengkapnya:

#!/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 nomor4\tPesan: 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 saja\n";
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

Bagi rekan-rekan yang membuat skrip turunan dari mentarisms ini, tolong saya dikasih tahu ya. Biar bisa saya tampilkan dalam daftar skrip turunan mentarisms di sini. Kalo bisa sekalian URL untuk download skripnya. Terimakasih.



4 Responses to “Skrip mentarisms versi 2.02”

  1. 1 beta

    cipo mendeskripsikan dengan baik cara pembuatan skrip mentarisms ini. Makasih ya mas cipo..

  2. thanks mas beta, klo dilihat dari penggunaan script cgi-perl nya mas bodi (wawan) itu berarti yg diubah cuma looking for sidnya ditambah dengan emblem2 index.php saja kan? mau coba tapi gateway sms mentarinya sepertinya sedang down, coba kirim langsung dari klab mentarinya juga nda bisa😦 nda sabaran pengen coba yg v 2.02😀

  3. sms

  4. ada yang tau gak online sms gratis di webs?
    jkalo ada yg tau, tlg bagi infonya ya…
    thanx


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: