Advertisement
CrashBandicot

Mass Reverse Joomla

Jun 29th, 2014
27,256
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 2.51 KB | None | 0 0
  1. #!/usr/bin/perl
  2. #From TeaM MosTa
  3. #little Tools
  4. #Greets To all member Gantengers-crews
  5.  
  6.  
  7. use LWP::UserAgent;
  8. use Term::ANSIColor;
  9. use Win32::Console::ANSI;
  10. if($^O =~ /Win/){
  11.  
  12.    system("cls");
  13.    system("color a");
  14.    system("title Reverse D0main");
  15.  
  16. }else{
  17.  
  18.    system("clear");
  19. }
  20. print q{
  21.  
  22.                       +========[Step 1]========+
  23.                       |    Reverse Websites    |
  24.                       |    with YouGetSignal   |
  25.                       +========================+
  26.  
  27.  
  28. };
  29. print color("bold red"), "\n\n[!]Step 1 Reverse All Website of IPs\n";
  30. print color 'reset';
  31.  
  32. sleep (3);
  33. print color("green"), "\n\n[*]Put List Of Ips:";
  34.   print color 'reset';
  35. my $host = <STDIN>;
  36. chomp($host);
  37. open (zebib, "<$host") || die "[-] Can't open the List of site file !";
  38. my @filee = <zebib>;
  39. close zebib;
  40. print "\t\n [-]Number Of IP : ";
  41. print color("bold blue"), "".scalar(@filee)."\n";
  42. print color 'reset';
  43. foreach $hosts(@filee) {
  44. chomp($hosts);
  45. $ua = LWP::UserAgent->new;
  46. $ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; fr; rv:1.9.1) Gecko/20090624 Firefox/3.5");
  47. #Send Request Post
  48. my $zz = $ua->post('http://domains.yougetsignal.com/domains.php',
  49. {
  50.         remoteAddress => $hosts,
  51. }
  52. );
  53.  
  54. my $resulta = $zz->content;
  55. while ($resulta =~ m/\[([^\]]*)\]/g)
  56. {
  57.         $zeb = $1;
  58.         $zeb =~ m/\"(.*?)\", \"?\"/g;
  59. open(a, ">>log.txt");
  60. print a "$1\n";
  61. close(a);
  62. }
  63. }
  64. print "\n[+]websites Reversed.\n";
  65. sleep(2);
  66. if($^O =~ /Win/){
  67.  
  68.    system("cls");
  69.    system('color a');
  70.    system("title REverse Joomla Website");
  71.  
  72. }else{
  73.  
  74.    system("clear");
  75. }
  76. print q{
  77.                       +========[Step 2]========+
  78.                       |    Reverse Joomla      |
  79.                       |        Websites        |
  80.                       +========================+
  81. };
  82.  
  83. open (zeb, "<log.txt") || die "[-] Can't open the List of site file !";
  84. my @filei = <zeb>;
  85. close zeb;
  86. print "\n[-]Number Of Websites To Reverse :";
  87. print "".scalar(@filei)."\n";
  88. sleep(1);
  89. foreach $klawi (@filei) {
  90. chomp ($klawi);
  91. $joom = "http://".$klawi."/administrator/";
  92. $uaa = LWP::UserAgent->new;
  93. $uaa->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; fr; rv:1.9.1) Gecko/20090624 Firefox/3.5");
  94. #Send Request
  95. my $content = $uaa->get($joom)->content;
  96. #Checking now
  97. if($content =~/Joomla!/)
  98. {
  99.   print color("green"),"\n [+] Joomla : ".$klawi."\n";
  100.   print color 'reset';
  101.   open(suck, ">>reversed.txt");
  102. print suck "$klawi\n";
  103. close(suck);
  104. }
  105. }
  106. print "\n\n\tResult in reversed.txt\n";
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement