Простейший алгоритм шифрования строки -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [3.144.238.20]

Модераторы: jack128, Rouse_, Krid

Простейший алгоритм шифрования строки

Song

Сообщ. #1 , 08.12.03, 20:23

Unregistered

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

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0166 ] [ 16 queries used ] [ Generated: 27.04.24, 20:38 GMT ]