main.pas

ASProtect的2.4版

{*
   This example shows a way of using of external constant for fragment's decryption
*}

unit main;

interface

uses
  Windows;

procedure Start;


implementation

Uses
  aspr_api;

//------------------------------------------------------------------------------

procedure Start;
var
  Key          : Pointer;
  Mess         : String;
  F            : THandle;
  FSize        : DWORD;
  FRealRead    : DWORD;

begin
  Mess := 'Unregistered version';

  F := CreateFile('test.bin', GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0);

  if F <> INVALID_HANDLE_VALUE then
  begin

     //' Read a file with a constant for decryption

     FSize := GetFileSize(F, nil);

     GetMem(Key, FSize);
     ReadFile(F,Key^, FSize, FRealRead, nil);
     CloseHandle(F);


     //' Set a constatnt to ASProtect

     If SetUserKey( Key, FSize ) then
     begin

       {$I include\aspr_crypt_begin2.inc}
       Mess := 'Registered version';
       {$I include\aspr_crypt_end2.inc}

     end;

     FreeMem(Key, FSize);
  end;

  MessageBox(0,PChar(Mess),'',0);
end;

//------------------------------------------------------------------------------

end.