#!/usr/bin/perl 
#
use strict;
use LWP; 
use HTTP::Cookies;
use HTML::Entities;
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=('spam.la','spam.la');
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 $email_part1;

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
Pebruari 2009


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://'.$opt_p.'/') if ($opt_p);
$browser ->timeout(45);
my @waktu = localtime(time);
my $log = 'yfacuplusv010-'.$waktu[3].($waktu[4]+1).($waktu[5]+1900).'-'.$waktu[2].'-'.$waktu[1].'-'.$waktu[0].'.txt';
my $ems ;
my $kokis = "lwpcookiesMELIHATacuyfv010-".$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://spam.la/?f=$email_part1";
my $urltbyb = "http://www.your-freedom.net/index.php?id=154";

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 "\n\nMasukkan pilihan anda :\n\n".
		"[1] Apakah anda ingin menghapus file .ems.cfg ?  \n\n".
		"[2] Apakah anda ingin menghapus baris user, password dan clid di file .ems.cfg ?  \n\n".
		"[+] Pilihan  [1/2] :   ";		
my $nginput = <STDIN>;
chop($nginput);

if ($nginput=~/(^1$)/) {

	my $phile = "home.txt";
	system("echo %USERPROFILE%>$phile") ;
	open(hf,$phile);
	my $isiphile=<hf>;
	chop($isiphile);
	close(hf);

	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=~/(^2$)/) {

	my $phile = "home.txt";
	system("echo %USERPROFILE%>$phile") ;
	open(hf,$phile);
	my $isiphile=<hf>;
	chop($isiphile);
	close(hf);

	if ($isiphile=~/\:\\Documents and Settings\\(.+?)/) {
		my $hapusfile = $isiphile.'\.ems.cfg';
		$ems = $hapusfile;
		open(hf,$hapusfile);
		my @isifile=<hf>;
		close(hf);
		print "\n[+] Proses hapus file : $hapusfile\n\n";
		unlink $hapusfile || die("[*] File $hapusfile tak berhasil dihapus.");
		print "\n[+] Proses create file : $hapusfile\n\n";
		foreach(@isifile) {
			print($_);
			if(/^password/) {
				s/password (.+)//;
				printems($_); 	
			} 
			elsif(/^username/) {
				s/username (.+)//;
				printems($_);
			}
			elsif(/^clid/) {
				s/clid (.+)//;
				printems($_);
			}			
			else {
				printems($_);
			}			
		}		
		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);
	$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/\<td\>\<a href\=\"(\?id\=(?:\d+))\"\>\[Your Freedom\] User Registration\<\/a\>\<\/td\>/;
		if ($cucok) {printlog("\n[+] Email sudah masuk ke inbox\n");$mlink = 'http://spam.la/'.$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);
	$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/\<a href\=\"(http\:\/\/www\.your\&\#45\;freedom\.net\/index\.php\?id\=171\&amp\;username\=(?:.+?)\&amp\;auth\=(?:.+?))\"/;
		if ($cucok) {printlog("\n[+] Aktifasi user YF dimulai....\n");
						$freedomlink = decode_entities($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);
	$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)/;
          my $cucok=$kutukupret=~m/Thank you very much\!/;
		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);
	$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];
		}
		
	$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);
	$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);
	$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/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 printems {
 print @_[0]; 
 open(lo,">>$ems");
 print lo @_[0];
 close(lo);
 return;
}

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