Ergänzung zu Commit Nr: e4fe73a8

This commit is contained in:
ja
2021-10-11 13:25:23 +02:00
parent e4fe73a8a6
commit 23bdc56cbd

View File

@@ -148,7 +148,7 @@ Partial Class login_ForgotPW
Dim time() As Byte = BitConverter.GetBytes(DateTime.UtcNow.ToBinary()) Dim time() As Byte = BitConverter.GetBytes(DateTime.UtcNow.ToBinary())
Dim Key() As Byte = Guid.NewGuid().ToByteArray() Dim Key() As Byte = Guid.NewGuid().ToByteArray()
Dim token As String Dim token As String
If username = Not Nothing And email = Not Nothing Then If username = Not Nothing AndAlso email = Not Nothing Then
Try Try
token = Convert.ToBase64String(time.Concat(Key).ToArray()) token = Convert.ToBase64String(time.Concat(Key).ToArray())
Return token Return token