Datakent Forum : Cryptographic Component Library http://forum.datakent.com/ XML içerik linki; Datakent Forum : Borland Delphi : Cryptographic Component Library Sun, 26 Apr 2026 20:04:40 +0000 Wed, 10 Nov 2010 08:51:26 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 9.54 360 forum.datakent.com/RSS_post_feed.asp?TID=2008 Datakent Forum http://forum.datakent.com/forum_images/datakent.com_forums.png http://forum.datakent.com/ Cryptographic Component Library : http://www.cityinthesky.co.uk/... http://forum.datakent.com/forum_posts.asp?TID=2008&PID=4413#4413 Yazar: murat turan
Konu: 2008
Gönderim Zamanı: 10.Kasim.2010 Saat 08:51

http://www.cityinthesky.co.uk/   adresinden temin edebileceğiniz bu paketin içeriği;
 
kütüphaneleri 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;


Düzenleyen murat turan - 10.Kasim.2010 Saat 08:56]]> Wed, 10 Nov 2010 08:51:26 +0000 http://forum.datakent.com/forum_posts.asp?TID=2008&PID=4413#4413