Crack_Hack

Development Platform:

Others

test.dpr：Code Content

							program Test;
uses
  SysUtils,
  Windows;
//-------------------------------------------------------------------------------
Procedure Main( SecureValue : DWORD );
begin
  {$I IncDelphiCrcBegin.inc}
  MessageBox(0,PChar(IntToHex(SecureValue,4)),'Under protection',0);
  {$I IncDelphiCrcEnd.inc}
end;
//-------------------------------------------------------------------------------
begin
  MessageBox(0,'Begin','',0);
  {$I IncDelphiCrcBegin.inc}
  Main( $12345678 );
  {$I IncDelphiCrcEnd.inc}
  MessageBox(0,'End','',0);
end.

						