Cara Membuat Encryption Pada Config TiniFile dengan Delphi

3:51 PM

Cara Membuat Encryption Pada Config TiniFile dengan Delphi - Menerapkan encryption pada config akan membuat data pribadi menjadi aman, misalkan kita memasukan login & password yang mungkin tidak ingin di ketahui orang banyak.

Sebelum itu mari kita mengenal apa itu encryption :)
Encryption adalah suatu cara untuk meningkatkan keamanan dari suatu message atau file dengan cara mengacak informasi message atau file tersebut dan hanya bisa dibaca oleh seseorang yang mempunyai kunci Encryption untuk mengembalikan acakan nya (Decryption). 
pertama-tama mari kita buat form percobaan nya dulu, buat sekiranya mirip seperti gambar di bawah ini:
selanjutnya tambahkan IniFiles pada uses di delphi, dan buat variable string Myini: TIniFile;.
kemudian copas funcion Encrypt/Decrypt nya tepat dibawah {$R *.dfm}.
function Encrypt(Value: String): String;
const
b64alphabet: PChar = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=';
pad: PChar = '====';
function EncodeChunk(const Chunk: String): String;
var
W: LongWord;
i, n: Byte;
begin
n := Length(Chunk); W := 0;
for i := 0 to n - 1 do
W := W + Ord(Chunk[i + 1]) shl ((2 - i) * 8);
Result := b64alphabet[(W shr 18) and $3f] +
b64alphabet[(W shr 12) and $3f] +
b64alphabet[(W shr 06) and $3f] +
b64alphabet[(W shr 00) and $3f];
if n <> 3 then
Result := Copy(Result, 0, n + 1) + Copy(pad, 0, 3 - n); //add padding when out len isn't 24 bits
end;
begin
Result := '';
while Length(Value) > 0 do
begin
Result := Result + EncodeChunk(Copy(Value, 0, 3));
Delete(Value, 1, 3);
end;
end;

function Decrypt(Value: String): String;
const b64alphabet: PChar = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=';
function DecodeChunk(const Chunk: String): String;
var
W: LongWord;
i: Byte;
begin
W := 0; Result := '';
for i := 1 to 4 do
if Pos(Chunk[i], b64alphabet) <> 0 then
W := W + Word((Pos(Chunk[i], b64alphabet) - 1)) shl ((4 - i) * 6);
for i := 1 to 3 do
Result := Result + Chr(W shr ((3 - i) * 8) and $ff);
end;
begin
Result := '';
if Length(Value) mod 4 <> 0 then Exit;
while Length(Value) > 0 do
begin
Result := Result + DecodeChunk(Copy(Value, 0, 4));
Delete(Value, 1, 4);
end;
end;
nah sekarang masukkan cooding ini kedalam button Save.
  MyIni := TIniFile.Create(GetCurrentDir+'\Config.txt');
Myini.WriteString ('Encryption Config', 'TestE1', Encrypt(Edit1.Text));
Myini.WriteString ('Encryption Config', 'TestE2', Encrypt(Edit2.Text));
Myini.WriteString ('Encryption Config', 'TestE3', Encrypt(Edit3.Text));
Myini.WriteBool ('Encryption Config', 'TestC1', CheckBox1.Checked);
Myini.WriteBool ('Encryption Config', 'TestC2', CheckBox2.Checked);
Myini.WriteBool ('Encryption Config', 'TestC3', CheckBox3.Checked);

Application.MessageBox('Config berhasil tersimpan','Sukses',mb_iconinformation);
dan yang ini masukkan ke Button Load.
  MyIni := TIniFile.Create(GetCurrentDir+'\Config.txt');
Edit1.Text := Decrypt(Myini.ReadString ('Encryption Config', 'TestE1', Edit1.Text));
Edit2.Text := Decrypt(Myini.ReadString ('Encryption Config', 'TestE2', Edit2.Text));
Edit3.Text := Decrypt(Myini.ReadString ('Encryption Config', 'TestE3', Edit3.Text));
CheckBox1.Checked := Myini.ReadBool ('Encryption Config', 'TestC1', CheckBox1.Checked);
CheckBox2.Checked := Myini.ReadBool ('Encryption Config', 'TestC2', CheckBox2.Checked);
CheckBox3.Checked := Myini.ReadBool ('Encryption Config', 'TestC3', CheckBox3.Checked);

//Application.MessageBox('Config berhasil diload','Sukses',mb_iconinformation);
Nah sekarang coba RUN (f9) project kamu, dan coba klik button Save. kemudian liat pada file config save nya tadi. maka akan tampak seperti dibawah ini:

Sekarang kamu berhasil Membuat Encryption Pada Config TiniFile dengan Delphi :) ,untuk selanjutnya silahkan di kembangkan lagi dan lebih di kreasikan lagi ^_^.

-=[ Download Soure Code ]=-
[ SolidFiles | TusFiles | UsersCloud ]

Artikel Terkait

Previous
Next Post »
Blogger
Disqus
Pilih Sistem Komentar Yang Kamu Sukai

1 comment

mantep2 nih hu tutornya makasih :D

Balas