Getting a random number wihout RND.

[SpriggsySpriggs]

One could also use GUIDs/UUIDs for seeds.

In Linux:
`cat /proc/sys/kernel/random/uuid` or `uuidgen`

In Windows with PowerShell installed:
`PowerShell -NoProfile [guid]::NewGuid().ToString()`

Both ways would require you to output to a file or use pipecom to capture the stdout.
You could also use the WinAPI to generate version 1 (sequential and based on MAC address) and version 4 (random) UUIDs.
The above terminal command options generate version 4 UUIDs, which are truly unique and don't reveal your MAC address.

You could also use the new HTTP options in QB64PE to do a simple GET request with the uuidtools REST API. It can generate versions 3 and 5 and create the UUIDs based on a hash of a provided string. UUIDs made this way are NOT random and can be created repeatedly. Can be handy to verify input against a stored UUID.

EDIT - Using the uuidtools REST API:

Code: (Select All)

Function UUIDVer3$ (mode As Integer, StringToHash As String)

    Dim As String UUID, URL, location

    'Dim As GUID GUID

    Dim As Long status

    location = "/api/generate/v3/namespace/"

    Select Case mode

        Case 1

            location = location + "ns:dns/name/"

        Case 2

            location = location + "ns:url/name/"

        Case 3

            location = location + "ns:oid/name/"

        Case 4

            location = location + "ns:x500/name/"

    End Select

    Dim As Long client: client = _OpenClient("HTTP:" + "https://www.uuidtools.com" + location + StringToHash)

    If client Then

        If _StatusCode(client) = 200 Then

            Dim As String buf, content

            While Not EOF(client)

                Get client, , buf

                content = content + buf

            Wend

            Close client

            UUID = UCase$(Mid$(_Trim$(content), 3, 36))

        End If

    End If

    'StringToUUID UUID, GUID

    'GUIDHash = UuidHash(GUID, status)

    UUIDVer3 = UUID

End Function



Function UUIDVer5$ (mode As Integer, StringToHash As String)

    Dim As String UUID, URL, location

    'Dim As GUID GUID

    Dim As Long status

    location = "/api/generate/v5/namespace/"

    Select Case mode

        Case 1

            location = location + "ns:dns/name/"

        Case 2

            location = location + "ns:url/name/"

        Case 3

            location = location + "ns:oid/name/"

        Case 4

            location = location + "ns:x500/name/"

    End Select

    Dim As Long client: client = _OpenClient("HTTP:" + "https://www.uuidtools.com" + location + StringToHash)

    If client Then

        If _StatusCode(client) = 200 Then

            Dim As String buf, content

            While Not EOF(client)

                Get client, , buf

                content = content + buf

            Wend

            Close client

            UUID = UCase$(Mid$(_Trim$(content), 3, 36))

        End If

    End If

    'StringToUUID UUID, GUID

    'GUIDHash = UuidHash(GUID, status)

    UUIDVer5 = UUID

End Function