edv/VERAG_Homepage
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Änderung Implementierung async hasratetestfunktion

Browse Source
This commit is contained in:
ja
2021-12-15 13:37:55 +01:00
parent 70f98269be
commit dab0621a8e
3 changed files with 150 additions and 113 deletions
Download Patch File Download Diff File Expand all files Collapse all files

237
App_Code/TestPerformance.vb
View File

@@ -1,113 +1,150 @@
Imports System.Data.SqlClient Imports System.Data.SqlClient
Imports System.Diagnostics
Imports Microsoft.VisualBasic Imports Microsoft.VisualBasic
Public Class TestPerformance Public Class TestPerformance
Public Shared Sub createnUsers(ByRef n As Integer) Public Shared Sub createnUsers(ByRef n As Integer)
Dim ConnectionString = "" Dim ConnectionString = ""
If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True 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=sa;Pwd=BmWr501956"
ConnectionString = "Server=DEVELOPER\DEVSQL;Database=VERAG_HOMEPAGE;Uid=AppUser;Pwd=yp/THDd?xM+pZ$;" ConnectionString = "Server=DEVELOPER\DEVSQL;Database=VERAG_HOMEPAGE;Uid=AppUser;Pwd=yp/THDd?xM+pZ$;"
Else Else
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False 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=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;" 'ConnectionString = "Server=db593295684.db.1and1.com;Database=db593295684;Uid=dbo593295684;Pwd=atilla#2;"
End If End If
Using con As New SqlConnection(ConnectionString) Using con As New SqlConnection(ConnectionString)
' Using cmd As New SqlCommand("Validate_User") ' Using cmd As New SqlCommand("Validate_User")
For nzahl As Integer = 0 To n Step 1 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 UsrID As Integer = VERAG_VARIABLES.RandomInteger(VERAG_VARIABLES.RandomInteger(0, 15), VERAG_VARIABLES.RandomInteger(500, 45750))
Dim usrname As String = String.Empty Dim usrname As String = String.Empty
Dim pw As String = "Pw" + Convert.ToBase64String(VERAG_VARIABLES.GenerateSalt(VERAG_VARIABLES.RandomInteger(0, nzahl + 2))) Dim pw As String = "Pw" + Convert.ToBase64String(VERAG_VARIABLES.GenerateSalt(VERAG_VARIABLES.RandomInteger(0, nzahl + 2)))
Dim email As String = "ja@verag.ag" Dim email As String = "ja@verag.ag"
Dim monthrndm As Integer = VERAG_VARIABLES.RandomInteger(1, 12) Dim monthrndm As Integer = VERAG_VARIABLES.RandomInteger(1, 12)
Dim Yearrand As Integer = VERAG_VARIABLES.RandomInteger(2001, 2021) Dim Yearrand As Integer = VERAG_VARIABLES.RandomInteger(2001, 2021)
Dim dayrand As Integer = VERAG_VARIABLES.RandomInteger(1, 30) Dim dayrand As Integer = VERAG_VARIABLES.RandomInteger(1, 30)
Dim datelastloggedin As Date = New Date(Yearrand, monthrndm, dayrand) Dim datelastloggedin As Date = New Date(Yearrand, monthrndm, dayrand)
Dim monthrndm2 As Integer = VERAG_VARIABLES.RandomInteger(1, 12) Dim monthrndm2 As Integer = VERAG_VARIABLES.RandomInteger(1, 12)
Dim Yearrand2 As Integer = VERAG_VARIABLES.RandomInteger(2001, 2021) Dim Yearrand2 As Integer = VERAG_VARIABLES.RandomInteger(2001, 2021)
Dim dayrand2 As Integer = VERAG_VARIABLES.RandomInteger(1, 30) Dim dayrand2 As Integer = VERAG_VARIABLES.RandomInteger(1, 30)
Dim DateCreate As Date = New Date(Yearrand2, monthrndm2, dayrand2) Dim DateCreate As Date = New Date(Yearrand2, monthrndm2, dayrand2)
'Namen 'Namen
Dim lstCapitals As New ArrayList Dim lstCapitals As New ArrayList
' Capital Names ' Capital Names
lstCapitals.Add("Montgomery") lstCapitals.Add("Montgomery")
lstCapitals.Add("Juneau") lstCapitals.Add("Juneau")
lstCapitals.Add("Phoenix") lstCapitals.Add("Phoenix")
lstCapitals.Add("Little Rock") lstCapitals.Add("Little Rock")
lstCapitals.Add("Sacramento") lstCapitals.Add("Sacramento")
lstCapitals.Add("Denver") lstCapitals.Add("Denver")
lstCapitals.Add("Hartford") lstCapitals.Add("Hartford")
lstCapitals.Add("Dover") lstCapitals.Add("Dover")
lstCapitals.Add("Tallahassee") lstCapitals.Add("Tallahassee")
lstCapitals.Add("Atlanta") lstCapitals.Add("Atlanta")
lstCapitals.Add("Honolulu") lstCapitals.Add("Honolulu")
lstCapitals.Add("Boise") lstCapitals.Add("Boise")
lstCapitals.Add("Springfield") lstCapitals.Add("Springfield")
lstCapitals.Add("Indianapolis") lstCapitals.Add("Indianapolis")
lstCapitals.Add("Des Moines") lstCapitals.Add("Des Moines")
lstCapitals.Add("Topeka") lstCapitals.Add("Topeka")
lstCapitals.Add("Frankfort") lstCapitals.Add("Frankfort")
lstCapitals.Add("Baton Rouge") lstCapitals.Add("Baton Rouge")
lstCapitals.Add("Augusta") lstCapitals.Add("Augusta")
lstCapitals.Add("Annapolis") lstCapitals.Add("Annapolis")
lstCapitals.Add("Boston") lstCapitals.Add("Boston")
lstCapitals.Add("Lansing") lstCapitals.Add("Lansing")
lstCapitals.Add("St. Paul") lstCapitals.Add("St. Paul")
lstCapitals.Add("Jackson") lstCapitals.Add("Jackson")
lstCapitals.Add("Jefferson City") lstCapitals.Add("Jefferson City")
lstCapitals.Add("Helena") lstCapitals.Add("Helena")
lstCapitals.Add("Lincoln") lstCapitals.Add("Lincoln")
lstCapitals.Add("Carson City") lstCapitals.Add("Carson City")
lstCapitals.Add("Concord") lstCapitals.Add("Concord")
lstCapitals.Add("Trenton") lstCapitals.Add("Trenton")
lstCapitals.Add("Santa Fe") lstCapitals.Add("Santa Fe")
lstCapitals.Add("Albany") lstCapitals.Add("Albany")
lstCapitals.Add("Raleigh") lstCapitals.Add("Raleigh")
lstCapitals.Add("Bismarck") lstCapitals.Add("Bismarck")
lstCapitals.Add("Columbus") lstCapitals.Add("Columbus")
lstCapitals.Add("Oklahoma City") lstCapitals.Add("Oklahoma City")
lstCapitals.Add("Salem") lstCapitals.Add("Salem")
lstCapitals.Add("Harrisburg") lstCapitals.Add("Harrisburg")
lstCapitals.Add("Providence") lstCapitals.Add("Providence")
lstCapitals.Add("Columbia") lstCapitals.Add("Columbia")
lstCapitals.Add("Pierre") lstCapitals.Add("Pierre")
lstCapitals.Add("Nashville") lstCapitals.Add("Nashville")
lstCapitals.Add("Austin") lstCapitals.Add("Austin")
lstCapitals.Add("Salt Lake City") lstCapitals.Add("Salt Lake City")
lstCapitals.Add("Montpelier") lstCapitals.Add("Montpelier")
lstCapitals.Add("Richmond") lstCapitals.Add("Richmond")
lstCapitals.Add("Olympia") lstCapitals.Add("Olympia")
lstCapitals.Add("Charleston") lstCapitals.Add("Charleston")
lstCapitals.Add("Madison") lstCapitals.Add("Madison")
lstCapitals.Add("Cheyenne") lstCapitals.Add("Cheyenne")
'Pulls a name randomly from the list 'Pulls a name randomly from the list
Dim stringname As String = lstCapitals.Item(VERAG_VARIABLES.RandomInteger(0, lstCapitals.Count)) Dim stringname As String = lstCapitals.Item(VERAG_VARIABLES.RandomInteger(0, lstCapitals.Count))
usrname = stringname usrname = stringname
Using cmd As New SqlCommand("INSERT INTO [VERAG_HOMEPAGE].[dbo].[Users] VALUES (@UserId,@Username,@Password,@Email,@Date") Using cmd As New SqlCommand("INSERT INTO [VERAG_HOMEPAGE].[dbo].[Users] VALUES (@UserId,@Username,@Password,@Email,@Date")
' cmd.CommandType = CommandType.StoredProcedure ' cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.AddWithValue("@UserId", UsrID) cmd.Parameters.AddWithValue("@UserId", UsrID)
cmd.Parameters.AddWithValue("@Username", usrname) cmd.Parameters.AddWithValue("@Username", usrname)
cmd.Parameters.AddWithValue("@Password", pw) cmd.Parameters.AddWithValue("@Password", pw)
cmd.Parameters.AddWithValue("@Email", email) cmd.Parameters.AddWithValue("@Email", email)
cmd.Parameters.AddWithValue("@Date", DateCreate) cmd.Parameters.AddWithValue("@Date", DateCreate)
cmd.Parameters.AddWithValue("Dateloggedinlast", datelastloggedin) cmd.Parameters.AddWithValue("Dateloggedinlast", datelastloggedin)
cmd.Connection = con cmd.Connection = con
con.Open() con.Open()
' userId = Convert.ToInt32(cmd.ExecuteScalar()) ' userId = Convert.ToInt32(cmd.ExecuteScalar())
cmd.ExecuteScalar() cmd.ExecuteScalar()
con.Close() con.Close()
End Using End Using
Next Next
End Using End Using
End Sub End Sub
Public Shared DeleteUsers() 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 End Class

2
Customers/Default2.aspx.vb
View File

@@ -16,7 +16,7 @@ Partial Class Customers_Default2
VERAG_VARIABLES.initerrorcount() VERAG_VARIABLES.initerrorcount()
Dim vals As New List(Of String) Dim vals As New List(Of String)
Dim finalstr As 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 = "" Dim strtemp As String = ""
VERAG_VARIABLES.seterrorcount(Integer.Parse(i)) VERAG_VARIABLES.seterrorcount(Integer.Parse(i))

24
Customers/LKWs.aspx.vb
View File

@@ -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) 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 Stringtemp As String = String.Empty
Dim strtemparr 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 For Each l2 In list2
Dim String2 As String = String.Empty Dim String2 As String = String.Empty
@@ -108,19 +110,17 @@ Partial Class LKWS
End If End If
list3.Add(l2.SDLNr.ToString + ";" + Stringtemp + ";" + l2.GültigBis.ToString + ";" + l2.KartenNr.ToString) 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 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 cnt += 1
tbl_sidemenue.Rows.Add(tr1) tbl_sidemenue.Rows.Add(tr1)
Next Next