BLOGNGUIK

(*author: noor fitriana, s1 ilmu komputer UNS 2008*)
program EnkripDekrip;
uses wincrt;
var
teks:string[10];
x, y,i : integer;
ul: char;
begin
repeat
clrscr;
writeln('FITRI,MASUKAN TEKS YANG ANDA INGINKAN: '); readln(teks);
writeln;
repeat
writeln('PILIH TINGKATAN YANG ANDA INGINKAN(-5 sampai 5): '); readln(y);
until (y>=-5) and (y<=5);

writeln;

x:= length(teks);
for i:=1 to x do
begin
teks[i]:=chr(ord(teks[i])+y);

end;
writeln;
writeln('HASIL TEKS YANG TELAH DI ENKRIPSI: '); writeln(teks);
writeln;
for i:=1 to x do
begin
teks[i]:=chr(ord(teks[i])-y);
end;
writeln('Teks yang Telah di Enkripsi Akan di Kembalikan Lagi ke Semula atau di dekripsi');
writeln('HASIL TEKS YANG DI DEKRIPSI: '); writeln(teks);
write('MAU COBA LAGI? [Y/T]: '); readln(ul);
until upcase (ul)<>'Y';
readln;


end.