Imports System.Data.SqlClient
Imports System.Diagnostics
Imports Microsoft.VisualBasic


Public Class TestPerformance
    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

        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)

                '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

                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 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