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.
:)
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
que es? vb6 o .net?
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 ;-)
Hola BigByte!
:D 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
Perdonad la tardanza. Estoy fuera de España y volveré un unas semanas. Cuando vuelva lo pruebo!!
Gracias :)