As requested by One and Blastoise.
PHP:
Imports System.Threading
Module Module1
Sub Main()
Dim KeyGen As RandomKeyGenerator
Dim NumKeys As Integer
Dim i_Keys As Integer
Dim RandomKey As String
NumKeys = 5
KeyGen = New RandomKeyGenerator
KeyGen.KeyLetters = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
KeyGen.KeyNumbers = "0123456789"
KeyGen.KeyChars = 26
Console.WriteLine("Connecting to Diablo III Authentication Server....")
Thread.Sleep(3000)
Console.WriteLine("Generating 5 Diablo III Guest Keys")
Thread.Sleep(5000)
For i_Keys = 1 To NumKeys
RandomKey = KeyGen.Generate()
Console.WriteLine(RandomKey)
Next
Console.WriteLine("Press any key to exit...")
Console.Read()
End Sub
End Module
