Чтение из реестра бинарных данных в HEX виде.
Вообщем такое дело, есть в реестре ключ типа REG_BINARY, в нем записаны определенные данные, мне их нужо получить в строковом (string) виде, для дальнейшей с ними работы. Как это реализовать на С++ Builder (или хоть на чем другом)? Пример такого Reg файла приведен ниже.
Windows Registry Editor Version 5.00 [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet002\Control\Session Manager\AppCompatCache] "AppCompatCache"=hex:ee,0f,dc,ba,77,02,00,00,78,00,00,00,9a,c7,00,00,00,00,00,\ 00,96,0b,00,00,0b,00,00,00,00,00,00,00,4d,00,00,00,30,00,00,00,19,03,00,00,\ 00,00,00,00,b5,c2,00,00,be,04,00,00,77,02,00,00,00,00,00,00,0b,09,00,00,00,\ 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01,00,00,00,0c,00,00,00,f3,02,\ 00,00,00,00,00,00,00,00,00,00,f3,02,00,00,0c,00,00,00,00,00,00,00,00,00,00,\ 00,04,18,01,00,00,00,00,00,46,00,48,00,48,d1,01,00,15,4b,38,fe,f9,88,cb,01,\ 07,00,00,00,00,01,00,00,00,00,00,00,00,00,00,00,58,00,5a,00,ee,d0,01,00,8d,\ c8,f2,65,f1,41,cc,01,07,00,00,00,00,01,00,00,00,00,00,00,00,00,00,00,5c,00,\ 5e,00,90,d0,01,00,29,de,f1,65,f1,41,cc,01,07,00,00,00,00,01,00,00,00,00,00,\ 00,00,00,00,00,48,00,4a,00,46,d0,01,00,6a,75,db,fd,f9,88,cb,01,07,00,00,00,\ 00,00,00,00,00,00,00,00,00,00,00,00,44,00,46,00,00,d0,01,00,80,6e,91,0a,fa,\ 88,cb,01,05,00,00,00,00,01,00,00,00,00,00,00,00,00,00,00,46,00,48,00,b8,cf,\ 01,00,5c,2f,0f,f9,f9,88,cb,01,05,00,00,00,00,01,00,00,00,00,00,00,00,00,00,\ 00,48,00,4a,00,6e,cf,01,00,f9,2f,a2,53,7e,dc,cc,01,07,00,00,00,00,01,00,00,\ 00,00,00,00,00,00,00,00,40,00,42,00,2c,cf,01,00,bf,22,c2,00,fa,88,cb,01,07,\ 00,00,00,00,01,00,00,00,00,00,00,00,00,00,00,3c,00,3e,00,ee,ce,01,00,20,bc,\ 29,73,20,04,ca,01,07,00,00,00,00,01,00,00,00,00,00,00,00,00,00,00,48,00,4a,\ 00,a4,ce,01,00,90,c8,22,71,20,04,ca,01,0f,00,00,00,01,11,00,00,c8,01,00,00,\ fe,d4,00,00,8a,00,8c,00,18,ce,01,00,81,22,25,ab,d1,b4,cc,01,07,00,00,00,00,\ 01,00,00,00,00,00,00,00,00,00,00,46,00,48,00,d0,cd,01,00,a0,80,03,f7,f9,88,\ cb,01,05,00,00,00,00,01,00,00,00,00,00,00,00,00,00,00,48,00,4a,00,86,cd,01,\ 00,de,b4,18,f9,f9,88,cb,01,05,00,00,00,00,01,00,00,00,00,00,00,00,00,00,00,\ 46,00,48,00,3e,cd,01,00,20,a8,3e,77,20,04,ca,01,07,00,00,00,00,00,00,00,00,\ 00,00,00,00,00,00,00,46,00,48,00,f6,cc,01,00,7b,64,6b,4d,2a,d2,cc,01,07,00,\ 00,00,00,01,00,00,00,00,00,00,00,00,00,00,72,00,74,00,82,cc,01,00,51,f3,de,\ aa,42,d2,cc,01,07,00,00,00,00,01,00,00,00,00,00,00,00,00,00,00,42,00,44,00,\ 3e,cc,01,00,dc,b1,b9,01,fa,88,cb,01,05,00,00,00,00,01,00,00,00,00,00,00,00,\ 00,00,00,4e,00,50,00,ee,cb,01,00,00,2c,a4,8a,20,04,ca,01,05,00,00,00,00,01,\ 00,00,00,00,00,00,00,00,00,00,60,00,62,00,8c,cb,01,00,5d,37,2f,ab,42,d2,cc,\ 00,55,00,49,00,2e,00,65,00,78,00,65,00,00,00
помогите как расшифровать bin файлы
через какую прогу и как можно изменить на более понятный язык в этик файлах ссылка есть её надо заменить на другую. помогите
Лучший ответ
На этот вопрос не так давно уже отвечали.
Просвещайтесь: http://otvet.mail.ru/question/172642362
Остальные ответы
откройте в блокноте и поменяйте кодировку на utf-8
Федор НовиковИскусственный Интеллект (346665) 9 лет назад
с чего Вы решили, что это — utf-8?
EvВысший разум (118676) 9 лет назад
На этот вопрос не так давно уже отвечали.
Просвещайтесь: http://otvet.mail.ru/question/172642362
BIN — binary, что как-бы означает, что без знания назначения этого файла, его не открыть.
Похожие вопросы
Ваш браузер устарел
Мы постоянно добавляем новый функционал в основной интерфейс проекта. К сожалению, старые браузеры не в состоянии качественно работать с современными программными продуктами. Для корректной работы используйте последние версии браузеров Chrome, Mozilla Firefox, Opera, Microsoft Edge или установите браузер Atom.
Reg binary как расшифровать
Сообщения: 15
Благодарности: 0
Здравствуйте! Я в реестре не разбираюсь, а нужно внести значение в параметр Reg Binary (По умолчанию). Подскажите, пожалуйста, как сделать файл вносящий значение!
Внести надо в HKLM\software\Classes\Wow6432Node\CLSID\\InProcServer32
значение FFFFFFE0FFFFFFE5FFFFFFB5FFFFFFC0FFFFFFAD1CFFFFFFCF01FFFFFFD0FFFFFFA0FFFFFFBAFFFFFFC0FFFFFFAD1CFFFFFF CF01010000000200000000000000
Параметр, куда вносить, на всякий случай заскринил:
http://rghost.ru/52052541/image.png
Сообщения: 15
Благодарности: 0
Если возможно еще, дайте, пожалуйста, ссылку, где бы для чайников объясняли по поводу моего вопроса — все что я нашел, то ли непонятно написано, то ли не в тему.
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.
Сообщения: 5380
Благодарности: 1874
| Конфигурация компьютера |  |
| ОС: OpenSUSE Tumbleweed en-us, Windows 10 Pro x64 en-us |
| Как в реестре работать с параметром REG_BINARY? Нужно обратиться к разработчику программы, которая создала этот ключ реестра. Бинарный тип — это просто массив байт: Type TRegistryBinary = array of Byte; Следовательно, эта структура, по сути, тоже самое, что файл на диске. Там можнет быть записана любая информация. Средством редактирования реестра можно лишь просмотреть массив, как HEX редактором. http://social.technet.microsoft.com/Forums |
Сообщения: 8200
Благодарности: 2830
| Конфигурация компьютера | |
| Процессор: Intel Pentium Dual-Core Mobile T2390 1866 МГц | |
| Материнская плата: Quanta 30CC | |
| Память: 2 × 512МБ DDR2-666 SDRAM (ProMos/Mosel Vitelic) (1 гиг) | |
| HDD: TOSHIBA MK1646GSX 160 гиг sata | |
| Видеокарта: Mobile GM965/GL960 Express Integrated Graphics Controller | |
| Звук: 82801H (ICH8 Family) HD Audio Controller , Realtek ALC268 | |
| Блок питания: 65 w 2008 г | |
| CD/DVD: TSSTcorp CDDVDW TS-L632N | |
| Монитор: LG Philips LP154WX4-TLC8 (LPL 0120) 15.4″ | |
| ОС: Windows XP pro x32 | |
| Индекс производительности Windows: None | |
| Прочее: Hewlett-Packard HP Pavilion dv6700 Notebook PC |
Цитата dnk2010:
| нужно внести значение в параметр Reg Binary (По умолчанию). » |
нужно щёлкнуть правой клавишей мышки по InProcServer32 и выбрать экспортировать
получится файл с расширением reg
этот файл и будет
Цитата dnk2010:
| файл вносящий значение! » |
Будем жить, Маэстро.
Сообщения: 6694
Благодарности: 1393
| Конфигурация компьютера | |
| Процессор: Intel Pentium 4 Socket 478 2.26 Ghz/512/533 BOX | |
| Материнская плата: ABIT IS7-E2 i865PE+ICH5, S-478 VC 6ch SB Lan ATX 2 DDR 400 | |
| Память: PQI DDR 512 Mb, 400 Mhz | |
| HDD: SAMSUNG HD103SJ (1000 Гб, SATA) | |
| Видеокарта: AGP ATI Radeon X1550 256/128 DDR2 (Palit) | |
| Звук: Интегрированный звук | |
| Блок питания: ATX Midle Tower CODEGEN 6205-C9 P4, 300W, 27 Ноября 2004 г. | |
| CD/DVD: LG DVD-RW, GSA-H30N RBBB (SATA) | |
| Монитор: Samsung SyncMaster 223BW(Digital) [NoDB] (HMEQ201792) [21.6″ LCD-TFT Монитор] | |
| ОС: Windows XP Professional (SP-3) Russian. Special Edition XP | |
| Прочее: Borland C++ Builder 6.0 Enterprise Suite и CodeGear C++ Builder 2009 |
dnk2010, Создаёте файл addreg.cmd, пишете туда
REG ADD HKLM\software\Classes\Wow6432Node\CLSID\\InProcServer32 /ve /t REG_BINARY /d FFFFFFE0FFFFFFE5FFFFFFB5FFFFFFC0FFFFFFAD1CFFFFFFCF01FFFFFFD0FFFFFFA0FFFFFFBAFFFFFFC0FFFFFFAD1CFFFFFFCF01010000000200000000000000
Почитать можно: Пуск — Выполнить — cmd — Enter — пишем add reg /? — Enter
C:\Documents and Settings\Maestro>reg /? Программа редактирования системного реестра из командной строки, версия 3.0 (C) Корпорация Майкрософт, 1981-2001. Все права защищены REG [Список параметров] == [ QUERY | ADD | DELETE | COPY | SAVE | LOAD | UNLOAD | RESTORE | COMPARE | EXPORT | IMPORT ] Код возврата: (за исключением REG COMPARE) 0 - Успешно 1 - С ошибкой Для получения справки по определенной операции введите: REG /? Примеры: REG QUERY /? REG ADD /? REG DELETE /? REG COPY /? REG SAVE /? REG RESTORE /? REG LOAD /? REG UNLOAD /? REG COMPARE /? REG EXPORT /? REG IMPORT /? C:\Documents and Settings\Maestro>reg add /? Программа редактирования системного реестра из командной строки, версия 3.0 (C) Корпорация Майкрософт, 1981-2001. Все права защищены REG ADD [/v | /ve] [/t ] [/s ] [/d ] [/f] [\\\] Имя удаленного компьютера, если оно опущено, то по умолчанию считается равным имени локального компьютера. На удаленных компьютерах доступны только разделы HKLM и HKU. Полный путь к разделу реестра в виде КОРЕНЬ\Подраздел. Корневой радел. Значения [ HKLM | HKCU | HKCR | HKU | HKCC ]. Полный путь к разделу реестра в выбранном корневом разделе. /v Имя добавляемого параметра в указанном разделе. /ve Добавить пустой параметр (По умолчанию) в указанный раздел. /t Типы данных. [REG_SZ | REG_MULTI_SZ | REG_DWORD_BIG_ENDIAN | REG_DWORD | REG_BINARY | REG_DWORD_LITTLE_ENDIAN | REG_NONE | REG_EXPAND_SZ ] По умолчанию, считается равным REG_SZ. /s Определяет разделитель, который используется для разделения данных в многострочных параметрах типа REG_MULTI_SZ. По умолчанию, считается равным "\0". /d Значение, присеваемое добавляемому параметру реестра. /f Принудительно перезаписывать существующие записи реестра без предупреждения. Примеры: REG ADD \\ABC\HKLM\Software\MyCo Добавляет раздел HKLM\Software\MyCo на удаленный компьютер ABC REG ADD HKLM\Software\MyCo /v Data /t REG_BINARY /d fe340ead Добавляет параметр с именем: Data, типом: REG_BINARY, и значением: fe340ead REG ADD HKLM\Software\MyCo /v MRU /t REG_MULTI_SZ /d fax\0mail Добавляет параметр с именем: MRU, типом: REG_MUTLI_SZ, и значением: fax\0mail\0\0 REG ADD HKLM\Software\MyCo /v Path /t REG_EXPAND_SZ /d %%systemroot%% Добавляет параметр с именем: Path, типом: REG_EXPAND_SZ, и значением: %systemroot% Примечание: Используйте в строке двойные символы процента ( %% )
——-
Правильная постановка вопроса свидетельствует о некотором знакомстве с делом.
3нание бывает двух видов. Мы сами знаем предмет — или же знаем, где найти о нём сведения.
[Quick Killer 3.0 Final [OSZone.net]] | [Quick Killer 3.0 Final [SafeZone.cc]] | [Парсер логов Gmer] | [Парсер логов AVZ]
Reg binary как расшифровать
Задача заключается в следущем считать из реестра значение типа REG_BINARY и потом привести к читабельному виду, вот так было реализовано, но на выходе ерунда:
//HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\LicenseInfo - тип BINARY function TReadReg.GetLicenceInfo : TResultat; var Buf : array[0..1000] of char; begin try Reg := TRegistry.Create; ReadValue := TReadValue.Create; Reg.RootKey := HKEY_LOCAL_MACHINE; if Reg.OpenKeyReadOnly('SOFTWARE\Microsoft\Windows NT\CurrentVersion') then begin Reg.ReadBinaryData('LicenseInfo',Buf,sizeof(Buf)); ReadValue.rRegCurrKey := buf; ReadValue.rRegPathKey := 'HKEY_LOCAL_MACHINE\' + Reg.CurrentPath + '\LicenseInfo'; ReadValue.rRegSizeKey := IntToStr(Reg.GetDataSize('LicenseInfo')-1)+'байт'; Reg.CloseKey; Result := TResultat.Create(ReadValue.rRegCurrKey,ReadValue.rRegPathKey,ReadValue.rRegSizeKey); end else Result := TResultat.Create('Не найдено','Не найдено','0'); Reg.CloseKey; finally Reg.Free; ReadValue.Free; end; end;То есть получается как нужно преобразовать массив Buf в котором, как я полагаю записаны бинарные значения, в читабельный вид ( к типу string ). Помогите все перепробывал. По идеи тут мы имеем в параметре LicenseInfo что-то записанное в 16-ой системе счисления. Тогда получается в Buf ( буфер ) помещается как раз что-то записанное в 16-ой системе счисления. Пробовал преобразовывать по всякому, но все равно бред получается, возможно ли, что, этот параметр ключа еще как — то шифруется ? Хелп =)
С уважением!
Re: Проблема с Binary. Delphi
| От: | silent_roach |
| Дата: | 12.03.09 06:59 |
| Оценка: |
Вряд ли Microsoft держит алгоритм шифрования такой информации открытым.
Re: Проблема с Binary. Delphi
| От: | wallaby | |
| Дата: | 12.03.09 08:13 | |
| Оценка: | 3 (1) | |
Здравствуйте, Xobotik, Вы писали:
X>То есть получается как нужно преобразовать массив Buf в котором, как я полагаю записаны бинарные значения, в читабельный вид ( к типу string ).
function BytesToHex(const Buf; BufSize: Integer): string; var P: PByte; begin Result:= ''; P:= @Buf; while BufSize > 0 do begin if Length(Result) > 0 then Result:= Result + ' '; Result:= Result + IntToHex(P^, 2); Inc(P); Dec(BufSize); end; end; procedure TForm1.Button5Click(Sender: TObject); var Test: array[0..2] of Byte; begin Test[0]:= $13; Test[1]:= $23; Test[2]:= $33; ShowMessage(BytesToHex(Test, 3)); end;—
The optimist proclaims that we live in the best of all possible worlds; and the pessimist fears this is true
Re[2]: Проблема с Binary. Delphi
| От: | Xobotik |
| Дата: | 18.03.09 19:39 |
| Оценка: |
Здравствуйте, wallaby, Вы писали:
W>Здравствуйте, Xobotik, Вы писали:
X>>То есть получается как нужно преобразовать массив Buf в котором, как я полагаю записаны бинарные значения, в читабельный вид ( к типу string ).
W>Например так:
W>
W>function BytesToHex(const Buf; BufSize: Integer): string; W>var W> P: PByte; W>begin W> Result:= ''; W> P:= @Buf; W> while BufSize > 0 do begin W> if Length(Result) > 0 then Result:= Result + ' '; W> Result:= Result + IntToHex(P^, 2); W> Inc(P); W> Dec(BufSize); W> end; W>end; W>procedure TForm1.Button5Click(Sender: TObject); W>var W> Test: array[0..2] of Byte; W>begin W> Test[0]:= $13; W> Test[1]:= $23; W> Test[2]:= $33; W> ShowMessage(BytesToHex(Test, 3)); W>end; W>Поробую реализовать выше написанный код =) Спасибо за помощь
С уважением!
Re[2]: Проблема с Binary. Delphi
| От: | Xobotik |
| Дата: | 18.03.09 20:01 |
| Оценка: |
Здравствуйте, wallaby, Вы писали:
W>Здравствуйте, Xobotik, Вы писали:
X>>То есть получается как нужно преобразовать массив Buf в котором, как я полагаю записаны бинарные значения, в читабельный вид ( к типу string ).
W>Например так:
W>
W>function BytesToHex(const Buf; BufSize: Integer): string; W>var W> P: PByte; W>begin W> Result:= ''; W> P:= @Buf; W> while BufSize > 0 do begin W> if Length(Result) > 0 then Result:= Result + ' '; W> Result:= Result + IntToHex(P^, 2); W> Inc(P); W> Dec(BufSize); W> end; W>end; W>procedure TForm1.Button5Click(Sender: TObject); W>var W> Test: array[0..2] of Byte; W>begin W> Test[0]:= $13; W> Test[1]:= $23; W> Test[2]:= $33; W> ShowMessage(BytesToHex(Test, 3)); W>end; W>Проверил =) Функция вернула строку, содержание которой , что то в 16 — ой системе счисления. А как вот , это что — то преобразовать в читабельный для человека вид?
С уважением!
Re[3]: Проблема с Binary. Delphi
| От: | Hruks | www.hruks.com |
| Дата: | 19.03.09 01:09 | |
| Оценка: |
Здравствуйте, Xobotik, Вы писали:
X>Проверил =) Функция вернула строку, содержание которой , что то в 16 — ой системе счисления. А как вот , это что — то преобразовать в читабельный для человека вид?
А что есть для человека читаемый вид?
Это же binary данные, то есть просто данные в чистом виде. Там может быть структура или какой-нить файл в любом формате, может быть зашифрованные данные. Как интерпретировать эти данные это отдельная тема. Проблемы были вытащить эти данные.
Запустите рестр виндовс и посмотрите в каком виде эта программа выдаёт двоичные данные и сравните.
Re[4]: Проблема с Binary. Delphi
| От: | Xobotik |
| Дата: | 19.03.09 14:15 |
| Оценка: |
Здравствуйте, Hruks, Вы писали:
H>Здравствуйте, Xobotik, Вы писали:
X>>Проверил =) Функция вернула строку, содержание которой , что то в 16 — ой системе счисления. А как вот , это что — то преобразовать в читабельный для человека вид?
H>А что есть для человека читаемый вид?
H>Это же binary данные, то есть просто данные в чистом виде. Там может быть структура или какой-нить файл в любом формате, может быть зашифрованные данные. Как интерпретировать эти данные это отдельная тема. Проблемы были вытащить эти данные.
H>Запустите рестр виндовс и посмотрите в каком виде эта программа выдаёт двоичные данные и сравните.
В нашем примере нужно было считать ключ операционной системы. Ну читабельный вид — это то , что понятно , а не какая — то непонятная комбинация из цифр от 0 до 9 и букв A B C D E F =)
С уважением!
Re[5]: Проблема с функциями в Delphi
| От: | Hruks | www.hruks.com |
| Дата: | 20.03.09 13:15 | |
| Оценка: |
Здравствуйте, Xobotik, Вы писали:
X>В нашем примере нужно было считать ключ операционной системы. Ну читабельный вид — это то , что понятно , а не какая — то непонятная комбинация из цифр от 0 до 9 и букв A B C D E F =)
Ключ в бинарном виде считан. Отобразился в виде кодов. Для байтов это нормально.
Или Вы рассчитывали получить строку вида: «Лицензия выдана Васе Пупкину из компании Рога и Ко»?
Re[6]: Проблема с функциями в Delphi
| От: | Аноним |
| Дата: | 20.03.09 14:19 |
| Оценка: |
Здравствуйте, Hruks, Вы писали:
H>Здравствуйте, Xobotik, Вы писали:
X>>В нашем примере нужно было считать ключ операционной системы. Ну читабельный вид — это то , что понятно , а не какая — то непонятная комбинация из цифр от 0 до 9 и букв A B C D E F =)
H>Ключ в бинарном виде считан. Отобразился в виде кодов. Для байтов это нормально.
H>Или Вы рассчитывали получить строку вида: «Лицензия выдана Васе Пупкину из компании Рога и Ко»?
Re[6]: Проблема с функциями в Delphi
| От: | Xobotik |
| Дата: | 20.03.09 14:21 |
| Оценка: |
Здравствуйте, Hruks, Вы писали:
H>Здравствуйте, Xobotik, Вы писали:
X>>В нашем примере нужно было считать ключ операционной системы. Ну читабельный вид — это то , что понятно , а не какая — то непонятная комбинация из цифр от 0 до 9 и букв A B C D E F =)
H>Ключ в бинарном виде считан. Отобразился в виде кодов. Для байтов это нормально.
H>Или Вы рассчитывали получить строку вида: «Лицензия выдана Васе Пупкину из компании Рога и Ко»?
С уважением!
Re[6]: Проблема с функциями в Delphi
| От: | Xobotik |
| Дата: | 20.03.09 14:42 |
| Оценка: |
Здравствуйте, Hruks, Вы писали:
H>Здравствуйте, Xobotik, Вы писали:
X>>В нашем примере нужно было считать ключ операционной системы. Ну читабельный вид — это то , что понятно , а не какая — то непонятная комбинация из цифр от 0 до 9 и букв A B C D E F =)
H>Ключ в бинарном виде считан. Отобразился в виде кодов. Для байтов это нормально.
H>Или Вы рассчитывали получить строку вида: «Лицензия выдана Васе Пупкину из компании Рога и Ко»?
С уважением!
Re[7]: Проблема с функциями в Delphi
| От: | silent_roach |
| Дата: | 21.03.09 05:28 |
| Оценка: |
Здравствуйте, Xobotik, Вы писали:
X>да. Это реально?
Автор: silent_roach
Дата: 12.03.09
Re[7]: Проблема с функциями в Delphi
| От: | DarkMaster | http://www.bdslib.at.ua |
| Дата: | 23.03.09 09:27 | |
| Оценка: |
Здравствуйте, Xobotik, Вы писали:
H>>Ключ в бинарном виде считан. Отобразился в виде кодов. Для байтов это нормально.
H>>Или Вы рассчитывали получить строку вида: «Лицензия выдана Васе Пупкину из компании Рога и Ко»?
X>да. Это реально?
А почему нет? Нужно прочитать строковые значения из того же реестра (подключи CurrentVersion) — и сформировать свою строку информации.
WBR, Dmitry Beloshistov AKA [-=BDS=-]
Re[8]: Проблема с функциями в Delphi
| От: | Аноним |
| Дата: | 25.03.09 18:18 |
| Оценка: |
Здравствуйте, DarkMaster, Вы писали:
DM>Здравствуйте, Xobotik, Вы писали:
H>>>Ключ в бинарном виде считан. Отобразился в виде кодов. Для байтов это нормально.
H>>>Или Вы рассчитывали получить строку вида: «Лицензия выдана Васе Пупкину из компании Рога и Ко»?
X>>да. Это реально?
DM>А почему нет? Нужно прочитать строковые значения из того же реестра (подключи CurrentVersion) — и сформировать свою строку информации.
А можно поподробнее с этого места.
Re[8]: Проблема с функциями в Delphi
| От: | Xobotik |
| Дата: | 25.03.09 18:19 |
| Оценка: |
Здравствуйте, DarkMaster, Вы писали:
DM>Здравствуйте, Xobotik, Вы писали:
H>>>Ключ в бинарном виде считан. Отобразился в виде кодов. Для байтов это нормально.
H>>>Или Вы рассчитывали получить строку вида: «Лицензия выдана Васе Пупкину из компании Рога и Ко»?
X>>да. Это реально?
DM>А почему нет? Нужно прочитать строковые значения из того же реестра (подключи CurrentVersion) — и сформировать свою строку информации.
А можно поподробнее с этого места. Ну или подскажите как это реализовать, хоть бы намек.
С уважением!
Re[8]: Проблема с функциями в Delphi
| От: | Xobotik |
| Дата: | 25.03.09 19:04 |
| Оценка: |
Здравствуйте, silent_roach, Вы писали:
_>Здравствуйте, Xobotik, Вы писали:
X>>да. Это реально?
_>Конечно реально, только вот http://rsdn.ru/forum/message/3323958.1.aspx
Автор: silent_roach
Дата: 12.03.09
Да даже если не держит. Разница какая ? Мы же знаем что там зашифровано, нам останется только восстановить алфавит шифровки. Конечно фантастическое предположение, но по теории если имеется зашифрованый текст и мы знаем этот текст слово в слово, тогда мы можем расшифровать, то есть опрделить как зашифрована каждая буква в этом тексте.
С уважением!
Re[9]: Проблема с функциями в Delphi
| От: | silent_roach |
| Дата: | 26.03.09 05:02 |
| Оценка: |
Здравствуйте, Xobotik, Вы писали:
X>Да даже если не держит. Разница какая ? Мы же знаем что там зашифровано, нам останется только восстановить алфавит шифровки. Конечно фантастическое предположение, но по теории если имеется зашифрованый текст и мы знаем этот текст слово в слово, тогда мы можем расшифровать, то есть опрделить как зашифрована каждая буква в этом тексте.
Причем тут вообще алфавит и почему ты решил что одного результата будет достаточно?
И почему, раз такой уверенный, еще не сделал этого?
Да, неужели нет каких-то стандартных функций, которые позволят сделать то же самое?
Re[9]: Проблема с функциями в Delphi
| От: | DarkMaster | http://www.bdslib.at.ua |
| Дата: | 26.03.09 09:36 | |
| Оценка: | 3 (1) | |
Здравствуйте, Xobotik, Вы писали:
H>>>>Ключ в бинарном виде считан. Отобразился в виде кодов. Для байтов это нормально.
H>>>>Или Вы рассчитывали получить строку вида: «Лицензия выдана Васе Пупкину из компании Рога и Ко»?
X>>>да. Это реально?
DM>>А почему нет? Нужно прочитать строковые значения из того же реестра (подключи CurrentVersion) — и сформировать свою строку информации.
X>А можно поподробнее с этого места. Ну или подскажите как это реализовать, хоть бы намек.
Смотрим ключи в реестре [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion] :
«CurrentVersion»=»6.0» — версия Windows
«CurrentBuildNumber»=»6001» —
«CurrentBuild»=»6001» — билды
«SoftwareType»=»System» — тип ПО
«CurrentType»=»Multiprocessor Free» — тип ОС
«RegisteredOrganization»=»ХХХХХХХХХХХ» — организация
«RegisteredOwner»=»ХХХХХХХХХХХХХХ» — пользователь
«ProductName»=»Windows Vista (TM) Business» — имя продукта
«ProductId»=»ХХХХХХ-OEM-ХХХХХХ-ХХХХХХ» — ID продукта
«EditionID»=»Business» — редакция
«CSDBuildNumber»=»1616» — билд сервис пака
«CSDVersion»=»Service Pack 1» — сервис пака
Читаем всю эту информацию из реестра и формируем строку информации:
Function GetWindowsVersionInfo(WVersion,WBuild,WOSType,WProductName,SPName,SPBuild,WUserName,WOrganization,WProductID:string):String; begin Result:=Format('Версия Windows: %s (%s) v.%s build %s Сервис пак: %s build %s'#13#10+ 'Зарегистрирована на : %s Организация %s '#13#10+ 'Регистрационный номер продукта: %s', [WProductName,WOSType,WVersion,WBuild,SPName,SPBuild,WUserName,WOrganization,WProductID]); end;WBR, Dmitry Beloshistov AKA [-=BDS=-]
Re[9]: Проблема с шифрами
| От: | wallaby | |
| Дата: | 26.03.09 12:12 | |
| Оценка: | +1 | |
Здравствуйте, Xobotik, Вы писали:
X>. но по теории если имеется зашифрованый текст и мы знаем этот текст слово в слово, тогда мы можем расшифровать, то есть опрделить как зашифрована каждая буква в этом тексте.
Интересная теория, Брюс Шнайер отдыхает.
В криптографии попытка взломать шифр по известной паре «открытый текст/зашифрованный текст» называется атакой с известным открытым текстом. Если у Вас есть теория, по которой такой атакой можно взломать любой шифр — обращайтесь за Нобелевской премией.
—
The optimist proclaims that we live in the best of all possible worlds; and the pessimist fears this is true
Re[10]: Проблема с шифрами
| От: | Аноним |
| Дата: | 26.03.09 19:43 |
| Оценка: |
Здравствуйте, wallaby, Вы писали:
W>Здравствуйте, Xobotik, Вы писали:
X>>. но по теории если имеется зашифрованый текст и мы знаем этот текст слово в слово, тогда мы можем расшифровать, то есть опрделить как зашифрована каждая буква в этом тексте.
W>Интересная теория, Брюс Шнайер отдыхает.
W>В криптографии попытка взломать шифр по известной паре «открытый текст/зашифрованный текст» называется атакой с известным открытым текстом. Если у Вас есть теория, по которой такой атакой можно взломать любой шифр — обращайтесь за Нобелевской премией.
Только издеватся и умеете?