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