kaka aku buat tools lagi nih, his name is DS ! =D

#!/usr/bin/perl

#############################################################
# ________________________                                  #
#/ `---__gunslinger_ ___|]  ========gunslinger_=======)    #
#/_==o;;;;;;;;___DC___.:/                                  #
#),---.(_(__) /                                            #
#// () ),-----"                                            #
#//___//                                                    #
#/===//                                                    #
#===//                                                      #
#############################################################
################################################################################################################
#  C0ded by gunslinger_                                                                                        #

#  Dork finder v.1.1                                                                                            #

#  Special thanks : wisdom, kiddies, flyff666, g0nzhack, 7460, peti_mati,spykit,b3nt0 all devilzc0de crew !    #
#  Special thanx for d3hydr8                                                                                    #

#  all jasakom member....                                                                                      #

#  special i made for devilzc0de crew and jasakom member                                                        #

#  enjoy... =D                                                                                                  #

#################################################################################################################
#################################################

#              go ! devilzcrew !              #

#                    2009                      #
#      http://www.devilzc0de.indonesianforum.net    #

#################################################
################################################################
#      .___            __          _______      .___        #
#    __| _/____ _______|  | __ ____ \  _  \    __| _/____    #
#    / __ |\__  \\_  __ \  |/ // ___\/  /_\  \  / __ |/ __ \  #
#  / /_/ | / __ \|  | \/    <\  \___\  \_/  \/ /_/ \  ___/  #
#  \____ |(______/__|  |__|_ \\_____>\_____  /\_____|\____\  #
#        \/                  \/            \/                #
#                  ___________  ______  _  __                #
#                _/ ___\_  __ \_/ __ \ \/ \/ /                #
#                \  \___|  | \/\  ___/\    /                #
#                  \___  >__|    \___  >\/\_/                  #
#      est.2007        \/            \/  forum.darkc0de.com  #
################################################################

system('clear','cls');
   system('title Dork Scanner.....');
                             
print "\n";
print "\t=============================================================\n";
print "\t= ________________________                                  =\n";
print "\t=/ `---__gunslinger_ ___|]  ========gunslinger_=======)    =\n";
print "\t=/_==o;;;;;;;;___DC___.:/                                  =\n";
print "\t=),---.(_(__) /                                            =\n";
print "\t=// () ),-----                                              =\n";
print "\t=//___//                                                    =\n";
print "\t=/===//                                                    =\n";
print "\t====//                                                      =\n";
print "\t=============================================================\n";
print "\n";;



print"\n";

print "\t=======================================\n";

print "\t=        Coded by gunslinger_        =\n";

print "\t=          Devilzc0de crew            =\n";
print "\t=              ( DS )                  =\n";
print "\t=            Dork Scanner !            =\n";

print "\t=======================================\n";

print "\n";;



use IO::Socket::INET;

use HTTP::Request;

use LWP::UserAgent;

require LWP;

$|++;



#devilzc0de crew



print q{

};

print "please input your dork : ";

chomp ($kiddies=<STDIN>);
print "\n";
print "Name file of UGDS result : ";
chomp ($peti=<STDIN>);

print "\n\n";



if ($kiddies=~ /(.*)/){

   print "=================================\n";

   print "= Searching, please wait...    =\n";
   print "= Ctrl + C to abort operation  =\n";

   print "=================================\n\n";



my $flyff666=$1;

# Starting The Search Engine

my @mlist=&ugds($flyff666);

sub ugds(){

my @lst;

for($spykit=1;$spykit<=500;$spykit+=1){

#------------------------------------------

my $wisdom=LWP::UserAgent->new;

$wisdom->agent("");

#------------------------------------------

my $google=("http://search.live.com/results.aspx?q=".$flyff666."&first=".$spykit."&FORM=PERE");

my $g0nzhack=$wisdom->get("$google");

$g0nzhack->as_string;

my $Res=$g0nzhack->content;

while($Res =~ m/<a href=\"?http:\/\/([^>\"]*)/g){

if($1 !~ /msn|live|microsoft|WindowsLiveTranslator|youtube|google|cache|74.125.153.132|q=|Error|Timeout|Network|Failed|403|404/){

   my $gunslinger=$1;

   $gunslinger=~s/&(.*)/\ /g;

   print "http://$gunslinger\n";

   open(FILE,">>$peti");

   print FILE "http://$gunslinger\n";

   close(FILE);

}}}

}}



print "\n====================================================";
print "\n            Press Enter to continue...            =";
print "\n            Press Ctrl + C to exit...            =";
print "\n====================================================\n\n";

<STDIN>;

<STDIN>;

system("$0")