De@th

uses crt;
var
a:string;
i:integer;

function sifrele(str:string):string;
begin
for i:=1 to length(str) do
str:=chr(ord(str) xor 5000);
sifrele:=str;
end;
function sifreyicoz(str:string):string;
begin
for i:=1 to length(str) do
str:=chr(ord(str) xor 5000);
sifreyicoz:=str;
end;
begin
clrscr;
writeln('sifrelenecek textti giriniz....');
readln(a);
a:=sifrele(a);
writeln('Sifreli hali...............:',a);
a:=sifreyicoz(a);
writeln('Sifresinin cozulmus hali...:',a);
readln;
end.

__________________