edv/VERAG_Homepage
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

unnötige random string Generator Funktion wurde auskommentiert.

Browse Source
This commit is contained in:
ja
2021-10-11 16:56:27 +02:00
parent de97268353
commit b072345183
1 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
login/ForgotPW.aspx.vb
View File

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