|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
ini файл и зашифрованный текст
доброе время суток.
пытаюсь зашифровать пароли и сохранить в ini... предварительно пробовал шифровать текст в memo - работает нормально. а ini как будто не может отобразить зашифрованные символы и заменяет их на вопросительные знаки. Соответственно расшифровать не может. Как быть? вот код шифрования: Код:
procedure Code(var text: string; password: string; decode: boolean); var i, PasswordLength: integer; sign: shortint; begin PasswordLength := length(password); if PasswordLength = 0 then Exit; if decode then sign := -1 else sign := 1; for i := 1 to length(text) do text[i] := chr(ord(text[i]) + sign * ord(password[i mod PasswordLength + 1])); end; Последний раз редактировалось Gareth, 24.04.2022 в 12:20. |
#2
|
|||
|
|||
Пришлось выучить новый навык, сохранение настроек с помощью Json ))))
там с этим вроде всё ок. |
#3
|
|||
|
|||
Запакуй зашифрованную строку в Base64. Если не очень длинная, то все сохранится и далее прочитается нормально. Ini-файл все-таки простой текстовый файл и, соответсвенно, имеет определенные ограничеия (особенно в отношении непечатных символов, которые как раз и могут получаться в результате шифрования).
|
Этот пользователь сказал Спасибо lmikle за это полезное сообщение: | ||
Gareth (25.04.2022)
|