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..

Satu Tanggapan to “Enkripsi dengan caesar cheper”

  1. assalalmu’alaikum
    akh, yen iso yo sekalian scrip tugas prakt skd di upload, kan iso ana komentari.. ^_^
    wassalamu’alaikum

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: