Custom implementation of the GUID generation
{***************************************************************************** Name : GuidGen Author : Perevoznyk Serhiy Description : Custom implementation of the GUID generation History : Date By Description ---- -- ----------- 5/13/05 Perevoznyk Serhiy Initial creation of the Unit. *****************************************************************************} unit GuidGen; interface uses Windows, SysUtils; const PROV_RSA_FULL = 1; CRYPT_VERIFYCONTEXT = $f0000000; ReservedNCS = $00; Standard = $02; ReservedMicrosoft = $06; ReservedFuture = $07; TimeBased = $01; Reserved = $02; NameBased = $03; VRandom = $04; VariantByte = 8; VariantByteMask = $3f; VariantByteShift = 6; VersionByte = 7; VersionByteMask = $0f; VersionByteShift = 4; {:----------------------------------------------------------------------------- The CryptAcquireContext function is used to acquire a handle to a particular key containe