Advertisement
shutdown57

shell finder v1

Sep 2nd, 2016
587
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 2.17 KB | None | 0 0
  1. #!/usr/bin/perl
  2.  
  3. #########################################
  4. # c0ded by : shutdown57                 #
  5. # http://pastebin.com/u/shutdown57      #
  6. #########################################
  7.  
  8. use HTTP::Request;
  9. use LWP::UserAgent;
  10. use LWP::Simple;
  11. system('figlet -f smslant WithOutShadow');
  12.  
  13. print"\n";
  14. print"+------------------------------------------------+\n";
  15. print"|       Hatimu Tak Seindah Bacotan Mu            |\n";
  16. print"|         Shell Backd00r finder v1               |\n";
  17. print"|           c0ded by : shutdown57                |\n";
  18. print"+------------------------------------------------+\n\n";
  19. print"target    : set target > http://target.com \n";
  20. print"target    : set target > http://target.com/path/path\n";
  21. print"wordlists : kalau gak punya wordlists masuka  0  saja.\n";
  22. print"wordlists : wordlists > http://pastebin.com/raw/karakteracak \n";
  23. print"wordlists : wordlists > http://web.com/wordlists.txt\n\n";
  24. print"set target >";
  25. $target=<STDIN>;
  26. chomp($target);
  27. print"wordlists >";
  28. $wl=<STDIN>;
  29. chomp($wl);
  30. if($wl eq "0"){
  31.     $word="http://pastebin.com/raw/r0uJ6eTF";
  32. }else{
  33.     $word=$wl;
  34. }
  35. print"[!] Target    : $target \n";
  36. print"[!] Wordlists : $word\n";
  37. print"[!] Mulai     : ".localtime()."\n";
  38. $getwl = get $word or die('ada kesalahan saat mengambil wordlists!');
  39. @cek=split(/\n/,$getwl);
  40.  
  41. foreach $dir(@cek) {
  42.     $site=$target."/".$dir;
  43. my $req=HTTP::Request->new(GET=>$site);
  44. my $ua=LWP::UserAgent->new();
  45. $ua->timeout(30);
  46. my $cekx=$ua->request($req);
  47. if($cekx->content =~ /login/ ||
  48. $cekx->content =~ /logout/ ||
  49. $cekx->content =~ /b374k/ ||
  50. $cekx->content =~ /1n73ction/ ||
  51. $cekx->content =~ /shell/ ||
  52. $cekx->content =~ /sh3ll/ ||
  53. $cekx->content =~ /priv8/ ||
  54. $cekx->content =~ /area/ ||
  55. $cekx->content =~ /priv8 area/ ||
  56. $cekx->content =~ /backdoor/ ||
  57. $cekx->content =~ /backd00r/ ||
  58. $cekx->content =~ /password/ ||
  59. $cekx->content =~ /copyright/ ||
  60. $cekx->content =~ /Permissions/ ||
  61. $cekx->content =~ /execute/ ||
  62. $cekx->content =~ /files/ ||
  63. $cekx->content =~ /action/ ||
  64. $cekx->content =~ /forbidden/
  65. ){
  66. print "[+] Ketemu -> $site\n";
  67. print "Selamat!  anda menemukan shell!! \n";
  68. }else{
  69.     print"[-] Gak Ketemu <- $site\n";
  70. }
  71. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement