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

s1:=s1+chr(v-password(PassW));

Decrypt:=s1;

exit;

end;

code:=copy(DecryptStr,1,xpos-1);

val(code,v,e);

s1:=s1+chr(v-password(PassW));

delete(DecryptStr,1,xpos);

end;

Decrypt:=s1;

END;

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

PROCEDURE CryptP;

BEGIN

writeln;

write(' Введите путь и имя файла : ');

readln(FileName);

write(' Введите ключ : ');

readln(PassW);

Assign(F,FileName);

Assign(F1,'crypter.txt');

Rewrite(F1);

Reset(F);

while not EOF(F) do

begin

readln(F,Line);

line:=crypt(line);

writeln(F1,line);

end;