paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 08:29:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed bug in uuid (it used MD4 instead of MD5

Browse Source 
git-svn-id: trunk@5653 -
This commit is contained in:
ivost 2006-12-20 00:13:51 +00:00
parent f3cc8354eb
commit a49adf4ea8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/base/hash/uuid.pas
View File

@ -174,7 +174,7 @@ begin
end;
{ uuid_create_md5_from_name -- create a version 3 (MD5) UUID using a "name" from a "name space" }
{ uuid_create_md5_from_name }
procedure uuid_create_md5_from_name(var uuid: uuid_t; const nsid: uuid_t; const name: string);
var
@ -189,7 +189,7 @@ begin
net_nsid.time_mid := ntobe(net_nsid.time_mid);
net_nsid.time_hi_and_version := ntobe(net_nsid.time_hi_and_version);
MDInit(c, MD_VERSION_4);
MDInit(c, MD_VERSION_5);
MDUpdate(c, net_nsid, sizeof(net_nsid));
MDUpdate(c, pchar(name)^, Length(name));
MDFinal(c, hash);