[KaLa$nikoV]

http://inj3ct0r.com/exploits/12817

اقتباس #!/usr/bin/perl ############################################# # Phc-Persian Hackerz Community-Security Team ########################################### use LWP::Simple; print " ************************************************** ** cPanel Username look up Keep priv8 ? * ************************************************** ** * Phc-Persian Hackerz Community-Security Team * * ------------------------------------------- * * by PHC.IR ? ?>>>>>>>>>>> (Net.Edit0r ) * * ----------------------------------------------- * * Greetz to : admin ~ M.Prince ~ N20 ~ inj3ct0r * ************************************************** **"; print "\n\nTarget to look up -> "; chomp ($ip = <> ; print "Output -> "; chomp ($out = <> ; print "\n[~] Save & 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,">site.txt" ; print IP "$name"; close(IP); sleep(1); print "[~] Parsing Data ...\n"; chomp ($data_file = "site.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 "Tnx to Net.Edit0r";close(add); print "[~] Done .\n" ################################################## ###################### #Greetz : admin ~ M.Prince ~ N20 ~ inj3ct0r ~ AGT ~ H4M3D ~ reglight #Note : IRANIAN ?HackerZ ################################################## ###################### #www.phc.ir (Phc-Persian Hackerz Community-Security Team) ###########################[Net.Edit0r]#################################