Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- #############################################
- # Coded By Mauritania Attacker
- ###########################################
- use LWP::Simple;
- print "
- ****************************************************
- * Cpanel User Finder *
- ****************************************************
- * Coded by Mauritania Attacker *
- ****************************************************";
- print "\n\nIP of Server -> ";
- chomp ($ip = <>);
- print "Output -> ";
- chomp ($out = <>);
- print "\n[~] Downloading Data ....\n";
- sleep(1);
- $URL = "http://www.dedicatedornot.com/xml/".$ip;
- $content = get($URL);
- @name = split(/<sites>/,$content);
- $name = @name[1];
- @name = split(/<\/sites>/,$name);
- $name = @name[0];
- $name =~ s/<site>//g;
- $name =~ s/<\/site>//g;
- $name =~ s/www.//g;
- $name =~ s/^.com//g;
- $name =~ s/^\s+//g;
- open(IP,">ip.txt");
- print IP "$name";
- close(IP);
- sleep(1);
- print "[~] Parsing Data ...\n";
- chomp ($data_file = "ip.txt");
- sleep(1);
- open(DAT, $data_file) || die("Could not open file!");
- @raw_data=<DAT>;
- foreach $res (@raw_data)
- {
- chomp($res);
- $line=$res;
- my $new_line = substr( $line, 0,10);
- #my $new_line=$line;
- $new_line =~ s/\.//g;
- $new_line =~ s/^\s+//g;
- open(DA, ">>$out") || print "Can't Open File. Try chmod 777 directory<br><br>";
- print DA "$new_line\n";
- close(DA);
- } open(add,">>$out");print add "Greetz to AnonGhost";close(add);
- print "[~] Done .\n"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement