VB6 - Random GUID Generator

[Ben321]

It makes type 4 GUID (fully random) rather that type 1 (time based) or type 2 (network hardware based).

Filename is: GUIDgenerator.bas

Source is:

Attribute VB_Name = "GUIDgenerator"
Private MyGUID(35) As Byte
Private DashNum As Byte
Private FourNum As Byte

Public Sub GenInit()
Randomize
FourNum = Asc("4")
DashNum = Asc("-")
End Sub

Public Function GenGUID() As String
For i = 0 To 7
MyGUID(i) = Asc(Hex(Int(16 * Rnd())))
Next i

For i = 9 To 12
MyGUID(i) = Asc(Hex(Int(16 * Rnd())))
Next i

For i = 15 To 17
MyGUID(i) = Asc(Hex(Int(16 * Rnd())))
Next i

For i = 19 To 22
MyGUID(i) = Asc(Hex(Int(16 * Rnd())))
Next i

For i = 24 To 35
MyGUID(i) = Asc(Hex(Int(16 * Rnd())))
Next i

MyGUID(8) = DashNum
MyGUID(13) = DashNum
MyGUID(14) = FourNum
MyGUID(18) = DashNum
MyGUID(23) = DashNum

GenGUID = "{" & StrConv(MyGUID, vbUnicode) & "}"
End Function

Copy this code and paste it into a text file, save it, and rename it GUIDgenerator.bas
and you can start implementing GUIDs in your VB6 programs.