Posts

Showing posts from February, 2006

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 container within a particular cryptogra…