摘要：use Net::HTTP::GET; my @chars = ; my $count = 0; for @chars X @chars X @chars X @chars -> $check { my $target_check = $check.join; my $url = "http://www.xxxxxx?ID=11733)"~$target_chec... 阅读全文

摘要：可以看这里的链接 阅读全文

摘要：下面为测试是否存在漏洞的脚本: 为 True 时表示存在漏洞。 关键字查找可以用这个脚本: 必应关键字查找 查找结果后处理 URL 可以用如下脚本: 把以上处理过的文本导入进行批量检测最终脚本为: 注意: 当打印结果为 Error 时， 可能是爬虫出问题， 或者是 url 链接无法打开。如果有这情况 阅读全文

摘要：新版 firefox 中的 hackbar 没有 order by 字段填写， 所以就有了这个: 阅读全文

摘要：效果如下: 阅读全文

摘要：use HTTP::UserAgent; my $fp = open 'result.txt', :w; my @threads; #控制线程数目 sub MAIN (Str $ip, Str $dict) { # #判断是否是文件 if $dict.IO.f { #不要把文件一次进数组， 一行一行读就行 ... 阅读全文