http://www.cityinthesky.co.uk/ - http://www.cityinthesky.co.uk/ adresinden temin edebileceğiniz bu paketin içeriği;
kütüphaneleri http://www.cityinthesky.co.uk/files/dcpcrypt2-2010.zip - indir
Şifreleme Algoritmaları:
Blowfish Cast 128 Cast 256 DES, 3DES Ice, Thin Ice, Ice2 IDEA Mars Misty1 RC2, RC4, RC5, RC6 Rijndael (the new AES) Serpent Tea Twofish
Doğrulama Algoritmaları
Haval MD4 MD5 RipeMD-128 RipeMD-160 SHA-1 SHA-256, SHA-384, SHA-512 Tiger
================================
SHA256 için bir örnek:
uses DCPsha256;
function Str2SHA256(_value:String):String; var tpx:TDCP_sha256; HashDigest1: array[0..31] of byte; s:String; j: Integer; begin
tpx := TDCP_sha256.Create(nil); tpx.Init; tpx.UpdateStr(AnsiString(_value)); tpx.Final(HashDigest1[0]); FreeAndNil(tpx);
for j := 0 to Length(HashDigest1) - 1 do s := s + IntToHex(HashDigest1[j],2);
Result := LowerCase(s); end;
veya
function Str2SHA256(_value:String):String; var HashDigest1: array[0..31] of byte; s:String; j: Integer; begin with TDCP_sha256.Create(nil) do begin Init; UpdateStr(AnsiString(_value)); Final(HashDigest1[0]); Free; end;
for j := 0 to Length(HashDigest1) - 1 do s := s + IntToHex(HashDigest1[j],2);
Result := LowerCase(s); end;
------------- http://www.kasatakip.com - Kasa Takip | http://www.caritakip.com - Cari Takip | http://www.evraktakip.com - Evrak Takip | http://www.etasqlmobil.com - ETA SQL Mobil
|