Membuat Enskripsi dan Deskripsi di Delphi XE5

By: QMPC Network on 02.31

Penulis akan share cara enkripsi dan deskripsi yang berfungsi untuk menyamarkan password pada database jika database bisa dibuka user. cara ini kita bisa customize hash yang kita buat dengan merubah nilai yang  ada didalam funsinya.

Langkah 1 :
Tulis source code berikut ini :

//Fungsi Enskripsi (Tulis)
Function Encrypt(const InString:string; StartKey,MultKey,AddKey: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) * MultKey + AddKey;
      end;
end;

Langkah 2 :
Tulis source code berikut ini :

//Fungsi Deskripasi (Baca)
Function Decrypt(const InString:string; StartKey,MultKey,AddKey: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) * MultKey + AddKey;
    end;
end;

Langkah 3 :
Untuk Cara pemakaian fungsi-fungsi diatas dengan cara berikut ini :

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text:=Encrypt(Edit1.Text,5,8,1);
// nilai 3,2,1 bisa dirubah-rubah sesuai keinginan
Edit3.Text:=Decrypt(Edit1.Text,5,8,1);
//saat men deskrip nilai 3,2,1 harus sama dengan nilai saat enskripnya
end;

Langkah 4 :
Hasilnya akan seperti berikut ini :