Membuat Program Enkripsi dan Deskripsi Menggunakan Algoritma Chiper - ShareItCare Blog

Hello guys, ketemu lagi nih dengan Delphi 7 :v
Kali ini aku akan share tentang Program Enkripsi dan Deskripsi..
Sebelum itu, ada yang tau gak sih apa itu Enkripsi dan Deskripsi?

Istilah enkripsi adalah suatu pengamanan data atau program yang dilakukan dengan algoritma khusus yang hanya diketahui oleh si pembuat (Mirip seperti Unik Code sih). Dan enkripsi ini akan merubah bentuk atau makna dari sebuah kata menjadi tak beraturan yang hanya bisa dibaca oleh si pembuat atau orang yang bisa memecahkan algoritma enkripsinya.
Untuk istilah deskripsi itu kebalikan dari enkripsi, yang mana enkripsi merubah makna mejadi tak beraturan maka deskrispsi mengembalikan nya menjadi bentuk awal yang bisa dibaca.

Disini saya akan memberikan program enkripsi dan deskripsi menggunakan algoritma chiper. Sebenarnya banyak sekali rumus dan algoritma yang bisa dipakai untuk program ini (Bahkan kalian bisa membuat algortima kalian sendiri).

Untuk kunci yang digunakan dalam dunia kriptografi enkripsi ada beberapa yaitu Kunci Simetris / Symetric key dan Kunci Asimetris / Asymetric key. Untuk metode juga ada beberapa seperti di public key yaitu Metoda RSA (Rivest, Shamir, Adleman) yang digunakan.

Kuy deh ke delphinya ^-^

1. Buat dulu tampilan program seperti ini. (Bagi yang sudah PRO dan mau menambahkan silakan saja)

ShareItCare Blog → Ubah di Caption Form1.
Enkripsi dan Deskripsi → Gunakan GroupBox dan Ubah Captionnya.
PlainText, Key, ChiperText → Gunakan Label.
Untuk Isi-an nya → Gunakan Edit.
Deskripsi, Enkripsi, Reset, Exit → Gunakan Button.
Untuk Tulisan Rumus → Gunakan Memo.

2. Lanjut langsung ke codingnya .. Untuk Memo → Properties → Ubah Value ReadOnly jadi True. Dan EditText Key → Properties → Ubah Title jadi 0.

3. Klik 2 kali button deskripsi dan copy-paste kan code dibawah..

procedure TForm1.Button1Click(Sender: TObject); var plaintext, chipertext:string; P,C,K,I,N:Integer; begin plaintext:=UpperCase(Edit1.Text); k:=StrToInt(Edit2.Text); n:=length(plaintext); chipertext:=''; for i:=1 to n do begin p:=ord(plaintext[i])-65; c:=(p+k)mod 26; chipertext:=chipertext+chr(c+65); end; Edit3.Text:=chipertext; end;

4. Klik 2 kali button enkripsi dan copy-paste kan code dibawah..

procedure TForm1.Button2Click(Sender: TObject); var plaintext, chipertext:string; P,C,K,I,N:Integer; begin chipertext:=UpperCase(Edit1.Text); k:=StrToInt(Edit2.Text); n:=length(chipertext); plaintext:=''; for i:=1 to n do begin c:=ord(chipertext[i])-65; p:=(c-k); if p<0 then p:=26+p; plaintext:=plaintext+chr(p+65); end; Edit3.Text:=plaintext; end;

5. Klik 2 kali button reset dan copy-paste kan code dibawah..

procedure TForm1.Button3Click(Sender: TObject); begin Edit1.Text:=''; Edit2.Text:='0'; Edit3.Text:=''; end;

6. Klik 2 kali button exit dan tulis code close;

!!! Ingat kalau kalian mau copy, dari var sampai end yang kedua dari bawah guys.

Jika sudah selesai, maka seharusnya program enkripsi dan deskripsi kalian sudah jadi dan coba kalian Running.. Berikut saya kasih demo video program nya..

Sampai sini dulu aja share singkat dan simpel saya tentang enkripsi dan deskripsi ya, mungkin jika ada error atau yang ingin ditanyakan soal scriptnya bisa dikolom komentar..

Note: Jika ada penulisan code yang salah atau mungkin ada yang mau sharing juga soal enkripsi dan deskripsi bisa dikolom komentar ^-^