Generar keys aleatorias

[tomix999]

Hola, Espero que puedan ayudarme.

Quiero Hacer que al Hacer click en un boton salgan keys aleatorias.

Ejemplo: AWEQS-123-SDASW o SDJKS123SJDAKSD-2132 // Pero letras aleatorias, que salgan siempre distintos.

Intente hacerlo pero no me funciona D:

Este codigo pongo en el boton.

Textbox1.text = Int(rnd() *4)
Select case textbox1.text
Case 0
TextBox1.text = "una key"
Case 1
TextBox1.text = "otra key"
Case 2
TextBox1.text = "otra"
Case 3
TextBox1.text = "y otra"


PD: Ese codigo solo sirve para que al hacer click, aparezcan las keys que puse en cada caso en las "" (entrecomillas)

Pero en vez de poner ahi mil, quiero que sean aleatorias D:
Gracias por leer, espero que me ayuden :D
Saludos

[Jnl]

Pues algo asi con substring y un rand

Código vb:

Public Function randText(lenght As Integer) As String
    Dim r As New Random()
    Dim str As String = ""
    Dim rand As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
    For i As Integer = 0 To lenght - 1
 
        str += rand.Substring(r.[Next](62), 1)
    Next
    Return str
End Function
 

[Thumper]

Revisa este link te puede servir.

http://www.techrepublic.com/article/...in-net/5708732

Salu2

[drako_darpan]

Hola que tal, bueno mira yo utilizo esto en C#, con el tengo un generador de claves :

Código C#:

txbClave.Text = " ";
           
string _allowedChars = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789";
Byte[] randomBytes = new byte[8]; // Yo pongo 8, pero tu puedes poner el tamaño que desees.
char[] chars = new char[8];
int allowedCharCount = _allowedChars.Length;
           
for( int i = 0; i<8; i++ )
{
      Random randomobj = new Random();
      randomobj.NextBytes(randomBytes);
      chars[i]=_allowedChars[(int)randomBytes[i]%allowedCharCount];
}
           
txbClave.Text = new string(chars);