unit1x32.pas

来自「一个游戏防外挂的登陆器源码。!自己搞的。很简单的。可能没什么用。」· PAS 代码 · 共 51 行

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,winsock, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP, IdIPWatch;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    IdHTTP1: TIdHTTP;
    Edit2: TEdit;
    IdIPWatch1: TIdIPWatch;
    Edit3: TEdit;
    Edit4: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function  transfer(tran:widestring):widestring;stdcall;external 'dx.dll' name 'transfer';


procedure TForm1.Button1Click(Sender: TObject);
     var ip,key,key2:string;
begin


ip:=form1.IdHTTP1.Get('http://61.237.236.48:8080/ip.php');
key:= transfer('admin888'+ip);             //要提交的参数 key
key2:= transfer('admin888'+Edit3.Text);
form1.Edit1.Text:=ip;
form1.Edit2.Text:=key;
form1.Edit4.Text:=key2;
//showmessage(form1.IdHTTP1.Get('http://www.delphi7.com.cn/t.php?alovekey=1&checkdlq=1&m=00030D289942&key=6b9de617eae31983fbd87fceedbec3a0'));
end;

end.