Contoh program kriptografi menggunakan Delphi7

Nah.. sesuai sama janji sari yang tadi. setelah berkenalan dengan kriptografi ada baiknya kita lebih menggenalnya dengan contoh program berikut ini. di sini sari mencontohkan kriptografi klasik. ini kriptografi yang paling sederhana. tapi, kalau tidak tau kuncinya cukup membuat pusing juga ^^ membaca chipertext nya  ..
lanjut aja ya .. oh ya sari menggunakan code ascii untuk proses enkripsi dan dekripsinya.
sebenarnya bahasa pemograman apapun yang kita gunakan sama aja. sari udah coba di java dengan cara yang sama. dan berhasil. yang penting kita sesuaikan aja sama source code bahasa pemogramannya. ok ! ^^


oke buka compiler delphi nya. sari pakai delphi7 .
dan desaign form seperti berikut ini ^^

di button enkripsinya masukkan source code berikut :
procedure TForm1.Button1Click(Sender: TObject);
var  i,key : integer;
    enk, dt : string;
begin
dt:=edit1.Text;
key := 4;
for i:=1 to length(dt) do
    enk:=enk+chr(ord(dt[i])+key);
    Edit2.Text:=enk;
end;

berdasarkan enkripsi di atas ..
jika kalian masukkan di plaintextnya abcd maka di chipertextnya akan menjadi efgh . oh.. ya ..
kalau kalian bingung sama source code " enk:=enk+chr(ord(dt[i])+key); " ini sebenarnya menggubah data string yang kita inputkan menjadi char kemudian di ubah lagi ke kode ascii lalu menggubahnya kembali ke char.
untuk nilai di variabel key  bisa kalian ubah. di sini jika kalian ingin mengdekripsikannya maka source codenya sebagai berikut :

procedure TForm1.Button1Click(Sender: TObject);
var  i,key : integer;
    enk, dt : string;
begin
dt:=edit1.Text;
key := 4;
for i:=1 to length(dt) do
    enk:=enk+chr(ord(dt[i])-key);
    Edit2.Text:=enk;
end;

cukup sederhana bukan .. ^^ kalian bisa memodifikasinya dengan div, mod dan yang lainnya. untuk program enkripsi yang lain akan sari posting di lain waktu ya .. di sini yang terpenting adalah dalam pembuatan key. dan jangan sampai ada yang tau key yang kita buat. di situlah letak rahasia nya. buatlah key serumit mungkin ^^ ..
oke.. ^^