随笔分类 -  Perl6

fuzz for test of the Net::HTTP::GET
摘要: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... 阅读全文

posted @ 2018-10-02 08:22 Perl6 阅读(346) 评论(0) 推荐(0)

perl6 中将 字符串 转成十六进制
摘要:可以看这里的链接 阅读全文

posted @ 2018-09-10 22:26 Perl6 阅读(962) 评论(1) 推荐(0)

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

posted @ 2018-09-04 01:29 Perl6 阅读(650) 评论(0) 推荐(0)

Net::HTTP 一次添加 cookie, body 发送post请求
摘要: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,... 阅读全文

posted @ 2018-08-31 12:48 Perl6 阅读(1047) 评论(0) 推荐(0)

HTTP::UserAgent注意问题
摘要:例用 HTTP::Request 设置头信息时, 比如 add-content , 第二次再执行 add-content 时, content 内容会追加, 并不会重新添加。 当下次再 add-content 时, 要使用 clear 清空一次。 清空后 head/cookie 之类的也要重新添加。 阅读全文

posted @ 2018-08-02 05:46 Perl6 阅读(339) 评论(0) 推荐(0)

order by 字段自动填写脚本
摘要:新版 firefox 中的 hackbar 没有 order by 字段填写, 所以就有了这个: 阅读全文

posted @ 2018-06-26 14:30 Perl6 阅读(307) 评论(0) 推荐(0)

perl6: Proc::Async (new)
摘要:# command with arguments my $proc = Proc::Async.new('whoami'); # subscribe to new output from out and err handles: $proc.stdout.tap(-> $v { print "Use 阅读全文

posted @ 2018-06-26 07:49 Perl6 阅读(267) 评论(0) 推荐(0)

HTTP::Request 用 add-content 添加 POST参数
摘要:相似文章: https://www.cnblogs.com/perl6/p/9404952.html 阅读全文

posted @ 2018-05-24 04:53 Perl6 阅读(526) 评论(0) 推荐(0)

perl6 Net::HTTP 不能发送https请求
摘要:如下命安装必要的包: sudo apt install libssl1.0.0 libssl-dev zef install IO::Socket::SSL zef install Net::HTTP 阅读全文

posted @ 2018-05-24 03:36 Perl6 阅读(189) 评论(0) 推荐(0)

perl6: hash小笔记
摘要:1 > my %h = 1,2,3,4 2 {1 => 2, 3 => 4} 3 > my $a = :%h 4 h => {1 => 2, 3 => 4} 5 > $a.perl 6 :h({"1" => 2, "3" => 4}) 7 > my %h2 = 'a','b' 8 {a => b} 9 > my $a = :%h,:%h2 10 (h => {1 => 2, 3... 阅读全文

posted @ 2018-03-10 18:41 Perl6 阅读(136) 评论(0) 推荐(0)

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

posted @ 2018-01-06 02:34 Perl6 阅读(303) 评论(0) 推荐(0)

禅道CMS 获文件名脚本
摘要:use Net::HTTP::GET; use Base64; my %header = :Cookie; #my $response = Net::HTTP::GET("http://172.16.57.128/zentaopms/www/index.php?m=editor&f=edit&filePath=YzpccGhwc3R1ZHlcV1dXXHplbnRhb3Btc1x3d3dc... 阅读全文

posted @ 2018-01-06 00:45 Perl6 阅读(481) 评论(1) 推荐(0)

perl6正则 6: 大小写/空白/匹配所有符合
摘要:这个 :g 只能写在外面 m:g /re/ 阅读全文

posted @ 2017-09-10 05:43 Perl6 阅读(735) 评论(0) 推荐(0)

perl6正则 5: [ ] / | / ||
摘要:也就是可以把多种要匹配的写进[ ] 中, 第种用 | 分开就行了。 | 与 || 有差别 |的话, 当匹配位置 相同时, 会取最长的, 而 || , 当前面的匹配成功, 后面的就不会再去匹配。 注意 [] 跟 <[]> 是不同的: 阅读全文

posted @ 2017-09-10 05:23 Perl6 阅读(384) 评论(0) 推荐(0)

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

posted @ 2017-08-29 12:40 Perl6 阅读(314) 评论(0) 推荐(1)

控制并发数量
摘要:每 4 个线程, 就先等待返回线程返回。 里面的grep为了提取已完成的, 未完成的就再保存。 阅读全文

posted @ 2017-08-29 12:08 Perl6 阅读(385) 评论(0) 推荐(0)

多线程中的超时, 如Socket超时
摘要:anyod里面的线程如果有一个返回 kept时, 就马上返回, 设置超时时间为 $timeout 后, 当第一个 Promise.in($timeout) 时间到达时会返回, 里面的 Socket就不能继续运行了。 阅读全文

posted @ 2017-08-29 11:31 Perl6 阅读(376) 评论(0) 推荐(0)

Supply
摘要:Supplier创建一个Supply Supply有tap或emit方法。 可以这样理解: Supplier创建一个工厂 Supply 用tap创建流水线 emit向流水线上传送加工品进行加厂 阅读全文

posted @ 2017-08-29 11:27 Perl6 阅读(267) 评论(0) 推荐(0)

Perl6多线程4: Promise allof / anyof
摘要:allof : 所有代码块执行完成后才退出 anyof :只要有一个代码块执行完后就马上退出 要配合 await 一起用: 这个代码, 只会打印出: a 这个代码会打印出: a, b 阅读全文

posted @ 2017-08-27 15:32 Perl6 阅读(230) 评论(0) 推荐(0)

Perl6多线程3: Promise start / in / await
摘要:创建一个Promise 并自动运行: 如果把代码改成如下, 我们会发现什么也没打印: 匿名函数 sleep 2 秒, 这时, 它还没运行完, 主程序就退出了, 这里 promise也跟着退出, 所以什么也没打印。 我们可以改写成这样: 是不是觉得有点不太好?因为你有时并不知道程序什么时候运行完成。 阅读全文

posted @ 2017-08-27 15:31 Perl6 阅读(267) 评论(0) 推荐(0)

导航