随笔分类 -  Perl6

Perl6多线程2: Promise new/keep/bread/status/result
摘要:来源于个人理解的翻译。 创建一个 promise: 可以打印运行 的Promise 状态: 上面的promise创建好后, 当 $p 状态为 kept或broken 时, 会执行 then 里面的 匿名函数。 但是, 上面的$p状态总是为: Plannd。 所以, 那个 hello, world 总 阅读全文

posted @ 2017-08-27 14:34 Perl6 阅读(260) 评论(0) 推荐(0)

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

posted @ 2017-08-26 15:25 Perl6 阅读(360) 评论(0) 推荐(0)

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

posted @ 2017-08-25 01:54 Perl6 阅读(251) 评论(0) 推荐(0)

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

posted @ 2017-08-24 22:45 Perl6 阅读(392) 评论(0) 推荐(0)

perl6正则 1: ~~ , //, m//, rx//
摘要:~~ perl6 中, 要匹配一个正则, 使用 ~~ 智能匹配符。 // 或 m 模式中, 默认用 // , 如果要改变, 像perl5一样加 m前缀就行。 rx// 如果我们要把正则保存到一个变量中, 可以用 rx // 创建一个表达式。 阅读全文

posted @ 2017-08-22 22:59 Perl6 阅读(1003) 评论(0) 推荐(0)

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

posted @ 2017-08-21 10:55 Perl6 阅读(413) 评论(0) 推荐(0)

perl6 一个猜测密码的注入
摘要:use HTTP::UserAgent; my $ua = HTTP::UserAgent.new; my $r = HTTP::Request.new; my $c = HTTP::Cookies.new; $c.set-cookie('Set-Cookie:JSESSIONID=06617AD9F324C7D49D3218D800B8FBB6'); my $url = 'http://t... 阅读全文

posted @ 2017-07-29 00:07 Perl6 阅读(232) 评论(1) 推荐(0)

Perl6多线程1 Thread : new / run
摘要:先看一个小例子: 这是正常的调用方式。 再看如下代码: 可以看到, 当函数没参数时, 可以直接用 B() 来调用,如果有参数时, 可以 A() / &A() 调用。 再看一下例子: 从上例可以看出, &A / &B 并不是调用函数, 而是显示这个函数的地址(也就是这个函数的代码块形式)。 这个 &B 阅读全文

posted @ 2017-07-21 15:58 Perl6 阅读(444) 评论(0) 推荐(0)

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

posted @ 2017-07-09 01:07 Perl6 阅读(646) 评论(0) 推荐(0)

perl6 struct2-045 EXP
摘要:测试站点: http://www.yutian.com.cn/index.action http://www.hjxzyzz.com:8088/pfw/login.action 代码如下: POC如下(也就是上面代码的 data.txt 文件内容): 注意这个POC是一整串字符串, 没有换行的, 如 阅读全文

posted @ 2017-07-08 23:26 Perl6 阅读(329) 评论(0) 推荐(0)

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

posted @ 2017-07-08 00:09 Perl6 阅读(780) 评论(0) 推荐(0)

perl6 单线程破解phpmyadmin脚本
摘要:运行效果如下所示: 这个 X 操作符实在太方便了。 里面的phpmyadmin改成你要破解的地址 username.txt / password.txt 改成你要的字典就行。 阅读全文

posted @ 2017-07-07 11:48 Perl6 阅读(320) 评论(0) 推荐(0)

perl6 登录phpmyadmin
摘要: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... 阅读全文

posted @ 2017-07-06 10:41 Perl6 阅读(259) 评论(0) 推荐(0)

Fuzz安全狗注入绕过
摘要:安全狗版本为: apache 4.0 网站为: php+mysql 系统: win 2003 这里只要是fuzz /*!union 跟 select*/ 之间的内容: 位置很多可以选择。 脚本语言你可以用你喜欢的, 我这里用perl6 让我们一步步来。 枸造 exp 我用如下代码(代码测试用): 字 阅读全文

posted @ 2017-06-25 12:42 Perl6 阅读(5724) 评论(1) 推荐(0)

Perl6 Bailador框架(8):自定义400/500
摘要:第一种方法, 直接写在源码中: 另一种方法, 在views目 录下创健 404.xx 或 500.xx。 阅读全文

posted @ 2017-06-14 02:26 Perl6 阅读(171) 评论(0) 推荐(0)

perl6中的q/qq/qx/qqx
摘要:q不内插 qq内插 qx不内插 qqx内插 阅读全文

posted @ 2017-06-14 00:13 Perl6 阅读(283) 评论(0) 推荐(0)

Perl6 Bailador框架(7):模版编写
摘要:先看一个例子: 一个变量保存html源码, 用request.params<name>获取用户输入, 再连接后输出 那什么叫模板呢, 个人觉得, 一个是为了代码重用, 二个是我们可以在模板文件中嵌入perl语句 一般来说, 直接引用模板用如下语法就行: 默认地, perl6中的bailador把模板 阅读全文

posted @ 2017-06-10 03:27 Perl6 阅读(304) 评论(0) 推荐(0)

nsa工程式(fb.py): perl6调用并修改IP
摘要:这是一个写批量的原型 关键点是修改smbtouch中的IP地址 持续修改IP地址就是批量版本 perl6里没找到原地修改文件的方 法, 这里用的是: 1. 把文件读进一个变量 2. 替换IP 3. 把变量写进配置文件进行覆盖 你起码要有一个smbtouch 的exe测试文件(这些文件在nsa里有), 阅读全文

posted @ 2017-06-10 03:15 Perl6 阅读(276) 评论(0) 推荐(0)

perl6中的替换
摘要:还有一个替换方法为: s 小写的 s 会在原字符串上操作。 大写的 S 一般用作无损替换。 阅读全文

posted @ 2017-06-10 01:33 Perl6 阅读(1305) 评论(0) 推荐(0)

Perl6 Bailador框架(6):获取用户输入
摘要:use v6; use Bailador; get '/' => sub { ' String: ' } #这个get对应表单的get, 如果是post改为相应的post get '/string' => sub { my $i... 阅读全文

posted @ 2017-06-07 11:06 Perl6 阅读(158) 评论(0) 推荐(0)

导航