Program Enkripsi 2 [Geser]
Program Enkripsi2;
uses wincrt;
var
kalimat : string;
i : byte;
ch : char;
KUNCI : shortint;
begin
write(’Masukkan suatu kalimat : ‘);readln(kalimat);
writeln;
write(’Tentukan Kunci (banyak pergeseran) : ‘);readln(kunci);
writeln;
write(’Hasil enkripsi : ‘);
if kunci >= 0 then
begin
for i:=1 to length(kalimat) do
begin
if kalimat[i] in [’A’..’Z'] then
begin
ch := chr(ord(kalimat[i])+kunci);
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])+kunci);
if ord(ch) > 122 then
ch := chr(ord(ch)-26);
end
else
ch := kalimat[i];
write(ch);
end;
end
else
begin
for i:=1 to length(kalimat) do
begin
if kalimat[i] in [’A’..’Z'] then
begin
ch := chr(ord(kalimat[i]) + kunci);
if ord(ch) < 65 then
ch := chr(ord(ch) + 26);
end
else if kalimat[i] in [’a’..’z'] then
begin
ch := chr(ord(kalimat[i])+kunci);
if ord(ch) < 97 then
ch := chr(ord(ch) + 26);
end
else
ch := kalimat[i];
write(ch);
end;
end;
readkey;
donewincrt;
end.
