استخدام مكتبات الهاش والتشفير في Delphi xe

[cargem]

كيف يمكن استخدام مكتبات الهاش والتشفير في Delphi xe
مع العلم ان مكتبات الهاش التي تخص D7 لا تفي بالغرض مع Delphi xe
ما المكتبات الممكن استخدامها مع Delphi xe
تحياتي

[محمد عبد العزيز]

السلام عليكم ورحمة الله

أولا من الاحسن ان تفرق بين الHash والتشفير

مكتبات الهاش التي تخص D7 لا تفي بالغرض مع Delphi xe

عن اي مكتبة تتحدث ولما لاتفي بالغرض ؟

[cargem]

وعليكم السلام ورحمة الله وبركاته
مثلا md5
اقصد الناتج خطأ

Dcpcrypt
Base64
Blowfish
Cast128
Cast256
CryptReg
DCPcrypt
Gost
Haval
IDEA
Mars
Misty1
RC2
RC5
RC6
Rijndael
Rmd160
SHA1
Twofish
UUEnc

Hashes
DCPhaval
DCPmd4
DCPmd5
DCPripemd128
DCPripemd160
DCPsha1
DCPsha256
DCPsha512
DCPtiger
Md5

[محمد عبد العزيز]

واضح انها مشكلة Unicode
المرفق بحاجة لتعديل ليتوافق مع اصدار دلفي 2009 وما فوق
راجع : مكتبة لحساب md5 متوافقة مع إصدار Delphi 2010
http://www.delphi4arab.net/forum/showthr...p?tid=2236

نفس الشيئ بالنسبة لDCPcrypt فلها تحديث، حملها من موقعها

كود :

http://www.cityinthesky.co.uk/opensource/dcpcrypt

[cargem]

هذ الكود اروع مايكون
ولكن ماذا عن ?decrypts and hash files

PHP كود :

function GetMd5(const Value: UnicodeString): string; overload;
var
  hash: MessageDigest_5.IMD5;
  fingerprint: string;
begin
  hash := MessageDigest_5.GetMD5();
  hash.Update(Value);
  fingerprint := hash.AsString();
  Result := LowerCase(fingerprint);
end;

function GetMd5(const Value: AnsiString): string; overload;
var
  hash: MessageDigest_5.IMD5;
  fingerprint: string;
begin
  hash := MessageDigest_5.GetMD5();
  hash.Update(Value);
  fingerprint := hash.AsString();
  Result := LowerCase(fingerprint);
end; 


[محمد عبد العزيز]

ولكن ماذا عن ?decrypts and hash files

ماذا عنهم ؟ إسال سؤال محدد

[cargem]

md5 اشتغلة على delphi xe
بوجود MessageDigest_5
هل هناك مكتبات اخرى تتعامل مع بقية hashes

[محمد عبد العزيز]

عامة هناك عدة طرق:
- تفهم الخواريزمية وتكتبها/تبرمجها بنفسك
- تبحث عنها مكتوبة بدلفي (سبق لغيرك وكتبها)
- تبحث عنها بلغات اخرى مثل لغة السي وتحولها الى باسكال/دلفي
- تبحث عنها بلغات اخرى على شكل مكتبات/DLL وتستخدمها بدلفي
-
مجموعة منها (معظمها قديم) بموقع efg

كود :

http://www.efg2.com/Lab/Library/Delphi/MathFunctions/Cryptography.htm

ايضا جرب LockBox

كود :

http://lockbox.seanbdurkin.id.au

بالتوفيق