perl6检测网站CMS脚本(测试代码)
摘要：代码如下： 使用前请安装好 perl6 再用zef安装好所用的模块： 效果如下: 一般来说， 查不到CMS或服务器系统信息， 就返回未知(Unknown) 有时没法转换JSON时会出错， 下次有时间再改版一下。
阅读全文
posted @ 2017-07-09 01:07
随笔分类 - Perl tools
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
st2-045漏洞利用poc
摘要：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...
阅读全文
posted @ 2017-03-08 01:40
用perl发送数据到钓鱼站
摘要：一个皮皮果的游戏很火 估计很多人想黑 偶然发现一个钓鱼站: http://ppgpergame.com/ 钓用户名与密码 抓包后发现数据会发送到: http://ppgpergame.com/db.asp保存 所以就有了下面的脚本: post数据大概是 XXXOOOO ni M类型， 不多说
阅读全文
posted @ 2016-12-12 02:36
用Perl做个简单”下载者病毒”
摘要：一直学的perl, 有时perl不理解时就用python写一下，这样或许perl就理解了 这里参照python写法，做了个perl的版本，当然，是为了学习用，这个下载者病毒有点简单过头了 backdoor.sh后门程序代码如下: backdoor.sh 下面为perl的shell.pl代码: she
阅读全文
posted @ 2016-12-06 09:06
perl版 Webshell存活检测
摘要：原理： 检测url返回状态即可 源码: #等有时间优化一下 #注意， 这个是用于win版本， 因为开头的#!路径， 还有就是system(‘cls’)用于WIN， 如果是linux的话 #请修改system(‘cls’)为system(‘clear’) #再把开头的#!c:\\perl\\bin\\
阅读全文
posted @ 2016-11-30 22:44
