[Release]WarRock Promocode Generator

Private Function GenerateCode() As String
    Dim random As New Random
    Dim builder As New StringBuilder
    Dim str As String = ""
    Dim num As Integer = &H20
    Dim i As Integer
    For i = 0 To num - 1
        Select Case random.Next(2)
            Case 0
                If (i = 12) Then
                    builder.Append("4")
                Else
                    builder.Append(Convert.ToChar(CInt((CByte(random.Next(6)) + &H41))).ToString)
                End If
                Exit Select
            Case 1
                If (i = 12) Then
                    builder.Append("4")
                Else
                    builder.Append(random.Next(0, 9).ToString)
                End If
                Exit Select
        End Select
        Select Case i
            Case 7, 11, 15, &H13
                builder.Append("-")
                Exit Select
        End Select
    Next i
    Return (str & builder)
End Function

private string GenerateCode()
{
    Random random = new Random();
    StringBuilder builder = new StringBuilder();
    string str = "";
    int num = 0x20;
    for (int i = 0; i < num; i++)
    {
        switch (random.Next(2))
        {
            case 0:
                if (i == 12)
                {
                    builder.Append("4");
                }
                else
                {
                    builder.Append(Convert.ToChar((int) (((byte) random.Next(6)) + 0x41)).ToString());
                }
                break;

            case 1:
                if (i == 12)
                {
                    builder.Append("4");
                }
                else
                {
                    builder.Append(random.Next(0, 9).ToString());
                }
                break;
        }
        switch (i)
        {
            case 7:
            case 11:
            case 15:
            case 0x13:
                builder.Append("-");
                break;
        }
    }
    return (str + builder);
}