DCPcrypt لاستخدام اشهر خواريزميات التشفير العالمية بدلفي

[S.FATEH]

بارك الله فيك مكونات جيدة لكن على ما يبدو مطور الموقع الرسمي توقف عن تطويرها التطوير يجري من طرف اشخاص اخرين
الموقع الرسمي

كود :

http://www.cityinthesky.co.uk/opensource/dcpcrypt/

التطويرات

كود :

https://bitbucket.org/wpostma/dcpcrypt2010

جربتها على xe6...
تطوير اخر

كود :

http://sourceforge.net/projects/dcpcrypt/

مثال للاستخدام :

كود :

function TForm1.MD5(Value: string): string; var Buf: string; BufSize: Integer; Hash:array[0..15] of byte; i: Integer; begin Buf:= Value; BufSize:= SizeOf(Buf); DCP_md51.Init; DCP_md51.Update(Buf, BufSize); DCP_md51.Final(Hash); Result := ''; for I := 0 to 15 do Result := Result + IntToHex(Hash[i], 1); end; procedure TForm1.Button1Click(Sender: TObject); begin Edit2.Text := MD5(Edit1.Text); end;