unnötige random string Generator Funktion wurde auskommentiert.

login/ForgotPW.aspx.vb

@@ -92,16 +92,16 @@ Partial Class login_ForgotPW
             End If
     End Sub
 
-    Function RandomString(r As Random, max As Integer) As String
-        Dim s As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789!§$%&/?="
-        Dim sb As New StringBuilder
-        Dim cnt As Integer = r.Next(4, max)
-        For i As Integer = 1 To cnt
-            Dim idx As Integer = r.Next(0, s.Length)
-            sb.Append(s.Substring(idx, 1))
-        Next
-        Return sb.ToString()
-    End Function
+    'Function RandomString(r As Random, max As Integer) As String
+    'Dim s As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789!§$%&/?="
+    'Dim sb As New StringBuilder
+    'Dim cnt As Integer = r.Next(4, max)
+    'For i As Integer = 1 To cnt
+    'Dim idx As Integer = r.Next(0, s.Length)
+    '       sb.Append(s.Substring(idx, 1))
+    'Next
+    'Return sb.ToString()
+    'End Function
 
     Function SendEmail(username As String, password As String, email As String, tokenname As String) As Boolean
         Dim getdomianenvironment As String = ""