Debian搭建PPTPD
摘要：先安装pptpd: 编辑 /etc/pptpd.conf 编辑 /etc/ppp/pptpd-options 添加账号密码;编辑/etc/ppp/chap-secrets，格式如下: 编辑/etc/sysctl.conf 使iptables修改生效 重启pptp iptables配置如下:
阅读全文
posted @ 2016-12-22 02:33
12 2016 档案
用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
LWP::UserAgent介绍3 -> cookie设置
摘要：#或者可以如下所示 还有， 如果你是想在发送请求时一起发送指定cookie, 可以这样：
阅读全文
posted @ 2016-12-06 09:04
LWP::UserAgent介绍2
摘要：1 #这个LWP::UserAgent一般要配合其他模块使用 2 #比如: 3 #HTTP::Request 4 #HTTP::Cookie 5 #HTTP::Respose 6 #HTTP::Status 7 #LWP::UserAgent相当于创建一个模拟浏览器 8 9 #用以下方式创一个浏览器 10 my $useragent = LWP::UserAgent->ne...
阅读全文
posted @ 2016-12-06 09:03
perl LWP::UserAgent获取源码与响应
摘要：1 #!/usr/bin/perl -w 2 use strict; 3 use LWP::UserAgent; 4 5 my $useragent = new LWP::UserAgent; 6 my $url = 'http://www.baidu.com'; 7 my $request = HTTP::Request->new(GET => $url); 8 my $r...
阅读全文
posted @ 2016-12-06 09:02
LWP::UserAgent介绍1
摘要：1 require LWP::UserAgent; 2 3 my $ua = LWP::UserAgent->new; 4 $ua->timeout(10); 5 $ua->env_proxy; 6 7 my $response = $ua->get('http://search.cpan.org/'); 8 9 if ($response->is_success)...
阅读全文
posted @ 2016-12-06 09:02
fork()子进程与waitpid()
摘要：在这里， 如果在父进程中改用wait()会出现阻塞 每一个子进程退出后会向父进程发送chld信号 waitpid()中-1表示等待所有子进程， wnohang表示不阻塞 waitpid()返回子进程的进程ID， 出错返回-1
阅读全文
posted @ 2016-12-06 09:01
perl Mail::Sender模块发送邮件
摘要：这里用了一个while(1)测试一直发送 perl默认没有安装Mail::Sender模块， 要自行安装
阅读全文
posted @ 2016-12-06 09:00
perl中的pack与unpack
摘要：这个pack, unpack在 “perl语言编程” 有介绍 看起来很复杂 转自: https://blog.gtwang.org/perl/perl-pack-unpack-tutorial/
阅读全文
posted @ 2016-12-06 08:59
perl 简单后门程序
摘要：上面的open是为了重定向， 把socket的所有重定向到shell的所有 最后的exec是为了跳进/bin/sh 因为前面已把 S 跟STDIN STDOUT STDERR连接了起来
阅读全文
posted @ 2016-12-06 08:57
perl Socket接收超时设置
摘要：一般来说， IO::Socket::INET里的Timeout设置是对于conncet的 如果你想设置recv接收超时， 可以这样设置: 这里有一点要说明， 可能新人有点迷惑。 那就是io::socket::inet创一个socket时， 这个socket是未定义的， 要等 到它连接成功了才变成定义
阅读全文
posted @ 2016-12-06 08:56
