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 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
tokenname = ""
MsgBox("Token nicht gefunden oder zu alt!" + Environment.NewLine + "Bitte erneut Mail senden!")