SHOW:
|
|
- or go back to the newest paste.
| 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"; |
