Enertopia

#!/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.forumotion.com     #
#################################################
################################################################
#       .___             __          _______       .___        #
#     __| _/____ _______|  | __ ____ \   _  \    __| _/____    #
#    / __ |\__  \\_  __ \  |/ // ___\/  /_\  \  / __ |/ __ \   #
#   / /_/ | / __ \|  | \/    <\  \___\  \_/   \/ /_/ \  ___/   #
#   \____ |(______/__|  |__|_ \\_____>\_____  /\_____|\____\   #
#        \/                  \/             \/                 #
#                   ___________   ______  _  __                #
#                 _/ ___\_  __ \_/ __ \ \/ \/ /                #
#                 \  \___|  | \/\  ___/\     /                 #
#                  \___  >__|    \___  >\/\_/                  #
#      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 DS 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|inurl:|q=|404|403|Time|out|Network|Failed/){

    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")