untdll.pas

来自「加密和解密的算法」· PAS 代码 · 共 14 行

unit UntDll;

interface

function GetHardDiskSeriID_Dll():WideString;stdcall;far external 'EnDescrypt.dll';
function GetCPUSeriID_Dll():WideString;stdcall;far external 'EnDescrypt.dll';
function DataEncode(const s:string):WideString;stdcall;far external 'EnDescrypt.dll';
function DataDecode(const s:string):WideString;stdcall;far external 'EnDescrypt.dll';
function GetEnscryptHard():WideString;stdcall;far external 'EnDescrypt.dll';
function GetDescryptHard(DeData:string):WideString;stdcall;far external 'EnDescrypt.dll';
implementation

end.