Program Enkripsi & Dekripsi Dengan Delphi

Pada kesempatan kali ini saya ingin berbagai informasi mengenai bagaimana membuat sebuah program enkripsi dan dekripsi menggunakan aplikasi delphi. Algoritma yang digunakan dalam proses enkripsi dan dekripsi adalah Shift Cipher. Shift Cipher merupakan jenis dari substitusi cipher, dimana pada plaintext digantikan dengan huruf lain yang tetap pada posisi alfabet.

1. Enkripsi

Proses enkripsi dilakukan dengan cara mengubah plaintext menjadi kode ASCII menggunakan fungsi ord. Setiap nilai ordinal huruf plaintext dikurangkan dengan angka 65, ditambahkan dengan nilai kunci, kemudian di modulo 26. Berikut adalah source code proses enkripsi.

procedure TForm1.btnEnkripsiClick(Sender: TObject);

var  plaintext,ciphertext: string;

P,K,C,i,n : integer;

begin

plaintext := UpperCase(eData.Text);

K := StrToInt(eKunci.Text);

n := Length(plaintext);

ciphertext:='';

For i:= 1 to n do

begin

  P:=ord(plaintext[i])-65;

  C:=(P + K) mod 26;

  ciphertext:=ciphertext+ chr(C+65)

end;

eHasil.Text := ciphertext;

end;

2. Dekripsi

Proses dekripsi dilakukan dengan cara mengurangi nilai ordinal huruf ciphertext dengan nilai 65.kemudian dikurangi dengan nilai kuncinya. Jika nilai hasil dekripsi bernilai negatif maka nilai tersebut ditambah 26. Untuk menampilkan plaintext ke dalam bentuk abjad maka ditambahkan dengan 65. Berikut source code proses dekripsi.

procedure TForm1.btnDekripsiClick(Sender: TObject);

var  plaintext,ciphertext: string;

P,K,C,i,n : integer;

begin

ciphertext := UpperCase(eData.Text);

K := StrToInt(eKunci.Text);

n := Length(ciphertext);

plaintext:='';

For i:= 1 to n do

begin

  C:=ord(ciphertext[i])-65;

  P:=(C - K);

  if P<0 then P:=26+P;

  plaintext:=plaintext+ chr(P+65);

end;

eHasil.Text := plaintext;

end;