Курсовая работа: Шифровка и дешифровка текста

{Функция шифрования текста}

FUNCTION Crypt(CryptStr: string): string;

VAR s,s1: string;

i,rez: integer;

BEGIN

s1:='';

for i:=1 to length(CryptStr) do

begin

s:=CryptStr;

s:=copy(s,1,1);

CryptStr:=copy(CryptStr,2,length(CryptStr)-1);

rez:=ord(s[1])+Password(PassW);

str(rez,s);

s1:=s1+s+' ';

end;

delete(s1,length(s1),1);

Crypt:=s1;

END;

{Функция дешифровки текста}

FUNCTION Decrypt(DecryptStr: string): string;

VAR Xpos,i,v,e: integer;

Code,s1: string;

BEGIN

s1:='';

for i:=1 to length(DecryptStr) do

begin

xpos:=pos(' ',DecryptStr);

if xpos<=0 then

begin