#! perl -w use strict; use Win32::OLE; use Win32::OLE::Const 'Microsoft Excel'; $Win32::OL…
#!/usr/bin/env python # # dnsspider.py - multithreaded subdomain bruteforcer # # bruteforc…
#!/usr/bin/perl use strict; use DBI; my @drivers; @drivers = DBI->available_drivers(); …
#!/usr/bin/perl #=========================================================================…
#!/usr/bin/perl -w use Win32::NetAdmin; $host = ''; $username = "userName"; $password = "p…
use IO::Socket; $server = IO::Socket::INET->new ( LocalPort => 1247, Type => SOCK…
#!/usr/bin/perl use Socket; my $proto = getprotobyname('tcp'); socket(Server,PF_INET,SOCK_…
#!/usr/bin/perl # # Useage: maze.pl # # use strict; use warnings; ### main program my @maz…
-e 该“文件名”是否存在 -f 该“文件名”是否为文件 -d 该“文件名”是否为目录 -b 该“文件名”是否为一个块设备 -c 该“文件名”是否为一个字符设备 -S 该“文件名”…
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ # # @File : Lexical_…
#!/usr/bin/perl use Tk; use Encode; use Win32::API; use threads; use Encode::CN; use Tk::B…
#!/usr/bin/perl -w #use strict; #严格perl的语法,使用它后所有变量必须都用my声明。 use CGI qw(:all); open(FILE,"…
kickstart file generate tool use cgi