Datakent Ana Sayfa
Anasayfa Anasayfa > Diğer bölümler > Borland Delphi
  Aktif Konular Aktif Konular RSS: Cryptographic Component Library
  Yardım Yardım  Hızlı Ara   Kayıt Ol Kayıt Ol  Giriş Giriş

Cryptographic Component Library

 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
murat turan Açılır Menü Göster
Admin Group
Admin Group
Simge
Datakent

Kayıt Tarihi: 01.Ekim.2003
Bulundugu Yer: Turkey
Online: Sitede Değil
Gönderilenler: 1798
  Alıntı murat turan Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: Cryptographic Component Library
    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
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Menü Göster



Bu Sayfa 0,214 Saniyede Yüklendi. [power by : WebWiz]