From 94c7c5fd99e2614fc72be6d3787343ac5d78ee72 Mon Sep 17 00:00:00 2001 From: ja Date: Wed, 15 Dec 2021 11:23:00 +0100 Subject: [PATCH] =?UTF-8?q?=C3=84nderungen?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/TestPerformance.vb | 251 ++++++++++++++++++++++-------------- Customers/Default.aspx | 2 +- Customers/Default2.aspx | 8 +- Customers/Default2.aspx.vb | 10 +- newpageJulius.aspx | 3 +- 5 files changed, 168 insertions(+), 106 deletions(-) diff --git a/App_Code/TestPerformance.vb b/App_Code/TestPerformance.vb index be75411..ef72513 100644 --- 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 diff --git a/Customers/Default.aspx b/Customers/Default.aspx index 6db6a25..2f0002f 100644 --- 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" %> diff --git a/Customers/Default2.aspx b/Customers/Default2.aspx index d0de7aa..80d4654 100644 --- 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" %> <%If String.Equals(Page.User.Identity.Name, "Admin") = False Then FormsAuthentication.RedirectToLoginPage() @@ -78,8 +78,10 @@ - - + + + Hier wird das Ergebnis angezeigt! + diff --git a/Customers/Default2.aspx.vb b/Customers/Default2.aspx.vb index 7810f98..4574e2c 100644 --- 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 diff --git a/newpageJulius.aspx b/newpageJulius.aspx index 1359a42..727a14a 100644 --- a/newpageJulius.aspx +++ b/newpageJulius.aspx @@ -6,7 +6,8 @@ <%@ import Namespace="MySql.Data.MySqlClient" %>