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 :