Sayfayı Yazdır | Pencereyi Kapat

Cryptographic Component Library

Nereden Yazdırıldığı: Datakent
Kategori: Diğer bölümler
Forum Adı: Borland Delphi
Forum Tanımlaması: Borland Delphi ile ilgili soru / sorun / paylaşım bölümü
URL: http://forum.datakent.com/forum_posts.asp?TID=2008
Tarih: 29.Mart.2024 Saat 01:05


Konu: Cryptographic Component Library
Mesajı Yazan: murat turan
Konu: Cryptographic Component Library
Mesaj Tarihi: 10.Kasim.2010 Saat 08:51
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



Sayfayı Yazdır | Pencereyi Kapat