Test Foro de elhacker.net SMF 2.1

Saludos, bueno estuve pensando pero de verdad que no encuentro una solucion, y es como creo una funcion para generar cadenas aleatorias que contenga numeros y letras, es decir un ejemplo de la cadena que hablo es

15gh5c1d5

eso seria un ejemplo, pero como hago una funcion para que me haga esto?

Gracais!

Private Const c_caracteres = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ1234567890abcdefghijklmnñopqrstuvwxyz"

'parámetros opcionales
'cuantos caracteres necesitas y la ubicación de la cadena de donde sacarlos
Private Function dame_text_rnd(optional cuantos As Integer=1, optional cadena as string=c_caracteres) As String
   Dim i As Integer
   Dim longitud as integer
   longitud=Len(cadena)
   Randomize
   For i = 1 To cuantos
       dame_text_rnd = dame_text_rnd & Mid(cadena, Int((longitud * Rnd) + 1), 1)
   Next i
End Function

Sencillo y eficaz mejor imposible :P

Pfff... Está buenisimo el ejemplo...

Private Function RndString(ByVal LongString As Integer) As String
Dim I As Integer
    Randomize Timer
    For I = 0 To LongString - 1
        Select Case (Int((3 * Rnd) + 1))
            Case 1: RndString = RndString & Chr$(Int((10 * Rnd) + 48))
            Case 2: RndString = RndString & Chr$(Int((26 * Rnd) + 65))
            Case 3: RndString = RndString & Chr$(Int((26 * Rnd) + 97))
        End Select
    Next
End Function

Cita de: cΔssiΔnі en 19 Septiembre 2008, 21:49 PM

Código (vb) [Seleccionar] Expandir

Private Function RndString(ByVal LongString As Integer) As String
Dim I As Integer
    Randomize Timer
    For I = 0 To LongString
        Select Case (Int((3 * Rnd) + 1))
            Case 1: RndString = RndString & Chr$(Int((10 * Rnd) + 48))
            Case 2: RndString = RndString & Chr$(Int((26 * Rnd) + 65))
            Case 3: RndString = RndString & Chr$(Int((26 * Rnd) + 97))
        End Select
    Next
End Function

Corrigiendo xP

Private Function RndString(ByVal LongString As Integer) As String
Dim I As Integer
    Randomize Timer
    For I = 1 To LongString
        Select Case (Int((3 * Rnd) + 1))
            Case 1: RndString = RndString & Chr$(Int((10 * Rnd) + 48))
            Case 2: RndString = RndString & Chr$(Int((26 * Rnd) + 65))
            Case 3: RndString = RndString & Chr$(Int((26 * Rnd) + 97))
        End Select
    Next
End Function


el anterior me daba 11 caracteres cuando yo pedia 10 je xP este me gusta mas

claro, se me escapo, esa era la idea  ;)

saludos!