Program Caesar_Chiper;
uses wincrt;
var
kalimat : string;
i : byte;
begin
write(’masukkan suatu kalimat : ‘);readln(kalimat);
writeln;
write(’Hasil enkripsi : ‘);
for i:=1 to length(kalimat) do
write(chr(ord(kalimat[i])+5));
readkey;
donewincrt;
end.
The URI to TrackBack this entry is: http://gudeg.blogsome.com/2007/06/12/program-chaesar-chiper/trackback/
RSS feed for comments on this post.
Line and paragraph breaks automatic, e-mail address never displayed, HTML allowed: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <code> <em> <i> <strike> <strong>
Get free blog up and running in minutes with Blogsome
Theme designed by Jay of onefinejay.com
program tadi, gak selalu benar, jika dimasukkan kata yang mengandung huruf z, maka enkripsinya tidak jadi huruf, malah ke karakter lain; perbaikkannya jadi sbb:
Program kata_sandi;
uses wincrt;
var
kata,sandi:string;
i,n,key,key2:byte;
begin
write (’Masukkan Kata Yang Akan Disandikan:’); readln(kata);
write (’Setelah dienkripsi Menjadi:’);
key:=5;
key2:=26;
for i:=1 to length(kata) do {panjang kata}
if (kata[i] in [’v’..’z']) {or (kata[i] in [’V’..’Z'])} then
begin
kata[i]:= chr(ord(kata[i])+key-key2);
write (kata[i]);
end
else
if kata[i] in [’V’..’Z'] then
begin
kata[i]:= chr(ord(kata[i])+key-key2); {krn batas yg mungkin utk maju 5 langkah hanya sampai ‘U’,
maka agar kembali ke ‘a..z’, hrf -26}
write (kata[i]);
end
else
begin
kata[i]:= chr(ord(kata[i])+key); {maju ke huruf berikutnya 5 langkah}
write (kata[i]);
end ;
end.
Comment by aridhanyati — June 12, 2007 @ 8:13 am