摘要:
纯属手贱写着玩。。。这几天心情比较郁闷。所以动手写了下。#!/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" 阅读全文
摘要:
#!/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 "[*] 对 阅读全文