100 lines
7.5 KiB
VB.net
100 lines
7.5 KiB
VB.net
Imports Konscious.Security.Cryptography
|
|
Partial Class Customers_Default2
|
|
Inherits System.Web.UI.Page
|
|
Dim nIterations As Integer = VERAG_VARIABLES.getiterationnumber * VERAG_VARIABLES.RandomInteger(2, 3)
|
|
Dim MemorySizelocal As Integer = -1
|
|
Dim MemorySizeProductionServ As Integer = -1
|
|
Dim randzahl As Integer = -1
|
|
Protected Sub Page_Load(ByVal sender As Object, e As EventArgs) Handles Me.Load
|
|
If Page.IsPostBack Then
|
|
Page.MaintainScrollPositionOnPostBack = True
|
|
If Not HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
|
|
btn_TesthashrateServer.Text = "Test hashrate of the Server!"
|
|
Else
|
|
btn_TesthashrateServer.Text = "Test hashrate of the local machine!"
|
|
End If
|
|
VERAG_VARIABLES.initerrorcount()
|
|
If Integer.Parse(sld_getbenchmarkheat.Value) < 10 Then
|
|
MemorySizelocal = (((nIterations * 1) * 4.28 - ((nIterations * 2) * 1.23) / 4 * 1.5) / 1.05) + 0.75 * 354
|
|
MemorySizeProductionServ = (((nIterations * VERAG_VARIABLES.RandomInteger(1, 2)) * 5.485 - ((nIterations * VERAG_VARIABLES.RandomInteger(1, 2)) * 0.56) / 1.85 * 2.28) / 8.28) + 1.024 * 400
|
|
randzahl = VERAG_VARIABLES.RandomInteger(Math.Pow(2, 2), Math.Pow(2, 4))
|
|
ElseIf Integer.Parse(sld_getbenchmarkheat.Value) > 10 And Integer.Parse(sld_getbenchmarkheat.Value) < 40 Then
|
|
MemorySizelocal = (((nIterations * 1.255) * 4.48 - ((nIterations * 1.12) * 1.23) / 4 * 1.5) / 1.05) + 0.75 * 390
|
|
MemorySizeProductionServ = (((nIterations * VERAG_VARIABLES.RandomInteger(1, 2.5)) * 6.485 - ((nIterations * VERAG_VARIABLES.RandomInteger(1, 2)) * 0.56) / 1.85 * 2.28) / 8.28) + 1.024 * 516
|
|
randzahl = VERAG_VARIABLES.RandomInteger(VERAG_VARIABLES.RandomInteger(Math.Pow(2, 0), Math.Pow(2, 2)), Math.Pow(2, 4))
|
|
ElseIf Integer.Parse(sld_getbenchmarkheat.Value) > 40 And Integer.Parse(sld_getbenchmarkheat.Value) < 60 Then
|
|
MemorySizelocal = (((nIterations * 5.45) * 4.98 - ((nIterations * 1.15) * 1.23) / 4 * 1.5) / 1.05) + 0.95 * 420
|
|
MemorySizeProductionServ = (((nIterations * VERAG_VARIABLES.RandomInteger(1, 2.32)) * 7.485 - ((nIterations * VERAG_VARIABLES.RandomInteger(1, 2.32)) * 0.56) / 1.85 * 2.28) / 7.28) + 1.024 * 646
|
|
randzahl = VERAG_VARIABLES.RandomInteger(VERAG_VARIABLES.RandomInteger(Math.Pow(2, 0), Math.Pow(2, 4)), VERAG_VARIABLES.RandomInteger(Math.Pow(2, 3), Math.Pow(2, 4)))
|
|
ElseIf Integer.Parse(sld_getbenchmarkheat.Value) > 60 And Integer.Parse(sld_getbenchmarkheat.Value) < 80 Then
|
|
MemorySizelocal = (((nIterations * VERAG_VARIABLES.RandomInteger(4.85, 8)) * 4.98 - ((nIterations * 2) * 1.23) / 4 * 1.5) / 1.05) + 1 * 790
|
|
MemorySizeProductionServ = (((nIterations * VERAG_VARIABLES.RandomInteger(1, 2.32)) * 8.585 - ((nIterations * VERAG_VARIABLES.RandomInteger(1, 2.32)) * 0.56) / 1.85 * 2.28) / 7.28) + 1.024 * 816
|
|
randzahl = VERAG_VARIABLES.RandomInteger(VERAG_VARIABLES.RandomInteger(Math.Pow(2, 4), Math.Pow(2, 5)), VERAG_VARIABLES.RandomInteger(Math.Pow(2, 5), Math.Pow(2, 7)))
|
|
ElseIf Integer.Parse(sld_getbenchmarkheat.Value) > 80 And Integer.Parse(sld_getbenchmarkheat.Value) < 100 Then
|
|
MemorySizelocal = (((nIterations * Math.Pow(2, 11)) * 14.98 - ((nIterations * 2) * 1.23) / 4 * 1.5) / 1.05) + 1 * 290
|
|
MemorySizeProductionServ = (((nIterations * * Math.Pow(2, 14)) * 11.485 - ((nIterations * VERAG_VARIABLES.RandomInteger(2, 5)) * 0.56) / 1.85 * 2.28) / 8.28) + 1.024 * 416
|
|
randzahl = VERAG_VARIABLES.RandomInteger(VERAG_VARIABLES.RandomInteger(Math.Pow(2, 3), Math.Pow(2, 4)), VERAG_VARIABLES.RandomInteger(Math.Pow(2, 5), Math.Pow(2, 7)))
|
|
End If
|
|
Else
|
|
Page.MaintainScrollPositionOnPostBack = False
|
|
VERAG_VARIABLES.initerrorcount()
|
|
If Not HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
|
|
btn_TesthashrateServer.Text = "Test hashrate of the Server!"
|
|
Else
|
|
btn_TesthashrateServer.Text = "Test hashrate of the local machine!"
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Protected Sub Button1_Click(sender As Object, e As EventArgs)
|
|
If String.IsNullOrEmpty(TextBox1.Text) = False And String.IsNullOrEmpty(TextBox2.Text) = False Then
|
|
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)
|
|
|
|
Dim strtemp As String = ""
|
|
VERAG_VARIABLES.seterrorcount(Integer.Parse(i))
|
|
vals.Add(i.ToString + Space(3) + ":" + Space(3) + VERAG_VARIABLES.geterrornumb)
|
|
Next
|
|
For Each val As String In vals
|
|
finalstr = finalstr + Environment.NewLine + val + Environment.NewLine
|
|
Next
|
|
Label2.Text = finalstr
|
|
End If
|
|
If String.IsNullOrEmpty(txt_Fehlercode.Text) = False Then
|
|
Dim finalstr As String = String.Empty
|
|
finalstr = VERAG_VARIABLES.getErrorcodeindez(txt_Fehlercode.Text)
|
|
txt_Fehlercodezuzahl.Text = finalstr
|
|
End If
|
|
End Sub
|
|
|
|
Protected Async Sub btn_TesthashrateServer_ClickAsync(sender As Object, e As EventArgs) Handles btn_TesthashrateServer.Click
|
|
Dim Boole As Boolean = New Boolean
|
|
Dim ram As Double = Double.Parse(My.Computer.Info.TotalPhysicalMemory.ToString)
|
|
Dim pwhashresult As String
|
|
If MemorySizelocal <= ram - (10 * 1024) And HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
|
|
pwhashresult = Await TestPerformance.TestHashrateServerAsync(randzahl)
|
|
Boole = True
|
|
ElseIf MemorySizeProductionServ <= ram - 2048 And Not HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
|
|
pwhashresult = Await TestPerformance.TestHashrateServerAsync(randzahl)
|
|
Boole = True
|
|
Else
|
|
Boole = False
|
|
End If
|
|
If Boole = True AndAlso HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
|
|
lbl_Status.ForeColor = Drawing.Color.Green
|
|
lbl_Status.Text = "Der Test wurde erfolgreich bestanden!" + System.Environment.NewLine + "Der Hash lautet:" + pwhashresult + System.Environment.NewLine + "der Ram betrug:" + MemorySizelocal.ToString
|
|
ElseIf Boole = True AndAlso Not HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
|
|
lbl_Status.ForeColor = Drawing.Color.Green
|
|
lbl_Status.Text = "Der Test wurde erfolgreich bestanden!" + System.Environment.NewLine + "Der Hash lautet:" + pwhashresult + System.Environment.NewLine + "der Ram betrug:" + MemorySizeProductionServ.ToString
|
|
ElseIf Boole = False AndAlso HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
|
|
lbl_Status.ForeColor = Drawing.Color.Red
|
|
lbl_Status.Text = "Test fehlgeschlagen! Es fehlen mindestens " + MemorySizelocal - ram + "Bytes RAM!"
|
|
ElseIf Boole = False AndAlso Not HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
|
|
lbl_Status.ForeColor = Drawing.Color.Red
|
|
lbl_Status.Text = "Test fehlgeschlagen! Es fehlen mindestens " + MemorySizeProductionServ - ram + "Bytes RAM!"
|
|
End If
|
|
End Sub
|
|
End Class
|