PB_Includes/lhs_lib
2
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Alte übnerbleibsel entfernt

Browse source
This commit is contained in:
René Linder 2019-07-04 13:55:13 +02:00
parent d448eb2efe
commit 40b95ea03c
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
SYS/lhs_uuid.pbi
View file

@ -7,7 +7,7 @@
;* ;*
;* Lizenz LGPL V2.1 ;* Lizenz LGPL V2.1
Enumeration WCS_UUID_Version Enumeration UUID_Version
#UUID_V1 #UUID_V1
#UUID_V2 #UUID_V2
#UUID_V3 #UUID_V3
@ -61,14 +61,14 @@ Procedure.s CreateUUID(Type.i=#UUID_V4, String.s="")
Key = AllocateMemory(16) Key = AllocateMemory(16)
;Key = 0 ;Key = 0
CompilerIf #PB_Compiler_OS <> #PB_OS_Web CompilerIf #PB_Compiler_OS <> #PB_OS_Web
If WCS_UUID_CryptRandom And Key If UUID_CryptRandom And Key
CryptRandomData(Key, 16) CryptRandomData(Key, 16)
For P_Count = 0 To 15 For P_Count = 0 To 15
P_Numbers(P_Count) = PeekB(Key+P_Count) P_Numbers(P_Count) = PeekB(Key+P_Count)
Next P_Count Next P_Count
Else Else
CompilerElse CompilerElse
If WCS_UUID_CryptRandom = 0 If UUID_CryptRandom = 0
CompilerEndIf CompilerEndIf
For P_Count = 0 To 15 For P_Count = 0 To 15
P_Numbers(P_Count) = Random(255) P_Numbers(P_Count) = Random(255)