Datum angepasst

This commit is contained in:
ja
2021-10-13 09:39:19 +02:00
parent ce75a6d10d
commit 743dedcf68

View File

@@ -95,7 +95,7 @@ Partial Class login_ChangePW
Dim data() As Byte = Convert.FromBase64String(tokenname) Dim data() As Byte = Convert.FromBase64String(tokenname)
Dim wenn As DateTime = DateTime.FromBinary(BitConverter.ToInt64(data, 0)) Dim wenn As DateTime = DateTime.FromBinary(BitConverter.ToInt64(data, 0))
If wenn < DateTime.UtcNow.AddMinutes(-3) Then If wenn < DateTime.UtcNow.AddMinutes(-30) Then
Return False Return False
tokenname = "" tokenname = ""
MsgBox("Token nicht gefunden oder zu alt!" + Environment.NewLine + "Bitte erneut Mail senden!") MsgBox("Token nicht gefunden oder zu alt!" + Environment.NewLine + "Bitte erneut Mail senden!")