enkripsi

Contoh Penggunaan Encrypt dan Decrypt sederhana Delphi

by

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 :

Read more

Download Komponen Hash MD5 untuk Delphi

by

Teknik hash dan enkripsi merupakan hal yang sudah wajib digunakan untuk setiap program dan transaksi data saat ini, sepertinya halnya disetiap program login haruslah menggunakan enkripsi, namun kali ini penulis akan berbagi teknik hash yang bisa dimanfaatkan sebagai penyimpanan data seperti login. Baik langsung saja, silahkan download Komponen MD5 delphi disini.

Setelah berhasil didownload simpan komponen tersebut dalam satu folder tersendiri agar lebih rapi. Kemudian buka delphinya, saya masih pakai delphi 7.

Klik Componen->Install Component

Kemudian klik Browse dan pilih komponen yang sudah Anda download tadi

 

Contoh pada delphi yang saya pakai, komponen disimpan di drive D:\Komonen\cHash.pas.
Kemudian klik tombol ok. dan akan muncul seperti berikut :

 

 


Klik Yes dan ok dan komponen selesai diinstall.

Untuk cara menggunakan komponen MD5 Delphi cukup mudah, silahkan buat form seperti berikut :

Kemudian masuk ke dalam script, tambahan dibagian uses chash seperti berikut :

Read more