#!/usr/bin/perl 
#
use strict;
use LWP; 
use HTTP::Cookies;
use Getopt::Std;
#use Crypt::SSLeay;

getopts('p:');
our($opt_p);
my @letters=('a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z');
my @extensions=('sogetthis.com','mailin8r.com');
my $ran_count;
my $count_let;
my $ran;
my $user  ;
my $passwod ;
my $addresses_collection ;
&acak();
my $emelin ;
my $eee=$addresses_collection=~m/((?:.+?)\@(?:.+?))\.(net|com)/; if ($eee) {$emelin = $1;}
my $mlink;
my $freedomlink;

my $bannerku=<<END

*************************************************************
SKRIP UNTUK MEMBUAT USER YF + AKTIVASI TBYB
www.your-freedom.net

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

Direct :
use : $0
Proxy :
use : $0 -p "proxy"
use : $0 -p "127.0.0.1:8081"
use : $0 -p "userproxy:passwordproxy\@127.0.0.1:3128"
use : $0 -p "rondo:kempling\@127.0.0.1:3128"

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

END
;

print($bannerku);

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);
#$browser ->proxy(['http'], 'http://193.205.83.2:8080/');
$browser ->proxy(['http'], 'http://'.$opt_p.'/') if ($opt_p);
$browser ->timeout(45);
my @waktu = localtime(time);
my $log = 'yfacuplusv006-'.$waktu[3].($waktu[4]+1).($waktu[5]+1900).'-'.$waktu[2].'-'.$waktu[1].'-'.$waktu[0].'.txt';
my $kokis = "lwpcookiesMELIHATacuyfv006-".$user.".txt";
$browser->cookie_jar(HTTP::Cookies->new(file => $kokis, autosave => 1));

my $url = "http://www.your-freedom.net/index.php?id=170&L=0";
my $urlemel = "http://www.mailinator.com/maildir.jsp?email=$emelin";
my $urltbyb = "http://www.your-freedom.net/index.php?id=154";
#die("\n[~] Harus diisi nomer tujuan / target !!!\n\n") if not ($opt_t);

printlog ("\n[*] Processing: $url .....\n\n");
&poss($url);
printlog ("\n[*] Tunggu beberapa detik ......\n\n");
my $bil;
for ($bil=1;$bil<=100;$bil++) {
    sleep 10;
	&cekk($urlemel);	
} #of for
&parselink($mlink);
&phreedom($freedomlink);
sleep 5;
&poslogin($urltbyb);
printlog ("\n[*] Tunggu beberapa detik ......\n\n");
sleep 5;
&pospakettotal($urltbyb);

print "[*] Apakah anda ingin menghapus file .ems.cfg (y/t) ?  ";
my $nginput = <STDIN>;
chop($nginput);

if ($nginput=~/(^y$|^Y$)/) {
	#print "ya\n";
	my $phile = "home.txt";
	system("echo %USERPROFILE%>$phile") ;
	open(hf,$phile);
	my $isiphile=<hf>;
	chop($isiphile);
	close(hf);
	#if ($isiphile=~/C\:\\Documents and Settings\\(.+?)/) {
	if ($isiphile=~/\:\\Documents and Settings\\(.+?)/) {
		my $hapusfile = $isiphile.'\.ems.cfg';
		print "\n[+] Proses hapus file : $hapusfile\n\n";
		unlink $hapusfile || die("[*] File $hapusfile tak berhasil dihapus.");
		unlink $phile ;
		print "[*] Selesai.\n\n\n";
	}
}
elsif ($nginput=~/(^t$|^T$)/) {print "\n[*] Silahkan hapus secara manual file .ems.cfg\n\n";}
else {print "\n[*] Anda salah memasukkan input. Keluar.\n\n";}

sub cekk {
	my $uurl = shift;
	my $lihat = HTTP::Request->new(GET => $uurl);
	#$ua->proxy(['http', 'ftp'], 'http://'.$proki.'/' );
	#$ua->timeout(5);
	$lihat->content_type('application/x-www-form-urlencoded');
	my $lihatresponse = $browser->request($lihat);
	if ($lihatresponse->is_success) {
	  my $kutukupret=join("",$lihatresponse->as_string);
#<tr><td bgcolor=#EEEEFF><b>registration@your-freedom.net</b></td><td bgcolor=#EEEEFF align=center><a href=/showmail.jsp?email=ekonomidunia243&msgid=28617608>[Your Freedom] User Registration</a></td></tr>	  
	  my $cucok=$kutukupret=~m/\<b\>registration\@your\-freedom\.net\<\/b\>(?:.+?)\<a href\=(\/showmail\.jsp\?email\=(?:.+?))\>\[Your Freedom\] User Registration\<\/a\>\<\/td\>\<\/tr\>/;
		if ($cucok) {printlog("\n[+] Email sudah masuk ke inbox\n");$mlink = 'http://www.mailinator.com'.$1;printlog("\n[+] $mlink\n\n");last;}
  		else {	print("\n[-] Email blom nyampe !\n");
			#print($lihatresponse->as_string);
			}
	  }
	else { 
	   print "Error: ".$lihatresponse->status_line."\n\n" ;
		}
} #end of sub

sub parselink {
	my $uurl = shift;
	my $lihat = HTTP::Request->new(GET => $uurl);
	#$ua->proxy(['http', 'ftp'], 'http://'.$proki.'/' );
	#$ua->timeout(5);
	$lihat->content_type('application/x-www-form-urlencoded');
	my $lihatresponse = $browser->request($lihat);
	if ($lihatresponse->is_success) {
	  my $kutukupret=join("",$lihatresponse->as_string);
#<a href=http://www.your-freedom.net/index.php?id=171&username=manuk9374&auth=37e57146 rel=nofollow target='_blank'>
	  my $cucok=$kutukupret=~m/\<a href\=(http\:\/\/www\.your\-freedom\.net\/index\.php\?id\=171\&username\=(?:.+?)\&auth\=(?:.+?)) rel\=nofollow target\=\'\_blank\'\>/;
		if ($cucok) {printlog("\n[+] Aktifasi user YF dimulai....\n");$freedomlink = $1;printlog("\n[+] $freedomlink\n\n");}
  		else {	print("\n[-] Hasil tidak cocok !\n");
			#print($lihatresponse->as_string);
			}
	  }
	else { 
	   print "Error: ".$lihatresponse->status_line."\n\n" ;
		}
} #end of sub

sub phreedom {
	my $uurl = shift;
	my $lihat = HTTP::Request->new(GET => $uurl);
	#$ua->proxy(['http', 'ftp'], 'http://'.$proki.'/' );
	#$ua->timeout(5);
	$lihat->content_type('application/x-www-form-urlencoded');
	my $lihatresponse = $browser->request($lihat);
	if ($lihatresponse->is_success) {
	  my $kutukupret=join("",$lihatresponse->as_string);
	  my $cucok=$kutukupret=~m/(Your account has already been activated|Your email address has been verified and your account has now been enabled)/;
		if ($cucok) {printlog("[+] Account YF telah diaktifken.\n\n[+] Tunggu sebentar untuk login ke website YF\n\n");}
  		else {	print("\n[-] Hasil tidak cocok !\n");
			print($lihatresponse->as_string);}
	  }
	else { 
	   print "Error: ".$lihatresponse->status_line."\n\n" ;
		}
} #end of sub

sub poss {
	my $uurl = shift;
	my $lihat = HTTP::Request->new(POST => $uurl);
	#$ua->proxy(['http', 'ftp'], 'http://'.$proki.'/' );
	#$ua->timeout(30);
	$lihat->content_type('application/x-www-form-urlencoded');
	$lihat->referer('http://www.your-freedom.net/index.php?id=170&L=0');
	my $loginsend = 'username='.$user.'&'.
                'password='.$passwod.'&'.
                'repeat='.$passwod.'&'.
                'email='.$addresses_collection.'&'.
                'aup=on&'.
                'firstname=&lastname=&address=&city=&zip=&country=&telephone=&'.
                'submit=Submit' ;
	$lihat->content-length($loginsend);
	$lihat->content($loginsend);
	my $lihatresponse = $browser->request($lihat);
	if ($lihatresponse->is_success) {
	  my $kutukupret=join("",$lihatresponse->as_string);
	  my $cucok=$kutukupret=~m/Your account has now been created/sg;
		if ($cucok) {
                 printlog("\n[+] Auto Create User Berhasil (user :: password :: email) :\n");
				 printlog("\n[+] $user :: $passwod :: $addresses_collection\n");
                 printlog("\n[+] Tunggu beberapa detik agar server YF mengenali account ini...\n\n");
               }
  		else {	printlog("\n[-] Auto Create User 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"); 
		}
} #end of sub

sub acak {
	$user = "";
	$ran_count = int(rand(7)) + 7;
	for ($count_let=1; $count_let<$ran_count; $count_let++)
		{
			$ran = int(rand(26));
			$user = $user . $letters[$ran];
		}

	$passwod = "";
	$ran_count = int(rand(7)) + 7;
	for ($count_let=1; $count_let<$ran_count; $count_let++)
		{
			$ran = int(rand(26));
			$passwod = $passwod . $letters[$ran];
		}
		
	my $email_part1 = "";
	$ran_count = int(rand(5)) + 5;
	for ($count_let=1; $count_let<$ran_count; $count_let++)
		{
			$ran = int(rand(26));
			$email_part1 = $email_part1 . $letters[$ran];
		}

	my $email_part3 = "";
	$ran = int(rand(2));
	$email_part3 = $extensions[$ran];

	$addresses_collection = "$email_part1\@$email_part3";

}

sub poslogin {
	my $uurl = shift;
	my $lihat = HTTP::Request->new(POST => $uurl);
	#$ua->proxy(['http', 'ftp'], 'http://'.$proki.'/' );
	#$ua->timeout(30);
	$lihat->content_type('application/x-www-form-urlencoded');
	$lihat->referer($url);
	my $loginsend = 'user='.$user.'&'.
                'pass='.$passwod.'&'.
                'submit.x=15&submit.y=2&submit=Login&logintype=login&pid=41&redirect_url=' ;
	$lihat->content-length($loginsend);
	$lihat->content($loginsend);
	my $lihatresponse = $browser->request($lihat);
	if ($lihatresponse->is_success) {
	  my $kutukupret=join("",$lihatresponse->as_string);
	  my $cucok=$kutukupret=~m/You are logged in as/sg;
		if ($cucok) {
                 printlog("\n[+] Login User $user Berhasil\n");
				 printlog("\n[+] $user :: $passwod \n");
               }
  		else {	printlog("\n[-] Login User $user 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"); 
		}
} #end of sub


sub pospakettotal {
	my $uurl = shift;
	my $lihat = HTTP::Request->new(POST => $uurl);
	#$ua->proxy(['http', 'ftp'], 'http://'.$proki.'/' );
	#$ua->timeout(30);
	$lihat->content_type('application/x-www-form-urlencoded');
	$lihat->referer($url);
	my $loginsend = 'what=start&'.
                        'package=5' ;
	$lihat->content-length($loginsend);
	$lihat->content($loginsend);
	my $lihatresponse = $browser->request($lihat);
	if ($lihatresponse->is_success) {
	  my $kutukupret=join("",$lihatresponse->as_string);
	  #my $cucok=$kutukupret=~m/You are currently test driving the TOTAL package/sg;
	  my $cucok=$kutukupret=~m/Your remaining test drive time is 4 hours and 0 minutes/sg;
		if ($cucok) {
                 printlog("\n[+] Daptarin YF TBYB paket TOTAL Berhasil\n");
				 printlog("\n[+] Sekarang keluar dari YF client CP EDITION, dan hapus file .ems.cfg \n");
                 printlog("\n[+] Silahken jalanken YF client lagi, login dengan user $user :: $passwod ...\n\n");
               }
  		else {	printlog("\n[-] Daptarin YF TBYB paket TOTAL 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"); 
		}
} #end of sub

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