摘要： 一直学的perl, 有时perl不理解时就用python写一下，这样或许perl就理解了 这里参照python写法，做了个perl的版本，当然，是为了学习用，这个下载者病毒有点简单过头了 backdoor.sh后门程序代码如下: backdoor.sh 下面为perl的shell.pl代码: she 阅读全文

摘要： #或者可以如下所示 还有， 如果你是想在发送请求时一起发送指定cookie, 可以这样： 阅读全文

摘要： 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... 阅读全文

摘要： 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... 阅读全文

摘要： 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)... 阅读全文

摘要： 在这里， 如果在父进程中改用wait()会出现阻塞 每一个子进程退出后会向父进程发送chld信号 waitpid()中-1表示等待所有子进程， wnohang表示不阻塞 waitpid()返回子进程的进程ID， 出错返回-1 阅读全文

摘要： 这里用了一个while(1)测试一直发送 perl默认没有安装Mail::Sender模块， 要自行安装 阅读全文

摘要： 这个pack, unpack在 “perl语言编程” 有介绍 看起来很复杂 转自: https://blog.gtwang.org/perl/perl-pack-unpack-tutorial/ 阅读全文

摘要： 上面的open是为了重定向， 把socket的所有重定向到shell的所有 最后的exec是为了跳进/bin/sh 因为前面已把 S 跟STDIN STDOUT STDERR连接了起来 阅读全文

摘要： 一般来说， IO::Socket::INET里的Timeout设置是对于conncet的 如果你想设置recv接收超时， 可以这样设置: 这里有一点要说明， 可能新人有点迷惑。 那就是io::socket::inet创一个socket时， 这个socket是未定义的， 要等 到它连接成功了才变成定义 阅读全文