Enkripsi dengan caesar cheper

Enkripsi, adalah suatu sistem keamanan yang saat ini sering dan banyak digunakan untuk melindungi data-data kita. cara kerjanya pesan atau passeord dari tu;lisan kita akan di acak menurut kata kunci yang kita inginkan, sehingga akan sulit bagi orang-orang yang tidak kita beri ijin akses mengotak-atik data kita. chaesar cheper merupakan salah satu dari program enkripsi yang masih simple sehingga mudah untuk dipelajari bagi pemula. untuk pembuatannya ini menggunakan dhelphi. berikut ini listing program untuk membuat enkripsi dengan chaesar cheper.

procedure TForm1.Button1Click(Sender: TObject);
var
M : string;
c : char;
k,i : integer;
d : string;
begin
m := Edit1.text;
k := StrToInt(Edit2.Text);
d:=”;
for i:=1 to length (M) do
begin
c := chr(((ord(M[i])-65+k)mod 26)+65);
d := d+c;
end;
edit3.Text:=d;

end;

semoga bermanfaat bagi semua..