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

MD5-Hash erfolgreich generiert und implementiert.

Browse Source
This commit is contained in:
ja
2021-12-01 14:20:50 +01:00
parent a41804a4bb
commit faa457092d
2 changed files with 63 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
login/ForgotPW.aspx.vb
View File

@@ -454,7 +454,7 @@ Partial Class ForgotPW
Else
tokenname = Session.Item("TokenforEmail")
End If
Dim md5temptoken As String = gensaltToken(username, password, email, customerID, isusernameright, isuserIDright, isuserEmailright, Session.IsNewSession, UserID)
'Dim md5temptoken As String = gensaltToken(username, password, email, customerID, isusernameright, isuserIDright, isuserEmailright, Session.IsNewSession, UserID)
'MsgBox("Token:" + tokenname + Environment.NewLine + "md5" + md5temptoken)
If SendEmail_M(username, password, email, tokenname, customerID, isusernameright, isuserIDright, isuserEmailright, Session.IsNewSession, UserID) = True Then
'password = RandomString(New Random, 10)
@@ -778,7 +778,7 @@ Partial Class ForgotPW
If jetzt < wenn Then
Return "NotYet"
Else
token = genToken(username, password, email, CustomerID, isusrnmright, iscstmIDright, isemailright, Session.IsNewSession, theUserID)
token = gensaltToken(username, password, email, CustomerID, isusrnmright, iscstmIDright, isemailright, Session.IsNewSession, theUserID)
Return token
'End If
End If