contoh program :
program enkripsi;
uses crt;
var
a,b: string;
i,z,n:integer;
begin
clrscr;
writeln(' Algoritma Kriptografi');
writeln('');
write(' masukan
nama anda : ');readln(a);
write(' Hasil
Enkripsi : ');
for i:=1 to
length(a) do begin
a[i]:=chr(ord(a[i])+11);
write(a[i]);
end;
writeln;
write(' masukan
nama anda : ');readln(b);
write(' Hasil
Enkripsi : ');
for z:=1 to
length(b) do begin
b[z]:=chr(ord(b[z])-11);
write(b[z]);
end;
readkey;
end.
