Randomizing Numbers +letters

[omg_lol]

Im working on making a WoW scam in vb, its a UDE code phisher, gamecard phisher and a cd key phisher all in one. I have a code that im using to generate numbers for the Game Card generator, i need to be able to add letters into it for cd keys and UDE Codes. The code that im working with is:

            '64646
            Dim r As New Random()
            TextBox6.Text = r.Next(1, 9999)
            TextBox7.Text = r.Next(1, 999999)
            TextBox8.Text = r.Next(1, 99999)
            TextBox9.Text = r.Next(1, 999999)
            TextBox10.Text = r.Next(1, 9999)

I want to be able to use that but include letters into it and make it all letters for the

TextBox9.Text = r.Next(1, 999999)

Thanks for the help

[freakyflow]

This will do both upper and lowercase, eliminate that part if not needed. Just add strChar to you random number output.

      Public Function CreateRandomLetter(ByVal pblnUpperCase As Boolean) As String

      Dim lngAsc  As Long

      Dim strChar As String

          Randomize

          lngAsc = vbKeyA + CLng(Rnd * (vbKeyZ - vbKeyA))

          If pblnUpperCase Then

              strChar = LCase$(Chr$(lngAsc))

          Else

              strChar = LCase$(Chr$(lngAsc))

          End If

          CreateRandomLetter = strChar

      End Function

or you can just do something like this and get a random string out of it.

KeyLetters = "abcdefghijklmnopqrstuvwxyz"

[omg_lol]

thx if anyone else has some more codes id be happy to have them

[Murdok]

Private Function AtoZ() As String

AtoZ = Chr(65 + Rnd() * 862150000 Mod 26)

End Function

This is what i use to make a random letter

vb6

[omg_lol]

Thx for the help, but id prefer just a twist of the code i listed, im using vb 2008 and am still quite a noob with coding...

[maclone]

'->VB 2008

Function getrandombystring(ByVal Input As String, ByVal charamount As Integer) As String
    Dim r As New Random
    Dim strb As New System.Text.StringBuilder
    Dim chararray() As Char = Input.ToCharArray
    For i As Integer = 1 To charamount
        Dim ti As Integer = r.Next(0, chararray.Length)
        strb.Append(chararray(ti))
    Next
    Return strb.ToString
End Function


TextBox1.Text = (getrandombystring("ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890", 6))

[Apoc]

using System;
using System.Text;

namespace ScamToolsSuiteLib
{
    internal class KeyGenerator
    {
        private static readonly char[] Charset = "abcdefghijklmnopqrstuvwxyz0123456789".ToCharArray();
        private static readonly Random random = new Random();

        /// <summary>
        /// Gets a randomly generated time card code. Example: 3420-666698-16081-009008-6060
        /// </summary>
        /// <value>The get time card.</value>
        /// 10/27/2008 9:15 AM
        public static string GetTimeCard
        {
            get
            {
                StringBuilder sb = new StringBuilder();
                for (int j = 1; j <= 29; j++)
                {
                    int next = random.Next(10);
                    if (j == 5 || j == 12 || j == 18 || j == 25)
                    {
                        sb.Append("-");
                        continue;
                    }
                    sb.Append(next.ToString());
                }
                return sb.ToString();
            }
        }

        /// <summary>
        /// Gets a randomy generated Trading Card Game code
        /// </summary>
        /// <value>The get TCG card.</value>
        /// 10/27/2008 9:15 AM
        public static string GetTCGCard
        {
            get
            {
                StringBuilder sb = new StringBuilder();
                for (int i = 0; i < 29; i++)
                {
                    if (i == 4 || i == 12 || i == 18 || i == 24)
                    {
                        sb.Append("-");
                        continue;
                    }
                    sb.Append(Charset[random.Next(Charset.Length)]);
                }
                return sb.ToString().ToUpper();
            }
        }

        /// <summary>
        /// Gets a randomly generated CD key. Example: RMXI7O-83DY-ZU6INW-8FMB-72XSG4
        /// </summary>
        /// <value>The get CD key.</value>
        /// 10/27/2008 9:15 AM
        public static string GetCDKey
        {
            get
            {
                StringBuilder sb = new StringBuilder();
                for (int i = 1; i <= 30; i++)
                {
                    if (i == 7 || i == 12 || i == 19 || i == 24)
                    {
                        sb.Append('-');
                        continue;
                    }
                    sb.Append(Charset[random.Next(Charset.Length)]);
                }
                return sb.ToString().ToUpper();
            }
        }

        /// <summary>
        /// Gets a randomly generated Blizzard authenticator code. (Length ranges from 6-8 digits only.)
        /// </summary>
        /// <value>The get authenticator.</value>
        /// 10/27/2008 9:15 AM
        public static string GetAuthenticator
        {
            get
            {
                int rand = random.Next(6, 9);
                StringBuilder sb = new StringBuilder();
                for (int i = 0; i < rand; i++)
                {
                    sb.Append(random.Next(10));
                }
                return sb.ToString();
            }
        }
    }
}

Run it through a translator, and you can access all of them easily. Enjoy.