破解

开发平台：

Others

MAIN.PAS：源码内容

							{*
   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 includeaspr_crypt_begin2.inc}
       Mess := 'Registered version';
       {$I includeaspr_crypt_end2.inc}
     end;
     FreeMem(Key, FSize);
  end;
  MessageBox(0,PChar(Mess),'',0);
end;
//------------------------------------------------------------------------------
end.

						