diff --git a/App_Code/TestPerformance.vb b/App_Code/TestPerformance.vb index be75411..0728134 100644 --- a/App_Code/TestPerformance.vb +++ b/App_Code/TestPerformance.vb @@ -1,113 +1,150 @@ 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 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 TestHashrateServer(zahlint As Integer) As Threading.Tasks.Task(Of Boolean) + Dim arrkeys As New List(Of Byte()) + Dim arrzahl As New List(Of Integer) + Dim arrzahl_iterats As New List(Of Integer) + Dim hashbytes As New List(Of Byte()) + Dim arrzeitp1 As New List(Of Long) + Dim arrzeitp2 As New List(Of Long) + Dim arrzeitp3 As New List(Of Long) + Dim arrzeitp4 As New List(Of Long) + + Dim sw1 As Stopwatch = New Stopwatch + Dim sw2 As Stopwatch = New Stopwatch + + For zahl As Integer = 0 To zahlint + sw1.Start() + arrkeys.Add(VERAG_VARIABLES.GenerateSalt(VERAG_VARIABLES.RandomInteger(0, zahlint))) + arrzahl_iterats.Add(VERAG_VARIABLES.getiterationnumber) + arrzahl.Add(VERAG_VARIABLES.RandomInteger(Math.Pow(2, 4), VERAG_VARIABLES.RandomInteger(Math.Pow(2, 10), Math.Pow(2, 14)))) + sw1.Stop() + arrzeitp1.Add(sw1.ElapsedMilliseconds) + sw1.Reset() + Next + Dim pw As String = "q~^Vd$fS§§nS4!q" + For zahl As Integer = 0 To zahlint + sw2.Start() + hashbytes.Add(Await VERAG_VARIABLES.HashPassword(pw, arrkeys(zahl), arrzahl_iterats(zahl), arrzahl(zahl))) + sw2.Stop() + arrzeitp2.Add(sw2.ElapsedMilliseconds) + sw2.Reset() + Next + + Return False + End Function End Class diff --git a/Customers/Default2.aspx.vb b/Customers/Default2.aspx.vb index 7810f98..2b57095 100644 --- a/Customers/Default2.aspx.vb +++ b/Customers/Default2.aspx.vb @@ -16,7 +16,7 @@ Partial Class Customers_Default2 VERAG_VARIABLES.initerrorcount() Dim vals As New List(Of String) Dim finalstr As String = "" - For i As Integer = Integer.Parse(TextBox1.Text)+1 To Integer.Parse(TextBox2.Text) + For i As Integer = Integer.Parse(TextBox1.Text) + 1 To Integer.Parse(TextBox2.Text) Dim strtemp As String = "" VERAG_VARIABLES.seterrorcount(Integer.Parse(i)) diff --git a/Customers/LKWs.aspx.vb b/Customers/LKWs.aspx.vb index 40b38a8..38a713b 100644 --- a/Customers/LKWs.aspx.vb +++ b/Customers/LKWs.aspx.vb @@ -98,6 +98,8 @@ Partial Class LKWS initcells(tblhrow, tbhc_KFZKennz, tbhc_Nat, tblhc_Verk, tblhc_Kz, tblhc_Verm, tr1, tc_KfzKennz, tc_Nationalitaet, tc_Verk, tc_KZ_Ab, tc_Vermerk, cnt) Dim Stringtemp As String = String.Empty Dim strtemparr As String = String.Empty + Dim strtemp2 As String = String.Empty + Dim strarrtemp = String.Empty For Each l2 In list2 Dim String2 As String = String.Empty @@ -108,19 +110,17 @@ Partial Class LKWS End If list3.Add(l2.SDLNr.ToString + ";" + Stringtemp + ";" + l2.GültigBis.ToString + ";" + l2.KartenNr.ToString) - - Dim strtemp2 As String = String.Empty - If String.IsNullOrEmpty(l1.Nationalität) = True Then - strtemp2 = "Keine Angabe" - Else - strtemp2 = l1.Nationalität - End If - Dim strarrtemp = String.Empty - For Each l4 In list3 - strarrtemp = String.Join("-", l4) - Next - tr1.Attributes.Add("OnClick", "Javascript:TableRowClick(""" & strarrtemp & """,""" & l1.KfzKennzeichen & """,""" & strtemp2 & """)") Next + If String.IsNullOrEmpty(l1.Nationalität) = True Then + strtemp2 = "Keine Angabe" + Else + strtemp2 = l1.Nationalität + End If + + For Each l4 In list3 + strarrtemp = String.Join("-", l4.ToString) + Next + tr1.Attributes.Add("OnClick", "Javascript:TableRowClick(""" & strarrtemp & """,""" & l1.KfzKennzeichen & """,""" & strtemp2 & """)") cnt += 1 tbl_sidemenue.Rows.Add(tr1) Next