[转载]一句代码 自动注册
文章作者：明小子信息来源：[url]www.hackdiy.com[/url]
今天仔细看了一下石头发给我的制作反弹上线原理的文章,他好兄弟陈经韬2年前写的,看到里面讲解黑洞注册域名转向的功能~ 用一个TidHTTP直接Get就注册成功了!实现这个功能,只需要编写一句代码,比我以前用TClientSocket来post精简10几倍!妈的~ 爽死我了~ 都怪自己平时懂的太少,以前写的程序垃圾代码不少,大富翁的高手常说一个好的程序,代码一定要够精练,看来还是要多锻炼才行了! 刚刚我练手了一下,也用一句代码写了个Discuz论坛自动注册的程序! 写一些不需要验证的灌水程序或自动提交数据的程序,用这招最方便了!
程序及源程序下载: _blank>[url]http://www.hackdiy.com/code/discuz.rar[/url] (我提交的数据包是discuz的,你可以改成动网的)
procedure TForm1.Button1Click(Sender: TObject);
var
S: String;
begin
S := idhttp1.Get(PostURL.text + '?username=' + EdUserName.Text + '&password=' + EdPassWord.Text + '&password2=' + EdPassWord.Text + '&email=' +
EdEMail.Text + '&gendernew=1&year=&month=&day=&locationnew=&site=&oicq=&icq=&yahoo=&msn=&bio=&styleidnew=&tppnew=0&pppnew=0&timeformatnew=12&cstatus=&dateformatnew=yyyy-mm-dd&showemail=1&newsletter=1&timeoffsetnew=8&avatar=&sig=®submit=注册'); //一句代码
if Pos('非常感谢您的注册', s) > 1 then //判断部分
ShowMessage('注册成功!')
else
if Pos('已经被注册了', S) > 1 then
ShowMessage('该用户名或E-Mail已被注册!')
else
ShowMessage('已关闭注册,注册失败!');
end;
页:
[1]