Enter topic text here.

 

 

Types

 PSignatureRec = ^TSignatureRec;

 TSignatureRec = packed record

   Sig1   : DWord;                                                  {!!.07}

   Sig2   : DWord;                                                  {!!.07}

   Sig3   : DWord;                                                  {!!.07}

   Offset : DWord;                                                  {!!.07}

   Size   : DWord;                                                  {!!.07}

   CRC    : DWord;                                                  {!!.07}

   Sig4   : DWord;                                                  {!!.07}

   Sig5   : DWord;                                                  {!!.07}

   Sig6   : DWord;                                                  {!!.07}

 end;

 

 TExeStatus = (

   exeSuccess,             {no error}

   exeSizeError,           {the file size has changed}

   exeIntegrityError,      {CRC does not match}

   exeNotStamped,          {the exe has not been stamped}

   exeAccessDenied         {share violation}                          {!!.05}

 );

 

 TCheckedExeEvent = procedure(Sender : TObject; Status : TExeStatus) of object;

 

Classes

TOgProtectExe

 

Routines

IsExeTampered

ProtectExe

UnprotectExe

UpdateChecksum

FileCRC32

UpdateCRC32