Program Enkripsi
Program enkripsi;
{program Caesar chiper}
uses wincrt;
var
kalimat : string;
i : byte;
ch : char;
begin
write(’masukkan suatu kalimat : ‘);readln(kalimat);
writeln;
write(’Hasil enkripsi : ‘);
for i:=1 to length(kalimat) do
begin
if kalimat[i] in [’A’..’Z'] then
begin
ch := chr(ord(kalimat[i])+5);
if ord(ch) > 90 then
ch := chr(ord(ch)-26);
end
else if kalimat[i] in [’a’..’z'] then
begin
ch := chr(ord(kalimat[i])+5);
if ord(ch) > 122 then
ch := chr(ord(ch)-26);
end
else
ch := kalimat[i];
write(ch);
end;
readkey;
donewincrt;
end.
