Function Crypt(Text, Key: String; Encode: Boolean): String;
Var
I, KeyLength: integer;
Sign: ShortInt;
Begin
KeyLength:=Length (Key);
If Encode=True then Sign:=-1 else Sign:=1; //шифровать или расшифровывать?
For I:=1 to Length (Text) do
//код символа исходного текста складывается с кодом символа ключа
// пароль при этом умножается
Text[I]:=Chr (ord (Text[I]) +Sign*ord (Key[I mod KeyLength+1]));
//результат усилий
Result:=Text;
End;