Public Class Settings Public Property OpenFileDialog As Object Public IP1, IP2, IP3, IP4, IP5, IP6, IP7, IP8, IP9, IP10, IP11, IP12, IP13, IP14, IP15 As String Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click IPAdressen.Show() End Sub Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load '##### Settings laden TextBox1.Text = My.Settings.Hashcat TextBox2.Text = My.Settings.JTR TextBox3.Text = My.Settings.PP2 TextBox4.Text = My.Settings.PP3 TextBox5.Text = My.Settings.Perl TextBox6.Text = My.Settings.Bulk TextBox8.Text = My.Settings.Mail ClientIP.Text = My.Settings.ClientIP ClientPort.Text = My.Settings.ClientPort ClientPW.Text = My.Settings.ClientPW ClientFeat.Text = My.Settings.ClientFeat ServerIP.Text = My.Settings.ServerIP ServerPort.Text = My.Settings.ServerPort ServerPW.Text = My.Settings.ServerPW TextBox7.Text = My.Settings.fav If My.Settings.fav = "" Then TextBox7.Text = Application.StartupPath & "\#_Wordlists\Hashbull_Wordlist.txt" CheckBox2.Checked = My.Settings.Eng CheckBox3.Checked = My.Settings.Ger TextBox1.Enabled = False TextBox2.Enabled = False TextBox3.Enabled = False TextBox4.Enabled = False TextBox5.Enabled = False TextBox6.Enabled = False If CheckBox3.Checked Then GroupBox1.Text = "Einstellungen" GroupBox2.Text = "Programm-Pfade" CheckBox2.Text = "Englisch" CheckBox3.Text = "Deutsch" Label7.Text = "favorisierte Wordlist:" Label10.Text = "Sprache:" Label8.Text = "Crack-Email-Adresse:" Button1.Text = "Speichern" Button4.Text = "Über Hashbull" Button5.Text = "Hilfe" Button6.Text = "Versionen" Button2.Text = "Abbrechen" Button7.Text = "Öffnen" End If End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Me.Close() End Sub Private Sub Form3_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing Welcome.Opacity = 100 End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click '###### Die Änderung in die Settings festschreiben My.Settings.Hashcat = TextBox1.Text My.Settings.JTR = TextBox2.Text My.Settings.PP2 = TextBox3.Text My.Settings.PP3 = TextBox4.Text My.Settings.Perl = TextBox5.Text My.Settings.Bulk = TextBox6.Text My.Settings.fav = TextBox7.Text My.Settings.Eng = CheckBox2.Checked My.Settings.Ger = CheckBox3.Checked My.Settings.Mail = TextBox8.Text My.Settings.ClientIP = ClientIP.Text My.Settings.ClientPort = ClientPort.Text My.Settings.ClientPW = ClientPW.Text My.Settings.ClientFeat = ClientFeat.Text My.Settings.ServerIP = ServerIP.Text My.Settings.ServerPort = ServerPort.Text My.Settings.ServerPW = ServerPW.Text My.Settings.Save() My.Settings.Reload() '### Label If My.Settings.Ger = True Then Welcome.Label1.Visible = False '.Text = " Hashbull wurde für Strafverfolgungsbehörden entwickelt. Mehr Informationen" Welcome.Label2.Visible = False 'Text = "zu Hashbull finden Sie unter www.hashbull.org. Alle Rechte vorbehalten. ©2021 by Are§h." Welcome.Label4.Visible = True Welcome.Label5.Visible = True End If If My.Settings.Ger = False Then Welcome.Label1.Visible = True '.Text = " Hashbull wurde für Strafverfolgungsbehörden entwickelt. Mehr Informationen" Welcome.Label2.Visible = True 'Text = "zu Hashbull finden Sie unter www.hashbull.org. Alle Rechte vorbehalten. ©2021 by Are§h." Welcome.Label4.Visible = False Welcome.Label5.Visible = False End If Me.Close() End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click '#### About Hashbull Button HelpAbout.Show() End Sub Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click '#### Help Button 'Process.Start("https://www.hashbull.org/contact") '#### Help als pdf anzeigen If My.Settings.Eng = True Then Process.Start(System.IO.Path.Combine(Application.StartupPath, "Docs\Hashbull_User_Manual_ENG.pdf")) Else Process.Start(System.IO.Path.Combine(Application.StartupPath, "Docs\Hashbull_User_Manual_DE.pdf")) End If End Sub Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click HelpVers.Show() End Sub Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged '#### Nur eine Checkbox aktiv und speichern If CheckBox2.Checked Then My.Settings.Eng = CheckBox2.Checked CheckBox3.Checked = False End If '#### Wenn die Checkbox zweimal gedrückt wird, dann die andere aktivieren If CheckBox2.Checked = False Then CheckBox3.Checked = True End If End Sub Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox3.CheckedChanged '#### Nur eine Checkbox aktiv If CheckBox3.Checked = True Then My.Settings.Ger = CheckBox3.Checked CheckBox2.Checked = False End If '#### Wenn die Checkbox zweimal gedrückt wird, dann die andere aktivieren If CheckBox3.Checked = False Then CheckBox2.Checked = True End If End Sub Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click '#### Wordlist Auswahl und in TexBox7 einfügen Dim openFileDialog As New OpenFileDialog() openFileDialog.InitialDirectory = Application.StartupPath & "\#_Wordlists" openFileDialog.Filter = "All Files (*.*)| *.*" If openFileDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then TextBox7.Text = openFileDialog.FileName 'System.IO.Path.GetFileName(openFileDialog.FileName) End If End Sub Private Sub PictureBox6_Click(sender As Object, e As EventArgs) Handles PictureBox6.Click If My.Settings.Eng = True Then MsgBox("Under Hash Crack you have to activate Crack-Mail. Hashbull automatically sends an email when the hash has been cracked. Outlook must be installed on the PC. Please enter your email address here.") If My.Settings.Eng = False Then MsgBox("Hashbull versendet automatisch eine Email, wenn das Passwort geknackt wurde. Outlook muss auf dem PC installiert sein. Bitte tragen Sie hier eine Email-Adresse ein.") End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Wordlist.Show() End Sub Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click '### Start Brain-Server My.Settings.ServerIP = ServerIP.Text My.Settings.ServerPort = ServerPort.Text My.Settings.ServerPW = ServerPW.Text My.Settings.Save() My.Settings.Reload() Dim process As New Process() process.StartInfo.FileName = "cmd.exe" process.StartInfo.WorkingDirectory = vari.Hashcat process.StartInfo.Arguments = ("/k " & "hashcat.exe --brain-server --brain-host=" & My.Settings.ServerIP & " --brain-port=" & My.Settings.ServerPort & " --brain-password=" & My.Settings.ServerPW) process.Start() End Sub End Class