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.

que es? vb6 o .net?

Hola BigByte!

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

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

' *******************************************************************************
' 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