Token-Generierung Verbesserungen und Message Box Antworten-Evalition.

login/ForgotPW.aspx.vb

@@ -109,11 +109,23 @@ Partial Class login_ForgotPW
         Return False
     End Function
 
-    Function genToken() As String
+    Function genToken(username As String, password As String, email As String) 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
+        Try
+            Dim token As String = Convert.ToBase64String(time.Concat(Key).ToArray())
+            Return token
+        Catch Ex As Exception
+            Dim Msg, Style, Title As String
+            Msg = "Tokengenerierung fehlgeschlagen!" & vbCrLf & "Eine E-Mail wurde erneut an " + email + " zugesedet."
+            Style = vbRetry + vbExclamation + vbDefaultButton1
+            Title = "Fehler bei Token-Generierung"
+            MsgBox(Msg, Style, Title)
+
+            If MsgBox(Msg, Style, Title).Retry Then
+                SendEmail(username, password, email)
+            End If
+        End Try
     End Function
 
     Function getDateoftoken(tokenname As String) As Boolean