perl 攻击注册接口
来源:互联网 发布:网络主播入门培训教程 编辑:程序博客网 时间:2024/05/17 23:26
#!/usr/bin/perl
# Copyright 2014 tkorays. All rights reserved.
# author tkorays
# email tkorays@hotmail.com
use LWP;
use LWP::Simple;
use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Headers;
use HTTP::Response;
use Encode;
use URI::Escape;
use URI::URL;
my $email = '1122zhao.yangjian@163.com';
my $password = 'zy806355';
my $domain = 'renren.com';
my $hostid='';
my $requestToken='';
my $rtk='';
my $channel='renren';
my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/5.0 (Windows NT 6.1; rv:30.0) Gecko/20100101 Firefox/30.0");
my $cookie_jar = HTTP::Cookies->new(
file=>'lwp_cookies.txt',
autosave=>1,
ignore_discard=>1);
$ua->cookie_jar($cookie_jar);
my @heads=('User-Agent' => 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:39.0) Gecko/20100101 Firefox/39.0',
'Accept' => 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8',
'Accept-Language' => 'zh-CN,zh;q=0.8,en-US;q=0.5,en;q=0.3',
'Connection'=>'Keep-Alive',
'Referer' =>'http://licai.yingyinglicai.com/user/register.htm',
);
my $login_url = 'http://licai.yingyinglicai.com/user/smsVerifySend.do';
# 这里面没有判断是否需要验证码,聪明的你学完后肯定知道怎么搞定的
# 人人是post登陆的,第一个参数是登陆的地址,第二个参数是一个匿名hash
my $r = $ua->post($login_url,{
'mobile'=>'180727xx37'}
);
my $homepage;
# 判断响应头里面的location,确定是否登陆成功
print "---------------\n";
print "---------------\n";
print "\$r->header('Location')\n";
print $r->header('Location');
print "---------------\n";
# $homepage = $ua->get('http://my.csdn.net/?ref=toolbar');
You have mail in /var/spool/mail/root
- perl 攻击注册接口
- 注册新用户(perl)
- Perl 调阿狸 IP接口
- perl 调短信接口
- perl weixin webwxinit 接口
- perl weixin webwxbatchgetcontact 接口
- perl weixin synccheck接口
- perl 定义post接口
- perl 定义post接口
- perl脚本和 perl dbi接口示例
- perl脚本和 perl dbi接口示例
- perl脚本和 perl dbi接口示例
- perl中XML:接口篇
- Perl sap 接口 代码例子
- HandlerSocket的perl接口操作方法
- perl 铜板街登录接口
- 登录注册+接口
- 接口 登录、注册、信息
- poj 1743 Musical Theme(后缀数组)
- 2012年5月SAT香港真题解析
- cocos2d-x游戏实例(23)-简易动作游戏(1)
- 黑马程序员——Java集合之Map
- MySQL客户端服务器端命令总结
- perl 攻击注册接口
- 【Python】利用当前时间、随机数产生一个唯一的数字
- NYOJ 219 An problem about date
- Spring中的QuartzJobBean的使用
- 删除xcode中无用的provisioning profile
- 开源工作流CCBPM中关于解决谷歌等浏览器silverlight的问题
- cocos2d-x游戏实例(24)-简易动作游戏(2)
- 查询某表空间被哪些用户所使用
- AKKA文档(java版)——准备开始