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
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;
Program Enkripsi & Dekripsi Dengan Delphi
Reviewed by Wahyu Saputra
on
1/03/2018
Rating: 5
Reviewed by Wahyu Saputra
on
1/03/2018
Rating: 5
