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

Änderungen

Browse Source
This commit is contained in:
ja
2021-12-15 11:23:00 +01:00
parent a689d48aa6
commit 94c7c5fd99
5 changed files with 168 additions and 106 deletions
Download Patch File Download Diff File Expand all files Collapse all files

251
App_Code/TestPerformance.vb
View File

@@ -1,113 +1,164 @@
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 zeitspannefürtest As Long
Dim ConnectionString = "" Public Shared Sub createnUsers(ByRef n As Integer)
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 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 Class End Class

2
Customers/Default.aspx
View File

@@ -1,4 +1,4 @@
<%@ Page Title="" Language="VB" MasterPageFile="~/Customers/Customers.master" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="Customers_Default" %> <%@ Page Title="" Language="VB" MasterPageFile="~/Customers/Customers.master" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="Customers_Default" Async="true" %>
<asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder2" Runat="Server"> <asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder2" Runat="Server">
</asp:Content> </asp:Content>

8
Customers/Default2.aspx
View File

@@ -1,4 +1,4 @@
<%@ Page Title="" Language="VB" MasterPageFile="~/Customers/Customers.master" AutoEventWireup="false" CodeFile="Default2.aspx.vb" Inherits="Customers_Default2" %> <%@ Page Title="" Language="VB" MasterPageFile="~/Customers/Customers.master" AutoEventWireup="false" CodeFile="Default2.aspx.vb" Inherits="Customers_Default2" Async="true" %>
<asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder2" Runat="Server"><%If String.Equals(Page.User.Identity.Name, "Admin") = False Then <asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder2" Runat="Server"><%If String.Equals(Page.User.Identity.Name, "Admin") = False Then
FormsAuthentication.RedirectToLoginPage() FormsAuthentication.RedirectToLoginPage()
@@ -78,8 +78,10 @@
</td> </td>
</tr> </tr>
<tr><td> <tr><td>
<tr><td><asp:Button ID="Button1" runat="server" Text="Button" OnClick="Button1_Click" /></td></tr> <tr><td><asp:Button ID="Button1" runat="server" Text="Button" OnClick="Button1_Click" /></td></tr>
</table> <tr><td><asp:Button ID="Butn_TestHashrate" runat="server" OnClick="Butn_TestHashrate_ClickAsync" BackColor="WhiteSmoke" Text="Test the Hashrate of the Server"/></td></tr>
<tr><td><asp:Label ID="lbl_resulttesthashrate" runat="server" ClientIDMode="AutoID">Hier wird das Ergebnis angezeigt!</asp:Label></td></tr>
</table>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</asp:Content> </asp:Content>

10
Customers/Default2.aspx.vb
View File

@@ -1,7 +1,7 @@
 
Partial Class Customers_Default2 Partial Class Customers_Default2
Inherits System.Web.UI.Page Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, e As EventArgs) Handles Me.Load Protected Async Sub Page_Load(ByVal sender As Object, e As EventArgs) Handles Me.Load
If Page.IsPostBack Then If Page.IsPostBack Then
Page.MaintainScrollPositionOnPostBack = True Page.MaintainScrollPositionOnPostBack = True
@@ -33,4 +33,12 @@ Partial Class Customers_Default2
txt_Fehlercodezuzahl.Text = finalstr txt_Fehlercodezuzahl.Text = finalstr
End If End If
End Sub 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 End Class

3
newpageJulius.aspx
View File

@@ -6,7 +6,8 @@
<head> <head>
<%@ import Namespace="MySql.Data.MySqlClient" %> <%@ import Namespace="MySql.Data.MySqlClient" %>
<script runat="server"> <script runat="server">
Sub Page_Load() Handles Me.Load Overloads Sub Page_Load() Handles Me.Load
' MsgBox ("test") ' MsgBox ("test")
'Dim con As New MySqlConnection 'Dim con As New MySqlConnection
'Dim cmd As New MySqlCommand 'Dim cmd As New MySqlCommand