Komponen Kriptografi yang free untuk Delphi

Beberapa waktu lalu ketika memerlukan proses enkripsi untuk file MS Access di aplikasi yang sedang dibuat, sebagai alternatif komponen indy yang sudah ada di Delphi, saya coba cari-cari komponen lain yang free dan simple untuk dipakai. Akhirnya ketemu ‘DCPcrypt Cryptographic Component Library v2 Beta 2’ di http://www.cityinthesky.co.uk/ . Algorithma chipers dan hash yang ada di komponen ini yaitu :
Chipers : Blowfish,Cast-128,Cast-256,DES,3DES,Ice,Thin Ice,Ice 2,IDEA,MARS,Misty1,RC2,RC4,RC5,RC6,Rijndael,Serpent,TEA dan Twofish
Hash : Haval,MD4,MD5,RipeMD-128,RipeMD-160,SHA-1,SHA-256,SHA-384,SHA-512 dan Tiger

Berikut contoh untuk mengenkripsi file dengan MD5 :

procedure TForm1.Button3Click(Sender: TObject);
var KeyStr: string;
Source, Dest: TFileStream;
begin
KeyStr:= 'znckue9ew';
try
Source:=TFileStream.Create('D:\LMandDB.mdb',fmOpenRead);
Dest:=TFileStream.Create('D:\dump',fmCreate);
DCP_rc51.InitStr(KeyStr,TDCP_md5);
DCP_rc51.EncryptStream(Source,Dest,Source.Size);
DCP_rc51.Burn;
Dest.Free;
Source.Free;
MessageDlg('File encrypted',mtInformation,[mbOK],0);
except
MessageDlg('File IO error',mtError,[mbOK],0);
end;
end;


Dekripsi file :


procedure TForm1.Button4Click(Sender: TObject);
var KeyStr: string;
Source, Dest: TFileStream;
begin
KeyStr:='znckue9ew';
try
Source:= TFileStream.Create('D:\dump',fmOpenRead);
Dest:= TFileStream.Create('D:\LMandDB2.mdb',fmCreate);
DCP_rc51.InitStr(KeyStr,TDCP_md5);
DCP_rc51.DecryptStream(Source,Dest,Source.Size);
DCP_rc51.Burn;
Dest.Free;
Source.Free;
MessageDlg('File decrypted',mtInformation,[mbOK],0);
except
MessageDlg('File IO error',mtError,[mbOK],0);
end;
end;