« previous next »
Pages: [1]   Go Down

Author Topic: All 4 UUID Versions in QB64!  (Read 4413 times)

0 Members and 1 Guest are viewing this topic.

Offline SpriggsySpriggs

  • Forum Resident
  • Posts: 1145
  • Larger than life
    • View Profile
    • GitHub
All 4 UUID Versions in QB64!
« on: July 19, 2020, 08:50:00 pm »
I had made a post a while back about using UUIDs in QB64. Since then, I've learned a lot more about them and how to create them! I first started out only being able to produce Version 1 and 4 but now I can create Version 1, 3, 4, and 5 (version 2 is not used except in extremely specific uses and so no one uses them)!
For version 1 and 4 I use a Windows library called "rpcrt4". For version 3 and 5 I do an API call using urlmon and download a response from the website. Version 3 and Version 5 use an algorithm of hashing a previously defined UUID and a supplied string in MD5 for version 3 or SHA1 for version 5. Version 1 UUIDs contain a time stamp from the machine which created it as well as the MAC address of the machine. I have created functions for extracting this timestamp and clock sequence (which I do not know what it is for). With help from @moises1953 I was able to convert the UTC time zone stamp that I made into the local time of whatever machine is running the code. I had previously been doing it using JavaScript through a NodeJS shell call (which I will show extensively in a new post sometime showing how to use JavaScript in QB64!). There was no conceivable way to create the Version 3 and Version 5 UUIDs through C/C++ since no one online apparently knows how to make the function from scratch. See below for my full source code which creates 5 Version 1 (sequential, time & date and MAC-based) UUIDs, 1 Version 3 (MD5 namespace based) UUID, 5 version 4 (random) UUIDs, and 1 Version 5 (SHA1 namespace based) UUIDs. I also have code to retrieve the hash (for which I don't know the purpose) for the UUIDs. Use these however you see fit. The only "non random" UUIDs are the Version 3 and Version 5. If someone were to input the same data they would receive the same UUID. Version 1 is not considered to be "secure" because it contains the time stamp and MAC address. Version 4 is the most widely used version.
 
uuidwithmacvendorapi.png
 
uuidgen.png

Code: QB64: [Select]
  4. _CONSOLETITLE "UUID Generator"
  5.  
  6. TYPE GUID
  7.     Data1 AS _UNSIGNED LONG
  8.     Data2 AS _UNSIGNED INTEGER
  9.     Data3 AS _UNSIGNED INTEGER
  10.     Data4 AS _UNSIGNED _BYTE
  11.     Data5 AS _UNSIGNED _BYTE
  12.     Data6 AS _UNSIGNED _BYTE
  13.     Data7 AS _UNSIGNED _BYTE
  14.     Data8 AS _UNSIGNED _BYTE
  15.     Data9 AS _UNSIGNED _BYTE
  16.     Data10 AS _UNSIGNED _BYTE
  17.     Data11 AS _UNSIGNED _BYTE
  19.  
  20. TYPE SystemTime
  21.     wYear AS INTEGER
  22.     wMonth AS INTEGER
  23.     wDayOfWeek AS INTEGER
  24.     wDay AS INTEGER
  25.     wHour AS INTEGER
  26.     wMinute AS INTEGER
  27.     wSecond AS INTEGER
  28.     wMilliseconds AS INTEGER
  30.  
  31. TYPE TDZoneInfo 'TIME_DYNAMIC_ZONE_INFORMATION
  32.     Bias AS LONG
  33.     StandardName AS STRING * 64 'wchar32
  34.     StandardDate AS SystemTime
  35.     StandardBias AS LONG
  36.     DaylightName AS STRING * 64 'wchar32
  37.     DaylightDate AS SystemTime
  38.     DaylightBias AS LONG
  39.     TimeZoneKeyName AS STRING * 256 ' WCHAR128
  40.     DynamicDaylightTimeDisabled AS _BYTE 'BOOLEAN->BYTE
  42.  
  44.   FUNCTION SystemTimeToTzSpecificLocalTime%% (BYVAL lpTimeZoneInformation AS _UNSIGNED _OFFSET,_
  45.     BYVAL lpUniversalTime AS _UNSIGNED _OFFSET, BYVAL lpLocalTime AS _UNSIGNED _OFFSET)
  46.     FUNCTION GetDynamicTimeZoneInformation~& (BYVAL lpTimeZoneInformation AS _UNSIGNED _OFFSET)
  47.     SUB GetSystemTime (BYVAL lpSystemTime AS _UNSIGNED _OFFSET)
  49.  
  50.  
  52.  
  54.     FUNCTION UuidCreate%& (GUID AS GUID) 'Version 4 UUID
  55.     FUNCTION UuidCreateSequential%& (GUID AS GUID) 'Version 1 UUID
  56.     FUNCTION UuidHash~% (GUID AS GUID, Status AS LONG)
  58.  
  59. DECLARE LIBRARY "uuiddate"
  60.     FUNCTION uuiddate$ (BYVAL timestamp~&&) 'used to extract date from Version 1 UUID
  62.  
  63. PRINT "4 Sequential Version 1 UUIDs:"
  64. PRINT "_______________________________________________"
  65. DIM x
  67. FOR x = 1 TO 4
  68.     UUID = UUIDVer1
  69.     PRINT UUID
  70.     PRINT "Timestamp (Local): "; ExtractTimestamp(UUID)
  71.     PRINT "Clock Sequence   : "; ClockSequence(UUID)
  72.     PRINT "UUID Variant     : "; UUIDVariant(UUID)
  73.     PRINT "UUID Version     : "; UUIDVersion(UUID)
  74.     PRINT "UUID Hash        : "; _TRIM$(STR$(GUIDHash))
  75.     PRINT "MAC Address      : "; MACAddress(UUID)
  76.     PRINT "MAC Vendor       : "; MACVendor(MACAddress(UUID))
  77.     PRINT
  78.     _DELAY 0.1 'Delay so API doesn't respond with error of too many requests back to back
  81.  
  82. PRINT "4 Version 3 UUIDs using www.qb64.org as seed:"
  83. PRINT "_______________________________________________"
  84. UUID = UUIDVer3(1, "www.qb64.org")
  85. PRINT UUID, "(DNS namespace based)"
  86. PRINT "UUID Variant   : "; UUIDVariant(UUID)
  87. PRINT "UUID Version   : "; UUIDVersion(UUID)
  88. PRINT "UUID Hash      : "; _TRIM$(STR$(GUIDHash))
  90.  
  91. UUID = UUIDVer3(2, "www.qb64.org")
  92. PRINT UUID, "(URL namespace based)"
  93. PRINT "UUID Variant   : "; UUIDVariant(UUID)
  94. PRINT "UUID Version   : "; UUIDVersion(UUID)
  95. PRINT "UUID Hash      : "; _TRIM$(STR$(GUIDHash))
  97.  
  98. UUID = UUIDVer3(3, "www.qb64.org")
  99. PRINT UUID, "(OID namespace based)"
  100. PRINT "UUID Variant   : "; UUIDVariant(UUID)
  101. PRINT "UUID Version   : "; UUIDVersion(UUID)
  102. PRINT "UUID Hash      : "; _TRIM$(STR$(GUIDHash))
  104.  
  105. UUID = UUIDVer3(4, "www.qb64.org")
  106. PRINT UUID, "(x500 namespace based)"
  107. PRINT "UUID Variant   : "; UUIDVariant(UUID)
  108. PRINT "UUID Version   : "; UUIDVersion(UUID)
  109. PRINT "UUID Hash      : "; _TRIM$(STR$(GUIDHash))
  111.  
  112. PRINT "4 Random Version 4 UUIDs:"
  113. PRINT "_______________________________________________"
  114. FOR x = 1 TO 4
  115.     UUID = UUIDVer4
  116.     PRINT UUID
  117.     PRINT "UUID Variant   : "; UUIDVariant(UUID)
  118.     PRINT "UUID Version   : "; UUIDVersion(UUID)
  119.     PRINT "UUID Hash      : "; _TRIM$(STR$(GUIDHash))
  120.     PRINT
  123.  
  124. PRINT "4 Version 5 UUIDs using www.qb64.org as seed:"
  125. PRINT "_______________________________________________"
  126. UUID = UUIDVer5(1, "www.qb64.org")
  127. PRINT UUID, "(DNS namespace based)"
  128. PRINT "UUID Variant   : "; UUIDVariant(UUID)
  129. PRINT "UUID Version   : "; UUIDVersion(UUID)
  130. PRINT "UUID Hash      : "; _TRIM$(STR$(GUIDHash))
  132.  
  133. UUID = UUIDVer5(2, "www.qb64.org")
  134. PRINT UUID, "(URL namespace based)"
  135. PRINT "UUID Variant   : "; UUIDVariant(UUID)
  136. PRINT "UUID Version   : "; UUIDVersion(UUID)
  137. PRINT "UUID Hash      : "; _TRIM$(STR$(GUIDHash))
  139.  
  140. UUID = UUIDVer5(3, "www.qb64.org")
  141. PRINT UUID, "(OID namespace based)"
  142. PRINT "UUID Variant   : "; UUIDVariant(UUID)
  143. PRINT "UUID Version   : "; UUIDVersion(UUID)
  144. PRINT "UUID Hash      : "; _TRIM$(STR$(GUIDHash))
  146.  
  147. UUID = UUIDVer5(4, "www.qb64.org")
  148. PRINT UUID, "(x500 namespace based)"
  149. PRINT "UUID Variant   : "; UUIDVariant(UUID)
  150. PRINT "UUID Version   : "; UUIDVersion(UUID)
  151. PRINT "UUID Hash      : "; _TRIM$(STR$(GUIDHash))
  153.  
  155.  
  156.  
  157. FUNCTION ClockSequence$ (UUID AS STRING)
  158.     ClockSequence = _TRIM$(STR$(VAL("&H" + MID$(UUID, 21, 3))))
  160.  
  161. FUNCTION MACVendor$ (MAC AS STRING)
  162.     DIM URL AS STRING
  163.     DIM URLFile AS STRING
  164.     URLFile = "macvendorrequest"
  165.     SHELL _HIDE "curl -G " + CHR$(34) + "https://api.macvendors.com/v1/lookup/" + MAC + CHR$(34) + " -H " + CHR$(34) + "Authorization: Bearer eyJ0eXAiOiJKV1QiLCJhbGciOiJIUzUxMiIsImp0aSI6IjllMmQ0YzYwLTU3NmQtNDI2OC04NDdkLWIyYTUwNGEyM2ZhMCJ9.eyJpc3MiOiJtYWN2ZW5kb3JzIiwiYXVkIjoibWFjdmVuZG9ycyIsImp0aSI6IjllMmQ0YzYwLTU3NmQtNDI2OC04NDdkLWIyYTUwNGEyM2ZhMCIsImlhdCI6MTU5NTkzMzc1OSwiZXhwIjoxOTEwNDI5NzU5LCJzdWIiOiI3NTkyIiwidHlwIjoiYWNjZXNzIn0.9MTN3PlkFxHAokvIKFFtF1aJYdXwjFpC2etMejJ-V4l9NCbT_qhqF-BpNv25h9kpDfntyGWCMXvqs6s9ShEbkw" + CHR$(34) + " -H " + CHR$(34) + "Accept: text/plain" + CHR$(34) + " -o " + URLFile
  166.     DIM U AS INTEGER
  167.     U = FREEFILE
  168.     OPEN URLFile FOR BINARY AS #U
  169.     IF LOF(U) <> 0 THEN
  170.         DIM macvendorrequest AS STRING
  171.         macvendorrequest = SPACE$(LOF(U))
  172.         GET #U, , macvendorrequest
  173.     ELSE
  174.         CLOSE #U
  175.         KILL URLFile
  176.         MACVendor = ""
  177.         EXIT FUNCTION
  178.     END IF
  179.     CLOSE #U
  180.     KILL URLFile
  181.     MACVendor = macvendorrequest
  183.  
  184. FUNCTION MACAddress$ (UUID AS STRING)
  185.     MACAddress = MID$(UUID, 25, 2) + "-" + MID$(UUID, 27, 2) + "-" + MID$(UUID, 29, 2) + "-" + MID$(UUID, 31, 2) + "-" + MID$(UUID, 33, 2) + "-" + MID$(UUID, 35, 2)
  187.  
  188. FUNCTION UUIDVersion$ (UUID AS STRING)
  189.     DIM version AS STRING
  190.     version = MID$(UUID, 15, 1)
  191.     SELECT CASE version
  192.         CASE "1"
  193.             UUIDVersion = "1 (time and node based)"
  194.             EXIT FUNCTION
  195.         CASE "3"
  196.             UUIDVersion = "3 (name based, MD5)"
  197.             EXIT FUNCTION
  198.         CASE "4"
  199.             UUIDVersion = "4 (random data based)"
  200.             EXIT FUNCTION
  201.         CASE "5"
  202.             UUIDVersion = "5 (name based, SHA-1)"
  203.             EXIT FUNCTION
  204.     END SELECT
  206.  
  207. FUNCTION UUIDVariant$ (UUID AS STRING)
  208.     DIM variant AS STRING
  209.     variant = MID$(UUID, 20, 1)
  210.     IF VAL("&H" + variant) >= 0 AND VAL("&H" + variant) <= 7 THEN
  211.         UUIDVariant = "reserved (NCS backward compatible)"
  212.         EXIT FUNCTION
  213.     ELSEIF VAL("&H" + variant) >= 8 AND VAL("&H" + variant) <= 11 THEN
  214.         UUIDVariant = "DCE 1.1, ISO/IEC 11578:1996"
  215.         EXIT FUNCTION
  216.     ELSEIF VAL("&H" + variant) >= 12 AND VAL("&H" + variant) <= 13 THEN
  217.         UUIDVariant = "reserved (Microsoft GUID)"
  218.         EXIT FUNCTION
  219.     ELSEIF VAL("&H" + variant) = 14 THEN
  220.         UUIDVariant = "reserved (future use)"
  221.         EXIT FUNCTION
  222.     ELSEIF VAL("&H" + variant) = 15 THEN
  223.         UUIDVariant = "unknown/invalid"
  224.         EXIT FUNCTION
  225.     END IF
  227.  
  228. FUNCTION ExtractTimestamp$ (UUID AS STRING)
  229.     DIM timestamp AS _UNSIGNED _INTEGER64
  230.     DIM data1 AS STRING
  231.     DIM data2 AS STRING
  232.     DIM data3 AS STRING
  233.     DIM hours
  234.     DIM minutes
  235.     DIM seconds
  236.     data1 = MID$(UUID, 16, 3)
  237.     data2 = MID$(UUID, 10, 4)
  238.     data3 = MID$(UUID, 1, 8)
  239.     timestamp = VAL("&H" + data1 + data2 + data3)
  240.     timestamp = timestamp / 10000000 - 12219292800
  241.     hours = timestamp \ 3600 MOD 24 'UTC timezone
  242.     minutes = timestamp \ 60 MOD 60
  243.     seconds = timestamp MOD 60
  244.     DIM UTCTime AS SystemTime, loctime AS SystemTime, ZoneInfo AS TDZoneInfo
  245.     DIM uuidate AS STRING
  246.     uuidate = uuiddate(timestamp)
  247.     UTCTime.wYear = VAL(MID$(uuidate, 1, 4))
  248.     UTCTime.wMonth = VAL(MID$(uuidate, 6, 2))
  249.     SELECT CASE UTCTime.wMonth
  250.         CASE IS < 10
  251.             UTCTime.wDay = VAL(MID$(uuidate, 8, 2))
  252.         CASE IS > 10
  253.             UTCTime.wDay = VAL(MID$(uuidate, 9, 2))
  254.     END SELECT
  255.     UTCTime.wHour = hours
  256.     UTCTime.wMinute = minutes
  257.     UTCTime.wSecond = seconds
  258.     DIM e~&
  259.     DIM f%%
  260.     e~& = GetDynamicTimeZoneInformation(_OFFSET(ZoneInfo))
  261.     f%% = SystemTimeToTzSpecificLocalTime(_OFFSET(ZoneInfo), _OFFSET(UTCTime), _OFFSET(loctime))
  262.     DIM year AS STRING
  263.     DIM month AS STRING
  264.     DIM day AS STRING
  265.     DIM hour AS STRING
  266.     DIM minute AS STRING
  267.     DIM second AS STRING
  268.     year = _TRIM$(STR$(loctime.wYear))
  269.     month = _TRIM$(STR$(loctime.wMonth))
  270.     IF LEN(month) <> 2 THEN
  271.         month = "0" + month
  272.     END IF
  273.     day = _TRIM$(STR$(loctime.wDay))
  274.     IF LEN(day) <> 2 THEN
  275.         day = "0" + day
  276.     END IF
  277.     hour = _TRIM$(STR$(loctime.wHour))
  278.     IF LEN(hour) <> 2 THEN
  279.         hour = "0" + hour
  280.     END IF
  281.     minute = _TRIM$(STR$(loctime.wMinute))
  282.     IF LEN(minute) <> 2 THEN
  283.         minute = "0" + minute
  284.     END IF
  285.     second = _TRIM$(STR$(loctime.wSecond))
  286.     IF LEN(second) <> 2 THEN
  287.         second = "0" + second
  288.     END IF
  289.     ExtractTimestamp = year + "-" + month + "-" + day + " " + hour + ":" + minute + ":" + second
  291.  
  292. FUNCTION UUIDVer1$ '  Version: 1 (Date & MAC Address) Generated from Date & time and MAC address of network card. Can be security issue.
  293.     DIM GUID AS GUID 'Variant: DCE 1.1, ISO/IEC 11578:1996
  294.     DIM UUID AS STRING
  295.     DIM a%&
  296.     DIM status AS LONG
  297.     DO
  298.         a%& = UuidCreateSequential(GUID)
  299.         IF a%& = 0 THEN
  300.             IF LEN(HEX$(GUID.Data1)) <> 8 THEN
  301.                 UUID = "0" + HEX$(GUID.Data1) + "-"
  302.             ELSE
  303.                 UUID = HEX$(GUID.Data1) + "-"
  304.             END IF
  305.             IF LEN(HEX$(GUID.Data2)) <> 4 THEN
  306.                 UUID = UUID + "0" + HEX$(GUID.Data2) + "-"
  307.             ELSE
  308.                 UUID = UUID + HEX$(GUID.Data2) + "-"
  309.             END IF
  310.             IF LEN(HEX$(GUID.Data3)) <> 4 THEN
  311.                 UUID = UUID + "0" + HEX$(GUID.Data3) + "-"
  312.             ELSE
  313.                 UUID = UUID + HEX$(GUID.Data3) + "-"
  314.             END IF
  315.             IF LEN(HEX$(GUID.Data4)) <> 2 THEN
  316.                 UUID = UUID + "0" + HEX$(GUID.Data4)
  317.             ELSE
  318.                 UUID = UUID + HEX$(GUID.Data4)
  319.             END IF
  320.             IF LEN(HEX$(GUID.Data5)) <> 2 THEN
  321.                 UUID = UUID + "0" + HEX$(GUID.Data5) + "-"
  322.             ELSE
  323.                 UUID = UUID + HEX$(GUID.Data5) + "-"
  324.             END IF
  325.             IF LEN(HEX$(GUID.Data6)) <> 2 THEN
  326.                 UUID = UUID + "0" + HEX$(GUID.Data6)
  327.             ELSE
  328.                 UUID = UUID + HEX$(GUID.Data6)
  329.             END IF
  330.             IF LEN(HEX$(GUID.Data7)) <> 2 THEN
  331.                 UUID = UUID + "0" + HEX$(GUID.Data7)
  332.             ELSE
  333.                 UUID = UUID + HEX$(GUID.Data7)
  334.             END IF
  335.             IF LEN(HEX$(GUID.Data8)) <> 2 THEN
  336.                 UUID = UUID + "0" + HEX$(GUID.Data8)
  337.             ELSE
  338.                 UUID = UUID + HEX$(GUID.Data8)
  339.             END IF
  340.             IF LEN(HEX$(GUID.Data9)) <> 2 THEN
  341.                 UUID = UUID + "0" + HEX$(GUID.Data9)
  342.             ELSE
  343.                 UUID = UUID + HEX$(GUID.Data9)
  344.             END IF
  345.             IF LEN(HEX$(GUID.Data10)) <> 2 THEN
  346.                 UUID = UUID + "0" + HEX$(GUID.Data10)
  347.             ELSE
  348.                 UUID = UUID + HEX$(GUID.Data10)
  349.             END IF
  350.             IF LEN(HEX$(GUID.Data11)) <> 2 THEN
  351.                 UUID = UUID + "0" + HEX$(GUID.Data11)
  352.             ELSE
  353.                 UUID = UUID + HEX$(GUID.Data11)
  354.             END IF
  355.             GUIDHash = UuidHash(GUID, status)
  356.             UUIDVer1 = UUID
  357.         ELSE
  358.             UUIDVer1 = NilUUID
  359.         END IF
  360.     LOOP UNTIL LEN(UUID) = 36
  362.  
  363. FUNCTION UUIDVer3$ (mode AS INTEGER, StringToHash AS STRING)
  364.     DIM URL AS STRING
  365.     DIM URLFile AS STRING
  366.     DIM UUID AS STRING
  367.     DIM Data1 AS STRING
  368.     DIM Data2 AS STRING
  369.     DIM Data3 AS STRING
  370.     DIM Data4 AS STRING
  371.     DIM Data5 AS STRING
  372.     DIM Data6 AS STRING
  373.     DIM Data7 AS STRING
  374.     DIM Data8 AS STRING
  375.     DIM Data9 AS STRING
  376.     DIM Data10 AS STRING
  377.     DIM Data11 AS STRING
  378.     DIM GUID AS GUID
  379.     DIM status AS LONG
  380.  
  381.     DIM a%
  382.     URLFile = "uuidver3"
  383.     URL = "https://www.uuidtools.com/api/generate/v3/namespace/"
  384.     SELECT CASE mode
  385.         CASE 1
  386.             URL = URL + "ns:dns/name/"
  387.         CASE 2
  388.             URL = URL + "ns:url/name/"
  389.         CASE 3
  390.             URL = URL + "ns:oid/name/"
  391.         CASE 4
  392.             URL = URL + "ns:x500/name/"
  393.     END SELECT
  394.     URL = URL + StringToHash
  395.     a% = API_request(URL, URLFile)
  396.     DIM U AS INTEGER
  397.     U = FREEFILE
  398.     OPEN URLFile FOR BINARY AS #U
  399.     IF LOF(U) <> 0 THEN
  400.         UUID = SPACE$(LOF(U))
  401.         GET #U, , UUID
  402.     ELSE
  403.         CLOSE #U
  404.         KILL URLFile
  405.         UUIDVer3 = NilUUID
  406.         EXIT FUNCTION
  407.     END IF
  408.     CLOSE #U
  409.     KILL URLFile
  410.     UUID = UCASE$(MID$(UUID, 3, 36))
  411.     Data1 = MID$(UUID, 1, 8)
  412.     Data2 = MID$(UUID, 8, 4)
  413.     Data3 = MID$(UUID, 12, 3)
  414.     Data4 = MID$(UUID, 16, 2)
  415.     Data5 = MID$(UUID, 18, 2)
  416.     Data6 = MID$(UUID, 20, 2)
  417.     Data7 = MID$(UUID, 22, 2)
  418.     Data8 = MID$(UUID, 24, 2)
  419.     Data9 = MID$(UUID, 26, 2)
  420.     Data10 = MID$(UUID, 28, 2)
  421.     Data11 = MID$(UUID, 30, 2)
  422.  
  423.     GUID.Data1 = VAL("&H" + Data1): GUID.Data2 = VAL("&H" + Data2): GUID.Data3 = VAL("&H" + Data3): GUID.Data4 = VAL("&H" + Data4): GUID.Data5 = VAL("&H" + Data5): GUID.Data6 = VAL("&H" + Data6)
  424.     GUID.Data7 = VAL("&H" + Data7): GUID.Data8 = VAL("&H" + Data8): GUID.Data9 = VAL("&H" + Data9): GUID.Data10 = VAL("&H" + Data10): GUID.Data11 = VAL("&H" + Data11)
  425.     GUIDHash = UuidHash(GUID, status)
  426.     UUIDVer3 = UUID
  428.  
  429. FUNCTION UUIDVer4$ '  Version: 4 (Random) For a truly unique UUID, use this. Can't be duplicated and doesn't reference a MAC address.
  430.     DIM GUID AS GUID 'Variant: DCE 1.1, ISO/IEC 11578:1996
  431.     DIM UUID AS STRING
  432.     DIM a%&
  433.     DIM status AS LONG
  434.     DO
  435.         a%& = UuidCreate(GUID)
  436.         IF a%& = 0 THEN
  437.             IF LEN(HEX$(GUID.Data1)) <> 8 THEN
  438.                 UUID = "0" + HEX$(GUID.Data1) + "-"
  439.             ELSE
  440.                 UUID = HEX$(GUID.Data1) + "-"
  441.             END IF
  442.             IF LEN(HEX$(GUID.Data2)) <> 4 THEN
  443.                 UUID = UUID + "0" + HEX$(GUID.Data2) + "-"
  444.             ELSE
  445.                 UUID = UUID + HEX$(GUID.Data2) + "-"
  446.             END IF
  447.             IF LEN(HEX$(GUID.Data3)) <> 4 THEN
  448.                 UUID = UUID + "0" + HEX$(GUID.Data3) + "-"
  449.             ELSE
  450.                 UUID = UUID + HEX$(GUID.Data3) + "-"
  451.             END IF
  452.             IF LEN(HEX$(GUID.Data4)) <> 2 THEN
  453.                 UUID = UUID + "0" + HEX$(GUID.Data4)
  454.             ELSE
  455.                 UUID = UUID + HEX$(GUID.Data4)
  456.             END IF
  457.             IF LEN(HEX$(GUID.Data5)) <> 2 THEN
  458.                 UUID = UUID + "0" + HEX$(GUID.Data5) + "-"
  459.             ELSE
  460.                 UUID = UUID + HEX$(GUID.Data5) + "-"
  461.             END IF
  462.             IF LEN(HEX$(GUID.Data6)) <> 2 THEN
  463.                 UUID = UUID + "0" + HEX$(GUID.Data6)
  464.             ELSE
  465.                 UUID = UUID + HEX$(GUID.Data6)
  466.             END IF
  467.             IF LEN(HEX$(GUID.Data7)) <> 2 THEN
  468.                 UUID = UUID + "0" + HEX$(GUID.Data7)
  469.             ELSE
  470.                 UUID = UUID + HEX$(GUID.Data7)
  471.             END IF
  472.             IF LEN(HEX$(GUID.Data8)) <> 2 THEN
  473.                 UUID = UUID + "0" + HEX$(GUID.Data8)
  474.             ELSE
  475.                 UUID = UUID + HEX$(GUID.Data8)
  476.             END IF
  477.             IF LEN(HEX$(GUID.Data9)) <> 2 THEN
  478.                 UUID = UUID + "0" + HEX$(GUID.Data9)
  479.             ELSE
  480.                 UUID = UUID + HEX$(GUID.Data9)
  481.             END IF
  482.             IF LEN(HEX$(GUID.Data10)) <> 2 THEN
  483.                 UUID = UUID + "0" + HEX$(GUID.Data10)
  484.             ELSE
  485.                 UUID = UUID + HEX$(GUID.Data10)
  486.             END IF
  487.             IF LEN(HEX$(GUID.Data11)) <> 2 THEN
  488.                 UUID = UUID + "0" + HEX$(GUID.Data11)
  489.             ELSE
  490.                 UUID = UUID + HEX$(GUID.Data11)
  491.             END IF
  492.             GUIDHash = UuidHash(GUID, status)
  493.             UUIDVer4 = UUID
  494.         ELSE
  495.             UUIDVer4 = NilUUID
  496.         END IF
  497.     LOOP UNTIL LEN(UUID) = 36
  499.  
  500. FUNCTION UUIDVer5$ (mode AS INTEGER, StringToHash AS STRING)
  501.     DIM URL AS STRING
  502.     DIM URLFile AS STRING
  503.     DIM UUID AS STRING
  504.     DIM Data1 AS STRING
  505.     DIM Data2 AS STRING
  506.     DIM Data3 AS STRING
  507.     DIM Data4 AS STRING
  508.     DIM Data5 AS STRING
  509.     DIM Data6 AS STRING
  510.     DIM Data7 AS STRING
  511.     DIM Data8 AS STRING
  512.     DIM Data9 AS STRING
  513.     DIM Data10 AS STRING
  514.     DIM Data11 AS STRING
  515.     DIM GUID AS GUID
  516.     DIM status AS LONG
  517.  
  518.     DIM a%
  519.     URLFile = "uuidver5"
  520.     URL = "https://www.uuidtools.com/api/generate/v5/namespace/"
  521.     SELECT CASE mode
  522.         CASE 1
  523.             URL = URL + "ns:dns/name/"
  524.         CASE 2
  525.             URL = URL + "ns:url/name/"
  526.         CASE 3
  527.             URL = URL + "ns:oid/name/"
  528.         CASE 4
  529.             URL = URL + "ns:x500/name/"
  530.     END SELECT
  531.     URL = URL + StringToHash
  532.     a% = API_request(URL, URLFile)
  533.     DIM U AS INTEGER
  534.     U = FREEFILE
  535.     OPEN URLFile FOR BINARY AS #U
  536.     IF LOF(U) <> 0 THEN
  537.         UUID = SPACE$(LOF(U))
  538.         GET #U, , UUID
  539.     ELSE
  540.         CLOSE #U
  541.         KILL URLFile
  542.         UUIDVer5 = NilUUID
  543.         EXIT FUNCTION
  544.     END IF
  545.     CLOSE #U
  546.     KILL URLFile
  547.     UUID = UCASE$(MID$(UUID, 3, 36))
  548.     Data1 = MID$(UUID, 1, 8)
  549.     Data2 = MID$(UUID, 8, 4)
  550.     Data3 = MID$(UUID, 12, 3)
  551.     Data4 = MID$(UUID, 16, 2)
  552.     Data5 = MID$(UUID, 18, 2)
  553.     Data6 = MID$(UUID, 20, 2)
  554.     Data7 = MID$(UUID, 22, 2)
  555.     Data8 = MID$(UUID, 24, 2)
  556.     Data9 = MID$(UUID, 26, 2)
  557.     Data10 = MID$(UUID, 28, 2)
  558.     Data11 = MID$(UUID, 30, 2)
  559.  
  560.     GUID.Data1 = VAL("&H" + Data1): GUID.Data2 = VAL("&H" + Data2): GUID.Data3 = VAL("&H" + Data3): GUID.Data4 = VAL("&H" + Data4): GUID.Data5 = VAL("&H" + Data5): GUID.Data6 = VAL("&H" + Data6)
  561.     GUID.Data7 = VAL("&H" + Data7): GUID.Data8 = VAL("&H" + Data8): GUID.Data9 = VAL("&H" + Data9): GUID.Data10 = VAL("&H" + Data10): GUID.Data11 = VAL("&H" + Data11)
  562.     GUIDHash = UuidHash(GUID, status)
  563.     UUIDVer5 = UUID
  565.  
  566. FUNCTION NilUUID$
  567.     NilUUID = "00000000-0000-0000-0000-000000000000"
  569.  
  571.     FUNCTION URLDownloadToFileA (BYVAL pCaller AS LONG, szURL AS STRING, szFileName AS STRING, BYVAL dwReserved AS LONG, BYVAL lpfnCB AS LONG)
  573.  
  574. FUNCTION API_request (URL AS STRING, File AS STRING)
  575.     API_request = URLDownloadToFileA(0, URL + CHR$(0), File + CHR$(0), 0, 0)
* uuiddate.h (Filesize: 0.71 KB, Downloads: 138)
« Last Edit: July 28, 2020, 09:09:53 am by SpriggsySpriggs »
Logged
Shuwatch!

Offline loudar

  • Newbie
  • Posts: 73
  • improve it bit by bit.
    • View Profile
Re: All 4 UUID Versions in QB64!
« Reply #1 on: July 20, 2020, 08:34:12 am »
It tells me it can't find the library "uuiddate", what am I missing?
Logged
Check out what I do besides coding: http://loudar.myportfolio.com/

Offline SpriggsySpriggs

  • Forum Resident
  • Posts: 1145
  • Larger than life
    • View Profile
    • GitHub
Re: All 4 UUID Versions in QB64!
« Reply #2 on: July 20, 2020, 11:37:18 am »
Quote from: loudar on July 20, 2020, 08:34:12 am
It tells me it can't find the library "uuiddate", what am I missing?
@loudar Sorry! I must have not attached the header file! It's there now.
Logged
Shuwatch!

Offline SpriggsySpriggs

  • Forum Resident
  • Posts: 1145
  • Larger than life
    • View Profile
    • GitHub
Re: All 4 UUID Versions in QB64!
« Reply #3 on: July 20, 2020, 03:19:38 pm »
3:18 PM:
Updated source code in original post with minor change and added another screenshot.
Logged
Shuwatch!

Offline SpriggsySpriggs

  • Forum Resident
  • Posts: 1145
  • Larger than life
    • View Profile
    • GitHub
Re: All 4 UUID Versions in QB64!
« Reply #4 on: July 28, 2020, 07:07:58 am »
7:07 AM Updated source code and screenshots with new MAC address vendor API.
Logged
Shuwatch!

Offline SpriggsySpriggs

  • Forum Resident
  • Posts: 1145
  • Larger than life
    • View Profile
    • GitHub
Re: All 4 UUID Versions in QB64!
« Reply #5 on: July 28, 2020, 08:00:38 am »
8:00 AM Updated source code with _DELAY of 0.1 in FOR loop for UUIDVer1 so the MAC Vendor API doesn't respond with an error from too many requests back to back.
« Last Edit: July 28, 2020, 08:11:24 am by SpriggsySpriggs »
Logged
Shuwatch!

Offline SpriggsySpriggs

  • Forum Resident
  • Posts: 1145
  • Larger than life
    • View Profile
    • GitHub
Re: All 4 UUID Versions in QB64!
« Reply #6 on: July 28, 2020, 09:10:30 am »
9:10 AM Updated source code with UUIDVersion$ function that returns the version number of the UUID.
Logged
Shuwatch!
Pages: [1]   Go Up
« previous next »