D7, Win7: Чтение реестра без прав админа.

[Air]

Доброго времени суток.
В программе использую процедуру идентификации, что бы в случае кражи программы не каждый мог её запустить, а именно декодировать текст.

Для этого я читаю данные из:
HKEY_LOCAL_MACHINE\HARDWARE\DESCRIP TION\System\CentralProcessor\0
Не только от туда, но...

Проблема в том, что на ХР всё было гуд, а Win7 не даёт доступ на чтение этих ключей. До тех пор, пока не запустишь прогу от имени админа.
Программа является текстовым редактором и запускать всегда с подтверждением текстовики не гуд.
___

Возможно каждый замечал, что есть проги, которые запускаются от юзера и работают, но когда им необходимы права администратора, то ОС задаёт вопрос с подтверждением на продолжение.

Как это реализовать?
Ну не запускать же через runas.

P.S. Хочу подчеркнуть, что мне нужно только чтение, а не запись.

[Serge_Bliznykov]

в порядке предложения.
а может быть, стоит пересмотреть ваш подход к защите?
ну, при установке своего супер-пупер редактора читайте из нужной ветки (при установке программы всё равно нужны права админа), результат кодируйте/шифруйте и сохраняйте в более "спокойное" место (например, в Application Data / HKCU и т.п.)

[Air]

Я уже думал о том, что бы в первый запуск прога запросила права админа, да бы юзер мог её настроить, но... но...... хранить данные, в принципе, не защищённых местах... проще просто запросить пароль и сохранить его рядом с прогой)))

Защита не супер-пупер) даже мне, чтобы активировать программу, приходится прогонять её через отладчик, что бы узнать
какой она там ключ сгенерировала :D За 3 года уже шестой ключ 0_0 Хотя всё что я менял это ОС и драйвера)

Мне интересна сама технология получения прав админа без перегрузки приложения.
P.S. если скажем при первом запуске скопировать данные из HKLM в HKCU то обмануть защиту будет куда проще...
ну как бы смысл теряется, сделать reg файл и прога будет везде и всегда работать.

В старой (прежней) технологии эти данные считывались при каждом запуске, кодировались и сравнивались в ключом в ветке программы с настройками.

У этой задачи 2 решения:
1. полный пересмотр параметров идентификации (что довольно долго)
2. своевременный запрос админ-доступа к реестру. (на момент дешифровки текста)

[veniside]

Win7 не даёт доступ на чтение этих ключей

даёт, если вежливо попросить )

program
  readReg;

{$APPTYPE CONSOLE}

uses
  Windows;

var
  res: integer;
  key: hKey;
  buf: array[byte] of char;
  sz: DWORD;
begin
  res := RegOpenKeyEx(HKEY_LOCAL_MACHINE, 'HARDWARE\DESCRIPTION\System\CentralProcessor\0\', 0, KEY_QUERY_VALUE, key);
  if (ERROR_SUCCESS = res) then begin
    //
    sz := sizeof(buf);
    res := RegQueryValueEx(key, 'Identifier', nil, nil, @buf, @sz);
    if (ERROR_SUCCESS = res) then
      writeln('Value: ', buf)
    else
      writeln('Could not read the key, error=', res);
    //
    RegCloseKey(key);
  end
  else
    writeln('Could not open the key, error=', res);
  //
  readln;
end.

[Air]

veniside
Интересный подход)
Благодарю.

[veniside]

просто класс TRegistry из дельфи по-умолчанию пытается открыть ключ со всеми правами
нужно использовать OpenKeyReadOnly() или назначать свойство Access перед открытием ключа:

program
  readReg;

{$APPTYPE CONSOLE}

uses
  Windows, Registry;

var
  reg: TRegistry;
begin
  reg := TRegistry.Create();
  reg.RootKey := HKEY_LOCAL_MACHINE;
  //
  // 0) does not work even for Admin without elevation
  reg.OpenKey('HARDWARE\DESCRIPTION\System\CentralProcessor\0\', false);
  writeln('0.Value: ', reg.ReadString('Identifier'));
  reg.CloseKey();
  //
  // 1) should work for everyone
  reg.OpenKeyReadOnly('HARDWARE\DESCRIPTION\System\CentralProcessor\0\');
  writeln('1.Value: ', reg.ReadString('Identifier'));
  reg.CloseKey();
  //
  // 2) should work for everyone
  reg.Access := KEY_QUERY_VALUE;
  reg.OpenKey('HARDWARE\DESCRIPTION\System\CentralProcessor\0\', false);
  writeln('2.Value: ', reg.ReadString('Identifier'));
  //
  reg.Free();
  //
  readln;
end.

[Air]

Хм.
Видимо значение false в операторе OpenKey() лишь не создаёт ключ в случае его отсутствия. Мда, ХР была попроще)