HelpPIM.vb

Public Class HelpPIM

    Private Sub Form8_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        '#### VeraCrypt Vorgabe 0

        TextBox1.Text = 0
        TextBox2.Text = 0


        If My.Settings.Ger = True Then
            Label1.Text = "PIM steht für ""Personal Iterations Multiplier"". Es ist ein Parameter" & vbNewLine &
                          "der in VeraCrypt 1.12 eingeführt wurde. Dessen Wert steuert die" & vbNewLine &
                          "Anzahl der Iterationen, die von der ""Header Key Derivation Function""" & vbNewLine &
                          "verwendet wird. Der PIM-Mindestwert für kurze Kennwörter beträgt bei" & vbNewLine &
                          "System-Verschlüsselungen ""98"". Dies gilt nicht bei SHA-512 und Whirlpool." & vbNewLine &
                          "Bei allen anderen wird die Standard-PIM ""485"" genutzt." & vbNewLine & vbNewLine &
                          "Bei einem Kennwort mit 20 Zeichen und mehr beträgt der PIM-Mindestwert 1." & vbNewLine &
                          "In allen anderen Fällen wird die PIM leer gelassen oder auf ""0"" gesetzt." & vbNewLine & vbNewLine &
                          "Beide Felder müssen ausgefüllt werden.   " & vbNewLine

            Button1.Text = "Weiter"
            Button2.Text = "Abbruch"
            Button3.Text = "Hilfe"

        End If



    End Sub



    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

        Me.Close()

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        '#### Übergabe der PIMs in Form4

        Hashcrack.PIMvarTxb1.Text = TextBox1.Text
        Hashcrack.PIMvarTxb2.Text = TextBox2.Text

        Me.Close()

    End Sub



    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

        '#### Zweites Feld automatisch füllen

        If TextBox1.TextLength > 1 Then
            TextBox2.Text = TextBox1.Text
        Else
            TextBox2.Text = ""
        End If
    End Sub

    Private Sub TextBox1_KeyPress(
  ByVal sender As Object,
  ByVal e As System.Windows.Forms.KeyPressEventArgs) _
  Handles TextBox1.KeyPress

        '#### Nur Zahlen und Backspace bei Wörterlänge zulassen


        Select Case Asc(e.KeyChar)
            Case 48 To 57, 8 ', 32
                ' Zahlen, Backspace und Space zulassen

            Case Else
                ' alle anderen Eingaben unterdrücken
                e.Handled = True
        End Select
    End Sub


    Private Sub TextBox2_KeyPress(
  ByVal sender As Object,
  ByVal e As System.Windows.Forms.KeyPressEventArgs) _
  Handles TextBox2.KeyPress

        '#### Nur Zahlen und Backspace bei Wörterlänge zulassen


        Select Case Asc(e.KeyChar)
            Case 48 To 57, 8 ', 32
                ' Zahlen, Backspace und Space zulassen

            Case Else
                ' alle anderen Eingaben unterdrücken
                e.Handled = True
        End Select
    End Sub


    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        '#### Cancel Button

        Me.Close()
        Hashcrack.Activate()


    End Sub



    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        '##### Help Button

        Process.Start("https://www.hashbull.net/contact")

    End Sub
End Class