Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- #########################################
- # c0ded by : shutdown57 #
- # http://pastebin.com/u/shutdown57 #
- #########################################
- use HTTP::Request;
- use LWP::UserAgent;
- use LWP::Simple;
- system('figlet -f smslant WithOutShadow');
- print"\n";
- print"+------------------------------------------------+\n";
- print"| Hatimu Tak Seindah Bacotan Mu |\n";
- print"| Shell Backd00r finder v1 |\n";
- print"| c0ded by : shutdown57 |\n";
- print"+------------------------------------------------+\n\n";
- print"target : set target > http://target.com \n";
- print"target : set target > http://target.com/path/path\n";
- print"wordlists : kalau gak punya wordlists masuka 0 saja.\n";
- print"wordlists : wordlists > http://pastebin.com/raw/karakteracak \n";
- print"wordlists : wordlists > http://web.com/wordlists.txt\n\n";
- print"set target >";
- $target=<STDIN>;
- chomp($target);
- print"wordlists >";
- $wl=<STDIN>;
- chomp($wl);
- if($wl eq "0"){
- $word="http://pastebin.com/raw/r0uJ6eTF";
- }else{
- $word=$wl;
- }
- print"[!] Target : $target \n";
- print"[!] Wordlists : $word\n";
- print"[!] Mulai : ".localtime()."\n";
- $getwl = get $word or die('ada kesalahan saat mengambil wordlists!');
- @cek=split(/\n/,$getwl);
- foreach $dir(@cek) {
- $site=$target."/".$dir;
- my $req=HTTP::Request->new(GET=>$site);
- my $ua=LWP::UserAgent->new();
- $ua->timeout(30);
- my $cekx=$ua->request($req);
- if($cekx->content =~ /login/ ||
- $cekx->content =~ /logout/ ||
- $cekx->content =~ /b374k/ ||
- $cekx->content =~ /1n73ction/ ||
- $cekx->content =~ /shell/ ||
- $cekx->content =~ /sh3ll/ ||
- $cekx->content =~ /priv8/ ||
- $cekx->content =~ /area/ ||
- $cekx->content =~ /priv8 area/ ||
- $cekx->content =~ /backdoor/ ||
- $cekx->content =~ /backd00r/ ||
- $cekx->content =~ /password/ ||
- $cekx->content =~ /copyright/ ||
- $cekx->content =~ /Permissions/ ||
- $cekx->content =~ /execute/ ||
- $cekx->content =~ /files/ ||
- $cekx->content =~ /action/ ||
- $cekx->content =~ /forbidden/
- ){
- print "[+] Ketemu -> $site\n";
- print "Selamat! anda menemukan shell!! \n";
- }else{
- print"[-] Gak Ketemu <- $site\n";
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement