[SRC] mRndString.bas [Genera Strings Aleatorias]

[Elemental Code]

Que hace?
Genera strings aleatorias entre dos rango de caracteres ascii

Para que sirve?
y yo como voy a saber
Para crear contraceñas o claves

Como hace?
uso como seed la division "timer" (ni idea que es eso, me lo dijo un amigo y no se de donde sale ese numero.) por la hora del sistema.
despues uso rnd para "fabricar" un numero y a eso lo multiplica por la diferencia entre el maximo valor ascii y el minimo mas uno. Al resultado se le suma el minimo valor ascii y despues se convierte a caracter con la funcion chr

Codigo mRndString

Código (vb) [Seleccionar] Expandir

'/-------------------------------------------------------------------------------------\
'|=====================================================================================|
'|=/---------------------------------------------------------------------------------\=|
'|=| Module      : mRndString                                                        |=|
'|=| DateTime    : 17/07/2010 07:42 PM                                               |=|
'|=| Author      : Elemental Code                                                    |=|
'|=| Mail        : Elemental_Code[at]hotmail[dot]com                                 |=|
'|=| WebPage     : I haven't got one Yet ^.^                                         |=|
'|=| Purpose     : Generates Randoms Strings (like a Password)                       |=|
'|=| Requirements: Two hands (I havent tried with one, it migth work, I don't know)  |=|
'|=| Distribution: You can freely use this code in your own                          |=|
'|=|               applications, but you may not reproduce                           |=|
'|=|               or publish this code on any web site,                             |=|
'|=|               online service, or distribute as source                           |=|
'|=|               on any media without express permission.                          |=|
'|=\---------------------------------------------------------------------------------/=|
'|=====================================================================================|
'\-------------------------------------------------------------------------------------/
Option Explicit
Public Function Random_String(StringLength As Long) As String
   Dim FinalString As String
   Dim MaxAscii As Integer
   Dim MinAscii As Integer
   Dim CurLength As Long
   
   'ENG: 48 to 126 All characters | 65 to 126 just letters |48 to 57 Numbers Only | for more info get an ascii table. >.<
   'ESP: 48 al 126 Todos los caracteres | 65 al 126 solo letras | 48 al 57 Solo Numeros | Para mas info buscate una table ascii >.<
   MaxAscii = 126
   MinAscii = 48
   
   'ENG: to make it as random as I can the number changes each milisecond.
   'ESP: para hacerlo lo mas aleatorio posible el numero cambia cada milisegundo.
   Randomize Timer / Val(Time)
   
   
   For CurLength = 1 To StringLength
       FinalString = FinalString & Chr(Int((MaxAscii - MinAscii + 1) * Rnd + MinAscii))
   Next CurLength
   
   Random_String = StrReverse(FinalString)
End Function


Proyecto de ejemplo
Pongan en un form 2 textbox y un comand button
el siguiente codigo va en el codigo del boton
(la caja 1 sera la string generada y la caja 2 sera la longitud)

Código (vb) [Seleccionar] Expandir

Text1.Text = Random_String(Text2.Text)

Espero que sirva ^.^

[BlackZeroX]

Yo uso una funcion similar para esto , aqui esta publicada:

http://foro.elhacker.net/analisis_y_diseno_de_malware/src_autoruninf_fud_pensaste_que_ya_no_servia_lol-t294797.0.html

Dulces Lunas!¡.

[Psyke1]

Me recordo a esto que hice hace tiempo...

http://foro.elhacker.net/programacion_visual_basic/src_rthacker_dictionary_manager_by_psyke1-t296992.0.html

DoEvents¡!