Cadenas Aleatorias? [ayudita easy]

[Chefito]

Porque lo de las MACS?????

Saludos...

Lo dice en el primer mensaje:

hola, se que es facil pero no se, como hacer para seleccionar una cadena aleatoria, no se como usar randomize en este caso para despues escribir la cadena, es para cambiar  mi direccion mac utilizando un metodo chapuzero, x ejemplo se tienen

[Ch3ck]

Asi jejejeje 

Lei la pregunta, pero cuando observé el problema del Randomize quede perdido, lo siento...

Saludos!!!:

[3k1n0x]

Código [Seleccionar] Expandir

[quote author=Chefito link=topic=202351.msg961230#msg961230 date=1204248000]
Uiuiuiuiui, clonando macs?  ;D. Esto te da una Mac completa aleatoria:


nada q ver  es simplemente para q al usar la aplicacion cambie la ip y ya, usar el programa

http://cryptload.info/
http://foro.elhacker.net/index.php/topic,201997.0.html

naderST tu codigo está bien, solo hay que colocarle mas rango.

He hecho otra version jeje

Código [Seleccionar] Expandir

Private Sub CommandButton1_Click()
Dim Numero() As String
Mensaje = "Vacio;Numero1;Numero2;Numero3"
Numero = Split(Mensaje, ";")
Randomize
NumeroA = Int(Rnd * 3) + 1
MsgBox Numero(NumeroA)
End Sub


Porque lo de las MACS?????

Saludos...

excelente !!! eso es lo justo, lo de las macs es nad mas para q cambie la ip terminada una descarga d rapidshare 

jojo creo q termino esto sencillo en unos min  grax salu2s 

[3k1n0x]

hola, de new, una ultima ayudita plz, como el randomize es un problema, me parece que mejor seria agarrar a los segundos del reloj y usar ese numero, ya que es poco probable q se repita, entonces como se podria hacer eso y colocar el dato en un textbox  o donde sea x ejemplo  salu2s

[naderST]

Hola lo puedes hacer asi

Código [Seleccionar] Expandir


Text1.Text = Second(Time)


[Chefito]

naderST tiene razón. Lo malo es que si no he entendido mal necesitarias siempre un conjunto de dos digitos, por lo tanto el codigo habría que variarlo:

Código [Seleccionar] Expandir

Dim Segundos As String
Segundos = Second(Time)
If Len(Segundos) = 1 Then Segundos = "0" & Segundos   'añade un 0 cuando la longitud de los seguntos es un digito

P.D. Pero sigo pensando que la mejor manera es adaptando el primer código que te puse a lo que quieres.