anticrack.pas

来自「支持库类 / 模块控件 / 支持库类 eLIB++支持库 源代码 Delphi」· PAS 代码 · 共 22 行

unit AntiCrack;

interface
  uses elibTypes;
  procedure GetTsc(pRetData:pMDATA_INF; nArgCount:Integer; pArgInf:pMDATA_INF); cdecl;

implementation
  //tool function
  function Tsc():int64;cdecl;
  asm
    rdtsc;  //Read Time Stemp Counter
    ret;    //return;
  end;//Tcs

  procedure GetTsc(pRetData:pMDATA_INF; nArgCount:Integer; pArgInf:pMDATA_INF);
  begin
    pRetData.m_Value.m_int64:=Tsc();
  end;

end.