Contoh Penggunaan Encrypt dan Decrypt sederhana Delphi

Seperti pada artikel sebelumnya saya membahas mengenai keamanan data, namun kali ini saya akan berbagi contoh Encrypt dan Decrypt sederhana Delphi. Hasil enkripsi ini bisa digunakan juga pada data login, data lisensi dan data-data lain yang dianggap tidak semua orang perlu tahu isinya. Langsung kebagian intinya, silahkan copy 2 prosedur berikut ke dalam delphi Anda dan simpan dibawah implementation.

function Encrypt(const InString:string; StartKey:Integer):string;
var
I : Byte;
begin
Result := '';
for I := 1 to Length(InString) do
begin
Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8));
StartKey := (Byte(Result[I]) + StartKey);
end;
end;
function Decrypt(const InString:string; StartKey:Integer):string;
var
I : Byte;
begin
Result := '';
for I := 1 to Length(InString) do
begin
Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8));
StartKey := (Byte(InString[I]) + StartKey);
end;
end;

Untuk penggunaannya juga cukup mudah, silahkan buat form seperti berikut :

Encrypt Delphi

Kemudian isi button Encrypt seperti berikut :
Edit3.Text:=Encrypt(Edit1.Text,234);

Penjelasan :
Tombol Encrypt akan memanggil prosedur Encrypt dengan 2 parameter.
Parameter pertama adalah Data String yang akan di Encrypt, dan parameter ke-2 adalah Kunci untuk Encryptnya. Kunci ini bisa Anda rubah sesuai kebutuhan, namun hanya Anda yang tahu nilainya.

Untuk tombol Decrypt isinya hampir sama :
Edit3.Text:=Decrypt(Edit2.Text,234);

Penjelasan :
Pada tombol decrypt juga memiliki kunci 234, karenanya tujuannya adalah untuk mengembalikan data yang sudah di decrypt ke teks awalnya.

Hasil Program saat melakukan Encrypt terhadap teks Bintang

Encrypt Delphi

Saat saya ke kembalikan hasil yang di encrypt seperti berikut :

Encrypt Delphi


Perlu diingat teknik enkripsi tentu sangat banyak dan banyak yang lebih rumit agar terhidar dari para hacker, ini hanyalah contoh sederhana saja yang bisa Anda terapkan

Semoga bermanfaat

 

Leave a Comment

This site uses Akismet to reduce spam. Learn how your comment data is processed.