Änderungen

2021-12-15 11:23:00 +01:00
parent a689d48aa6
commit 94c7c5fd99
5 changed files with 168 additions and 106 deletions
--- a/App_Code/TestPerformance.vb
+++ b/App_Code/TestPerformance.vb
@@ -1,113 +1,164 @@
 Imports System.Data.SqlClient
+Imports System.Diagnostics
 Imports Microsoft.VisualBasic


 Public Class TestPerformance
-	Public Shared Sub createnUsers(ByRef n As Integer)
-		Dim ConnectionString = ""
+    Public Shared zeitspannefürtest As Long
+    Public Shared Sub createnUsers(ByRef n As Integer)
+        Dim ConnectionString = ""

-		If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
-			VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
-			'ConnectionString = "Server=DEVELOPER\DEVSQL;Database=VERAG_HOMEPAGE;Uid=sa;Pwd=BmWr501956"
-			ConnectionString = "Server=DEVELOPER\DEVSQL;Database=VERAG_HOMEPAGE;Uid=AppUser;Pwd=yp/THDd?xM+pZ$;"
-		Else
-			VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
-			ConnectionString = "Server=DEVELOPER.verag.ost.dmn\DEVSQL;Database=VERAG_HOMEPAGE;Uid=AppUser;Pwd=yp/THDd?xM+pZ$;"
-			'ConnectionString = "Server=db593295684.db.1and1.com;Database=db593295684;Uid=dbo593295684;Pwd=atilla#2;"
-		End If
+        If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
+            VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
+            'ConnectionString = "Server=DEVELOPER\DEVSQL;Database=VERAG_HOMEPAGE;Uid=sa;Pwd=BmWr501956"
+            ConnectionString = "Server=DEVELOPER\DEVSQL;Database=VERAG_HOMEPAGE;Uid=AppUser;Pwd=yp/THDd?xM+pZ$;"
+        Else
+            VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+            ConnectionString = "Server=DEVELOPER.verag.ost.dmn\DEVSQL;Database=VERAG_HOMEPAGE;Uid=AppUser;Pwd=yp/THDd?xM+pZ$;"
+            'ConnectionString = "Server=db593295684.db.1and1.com;Database=db593295684;Uid=dbo593295684;Pwd=atilla#2;"
+        End If

-		Using con As New SqlConnection(ConnectionString)
-			' Using cmd As New SqlCommand("Validate_User")
-			For nzahl As Integer = 0 To n Step 1
-				Dim UsrID As Integer = VERAG_VARIABLES.RandomInteger(VERAG_VARIABLES.RandomInteger(0, 15), VERAG_VARIABLES.RandomInteger(500, 45750))
-				Dim usrname As String = String.Empty
-				Dim pw As String = "Pw" + Convert.ToBase64String(VERAG_VARIABLES.GenerateSalt(VERAG_VARIABLES.RandomInteger(0, nzahl + 2)))
-				Dim email As String = "ja@verag.ag"
+        Using con As New SqlConnection(ConnectionString)
+            ' Using cmd As New SqlCommand("Validate_User")
+            For nzahl As Integer = 0 To n Step 1
+                Dim UsrID As Integer = VERAG_VARIABLES.RandomInteger(VERAG_VARIABLES.RandomInteger(0, 15), VERAG_VARIABLES.RandomInteger(500, 45750))
+                Dim usrname As String = String.Empty
+                Dim pw As String = "Pw" + Convert.ToBase64String(VERAG_VARIABLES.GenerateSalt(VERAG_VARIABLES.RandomInteger(0, nzahl + 2)))
+                Dim email As String = "ja@verag.ag"

-				Dim monthrndm As Integer = VERAG_VARIABLES.RandomInteger(1, 12)
-				Dim Yearrand As Integer = VERAG_VARIABLES.RandomInteger(2001, 2021)
-				Dim dayrand As Integer = VERAG_VARIABLES.RandomInteger(1, 30)
-				Dim datelastloggedin As Date = New Date(Yearrand, monthrndm, dayrand)
-				Dim monthrndm2 As Integer = VERAG_VARIABLES.RandomInteger(1, 12)
-				Dim Yearrand2 As Integer = VERAG_VARIABLES.RandomInteger(2001, 2021)
-				Dim dayrand2 As Integer = VERAG_VARIABLES.RandomInteger(1, 30)
-				Dim DateCreate As Date = New Date(Yearrand2, monthrndm2, dayrand2)
+                Dim monthrndm As Integer = VERAG_VARIABLES.RandomInteger(1, 12)
+                Dim Yearrand As Integer = VERAG_VARIABLES.RandomInteger(2001, 2021)
+                Dim dayrand As Integer = VERAG_VARIABLES.RandomInteger(1, 30)
+                Dim datelastloggedin As Date = New Date(Yearrand, monthrndm, dayrand)
+                Dim monthrndm2 As Integer = VERAG_VARIABLES.RandomInteger(1, 12)
+                Dim Yearrand2 As Integer = VERAG_VARIABLES.RandomInteger(2001, 2021)
+                Dim dayrand2 As Integer = VERAG_VARIABLES.RandomInteger(1, 30)
+                Dim DateCreate As Date = New Date(Yearrand2, monthrndm2, dayrand2)

-				'Namen
-				Dim lstCapitals As New ArrayList
-				' Capital Names
-				lstCapitals.Add("Montgomery")
-				lstCapitals.Add("Juneau")
-				lstCapitals.Add("Phoenix")
-				lstCapitals.Add("Little Rock")
-				lstCapitals.Add("Sacramento")
-				lstCapitals.Add("Denver")
-				lstCapitals.Add("Hartford")
-				lstCapitals.Add("Dover")
-				lstCapitals.Add("Tallahassee")
-				lstCapitals.Add("Atlanta")
-				lstCapitals.Add("Honolulu")
-				lstCapitals.Add("Boise")
-				lstCapitals.Add("Springfield")
-				lstCapitals.Add("Indianapolis")
-				lstCapitals.Add("Des Moines")
-				lstCapitals.Add("Topeka")
-				lstCapitals.Add("Frankfort")
-				lstCapitals.Add("Baton Rouge")
-				lstCapitals.Add("Augusta")
-				lstCapitals.Add("Annapolis")
-				lstCapitals.Add("Boston")
-				lstCapitals.Add("Lansing")
-				lstCapitals.Add("St. Paul")
-				lstCapitals.Add("Jackson")
-				lstCapitals.Add("Jefferson City")
-				lstCapitals.Add("Helena")
-				lstCapitals.Add("Lincoln")
-				lstCapitals.Add("Carson City")
-				lstCapitals.Add("Concord")
-				lstCapitals.Add("Trenton")
-				lstCapitals.Add("Santa Fe")
-				lstCapitals.Add("Albany")
-				lstCapitals.Add("Raleigh")
-				lstCapitals.Add("Bismarck")
-				lstCapitals.Add("Columbus")
-				lstCapitals.Add("Oklahoma City")
-				lstCapitals.Add("Salem")
-				lstCapitals.Add("Harrisburg")
-				lstCapitals.Add("Providence")
-				lstCapitals.Add("Columbia")
-				lstCapitals.Add("Pierre")
-				lstCapitals.Add("Nashville")
-				lstCapitals.Add("Austin")
-				lstCapitals.Add("Salt Lake City")
-				lstCapitals.Add("Montpelier")
-				lstCapitals.Add("Richmond")
-				lstCapitals.Add("Olympia")
-				lstCapitals.Add("Charleston")
-				lstCapitals.Add("Madison")
-				lstCapitals.Add("Cheyenne")
+                'Namen
+                Dim lstCapitals As New ArrayList
+                ' Capital Names
+                lstCapitals.Add("Montgomery")
+                lstCapitals.Add("Juneau")
+                lstCapitals.Add("Phoenix")
+                lstCapitals.Add("Little Rock")
+                lstCapitals.Add("Sacramento")
+                lstCapitals.Add("Denver")
+                lstCapitals.Add("Hartford")
+                lstCapitals.Add("Dover")
+                lstCapitals.Add("Tallahassee")
+                lstCapitals.Add("Atlanta")
+                lstCapitals.Add("Honolulu")
+                lstCapitals.Add("Boise")
+                lstCapitals.Add("Springfield")
+                lstCapitals.Add("Indianapolis")
+                lstCapitals.Add("Des Moines")
+                lstCapitals.Add("Topeka")
+                lstCapitals.Add("Frankfort")
+                lstCapitals.Add("Baton Rouge")
+                lstCapitals.Add("Augusta")
+                lstCapitals.Add("Annapolis")
+                lstCapitals.Add("Boston")
+                lstCapitals.Add("Lansing")
+                lstCapitals.Add("St. Paul")
+                lstCapitals.Add("Jackson")
+                lstCapitals.Add("Jefferson City")
+                lstCapitals.Add("Helena")
+                lstCapitals.Add("Lincoln")
+                lstCapitals.Add("Carson City")
+                lstCapitals.Add("Concord")
+                lstCapitals.Add("Trenton")
+                lstCapitals.Add("Santa Fe")
+                lstCapitals.Add("Albany")
+                lstCapitals.Add("Raleigh")
+                lstCapitals.Add("Bismarck")
+                lstCapitals.Add("Columbus")
+                lstCapitals.Add("Oklahoma City")
+                lstCapitals.Add("Salem")
+                lstCapitals.Add("Harrisburg")
+                lstCapitals.Add("Providence")
+                lstCapitals.Add("Columbia")
+                lstCapitals.Add("Pierre")
+                lstCapitals.Add("Nashville")
+                lstCapitals.Add("Austin")
+                lstCapitals.Add("Salt Lake City")
+                lstCapitals.Add("Montpelier")
+                lstCapitals.Add("Richmond")
+                lstCapitals.Add("Olympia")
+                lstCapitals.Add("Charleston")
+                lstCapitals.Add("Madison")
+                lstCapitals.Add("Cheyenne")

-				'Pulls a name randomly from the list
-				Dim stringname As String = lstCapitals.Item(VERAG_VARIABLES.RandomInteger(0, lstCapitals.Count))
-				usrname = stringname
+                'Pulls a name randomly from the list
+                Dim stringname As String = lstCapitals.Item(VERAG_VARIABLES.RandomInteger(0, lstCapitals.Count))
+                usrname = stringname

-				Using cmd As New SqlCommand("INSERT INTO [VERAG_HOMEPAGE].[dbo].[Users] VALUES (@UserId,@Username,@Password,@Email,@Date")
-					' cmd.CommandType = CommandType.StoredProcedure
-					cmd.Parameters.AddWithValue("@UserId", UsrID)
-					cmd.Parameters.AddWithValue("@Username", usrname)
-					cmd.Parameters.AddWithValue("@Password", pw)
-					cmd.Parameters.AddWithValue("@Email", email)
-					cmd.Parameters.AddWithValue("@Date", DateCreate)
-					cmd.Parameters.AddWithValue("Dateloggedinlast", datelastloggedin)
-					cmd.Connection = con
-					con.Open()
-					' userId = Convert.ToInt32(cmd.ExecuteScalar())
-					cmd.ExecuteScalar()
-					con.Close()
-				End Using
-			Next
+                Using cmd As New SqlCommand("INSERT INTO [VERAG_HOMEPAGE].[dbo].[Users] VALUES (@UserId,@Username,@Password,@Email,@Date")
+                    ' cmd.CommandType = CommandType.StoredProcedure
+                    cmd.Parameters.AddWithValue("@UserId", UsrID)
+                    cmd.Parameters.AddWithValue("@Username", usrname)
+                    cmd.Parameters.AddWithValue("@Password", pw)
+                    cmd.Parameters.AddWithValue("@Email", email)
+                    cmd.Parameters.AddWithValue("@Date", DateCreate)
+                    cmd.Parameters.AddWithValue("Dateloggedinlast", datelastloggedin)
+                    cmd.Connection = con
+                    con.Open()
+                    ' userId = Convert.ToInt32(cmd.ExecuteScalar())
+                    cmd.ExecuteScalar()
+                    con.Close()
+                End Using
+            Next

-		End Using
-	End Sub
-	Public Shared DeleteUsers()
+        End Using
+    End Sub
+    Public Shared Sub DeleteUsers()
+    End Sub
+
+    Public Shared Async Function TestSaltHashRateMax(z As Integer) As Threading.Tasks.Task(Of Byte())
+        Dim timespan As Long = New Long()
+        Dim timespan2 As Long = New Long()
+
+        Dim Bytearr As List(Of Byte()) = New List(Of Byte())
+        Dim pwarr As List(Of Byte()) = New List(Of Byte())
+        Dim pwselectedindex As Integer = -1
+        For ztemp As Integer = 0 To z
+            Bytearr.Add(VERAG_VARIABLES.GenerateSalt(z))
+        Next
+        For ztemp As Integer = 0 To z
+            Dim timer1 As Stopwatch = New Stopwatch
+            timer1.Start()
+            If timer1.IsRunning = True Then
+                Bytearr.Add(VERAG_VARIABLES.GenerateSalt(z))
+                Dim iteras As Integer = VERAG_VARIABLES.getiterationnumber()
+                Dim intz As Integer = VERAG_VARIABLES.RandomInteger(0, z)
+                Dim Passw As String = "XFV2ctdhB5G*S!r"
+                pwarr.Add(Await VERAG_VARIABLES.HashPassword(Passw, Bytearr.Item(z), iteras, intz))
+            End If
+            timer1.Stop()
+            timespan = timer1.ElapsedMilliseconds
+            Dim timer2 As Stopwatch = New Stopwatch
+            timer2.Start()
+            If timer2.IsRunning = True Then
+                Bytearr.Add(VERAG_VARIABLES.GenerateSalt(z))
+                Dim iteras As Integer = VERAG_VARIABLES.getiterationnumber()
+                Dim intz As Integer = VERAG_VARIABLES.RandomInteger(0, z)
+                Dim Passw As String = "XFV2ctdhB5G*S!r"
+                pwarr.Add(Await VERAG_VARIABLES.HashPassword(Passw, Bytearr.Item(z), iteras, intz))
+            End If
+            timer2.Stop()
+            timespan2 = timer2.ElapsedMilliseconds
+            If timespan2 < timespan Then
+                pwselectedindex = z
+                zeitspannefürtest = timespan2
+            ElseIf timespan < timespan2 Then
+                pwselectedindex = z
+                zeitspannefürtest = timespan
+            End If
+        Next
+
+        If Not pwselectedindex = -1 Then
+            Return Bytearr(pwselectedindex)
+        End If
+
+    End Function
 End Class
--- a/Customers/Default.aspx
+++ b/Customers/Default.aspx
@@ -1,4 +1,4 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Customers/Customers.master" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="Customers_Default" %>
+<%@ Page Title="" Language="VB" MasterPageFile="~/Customers/Customers.master" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="Customers_Default" Async="true" %>

 <asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder2" Runat="Server">
 </asp:Content>
--- a/Customers/Default2.aspx
+++ b/Customers/Default2.aspx
@@ -1,4 +1,4 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Customers/Customers.master" AutoEventWireup="false" CodeFile="Default2.aspx.vb" Inherits="Customers_Default2" %>
+<%@ Page Title="" Language="VB" MasterPageFile="~/Customers/Customers.master" AutoEventWireup="false" CodeFile="Default2.aspx.vb" Inherits="Customers_Default2" Async="true" %>

 <asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder2" Runat="Server"><%If String.Equals(Page.User.Identity.Name, "Admin") = False Then
                                                                                             FormsAuthentication.RedirectToLoginPage()
@@ -78,8 +78,10 @@
                 </td>
             </tr>
             <tr><td>          
-    <tr><td><asp:Button ID="Button1" runat="server" Text="Button" OnClick="Button1_Click" /></td></tr>    
-             </table>
+    <tr><td><asp:Button ID="Button1" runat="server" Text="Button" OnClick="Button1_Click" /></td></tr>   
+             <tr><td><asp:Button ID="Butn_TestHashrate" runat="server" OnClick="Butn_TestHashrate_ClickAsync" BackColor="WhiteSmoke" Text="Test the Hashrate of the Server"/></td></tr>
+         <tr><td><asp:Label ID="lbl_resulttesthashrate" runat="server" ClientIDMode="AutoID">Hier wird das Ergebnis angezeigt!</asp:Label></td></tr>    
+         </table>
         </ContentTemplate>
     </asp:UpdatePanel>
 </asp:Content>
--- a/Customers/Default2.aspx.vb
+++ b/Customers/Default2.aspx.vb
@@ -1,7 +1,7 @@

 Partial Class Customers_Default2
    Inherits System.Web.UI.Page
-    Protected Sub Page_Load(ByVal sender As Object, e As EventArgs) Handles Me.Load
+    Protected Async Sub Page_Load(ByVal sender As Object, e As EventArgs) Handles Me.Load

        If Page.IsPostBack Then
            Page.MaintainScrollPositionOnPostBack = True
@@ -33,4 +33,12 @@ Partial Class Customers_Default2
            txt_Fehlercodezuzahl.Text = finalstr
        End If
    End Sub
+
+    Protected Async Function Butn_TestHashrate_ClickAsync(sender As Object, e As EventArgs) As Threading.Tasks.Task
+        Dim ztemp As Byte() = Await TestPerformance.TestSaltHashRateMax(VERAG_VARIABLES.RandomInteger(Math.Pow(2, 10), Math.Pow(2, 14)))
+
+        lbl_resulttesthashrate.ForeColor = Drawing.Color.GreenYellow
+        lbl_resulttesthashrate.Text = "Successful Test with: " + Convert.ToBase64String(ztemp) + "in der zeit: " + Space(2) + TimeSpan.FromMilliseconds(TestPerformance.zeitspannefürtest).Milliseconds.ToString
+
+    End Function
 End Class
--- a/newpageJulius.aspx
+++ b/newpageJulius.aspx
@@ -6,7 +6,8 @@
 <head>
       <%@ import Namespace="MySql.Data.MySqlClient" %>
    <script runat="server">
-        Sub Page_Load() Handles Me.Load
+        Overloads Sub Page_Load() Handles Me.Load
+
            '  MsgBox ("test")
            'Dim con As New MySqlConnection
            'Dim cmd As New MySqlCommand