摘要：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 链接无法打开。如果有这情况 阅读全文

摘要：use Net::HTTP::Request; use Net::HTTP::URL; use Net::HTTP::Transport; my $url = Net::HTTP::URL.new("http://localhost/sqli-labs-master/Less-1/?id=2%"); my $request = Net::HTTP::Request.new(:$url,... 阅读全文

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

摘要：只做个笔记， 用 HTTP::UserAgent 的话, url 中有特殊点的符号会请求不了， 用 Net::HTTP 能很好的发送请求。 $html 返回的是 Buf 数据， 记得decode。 阅读全文

摘要：如果一个 URL 要求POST数据是 JSON格式的， 那我们要怎么发送数据呢？ 第一种： 上一篇说到， 发送 POST 数据， 可以: 在这里， 无论是第一种方法还是第二种方法， 里面所发送的 %data 都会自动编码。 JSON也是一种字符串格式， 这两种方法要求%data为一个hash, 那就 阅读全文

摘要：说明， 在dos下输入中文， 因为终端编码问题， 程序会报错。 在linux下运行正常， 或dos下设置编为utf8。 用法： BUG: 如果bing中的结果只有 100 条， 而我们向他取 1000 条， 这时我们会取到相同的数据。 修复： 在运行前， 用bing的数据库条目与用户输入的对比。 如 阅读全文

摘要：一个相当丑漏的代码， 以后有时间再优化了。 默认所有查找都是15页， 如果结果没有15页这么多估计会有重复。速度还是很快的。 下次代码优化： 总结一下必应的规律， 如下： 在页面上测试， 参数只虽两个即可: 阅读全文

摘要：sub MAIN(Str $host,Str $path, Int $port) { my $send = "GET $path HTTP/1.1\r\nHost: $host\r\n\r\n"; my $c = IO::Socket::INET.new(:host($host), :port($port)); $c.print: $send; while (my $buff ... 阅读全文

摘要：Perl6 中的SOCKET就是相当于Perl5 的 IO::Socket::INET。 官方介绍如下： 我们使用时， 设置我们要用的就行， 对于其他参数， 让其默认即可。 服务端： 客户端： my $conn = IO::Socket::INET.new(:host<localhost>, :po 阅读全文

摘要：代码如下： 使用前请安装好 perl6 再用zef安装好所用的模块： 效果如下: 一般来说， 查不到CMS或服务器系统信息， 就返回未知(Unknown) 有时没法转换JSON时会出错， 下次有时间再改版一下。 阅读全文

摘要：http://www.cnblogs.com/perl6/p/6911166.html 之前这里有个小小例子， 这里只要是总结一下。 HTTP::UserAgent包含了以下模块: HTTP::UserAgent -> 创建一个浏览器($ua) HTTP::Cookies -> 设置COOKIE H 阅读全文

摘要：use HTTP::UserAgent; my $ua = HTTP::UserAgent.new; my $url = 'http://localhost/phpMyAdmin/index.php'; #$ua.cookies.set-cookie('Set-Cookie:phpMyAdmin=4vd2oee7t866juc4mhdgh1f2krfjrg19; pma_lang=zh_CN... 阅读全文

摘要：use HTTP::UserAgent; my $ua = HTTP::UserAgent.new; say 'All method:'; say $ua.^methods; my %data = :cmd('whoami'); my $result = $ua.post('http://localhost/1.php', %data); say $result.content; 阅读全文

摘要：默认地， perl提交post登录时是不会重定向的 要让它重定向， 可以用如下方法: 阅读全文

摘要：当然， 你还可以加一下正则， 去掉不是http://开头的也行 阅读全文

摘要：这个代码打印页面中的所有标签名与对应的link链接地址 如果我们要打印其中的所有img地址呢，那我们可能用$tag来判断是哪种标签， 从而再进一步提取数据 具体可以看这里: perl HTML::LinkExtor模块(2) 阅读全文

摘要：1 use WWW::Mechanize; 2 3 my $ua = WWW::Mechanize->new(); 4 $ua->post('http://localhost/dvwa/DVWA-master/login.php'); 5 #登录网址 6 $ua->form_number(1); 7 #表单编号, 也可用$ua->form_name(form_name); 8 ... 阅读全文

摘要：1 use LWP::UserAgent; 2 3 undef $/; 4 if(@ARGV != 1){print "Use:poc.pl http://target/index.action\n";exit;} 5 my $url = shift; 6 my $ua = LWP::UserAgent->new; 7 my $req = HTTP::Request->new(P... 阅读全文