Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=40104&view=findpost&p=259904 Mon, 08 Dec 2003 20:23:22 +0000 Простейший алгоритм шифрования строки https://forum.sources.ru/index.php?showtopic=40104&view=findpost&p=259904
    Function Decode(S: String; Code: Integer): String;
    Var t: Integer;
    Begin
      For t:=1 to Length(S) Do S[t]:=Chr(Ord(S[t]) xor Code);
      Result:=S;
    End;


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

Автор: Song]]> Song Общие вопросы