一句代码,自动注册!

2005-2-15 04:10 693 0

摘要: 作者：明小子　　来源：http://www.hackdiy.com/ 今天仔细看了一下石头发给我的制作反弹上线原理的文章,他好兄弟陈经韬2年前写的,看到里面讲解黑洞注册域名转向的功能~ 用...

关键词： nbsp 注册程序代码 ShowMessage text Discuz EdPassWord password 以前

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

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除