关注我们
QRcode 邮件联系 QRcode
主页 » 信息安全 » 正文

用perl抓取cookies

 feng  321 ℃  0条点评

#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Request::Common;

my $cookies = HTTP::Cookies->new(
file => "cookies.txt",
autosave => 1,
);
my $ua = LWP::UserAgent->new();
$ua->cookie_jar($cookies);

my $req = HTTP::Request->new(GET => "http://www.afeng.org/");
my $resp = $ua->request($req);
if (( $resp->code() >= 200 ) && ($resp->code() < 400)) {
print "yes\n";
} else {
print "Error: ". $resp->status_line. "\n";
}

本文标签:
linux服务器空间扩容方法不丢数据
申请.me域名教程 免费一年
安全应急响应工具年末大放送(含下载)安全应急响应工具年末大放送(含下载)开源系统漏洞扫描工具Binmap使用文档开源系统漏洞扫描工具Binmap使用文档渗透测试工具实战技巧合集渗透测试工具实战技巧合集我是如何打造一款自动化SQL注入工具的我是如何打造一款自动化SQL注入工具的

已有0条评论,欢迎点评!

smiley smiley smiley smiley smiley smiley smiley smiley smiley smiley smiley smiley smiley smiley smiley smiley

国际惯例, 沙发拿下 . . .


注册帐号  |  忘记密码