:: vBspiders Professional Network ::
صفحة 1 من 2 1 2
عرض 40 مشاركات من هذا الموضوع لكل صفحة

:: vBspiders Professional Network :: (http://www.vbspiders.com/vb/index.php)
-   Tools forum (http://www.vbspiders.com/vb/f279.html)
-   -   ابحث عن الشيل بواسطة هذا السكربت (http://www.vbspiders.com/vb/t58192.html)

JetLi 08-27-2011 08:55 PM
ابحث عن الشيل بواسطة هذا السكربت
 
كود:
#!/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

bleu moon 08-27-2011 08:59 PM
رد: ابحث عن الشيل بواسطة هذا السكربت
 
ماشاء الله عليك يا ايرون ؛)
الاداه ممكن تفيد في الاستهداف :)

JetLi 08-27-2011 10:12 PM
رد: ابحث عن الشيل بواسطة هذا السكربت
 
ههه ادوات الاستهداف كثيرة ولكن المشكلة ستخرب على المبتدئين وستعلمهم الكسل هههه لذلك كل فرتة انزل اداة، ههه ادوات فحص سيرفر كامل ههه ههيء

Black light 08-28-2011 12:43 PM
رد: ابحث عن الشيل بواسطة هذا السكربت
 
مأشأءالله
مشكور يااغالي
يعطيك العافيه

xavi13 09-01-2011 07:08 PM
رد: ابحث عن الشيل بواسطة هذا السكربت
 
مشكووووووووووووور يا أخي الكريم ....على العموم مازلت مبتدأ في هذا المجال

xavi13 09-01-2011 07:31 PM
رد: ابحث عن الشيل بواسطة هذا السكربت
 
ممكن طريقة تشغيله.....

عفوا للازعاج

vpn_31 09-02-2011 08:47 AM
رد: ابحث عن الشيل بواسطة هذا السكربت
 
تسلم يديك أخي ألكريم
تحياتي

HaMoUz213 10-19-2011 12:08 AM
رد: ابحث عن الشيل بواسطة هذا السكربت
 
مشكور أخي الكريم على السكريبت

NoTty_rAJ 10-20-2011 10:33 PM
رد: ابحث عن الشيل بواسطة هذا السكربت
 
lol nice codes brother

khiero 10-21-2011 09:43 PM
رد: ابحث عن الشيل بواسطة هذا السكربت
 
الله يجزيك على هذه الاداة القوية
التي نستطيع الاستفادة منها

انامسلم 10-22-2011 01:31 AM
رد: ابحث عن الشيل بواسطة هذا السكربت
 
ممكن طريقة تشغيله

Alcatraz Hacker 05-07-2012 12:04 AM
رد: ابحث عن الشيل بواسطة هذا السكربت
 
يً ريت لو << اعوذ بالله من كلمة لو

بس لو تشرح لنا شرح استخدام الاداة

جبروت هكر 05-13-2012 02:10 AM
رد: ابحث عن الشيل بواسطة هذا السكربت
 
اقتباس:
المشاركة الأصلية كتبت بواسطة JetLi (المشاركة 389466)
#!/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
دخان

يعطيك العافيه مع اني ماتتبعتها كلها

هههههه

^-^

BackCover 05-13-2012 02:42 PM
رد: ابحث عن الشيل بواسطة هذا السكربت
 
هههههههه
شكراا لك
و الله صحيح هده سوف يستخدمونها الا الكسلاء ههههههههههههههه :p

oussama.ha 07-17-2012 07:06 PM
رد: ابحث عن الشيل بواسطة هذا السكربت
 
السكربت بيطلع تكت على الشل يا ريت لو ترفقه بموضوع لان مشاكل copier-coller للسكربت تخربه

rabie hacker 07-18-2012 02:08 PM
رد: ابحث عن الشيل بواسطة هذا السكربت
 
شكرا اخي الكريم لو كان شرح لكان افضل

chafikusmm 09-04-2013 01:42 AM
رد: ابحث عن الشيل بواسطة هذا السكربت
 
مشكور يااغالي

ayoub khouya 10-17-2013 08:37 PM
رد: ابحث عن الشيل بواسطة هذا السكربت
 
merciiii

FalconsG33k 10-27-2013 07:48 AM
رد: ابحث عن الشيل بواسطة هذا السكربت
 
مشكوووووووووووووووور

darksidovish 11-10-2013 04:03 AM
رد: ابحث عن الشيل بواسطة هذا السكربت
 
مشكور أخي الكريم على السكريبت

damkey 11-19-2013 04:02 PM
رد: ابحث عن الشيل بواسطة هذا السكربت
 
werwerw

ElKonSoL 12-24-2013 01:52 AM
رد: ابحث عن الشيل بواسطة هذا السكربت
 
Thnxxxxxxx

هاك للابد 12-30-2013 07:01 PM
رد: ابحث عن الشيل بواسطة هذا السكربت
 
ششششششششششششششششششششششش

الصارم المسلول 02-21-2014 12:34 PM
رد: ابحث عن الشيل بواسطة هذا السكربت
 
مشكوووووووووور

is.volcano 02-26-2014 02:18 AM
رد: ابحث عن الشيل بواسطة هذا السكربت
 
تسلم ياغالي
وجارى تجربة الاسكريبت

جديد جديد 03-03-2014 01:33 AM
رد: ابحث عن الشيل بواسطة هذا السكربت
 
مشكور يا ريس

ftaa 03-24-2014 03:40 PM
رد: ابحث عن الشيل بواسطة هذا السكربت
 
يعطيك العافية

f5r-hacker 07-12-2014 11:17 PM
رد: ابحث عن الشيل بواسطة هذا السكربت
 
thnks

RoOFIX-FOX 07-18-2014 09:54 PM
رد: ابحث عن الشيل بواسطة هذا السكربت
 
THNKS ^^

jacob.jackson 09-29-2014 04:04 AM
رد: ابحث عن الشيل بواسطة هذا السكربت
 
how can we use it ?

خالد الجهني1 11-02-2014 04:00 PM
رد: ابحث عن الشيل بواسطة هذا السكربت
 
شكرا

erkn 11-30-2014 02:42 PM
رد: ابحث عن الشيل بواسطة هذا السكربت
 
وىزتنا اتبغب بف بفيغقف

mouhamedlaka 12-02-2014 02:16 PM
رد: ابحث عن الشيل بواسطة هذا السكربت
 
Hi

insect 12-08-2014 05:13 AM
رد: ابحث عن الشيل بواسطة هذا السكربت
 
شكرا لك اخي

ayman elboustani 01-10-2015 02:12 AM
رد: ابحث عن الشيل بواسطة هذا السكربت
 
tnx

5Lo0oDy 03-10-2015 08:55 PM
رد: ابحث عن الشيل بواسطة هذا السكربت
 
تسلم ربي يعافيك

farid79 06-04-2015 07:22 PM
رد: ابحث عن الشيل بواسطة هذا السكربت
 
شكرااااااااااااااااااااااااااااااااااااااااااااااا ااااااااااااااااااااااااااا

marcilia 07-04-2015 06:42 PM
رد: ابحث عن الشيل بواسطة هذا السكربت
 
tnx

مستر دي هكر 02-06-2016 10:51 PM
رد: ابحث عن الشيل بواسطة هذا السكربت
 
شكرا لك

sysT3m-x 08-20-2016 06:15 PM
رد: ابحث عن الشيل بواسطة هذا السكربت
 
مو معقول اداة قويه يعطيك العافيه


الساعة الآن 08:21 AM
صفحة 1 من 2 1 2
عرض 40 مشاركات من هذا الموضوع لكل صفحة


[ vBspiders.Com Network ]


SEO by vBSEO 3.6.0