Feedback

VB - Passwort-Generator

Veröffentlicht von am 12.06.2012
(0 Bewertungen)
Generiert ein Passwort.
GFU-Schulungen  [Anzeige]

ASP.NET Core und Angular Komplett für .NET-Entwickler

Sie  lernen in drei (3) Tagen wie man mit  ASP.NET Core und den Technologien  MVC, Entity Framework, WebAPI und  Razor professionelle sowie moderne  Web-Anwendungsarchitekturen aufbaut.  Die Schulung ist der perfekte  Einstieg um insbesondere datengetriebene  und präsentationsorientierte  Applikationen auf Basis der robusten und  skalierbaren ASP.NET Core  Plattform zu erstellen. Nach der Veranstaltung kennen Sie die Konzepte von Angular und können Angular in neue und bestehende ASP.NET-Anwendungen einsetzen.

ASP.NET 2.0 und 3.5

Dieser Kurs vermittelt Ihnen alle Erweiterungen von Microsoft ASP.NET 2.0. Zu diesen zählen u. a. Data Bindung, Master Pages, und Security.

Friend Module PasswordGenerator


     ''' <summary>
    ''' Generates a random Password.
    ''' </summary>
    ''' <param name="Digits">The Maximum-Length of the Password.</param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function Generate(ByVal Digits As Integer) As String
        'Alle Variationen.
        Dim Variations As String = "abcdefghijklmnopqrstuvwxyz123456789#*$€"

        'Neue StringBuilder/Random Instanz.
        Dim Sb As New StringBuilder
        Dim xy As New Random()

        'Random-Boolean Funktion für das Upper/Lower Verfahren.
        Dim RandomBoolean As New Func(Of Boolean)(Function()
                                                      Return xy.Next(0, 2) = 0
                                                  End Function)

        'Zufällige Zeichen hinzufügen.
        For i As Integer = 0 To Digits
            'Char zwischenspeichern.
            Dim C As Char = Variations(xy.Next(Variations.Length))
            'Per Zufall entscheiden, ob das Char Groß/Klein ist.
            If Not RandomBoolean.Invoke() Then
                Sb.Append(C)
            Else
                Sb.Append(Char.ToUpper(C))
            End If
        Next

        'Sicher stellen das Raute,Stern etc. wegen der Komplexität nur 1x vorkommen.
        Return Sb.ToString.TrimEnd({"#"c, "*"c, "$"c, "€"c})
    End Function



End Module

Abgelegt unter Passwort, Generator, Länge.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!