Cryptographic Component Library

 

kütüphaneleri indir

 

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

 

Haval
MD4
MD5
RipeMD-128
RipeMD-160
SHA-1
SHA-256, SHA-384, SHA-512
Tiger

 

================================

 

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;

 

 

 

 

  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;