This trick is based on the
machine locking feature, available since SKGL 220.127.116.11.
The trick of generating unique keys
If you would like to be sure that none of the users will get the same key, you will need to assign each key an id.
Dim GenereateAKey As New SKGL.Generate ' declare the variable
GenereateAKey.secretPhase = "MySecretPassword" ' the password
Dim keys As String = "" ' keys will be stored here
For KeyID = 1 To 99999
' each key generated will be unique
keys &= GenereateAKey.doKey(30, KeyID) & Environment.NewLine