paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 18:03:29 +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; 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); procedure uuid_create_md5_from_name(var uuid: uuid_t; const nsid: uuid_t; const name: string);
var var
@ -189,7 +189,7 @@ begin
net_nsid.time_mid := ntobe(net_nsid.time_mid); net_nsid.time_mid := ntobe(net_nsid.time_mid);
net_nsid.time_hi_and_version := ntobe(net_nsid.time_hi_and_version); 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, net_nsid, sizeof(net_nsid));
MDUpdate(c, pchar(name)^, Length(name)); MDUpdate(c, pchar(name)^, Length(name));
MDFinal(c, hash); MDFinal(c, hash);