• Webseitenerstellung und -hosting
  • .NET Anwendungsentwicklung
  • softwaregesteuerte Prozessoptimierung
  • .NET

    Programmierung

  • WebseitenErstellung

    undHosting

  • softwaregesteuerte

    Prozessoptimierung

  • Konzeption

    und Beratung

%AM, %02. %517 %2012 %11:%Okt

Simple Passwort Generator

geschrieben von
Artikel bewerten
(0 Stimmen)
einfach, funktionell, selbsterklärend

Private Function CreateRandomPassword(ByVal intPasswordLength As Integer) As String
Try
Dim strErlaubtChar As String = "abcdefghijkmnopqrstuvwxyzABCDEFGHJKLMNOPQRSTUVWXYZ0123456789!,."
Dim chars As Char() = New Char(intPasswordLength - 1) {}
Dim rd As New Random()

For i As Integer = 0 To intPasswordLength - 1
chars(i) = strErlaubtChar(rd.Next(0, strErlaubtChar.Length))
Next

Return New String(chars)
Catch ex As Exception
Errorlog(ex)
End Try
End Function

		
Gelesen 40836 mal Letzte Änderung am %PM, %24. %643 %2015 %14:%Jun

166 Kommentare

Schreibe einen Kommentar

Bitte achten Sie darauf, alle Felder mit Stern * zu füllen. HTML-Code ist nicht erlaubt.