[转载]一句代码 自动注册

文章作者：明小子
信息来源：www.hackdiy.com

今天仔细看了一下石头发给我的制作反弹上线原理的文章,他好兄弟陈经韬2年前写的,看到里面讲解黑洞注册域名转向的功能~ 用一个TidHTTP直接Get就注册成功了!实现这个功能,只需要编写一句代码,比我以前用TClientSocket来post精简10几倍!妈的~ 爽死我了~ 都怪自己平时懂的太少,以前写的程序垃圾代码不少,大富翁的高手常说一个好的程序,代码一定要够精练,看来还是要多锻炼才行了! 刚刚我练手了一下,也用一句代码写了个Discuz论坛自动注册的程序! 写一些不需要验证的灌水程序或自动提交数据的程序,用这招最方便了!
程序及源程序下载: _blank>http://www.hackdiy.com/code/discuz.rar    (我提交的数据包是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=&regsubmit=注册');  //一句代码

  if Pos('非常感谢您的注册', s) > 1 then  //判断部分
   ShowMessage('注册成功!')
  else
   if Pos('已经被注册了', S) > 1 then
    ShowMessage('该用户名或E-Mail已被注册!')
   else
    ShowMessage('已关闭注册,注册失败!');
end;