Designänderungen und Tokengenerierungsfunktion

login/ForgotPW.aspx.vb

@@ -106,7 +106,23 @@ Partial Class login_ForgotPW
         Return False
     End Function
 
+    Function genToken() As String
+        Dim time() As Byte = BitConverter.GetBytes(DateTime.UtcNow.ToBinary())
+        Dim Key() As Byte = Guid.NewGuid().ToByteArray()
+        Dim token As String = Convert.ToBase64String(time.Concat(Key).ToArray())
+        Return token
+    End Function
 
+    Function getDateoftoken(tokenname As String) As Boolean
+        Dim data() As Byte = Convert.FromBase64String(tokenname)
+        Dim wenn As DateTime = DateTime.FromBinary(BitConverter.ToInt64(data, 0))
+        If wenn < DateTime.UtcNow.AddHours(-24) Then
+            Return False
+            MsgBox("Token nicht gefunden oder zu alt!" + Environment.NewLine + "Bitte erneut Mail senden!")
+        Else
+            Return True
+        End If
+    End Function
 
     Protected Sub txtEmail_TextChanged(sender As Object, e As EventArgs)
         regexval_txt_Email.Validate()