keygen.pas

一款优秀的壳

unit keygen;

interface

//structure passed to keyfile creation/verification proc

  type
    TKEYFILE_INFO = packed record
      dwSize:        LongWord; //size of this structure
      lpInfo1:       PChar;    //ptr. to license info
      lpInfo2:       PChar;    //""
      lpInfo3:       PChar;    //""
      lpExtInfo:     PChar;
      lpSytemID:     PChar;    //ptr. to system id string
      lpExpDate:     Pointer;
      lpBuffer:      Pointer;  //ptr. to input/output buffer
      lpProjectFile: PChar;    //ptr. to project filename
    end;


function GenerateKeyfile(var lpInfo: TKEYFILE_INFO): LongWord; stdcall;
function VerifyKeyfile(var lpInfo: TKEYFILE_INFO): Integer; stdcall;
function ConvertToString(lpKeyfile: Pointer; dwSize: LongWord; lpBuffer: PChar): Boolean; stdcall;
function ConvertToBin(lpString: PChar; lpBuffer: Pointer): LongWord; stdcall;

implementation

//error codes returned by verify proc
const
  KEYFILE_VER_OK          = 0;
  KEYFILE_VER_FAIL        = 2;

function GenerateKeyfile; external 'keygen.dll';
function VerifyKeyfile; external 'keygen.dll';
function ConvertToString; external 'keygen.dll'
function ConvertToBin; external 'keygen.dll'

end.