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

← →
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/

← →
tytus (2004-01-16 16:02) [5]

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

← →
Amoeba (2004-01-16 16:03) [6]

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

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