Generador de contraseñas aleatorias para Excel

Published on Julio 22, 2009 in Add-ins de Excel. 14 Comments Tags: , , , , , , , , , .

Algunas veces quizás tengas que generar automáticamente diferentes contraseñas aleatorias. Esta podría ser una tarea muy simple si existiera una función de Excel tal como “RandomPassword”, así podrías escribir:

=RandomPassword(8)

Y obtener algo así como:

e8NwB9Bi

Bueno, esa es exáctamente la idea del Add-in (complemento) que hice…

Random Password

Si no es esto lo que estás buscando, como alternativa, podés visitar el generador online de contraseñas aleatorias.

La sintáxis de la función es:

=RandomPassword(length, [uppercase = TRUE], [numbers = TRUE],
[lowercase = TRUE])

Así de simple… Acá están los links de descarga:

Si no sabés cómo podrías instalar un Add-in (complemento) de Excel, pronto voy a escribir un post al respecto, así que mantenete atento a las actualizaciones del sitio… Por ahora, te puedo dar los siguientes pasos:

1- Copiar la version correspondiente del add-in (XLA o XLAM) a C:\Archivos de Programa\Microsoft Office\OfficeXX\Library (donde XX es la versión de Office, siendo 12 para Office 2007)
2- Seguir las instrucciones dadas acá para Office 2003 or anterior, o ver los pasos de la primera parte de esta página para Office 2007.


GNU GPL v3El código está liberado bajo la licencia GNU GPL v3…



En el caso de que quieras ver el código de la función sin tener que mirar dentro del add-in:

Function RandomPassword(Length As Integer, Optional Upper As Boolean = True, Optional Number As Boolean = True, Optional Lower As Boolean = True)
    If Not Upper And Not Lower And Not Number Then
        RandomPassword = "";
        Exit Function
    End If

    Dim Ret As String
    Dim Num As Integer
    Dim Repeat As Boolean

    Randomize

    Chars = 26 * 2 + 10 '26 (a-z) + 26 (A-Z) + 10 (0-9)
        'a-z = 97-122
        'A-Z = 65-90
        '0-9 = 48-57

    For i = 1 To Length
        Repeat = False

        Num = Int(Chars * Rnd) 'Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

        If Num < 26 Then        'a-z
            If Lower Then
                Ret = Ret & Chr(Num + 97)
            Else
                Repeat = True
            End If
        ElseIf Num < 52 Then    'A-Z
            If Upper Then
                Ret = Ret & Chr(Num - 26 + 65)
            Else
                Repeat = True
            End If
        ElseIf Num < 62 Then    '0-9
            If Number Then
                Ret = Ret & Chr(Num - 52 + 48)
            Else
                Repeat = True
            End If
        End If

        If Repeat Then
            i = i - 1
        End If
    Next i

    RandomPassword = Ret
End Function

Tu ayuda es valorada!

Todo el contenido ofrecido en este sitio, a menos que se indique lo contrario, es de naturaleza libre. Esto significa que podés compartirlo siempre y cuando lo hagas en forma gratuita y aclarando la fuente.

Si te resultó útil y querés contribuir, podés hacer una donación o, al menos, visitar alguno de nuestros patrocinadores de tu elección; están por todo el sitio.

Incoming search terms for the article:

Related posts:

  1. Generador de contraseñas aleatorias
  2. Generador de contraseñas aleatorias PHP
  3. Office Document Property Resetter (Reseteador de propiedades de archivos de Office)
  4. Clase Lista simple para C++
  5. Google (XML) Sitemaps Generator con Soporte de qTranslate ahora disponible en el Repositorio de WordPress



14 Responses to “Generador de contraseñas aleatorias para Excel”

Feed for this Entry Trackback Address

Leave a Reply