Cara Meng-Encrypt (Enkripsi) dan Men-Decrypt (Dekripsi) string di Delphi

Disini saya menggunakan sebuah komponen freeware bernama DCPCrypt (link situsnya disini), anda tinggal download dan installkan komponennya. Setelah itu anda buat sebuah project baru dengan satu form, 3 edit box, dan 2 button. Lalu terakhir ketikan kode berikut ini:

procedure TForm1.Button1Click(Sender: TObject);
var
  S1: String;
  c: TDCP_rijndael;
begin
  c := TDCP_rijndael.Create(nil);
  try
    c.InitStr('MyKey', TDCP_sha256); //Bisa diganti MD5, SHA512
    S1 := c.EncryptString(edit1.Text);
    c.Reset;
  finally
    c.Free;
  end;

  edit2.Text:=s1;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  S1: String;
  c: TDCP_rijndael;
begin
  c := TDCP_rijndael.Create(nil);
  try
    c.InitStr('MyKey', TDCP_sha256); //Bisa diganti MD5, SHA512
    S1 := c.DecryptString(edit2.Text);
    c.Reset;
  finally
    c.Free;
  end;

  edit3.Text:=s1;
end;

Source: http://forum.lazarus.freepascal.org/index.php?topic=10970.0
Semoga bermanfaat.