#!/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','mailinator.net');
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 $login;
my $rahasia;

my $bannerku=<<END

*************************************************************
SKRIP UNTUK MEMBUAT USER YF + AKTIVASI Travian User Indonesia
www.travian.co.id

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 ( just have fun... )
*************************************************************

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 = 'travian-acu-v002-'.$waktu[3].($waktu[4]+1).($waktu[5]+1900).'-'.$waktu[2].'-'.$waktu[1].'-'.$waktu[0].'.txt';
my $kokis = "lwpcookiesMELIHATacutravianv002-".$user.".txt";
$browser->cookie_jar(HTTP::Cookies->new(file => $kokis, autosave => 1));

my $urlutama;

print "\n\nMasukkan server pilihan anda :\n\n".
		"[1] Speed 3x  \n\n".
		"[2] Server 2  \n\n".
		"[3] Server 3  \n\n".
		"[4] Server 4  \n\n".
		"[+] Pilihan  [1/2/3/4/t] :   ";		
my $nginput = <STDIN>;
chop($nginput);

if ($nginput=~/(^1$)/) {
	$urlutama = "http://speed.travian.co.id/";
}
elsif ($nginput=~/(^2$)/) {
	$urlutama = "http://s2.travian.co.id/";
}
elsif ($nginput=~/(^3$)/) {
	$urlutama = "http://s3.travian.co.id/";
}
elsif ($nginput=~/(^4$)/) {
	$urlutama = "http://s4.travian.co.id/";	
}
elsif ($nginput=~/(^t$|^T$)/) {print "\n[*] Silahkan keluar\n\n";exit(0);}
else {print "\n[*] Anda salah memasukkan input. Keluar.\n\n";exit(0);}

my $url = "http://www.travian.co.id/?signup";
my $urlanmelden = $urlutama."anmelden.php";
my $urlemel = "http://www.mailinator.com/maildir.jsp?email=$emelin";
my $urltbyb = "http://www.your-freedom.net/index.php?id=154";
my $urllogin = $urlutama."login.php";
my $urlposlogin = $urlutama."dorf1.php";

printlog ("\n[*] Processing: $url .....\n\n");
&getref($url);
printlog ("\n[*] Tunggu beberapa detik ......\n\n");

&getanmelden($urlanmelden);
&poss($urlanmelden);

my $bil;
for ($bil=1;$bil<=100;$bil++) {
    sleep 10;
	&cekk($urlemel);	
} #of for
&parselink($mlink);
&phreedom($freedomlink);
sleep 5;
&getlogin($urllogin);
sleep 2;
&poslogin($urlposlogin);

sub getlogin {
	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/\<input type\=\"hidden\" name\=\"login\" value\=\"(\d+)\"\>/;
		if ($cucok) {printlog("[+] Mulai login.\n\n[+] Variabel login = $1.\n\n");$login = $1;}
  		else {	print("\n[-] Hasil tidak cocok !\n");
			print($lihatresponse->as_string);}
		if ($kutukupret=~m/\<input type\=\"hidden\" name\=\"e05fbd1\" value\=\"(.+?)\"\>/) {printlog("[+] Variabel e05fbd1 = $1.\n\n");$rahasia = $1;};	
	  }
	else { 
	   print "Error: ".$lihatresponse->status_line."\n\n" ;
		}
} #end of sub

sub getref {
	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/Choose your World/;
		if ($cucok) {printlog("[+] Get Ref Travian Account.\n\n[+] Tunggu sebentar untuk memulai pendaftaran.\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 getanmelden {
	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/action\=\"anmelden\.php\"\>/;
		if ($cucok) {printlog("[+] Mulai pendaftaran.\n\n[+] Tunggu sebentar untuk mem POST data.\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 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>	  
#<tr><td bgcolor=#EEEEFF><b>admin@travian.co.id</b></td><td bgcolor=#EEEEFF align=center><a href=/showmail.jsp?email=cehsvjpg&msgid=17915347>Selamat datang di Travian</a></td></tr>
	  my $cucok=$kutukupret=~m/\<b\>admin\@travian\.co\.id\<\/b\>(?:.+?)\<a href\=(\/showmail\.jsp\?email\=(?:.+?))\>\Selamat datang di Travian\<\/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'>
#<a href=http://s2.travian.co.id/activate.php?id=74d8b295d3 rel=nofollow target='_blank'>
	  my $cucok=$kutukupret=~m/\<a href\=(http\:\/\/(?:.+?)\.travian\.co\.id\/activate\.php\?id\=(?:.+?)) rel\=nofollow target\=\'\_blank\'\>/;
		if ($cucok) {printlog("\n[+] Aktifasi user travian 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/Akun anda telah diaktifkan/;
#<img src="http://tracking.traviangames.com/activate.php?game_id=1&land=id&world=id2&uid=85916&signup=1234918775&code=d60fcc0d50&email=d3B6dkBzb2dldHRoaXMuY29t&ids=&ad_code=4444&ad_subcode=0" border="0"
#	  my $cucok=$kutukupret=~m/\<img src\=\"(http\:\/\/tracking\.traviangames\.com\/activate\.php\?game\_id\=(?:\d+)\&land\=id\&world\=id2\&uid\=(\d+)\&signup\=(?:\d+)\&code\=(?:.+?)\&email\=(?:.+?)\&ids\=\&ad_code\=(?:\d+)\&ad\_subcode\=(?:\d+))\" border\=\"0\"/;
#		if ($cucok) {printlog("[+] Account travian telah diaktifken.\n\n[+] Tunggu sebentar untuk login ke website travian $1\t$2\n\n");$treking=$1;}
		if ($cucok) {printlog("[+] Account travian telah diaktifken.\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($urlutama.'anmelden.php');
	my $loginsend = 'w=&'.
				'name='.$user.'&'.
                'pw='.$passwod.'&'.
                'email='.$addresses_collection.'&'.
                'kid=0&'.
				'vid=3&'.
				'agb=1&'.
				'w=&'.
				's1.x=30&'.
                's1.y=8&'.
                's1=anmelden' ;
	$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/Pendaftaran berhasil/sg;
		if ($cucok) {
                 printlog("\n[+] Create User Berhasil (user :: password :: email) :\n");
				 printlog("\n[+] $user :: $passwod :: $addresses_collection\n");
                 printlog("\n[+] Tunggu beberapa detik agar server travian mengenali account ini...\n\n");
               }
  		else {	printlog("\n[-] Auto Create User Gagal ! Mungkin diblokir.\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(3));
	$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($urllogin);
	my $loginsend = 'ecf548a='.$user.'&'.
                'e91ed74='.$passwod.'&'.
				'login='.$login.'&'.
				'e05fbd1='.$rahasia.'&'.
                'w=&s1=login' ;
	$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/logout\.php/sg;
		if ($cucok) {
                printlog("\n[+] Login User $user Berhasil\n\n");
				printlog("\n[+] $user :: $passwod \n\n\n\n");
				while ($kutukupret=~m/\<td\>(.+?)\:\<\/td\>\<td align\=\"right\"\>\<b\>(\d+)\&nbsp\;\<\/b\>\<\/td\>\<td\>(.+?)\<\/td\>/g) {
					printlog("[+] $1 = $2  $3.\n\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 printlog {
 print @_[0]; 
 open(lo,">>$log");
 print lo @_[0];
 close(lo);
 return;
}