Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- #From TeaM MosTa
- #little Tools
- #Greets To all member Gantengers-crews
- use LWP::UserAgent;
- use Term::ANSIColor;
- use Win32::Console::ANSI;
- if($^O =~ /Win/){
- system("cls");
- system("color a");
- system("title Reverse D0main");
- }else{
- system("clear");
- }
- print q{
- +========[Step 1]========+
- | Reverse Websites |
- | with YouGetSignal |
- +========================+
- };
- print color("bold red"), "\n\n[!]Step 1 Reverse All Website of IPs\n";
- print color 'reset';
- sleep (3);
- print color("green"), "\n\n[*]Put List Of Ips:";
- print color 'reset';
- my $host = <STDIN>;
- chomp($host);
- open (zebib, "<$host") || die "[-] Can't open the List of site file !";
- my @filee = <zebib>;
- close zebib;
- print "\t\n [-]Number Of IP : ";
- print color("bold blue"), "".scalar(@filee)."\n";
- print color 'reset';
- foreach $hosts(@filee) {
- chomp($hosts);
- $ua = LWP::UserAgent->new;
- $ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; fr; rv:1.9.1) Gecko/20090624 Firefox/3.5");
- #Send Request Post
- my $zz = $ua->post('http://domains.yougetsignal.com/domains.php',
- {
- remoteAddress => $hosts,
- }
- );
- my $resulta = $zz->content;
- while ($resulta =~ m/\[([^\]]*)\]/g)
- {
- $zeb = $1;
- $zeb =~ m/\"(.*?)\", \"?\"/g;
- open(a, ">>log.txt");
- print a "$1\n";
- close(a);
- }
- }
- print "\n[+]websites Reversed.\n";
- sleep(2);
- if($^O =~ /Win/){
- system("cls");
- system('color a');
- system("title REverse Joomla Website");
- }else{
- system("clear");
- }
- print q{
- +========[Step 2]========+
- | Reverse Joomla |
- | Websites |
- +========================+
- };
- open (zeb, "<log.txt") || die "[-] Can't open the List of site file !";
- my @filei = <zeb>;
- close zeb;
- print "\n[-]Number Of Websites To Reverse :";
- print "".scalar(@filei)."\n";
- sleep(1);
- foreach $klawi (@filei) {
- chomp ($klawi);
- $joom = "http://".$klawi."/administrator/";
- $uaa = LWP::UserAgent->new;
- $uaa->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; fr; rv:1.9.1) Gecko/20090624 Firefox/3.5");
- #Send Request
- my $content = $uaa->get($joom)->content;
- #Checking now
- if($content =~/Joomla!/)
- {
- print color("green"),"\n [+] Joomla : ".$klawi."\n";
- print color 'reset';
- open(suck, ">>reversed.txt");
- print suck "$klawi\n";
- close(suck);
- }
- }
- print "\n\n\tResult in reversed.txt\n";
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement