Hey all,
Im new to this and I was wondering if anyone could lend a hand.
I've taken on a project of making a bruteforcer that will attack my own smtp server. ( this is purely for fun and educational purposes only ). Anyway I have a dictionary of passwords and I would like my program to streamread the words of my dictionary into an array (if thats the best way to do it, any other suggestions welcome!) then use the array in the password field and do a for next loop attempting to send a mail to itself. How can I do this?
Heres my code so far:
And here is a picture of the form itself:
![Name: Untitled.png
Views: 59
Size: 66.6 KB]()
Cheers for all the help
Mallinexor
Im new to this and I was wondering if anyone could lend a hand.
I've taken on a project of making a bruteforcer that will attack my own smtp server. ( this is purely for fun and educational purposes only ). Anyway I have a dictionary of passwords and I would like my program to streamread the words of my dictionary into an array (if thats the best way to do it, any other suggestions welcome!) then use the array in the password field and do a for next loop attempting to send a mail to itself. How can I do this?
Heres my code so far:
Code:
Imports System.IO
Imports System.Net.Mail
Class Form1
Public Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim dictionary As String
Dim lines As Integer
dictionary = TextBox6.Text
Dim wordcounter As New StreamReader(dictionary)
lines = 0
Console.ForegroundColor = ConsoleColor.Red
Dim result = MessageBox.Show("Would you like to know how many words are in the Dictionary?", "Dictionary Words", MessageBoxButtons.YesNoCancel)
If result = DialogResult.Cancel Then
ElseIf result = DialogResult.No Then
ElseIf result = DialogResult.Yes Then
Do Until wordcounter.ReadLine = Nothing
lines += 1
Loop
MsgBox("Your dictionary contains " & lines & " words")
End If
Dim index As Integer
Dim x As Integer
x = lines
Dim wordarray(x) As String
For index = 1 To x
wordarray(index) = wordcounter.ReadLine
TextBox4.Text = wordarray(index)
Next
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
OpenFileDialog1.ShowDialog()
End Sub
Private Sub OpenFileDialog1_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
TextBox6.Text = OpenFileDialog1.FileName
End Sub
End ClassCheers for all the help
Mallinexor