Änderungen

login/login_FLEX.aspx.vb

@@ -228,31 +228,39 @@ Partial Class login_FLEX
             Dim token As Byte()
 
             token = Await VERAG_VARIABLES.HashPassword(Convert.ToBase64String(time.Concat(Key).ToArray()), salt, intzahliterats, intzahl)
-                Return VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(Convert.ToBase64String(token))
+            Return VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(Convert.ToBase64String(token))
 
-                'Dim Msg, Style, Title As String
-                'Msg = "Token Generation failed" & vbCrLf & "A new E-mail has been sent to the intern e-mail given."
-                'Style = vbRetry + vbExclamation + vbDefaultButton1
-                'Title = "Error05: Token-Generierung"
-                'MsgBox(Msg, Style, Title)
-                'If MsgBox(Msg, Style, Title).Retry Then
-                'genToken(username, password, email)
+            'Dim Msg, Style, Title As String
+            'Msg = "Token Generation failed" & vbCrLf & "A new E-mail has been sent to the intern e-mail given."
+            'Style = vbRetry + vbExclamation + vbDefaultButton1
+            'Title = "Error05: Token-Generierung"
+            'MsgBox(Msg, Style, Title)
+            'If MsgBox(Msg, Style, Title).Retry Then
+            'genToken(username, password, email)
+            token = Await VERAG_VARIABLES.HashPassword(Convert.ToBase64String(time.Concat(Key).ToArray()), salt, intzahliterats, intzahl)
+            Return VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(Convert.ToBase64String(token))
+
+            'Else
+            'MsgBox("Token-Generation has not been successful." & vbCrLf & "Please try again in five seconds!")
+            Dim jetzt As DateTime = DateTime.UtcNow
+            Dim wenn As DateTime = DateTime.UtcNow.AddSeconds(-5)
+
+            If jetzt < wenn Then
+                Return "NotYet"
+            Else
                 token = Await VERAG_VARIABLES.HashPassword(Convert.ToBase64String(time.Concat(Key).ToArray()), salt, intzahliterats, intzahl)
                 Return VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(Convert.ToBase64String(token))
-
-                'Else
-                'MsgBox("Token-Generation has not been successful." & vbCrLf & "Please try again in five seconds!")
-                Dim jetzt As DateTime = DateTime.UtcNow
-                Dim wenn As DateTime = DateTime.UtcNow.AddSeconds(-5)
-
-                If jetzt < wenn Then
-                    Return "NotYet"
-                Else
-                    token = Await VERAG_VARIABLES.HashPassword(Convert.ToBase64String(time.Concat(Key).ToArray()), salt, intzahliterats, intzahl)
-                    Return VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(Convert.ToBase64String(token))
-                    'End If
-                End If
+                'End If
+            End If
 
         End If
     End Function
+
+    Protected Sub CreateTestusers_Click(sender As Object, e As EventArgs)
+        Dim str As String = String.Empty
+        Dim textbox As TextBox = Page.FindControl("txt_numbuserstes")
+        str = textbox.Text
+
+        TestPerformance.createnUsers(Integer.Parse(str))
+    End Sub
 End Class