#!/usr/local/bin/perl -w # # Author name:mentarisms.pl v2.03 by A. Uliansyah # Creation date:Thu, 22 Jun 2006 (Revisi: Mon, 26 Jun 2006) # # Description:mentarisms.pl v2.03 # $username = "username"; $password = "password"; $version = "v2.03"; if (!exists($ARGV[0])) { print "mentarisms.pl versi $version oleh A. Uliansyah \\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 = ; 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/4.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
Make your own free website on Tripod.com