Sorry hate noch einen Fehler drin... (Binär & Hex Konvertierung (8 bit))
Code: Alles auswählen
; WCS_UUID by René Linder
;
; To the extent possible under law, the person who associated CC0 With
; WCS_UUID has waived all copyright And related Or neighboring rights
; To WCS_UUID.
;
; You should have received a copy of the CC0 legalcode along With this
; work. If Not, see <http://creativecommons.org/publicdomain/zero/1.0/>.
Enumeration WCS_UUID_Version
#UUID_V1
#UUID_V2
#UUID_V3
#UUID_V4 ; Standard.
#UUID_V5
EndEnumeration
Procedure.s CreateUUID(Type.i=#UUID_V4, String.s="")
;[T] CreateUUID(Type.i, String.s="")
;[D] Gibt eine UUID des Entsprechenden Types als String zurück.
;[D] Derzeit nur Version 4 Implementiert.
;[V] 0.0.1
;[M] 0.0.1
Protected P_Type.i = Type.i
Protected P_String.s = String.s
Protected P_UUID.s = ""
Protected Dim P_Numbers.a(16)
;Protected P_Temp.a
Protected P_Count.a
Structure Struc_UUID
low.a
EndStructure
Select P_Type
Case #UUID_V1
Case #UUID_V2
Case #UUID_V3
Case #UUID_V5
Default ;#UUID_V4 RFC 4122 Konform
;xx xx xx xx - xx xx - 4x xx - yx xx - xx xx xx xx xx xx
*Key = AllocateMemory(16)
If OpenCryptRandom() And *Key
CryptRandomData(*Key, 16)
For P_Count = 0 To 15
P_Numbers(P_Count) = PeekB(*Key+P_Count)
Next P_Count
CloseCryptRandom()
Else
;Not Save
For P_Count = 0 To 15
P_Numbers(P_Count) = Random(255)
Next P_Count
EndIf
If *Key
FreeMemory(*Key)
EndIf
P_Numbers(6) = Val("$4"+Right(RSet(Hex(P_Numbers(6), #PB_Byte), 2, "0"), 1))
P_Numbers(8) = Val("%10"+Right(RSet(Bin(P_Numbers(8), #PB_Byte), 8, "0"), 6))
P_UUID = ""
For P_Count = 0 To 15
If P_Count = 4 Or P_Count = 6 Or P_Count = 8 Or P_Count = 10
P_UUID + "-"
EndIf
P_UUID + RSet(Hex(P_Numbers(P_Count), #PB_Byte), 2, "0")
Next P_Count
EndSelect
ProcedureReturn P_UUID.s
EndProcedure
;Beispiel Code für zufällige UUID V4
For Y = 1 To 1000
Debug CreateUUID()
Next Y
)
