مكتبة الاْكواد

[AX302]

الخاصية الاولى لعمل هاش سلسلة عن طريق خوارزمية MD5
الخاصية الثانية لعمل هاش سلسلة عن طريق خوارزمية SHA1

PHP كود :

Function GetMD5Hash(Str:String):String;
var
 MD5 : THashMD5;
begin
  MD5 := THashMD5.Create;
  Result := MD5.GetHashString(Str);
end;

Function GetSHA1Hash(Str:String):String;
var
 SHA1 : THashSHA1;
begin
  SHA1 := THashSHA1.Create;
  Result := SHA1.GetHashString(Str);
end; 


طريقة الاستعمال : 
اضافة الوحدة System.Hash الى قائمة الوحدات 

PHP كود :

procedure TForm1.FormCreate(Sender: TObject);
begin
 ShowMessage(GetMD5Hash('Test'));
 ShowMessage(GetSHA1Hash('Test'));
end;