scan enclosure your target as you want =) with fastest

scan target dengan kata kunci sesuai keinginan kaka...
Cool

Code:: #!/usr/bin/perl
use IO::Socket::INET;
use HTTP::Request;
use LWP::UserAgent;
require LWP;
$|++;
#devilzc0de c0der
print q{
};
print "masukan dork : ";
chomp ($kiddies=<STDIN>);
print "Insert Output : ";
chomp ($peti=<STDIN>);
##############
if ($kiddies=~ /(.*)/){
print "--------------------------------\n";
print "Ok, let's rock devilzc0de... \n";
print "--------------------------------\n\n";
my $flyff666=$1;
# Starting The Search Engine
my @mlist=&msn($flyff666);
############
# SUBS MSN #
############
sub msn(){
my @lst;
for($spykit=1;$spykit<=1000;$spykit+=10){
#------------------------------------------
my $ua=LWP::UserAgent->new;
$ua->agent("");
#------------------------------------------
my $MsN=("http://search.live.com/results.aspx?q=".$flyff666."&first=".$spykit."&FORM=PERE");
my $g0nzhack=$ua->get("$MsN");
$g0nzhack->as_string;
my $wisdom=$g0nzhack->content;
while($wisdom =~ m/<a href=\"?http:\/\/([^>\"]*)/g){
if($1 !~ /msn|live|microsoft|WindowsLiveTranslator|youtube/){
my $gunslinger=$1;
$gunslinger=~s/&(.*)/\ /g;
print "http://$gunslinger\n";
open(FILE,">>$peti");
print FILE "http://$gunslinger\n";
close(FILE);
}}}
}}

print "\n-----------------------------------------------------------";
print "\nResult : $peti";
<STDIN>;
system("$0");