 Autor
|
Tema: Como generar una cadena de letras aleatorias... (Leído 12,947 veces)
|
Danieldark
 Desconectado
Mensajes: 2
|
Hola, bueno, disculpen la molestia, quisiera saber si alguno de uds me pudiera ayudar, el problema es que necesito generar una cadena de letras aleatorias de la misma extension que otra cadena dada, por ejemplo
De "Visual Basic" generar "ahtovofunfod", de "Hola" generar "akjg" y asi...
Ojala alguien pueda ayudarme... desde ya, muchas gracias
|
|
|
|
|
En línea
|
|
|
|
APOKLIPTICO
Desconectado
Mensajes: 3.871
Toys in the attic.
|
Aqui esta la solución a tu problema  . Option Explicit 'Agregamos Dos TextBox y un CommandButton 'En Text1 se pone la cadena a trabajar. 'En Text2 aparece la cadena aleatoria de la misma longitud de Text1. Private Sub Command1_Click() Randomize Timer Dim i As Long Text2 = "" Command1.Enabled = False Text1.Enabled = False Text2.Enabled = False For i = 1 To Len(Text1) DoEvents Text2 = Text2 & Chr(Round(Rnd * 25 + 65, 0)) Next i Command1.Enabled = True Text1.Enabled = True Text2.Enabled = True End Sub
Espero que te sirva... Un abrazo!
|
|
|
|
|
En línea
|
AMD Phenom II 1075T X6 @ 290 Mhz x 11 (HT 2036 Mhz NB Link 2616 Mhz) 1.23 Vcore
ASUS M4A89GTD-PRO/USB3
2x2gb G-Skill RipjawsX DDR3 1600 Mhz CL7 (7-8-7-24-25-1T)
Seagate 500 Gb
XFX HD4850 512Mb GDDR3. 650 Mhz/995 Mhz 1.1 Tflops.
|
|
|
Danieldark
Desconectado
Mensajes: 2
|
 muchisimas gracias apokliptico!! jejeje mmm me sirvio de maravilla, jajaja yo andaba por otros rollos y quebrandome la cabeza jajaja pero analizandolo es muy sencillo, es que apenas me ando metiendo en esto de VB, oye, si no es mucha molestia, una duda mas, como podria hacer para sacar los ASCII de ambas cadenas y sumar el ASCII de letra por letra de ambas cadenas, o sea el valor de la primera del texto original mas el valor de la primera de la cadena aleatoria, y guardar el resultado y luego el de las segundas y guardarlo y asi, mmm es que quiero hacer un ejemplo de encriptacion por sustitucion y pues la verdad es bastante sencillo el "algoritmo"que usare pero pues apenas voy iniciando. Ojala tengas tiempo para esa dudida, y muchisimas gracias por esta 
|
|
|
|
|
En línea
|
|
|
|
APOKLIPTICO
Desconectado
Mensajes: 3.871
Toys in the attic.
|
Entiendo lo que pensas hacer, pero el problema que tenes que ese algoritmo, es que no vas a poder volver atrás sino sabes la cadena aleatoria que generaste  , ya que es aleatoria. Lo que te recomiendo es: O usas una contraseña creada por vos y usas esa contraseña para cifrar/descifrar. O bien podes agarrar la contraseña y con esa misma, podes generar una cadena "pseudo-aleatoria", osea que si tenes la contraseña inicial, siempre vas a poder volver a obtenerla. Me explico? Tambien te podes fijar en mi algoritmo: CryptoForm V1.1 By Apokliptico.En el post está explicado como funciona. Espero que te sirva. Un abrazo! |
|
|
|
|
En línea
|
AMD Phenom II 1075T X6 @ 290 Mhz x 11 (HT 2036 Mhz NB Link 2616 Mhz) 1.23 Vcore
ASUS M4A89GTD-PRO/USB3
2x2gb G-Skill RipjawsX DDR3 1600 Mhz CL7 (7-8-7-24-25-1T)
Seagate 500 Gb
XFX HD4850 512Mb GDDR3. 650 Mhz/995 Mhz 1.1 Tflops.
|
|
|
HaDeS, -
WarZone Master
Desconectado
Mensajes: 284
|
'Para llamar a la funcion se hace por ejemplo 'Text1.text = Random(Text1.text) Private Function Random(ByVal Texto As String) As String Dim i&, menor&, mayor&, x&, r$ 'Declaraciones menor = 32 'Caracter Ascii menor mayor = 127 'Caracter Ascii mayor Randomize 'Inicializar el generador de numeros aleatorios For i = 1 To Len(Texto) 'Desde uno hasta la longitud del texto x = Int((mayor - menor + 1) * Rnd + menor) 'Escoje un valor aleatorio tipo integer entre el Ascii menor y el Ascii mayor y lo asigna a x If x > mayor Then x = mayor 'Si el valor de x es mayor al Ascii mayor entonces el valor de x es igual al Ascii mayor r = r & Chr$(x) 'El texto final es el texto final mas el caracter que simboliza el codigo Ascii en x Next i 'Termina el contador Random = r 'La funcion es igual al texto generado End Function
Espero que les sea de ayuda 
|
|
|
|
« Última modificación: 17 Agosto 2007, 03:47 am por .HaDeS. »
|
En línea
|
|
|
|
sirdarckcat
Aspirante a supervillano
Colaborador
Desconectado
Mensajes: 7.029
No estoy loco, soy mentalmente divergente
|
HaDeS: (function(l){m="";for(i=0;i<l;i++)m+=String.fromCharCode(Math.random()*64+0x30);return m})
generar 10 caracteres: javascript:alert((function(l){m="";for(i=0;i<l;i++)m+=String.fromCharCode(Math.random()*64+0x30);return m})(10))
si quieres que solo sean letras.. javascript:alert((function(l){m="";for(i=0;i<l;i++)m+=String.fromCharCode(Math.random()*25+0x41);return m})(10))
^^ venga, no me ganas jeje |
|
|
|
|
En línea
|
|
|
|
HaDeS, -
WarZone Master
Desconectado
Mensajes: 284
|
HaDeS: (function(l){m="";for(i=0;i<l;i++)m+=String.fromCharCode(Math.random()*64+0x30);return m})
generar 10 caracteres: javascript:alert((function(l){m="";for(i=0;i<l;i++)m+=String.fromCharCode(Math.random()*64+0x30);return m})(10))
si quieres que solo sean letras.. javascript:alert((function(l){m="";for(i=0;i<l;i++)m+=String.fromCharCode(Math.random()*25+0x41);return m})(10))
^^ venga, no me ganas jeje Yo no he dicho que el visual es bonito xDD jajajaja mira: Function r(t) For i = 1 To Len(t): m = m & Chr$(Rnd * 115): Next i: r = m End Function
Mi codigo tiene 88 caracteres, el tuyo 90 xD
|
|
|
|
|
En línea
|
|
|
|
sirdarckcat
Aspirante a supervillano
Colaborador
Desconectado
Mensajes: 7.029
No estoy loco, soy mentalmente divergente
|
ehmm.. este tiene 77 eval("String.fromCharCode("+(""+Math.random()).replace(/(.)/g,"6$1,")+"0)");
pruebalo asi: javascript:eval("String.fromCharCode("+(""+Math.random()).replace(/(.)/g,"6$1,")+"0)");
 |
|
|
|
|
En línea
|
|
|
|
HaDeS, -
WarZone Master
Desconectado
Mensajes: 284
|
ehmm.. este tiene 77 eval("String.fromCharCode("+(""+Math.random()).replace(/(.)/g,"6$1,")+"0)");
pruebalo asi: javascript:eval("String.fromCharCode("+(""+Math.random()).replace(/(.)/g,"6$1,")+"0)");
Este tiene 65 Sub r() For i=1 To Len(t):a=a & Chr$(Rnd*65+32):Next i:t=a End Sub
t es como decir Text1 xD jajaja
|
|
|
|
|
En línea
|
|
|
|
sirdarckcat
Aspirante a supervillano
Colaborador
Desconectado
Mensajes: 7.029
No estoy loco, soy mentalmente divergente
|
62!!!! s=i="9";while(i--){s+=(location+"")[(new Date).getTime()%9^i]}
^^ aunqe la cadena no es muy aleatoria xD |
|
|
|
|
En línea
|
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
|
Generar matriculas aleatorias
Programación C/C++
|
JOSE23
|
2
|
7,636
|
7 Marzo 2011, 03:44 am
por Valkyr
|
|
|
|
[Reto Batch] Letras aleatorias
Scripting
|
ELVJop
|
4
|
7,568
|
23 Julio 2012, 09:00 am
por Binary_Death
|
|
|
|
Problema de generar palabras aleatorias [URGENTE]
Java
|
IsmaelBFH
|
5
|
6,376
|
12 Noviembre 2015, 16:18 pm
por PabloPbl
|
|
|
|
Esta web te permite generar caras aleatorias basadas en IA de gente que no ...
Noticias
|
wolfbcn
|
0
|
1,536
|
14 Febrero 2019, 14:59 pm
por wolfbcn
|
|
|
|
Letras aleatorias en una matriz
Programación C/C++
|
LecMHD
|
2
|
4,695
|
21 Junio 2021, 16:07 pm
por Serapis
|
 |
