Mit der folgenden Funktion kann man ein Zufalls – Passwort generieren. Die Funktion verwendet dazu die Zeichen die in der Variable „AllowedChars“ definiert werden. Die Länge des Passwortes lässt sich mit der Variable „PasswordLenth“ festlegen. Man muss keine Variablen übergeben, als Rückgabewert erhält man das Passwort im String Format. Übrigens diese Funktion läuft nicht nur in ASP.NET sondern kann auch in VB.NET verwendet werden.
Public Function CreateRndPassword()
' Hier die Zeichen angeben die im Passwort vorkommen dürfen
Dim AllowedChars As String = "a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,1,2,3,4,5,6,7,8,9,0,!,@,#,$,%,&,?,/,\"
' Wie lange soll das Passwort sein?
Dim PasswordLenth As Integer = 10
Dim AllowedCharsArry() As String = Split(AllowedChars, ",")
Dim PasswordStr As String = ""
Dim PasswordTmp As String = ""
Dim iRnd As Random = New Random
For i = 0 To PasswordLenth - 1
Dim RndNumber As Integer = iRnd.Next(0, AllowedCharsArry.Length - 1)
PasswordTmp = AllowedCharsArry(RndNumber)
PasswordStr = PasswordStr + PasswordTmp
Next
Return PasswordStr
End Function