problema con keygen y numeros aleatorios

[BigByte]

   Hola chicos.
vereis ando creando un keygen, pero tengo el siguiente problema: le añado el serial al codigo y le pongo el codigo

#####################################################
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

textbox1.text = int(rnd() * 2)
select case = textbox1.text
case 0
textbox1.text = "1234"
case 1
textbox1.text = "4321"
end select
end sub
end class
#####################################################
hasta aqui el keygen "hace su funcion", pero lo que hace en realidad es mostrar las dos claves de forma aleatoria.

ahora lo que quiero que haga es, de una clave dada, por ejemplo 1234 (solo esa) me saque esas cuatro cifras pero aleatorias, o sea por ejemplo 3214, 4231, 2413, etc...

que codigo tengo que poner??
he probado con esto
http://msdn.microsoft.com/es-es/library/f7s023d2(v=vs.90).aspx
y cientos de paginas mas pero no me da la solucion al problema, puesto que lo que hace es generar un numero aleatoria como le da la gana, no con los cuatro que le doy yo.

soy todo oidos
(si no entendeis algo no dudeis en pregutar, porque explico de cul0)
gracias.

[engel lex]

usa las etiquetas GeSHi ubicadas arriba de los emoticones a la derecha para que tu codigo sea más visible

la forma más practica de hacer lo que quieres es (según creo)

crea un array con el largo deseado
cada valor del array coloca una cifra individual
reordena el array aleatoriamente
une los valores de nuevo como un texto
imprime el valor

[tincopasan]

que es? vb6 o .net?

[BigByte]

Buenos días y gracias por la ayuda.
Miraré lo del array a ver si encuentro info.
Por otra parte estoy usando visual estudio 2010 por lo tanto , .net

[javinet]

Hola BigByte!

Que bueno ver código vb6 dentro de .NET !!!

te paso una función que tal vez te pueda servir

Código (vbnet) [Seleccionar] Expandir


' *******************************************************************************
' 2014-03-05
' javinet
' para foro.elhacker.net
' Función que randomiza los caracteres de un string, devolviendo un string distinto del original
' *******************************************************************************
    Private Function Mezclador_Randomizante_De_Chars(ByVal texto As String) As String

        Randomize()

        Dim texto_original As String = texto
        Dim s As String = texto
        Dim p As Integer

        While s = texto_original

            texto = texto_original

            For i As Integer = 1 To texto_original.Length

                p = CInt(Int(Rnd() * texto.Length))

                Mid$(s, i) = texto.Substring(p, 1)

                texto = texto.Remove(p, 1)

            Next

        End While

        Return s

    End Function

[BigByte]

Perdonad la tardanza. Estoy fuera de España y volveré un unas semanas. Cuando vuelva lo pruebo!!

Gracias