Serverseitiges Ändern wurde angefangen implementiert zu werden.

Customers/Default2.aspx.vb

@@ -1,4 +1,4 @@
-
+Imports Konscious.Security.Cryptography
 Partial Class Customers_Default2
     Inherits System.Web.UI.Page
     Protected Sub Page_Load(ByVal sender As Object, e As EventArgs) Handles Me.Load
@@ -33,4 +33,9 @@ Partial Class Customers_Default2
             txt_Fehlercodezuzahl.Text = finalstr
         End If
     End Sub
+
+    Protected Async Sub btn_TesthashrateServer_ClickAsync(sender As Object, e As EventArgs) Handles btn_TesthashrateServer.Click
+        Dim zahl As Integer = VERAG_VARIABLES.RandomInteger(5, Math.Pow(2, 5))
+        Dim pwhashresult As Byte() = Await TestPerformance.TestHashrateServer(zahl)
+    End Sub
 End Class