From b072345183a36f122aad3706e0ec66bc34f6c24d Mon Sep 17 00:00:00 2001
From: ja <ja@verag.ag>
Date: Mon, 11 Oct 2021 16:56:27 +0200
Subject: [PATCH] =?UTF-8?q?unn=C3=B6tige=20random=20string=20Generator=20F?=
 =?UTF-8?q?unktion=20=20wurde=20auskommentiert.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 login/ForgotPW.aspx.vb | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/login/ForgotPW.aspx.vb b/login/ForgotPW.aspx.vb
index a99ac6c..ba3db1f 100644
--- a/login/ForgotPW.aspx.vb
+++ b/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 = ""