diff --git a/App_Code/TestPerformance.vb b/App_Code/TestPerformance.vb index ef72513..be75411 100644 --- a/App_Code/TestPerformance.vb +++ b/App_Code/TestPerformance.vb @@ -1,164 +1,113 @@ Imports System.Data.SqlClient -Imports System.Diagnostics Imports Microsoft.VisualBasic Public Class TestPerformance - Public Shared zeitspannefürtest As Long - Public Shared Sub createnUsers(ByRef n As Integer) - Dim ConnectionString = "" + 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 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 Using + End Sub + Public Shared DeleteUsers() End Class diff --git a/Customers/Default.aspx b/Customers/Default.aspx index 2f0002f..6db6a25 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" Async="true" %> +<%@ Page Title="" Language="VB" MasterPageFile="~/Customers/Customers.master" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="Customers_Default" %> diff --git a/Customers/Default2.aspx b/Customers/Default2.aspx index 80d4654..d0de7aa 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" Async="true" %> +<%@ Page Title="" Language="VB" MasterPageFile="~/Customers/Customers.master" AutoEventWireup="false" CodeFile="Default2.aspx.vb" Inherits="Customers_Default2" %> <%If String.Equals(Page.User.Identity.Name, "Admin") = False Then FormsAuthentication.RedirectToLoginPage() @@ -78,10 +78,8 @@ - - - Hier wird das Ergebnis angezeigt! - + + diff --git a/Customers/Default2.aspx.vb b/Customers/Default2.aspx.vb index 4574e2c..7810f98 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 Async Sub Page_Load(ByVal sender As Object, e As EventArgs) Handles Me.Load + Protected Sub Page_Load(ByVal sender As Object, e As EventArgs) Handles Me.Load If Page.IsPostBack Then Page.MaintainScrollPositionOnPostBack = True @@ -33,12 +33,4 @@ 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 727a14a..1359a42 100644 --- a/newpageJulius.aspx +++ b/newpageJulius.aspx @@ -6,8 +6,7 @@ <%@ import Namespace="MySql.Data.MySqlClient" %>