aplibu.pas

来自「Cracker终结者——提供最优秀的软件保护技术」· PAS 代码 · 共 90 行

(*
 * aPLib compression library  -  the smaller the better :)
 *
 * Delphi interface to aPLib Delphi objects
 *
 * Copyright (c) 1998-2002 by Joergen Ibsen / Jibz
 * All Rights Reserved
 *
 * -> Delphi by Solodovnikov Alexey 21.03.1999 ([e-mail])
 *)

unit aPLibu;

interface

uses
  Windows;

const
  aP_pack_break    : DWORD = 0;
  aP_pack_continue : DWORD = 1;

type

  TaPack_Status = function(w1, w2 : DWORD) : DWORD;cdecl;

  function _aP_pack(var Source;
                    var Destination;
                    Length : DWORD;
                    var WorkMem;
                    Callback : TaPack_Status) : DWORD;cdecl;
  function _aP_workmem_size(InputSize : DWORD) : DWORD;cdecl;
  function _aP_max_packed_size(InputSize : DWORD) : DWORD;cdecl;
  function _aP_depack_asm(var Source, Destination) : DWORD;cdecl;
  function _aP_depack_asm_fast(var Source, Destination) : DWORD;cdecl;
  function _aP_crc32(var Source; Length : DWORD) : DWORD;cdecl;
  function _aPsafe_pack(var Source;
                        var Destination;
                        Length : DWORD;
                        var WorkMem;
                        Callback : TaPack_Status) : DWORD;cdecl;
  function _aPsafe_check(var Source) : DWORD;cdecl;
  function _aPsafe_get_orig_size(var Source) : DWORD;cdecl;
  function _aPsafe_depack_asm(var Source, Destination) : DWORD;cdecl;
  function _aPsafe_depack_asm_fast(var Source, Destination) : DWORD;cdecl;

implementation

  function _aP_pack(var Source;
                    var Destination;
                    Length : DWORD;
                    var WorkMem;
                    CallBack : TaPack_Status) : DWORD;external;

  function _aP_workmem_size(InputSize : DWORD) : DWORD;external;

  function _aP_max_packed_size(InputSize : DWORD) : DWORD;external;

  function _aP_depack_asm(var Source, Destination) : DWORD;external;

  function _aP_depack_asm_fast(var Source, Destination) : DWORD;external;

  function _aP_crc32(var Source; Length : DWORD) : DWORD;external;

  function _aPsafe_pack(var Source;
                        var Destination;
                        Length : DWORD;
                        var WorkMem;
                        CallBack : TaPack_Status) : DWORD;external;

  function _aPsafe_check(var Source) : DWORD;external;

  function _aPsafe_get_orig_size(var Source) : DWORD;external;

  function _aPsafe_depack_asm(var Source, Destination) : DWORD;external;

  function _aPsafe_depack_asm_fast(var Source, Destination) : DWORD;external;

{$L ..\..\lib\delphi\aplib.obj}
{$L ..\..\lib\delphi\depack.obj}
{$L ..\..\lib\delphi\depackf.obj}
{$L ..\..\lib\delphi\crc32.obj}
{$L ..\..\lib\delphi\spack.obj}
{$L ..\..\lib\delphi\scheck.obj}
{$L ..\..\lib\delphi\sgetsize.obj}
{$L ..\..\lib\delphi\sdepack.obj}
{$L ..\..\lib\delphi\sdepackf.obj}

end.