program Test;
{$APPTYPE CONSOLE}
uses
  Windows;

function AGenKey:string;      //数组动态生成免得别别人从内存中看出来
const
  Aint : array[0..9] of Char = ('0', '1', '2', '3', '4', '5', '6', '7', '8', '9');
  Achr  : array[0..25] of Char = ('A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J',
                                  'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T',
                                  'U', 'V', 'W', 'X', 'Y', 'Z');
begin
  {key=H8E8A4R8T}
  asm                              //使用VMProtect的SDK
    db $EB,$10,'VMProtect begin',0
  end;
  Result := Concat(Achr[7],Aint[8],Achr[4],Aint[8],Achr[0],Aint[4],Achr[17],Aint[8],Achr[19]);
  asm
    db $EB,$0E,'VMProtect end',0
  end;
end;

var
  StrSN:String;
begin
  Writeln('//////////////////////////////////////////');
  Writeln('//    VMProtect SDK+ASProtect SDK Example');
  Writeln('//    Coded By:Anskya');
  Writeln('//    Email:Anskya@Gmail.com');
  Writeln('//    Web:Www.Anskya.Net');
  Writeln('//////////////////////////////////////////');
  Writeln('');
  Writeln('');

  Write('输入注册码:');
  Readln(StrSN);

  {$I reg_crypt_begin.inc}         //使用ASProtect的SDK
  asm                              //使用VMProtect的SDK
    db $EB,$10,'VMProtect begin',0
  end;

  if StrSN=AGenKey then
  begin
    Writeln('恭喜注册成功');
  end else
  begin
    Writeln('^_^注册失败!');
  end;

  asm
    db $EB,$0E,'VMProtect end',0
  end;
  {$I reg_crypt_end.inc}

  Readln;
end.

[培训]内核驱动高级班，冲击BAT一流互联网大厂工作，每周日13:00-18:00直播授课