摘要:
纯属手贱写着玩。。。这几天心情比较郁闷。所以动手写了下。#!/usr/bin/perluse HTTP::Request;use LWP::UserAgent;use Getopt::Long;use threads;use Thread::Semaphore;use Socket;print "-------------------\n";print "-----WebScan-------\n";print "-----XiaoCon-------\n";print "-------------------\n" 阅读全文
posted @ 2013-02-25 11:15
墨迹哥's
阅读(406)
评论(0)
推荐(0)
摘要:
#!/usr/bin/perluse LWP::Simple;use threads;use Thread::Semaphore;#先下载文件下来.$k='321935'.'.html';while( 1 ){$url="http://xxx/Html/Book/0/549/$k";$page=getstore($url,"$k"); if($page=='200'){ print "[*] $url_name[7] 下>载成功! [*]\n"; print "[*] 对 阅读全文
posted @ 2013-02-25 11:12
墨迹哥's
阅读(282)
评论(0)
推荐(0)

浙公网安备 33010602011771号