This trick is based on the machine locking feature, available since SKGL

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

Last edited Jan 2, 2014 at 8:02 PM by artemlos, version 6