[Delphi]从注册表中读出 NOD32 的用户名与密码

可以从 http://ip.cn/nod/ 获得最新可用 NOD32 用户名密码，这个是我用来同步本地到服务器的 :)

program nod32pass;

{$APPTYPE CONSOLE}

uses
  SysUtils, Registry, Windows;

var
  Reg: TRegistry;
  buf: PByteArray;
  size: Integer;
  mask: array[0..19] of Byte = ($61, $D6, $D4, $E9, $DD, $F0, $FB, $F2, $5B, $64, $35, $AD, $B7, $C8, $19, $75, $EC, $31, $2B, $BC);
  i: integer;
  username, password: string;
begin
  try
    Reg := TRegistry.Create;
    try
      Reg.RootKey := HKEY_LOCAL_MACHINE;
     if Reg.OpenKeyReadOnly(‘SOFTWARE\Eset\Nod\CurrentVersion\Modules\Update\Settings\Config000\Settings’) then
      begin
        username := Reg.ReadString(‘Username’);
        size := Reg.GetDataSize(‘Password’);
        GetMem(buf, size);
        Reg.ReadBinaryData(‘Password’, buf^, size);

        i := 0;

        while i < size – 1 do
        begin
          password := password + chr(buf[i] xor mask[i]);
          Inc(i, 2);
        end;

        WriteLn(‘Username: ‘ + username);
        WriteLn(‘Password: ‘ + password);
      end;
    finally
      Reg.CloseKey;
      Reg.Free;
    end;
  except
    on E:Exception do
      Writeln(E.Classname, ‘: ‘, E.Message);
  end;
end.

可以从 http://www.newsmth.net/att.php?s.122.66988.1544.exe 下载得到编译好的可执行文件 :)