Änderung Implementierung async hasratetestfunktion
This commit is contained in:
ja
@@ -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
|
||||
|
||||
@@ -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))
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user