From c4fb20d4a2eb2d01911b1a3de2588c3e981bdd0f Mon Sep 17 00:00:00 2001 From: ja Date: Thu, 14 Oct 2021 09:25:43 +0200 Subject: [PATCH] =?UTF-8?q?Korrektes=20L=C3=B6schen=20des=20Tokens?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- login/ForgotPW.aspx.vb | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) diff --git a/login/ForgotPW.aspx.vb b/login/ForgotPW.aspx.vb index 3ee824b..8bc5f20 100644 --- a/login/ForgotPW.aspx.vb +++ b/login/ForgotPW.aspx.vb @@ -231,8 +231,8 @@ Partial Class login_ForgotPW Dim wenn As DateTime = DateTime.UtcNow.AddSeconds(-5) If jetzt < wenn Then - 'Return "NotYet" - 'Else + Return "NotYet" + Else token = genToken(username, password, email) Return token 'End If @@ -246,17 +246,14 @@ Partial Class login_ForgotPW If wenn > DateTime.UtcNow.AddMinutes(-30) Then tokenname = String.Empty 'MsgBox("Token has not been found or is too old!" + Environment.NewLine + "Please send a new E-mail!") - - Session.Remove("TokenforEmail") - - - Return False - ElseIf tokenname = "NotYet" Then Session.Remove("TokenforEmail") Return False ElseIf tokenname = "Error04" Then + tokenname = String.Empty Session.Remove("TokenforEmail") Return False + ElseIf tokenname = "NotYet" Then + Return True Else Return True End If