main.pas

將外掛網路驗證擷取封包並破解轉本地驗證工具

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ScktComp;

const
  Head = 'HTTP/1.1 200 OK';
  //Date1 = 'Date: Thu, 12 May 2005 05:16:59 GMT';
  Server = 'Server: Apache/2.0.54 (Win32) PHP/4.3.11';
  Powered = 'X-Powered-By: PHP/4.3.11';
  Len1 = 'Content-Length: 382';
  Content = 'Content-Type: text/html';
  Space = Char(#13) + Char(#10);

const
  Address1 = $471E7E;
  PokeValue1 = $90;
  Address2 = $471E7F;
  PokeValue2 = $90;
  Address3 = $471EAA;
  PokeValue3 = $EB;
  Address4 = $471EB4;
  PokeValue4 = $8E;
  NumberOfBytes = 1;

type
  TFrmMain = class(TForm)
    BTNStart: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    Panel1: TPanel;
    TS1: TServerSocket;
    procedure BTNStartClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TS1ClientRead(Sender: TObject; Socket: TCustomWinSocket);
    procedure TS1ClientError(Sender: TObject; Socket: TCustomWinSocket;
      ErrorEvent: TErrorEvent; var ErrorCode: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmMain: TFrmMain;
  H: HWND;
  ProcessId: Integer;
  ThreadId: Integer;
  buf: PChar;
  lpNumberOfBytesWrite: Cardinal;
implementation

{$R *.dfm}

procedure TFrmMain.BTNStartClick(Sender: TObject);
var
  X: Integer;
begin
  H := FindWindow(nil, '肚