Как зашифровать строку?

← →
tytus © (2004-01-16 15:42) [0]

Добрый день господа. Имеется список логинов и паролей. Так вот пароли хотелось бы шифровать, сохранять в реестре(да в принципе где угодно) а потом дештфровать и проверять. Есть ли простая функция шифрования (и обратно) для строк, или подкиньте идею как это сделать? (Для NT5.0 тоже).

← →
Ega23 © (2004-01-16 15:45) [1]

Кстати, я слышал, что любой механизм криптования, а также программа, этот механизм использующая, должны быть сертефицированы ФСБ (или ФАПСИ).

← →
Тимохов © (2004-01-16 15:46) [2]

она же шифоровка, она же расшифровка.
for kI := 1 to Length(s) do
begin
s[kI] := chr(ord(s[kI]) xor 34)
end;

Проще некуда...

← →
mrcat © (2004-01-16 15:51) [3]

см. CryptoAPI

← →
panov © (2004-01-16 15:55) [4]

http://delphimaster.net/view/1-1074244850/

Спасибо, про бинарную логику я как-то забыл... Действительно - проще не придумаешь.

Несколько функций шифрования строк есть в библиотеке (Freeware, содержит неимоверно количество ф-й для работы со строками) QStrings.

Как зашифровать строку? Найти похожие ветки