Originally Posted by
Blubb1337
To get information, sure....to login...?!
what you can use http for everything i use it to hack sites all the time to login to this site all you do is
Code:
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms
Imports System.Net
Imports System.IO
Public Class Form1
Inherits Form
Public Sub New()
InitializeComponent()
End Sub
Dim Cookies As New CookieContainer()
Private Function HttpGet(ByVal Url As String)
Dim request As HttpWebRequest = Nothing
Dim uri As New Uri(Url)
request = DirectCast(WebRequest.Create(uri), HttpWebRequest)
reques*****okieContainer = Cookies
request.Method = "GET"
request.Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
request.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 6.1; en-US; rv:1.9.0.7) Gecko/2009021910 Firefox/3.0.7"
request.Referer = ""
reques*****ntentType = "text/html"
Dim result As [String] = ""
Using response As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)
Cookies.Add(response.Cookies)
Using responseStream As Stream = response.GetResponseStream()
Using readStream As New StreamReader(responseStream, Encoding.UTF8)
result = readStream.ReadToEnd()
End Using
End Using
End Using
Return result
End Function
Private Function Post(ByVal url As [String], ByVal postData As StringBuilder) As [String]
Dim request As HttpWebRequest = Nothing
Dim uri As New Uri(url)
request = DirectCast(WebRequest.Create(uri), HttpWebRequest)
reques*****okieContainer = Cookies
request.Method = "POST"
request.Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
request.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 6.1; en-US; rv:1.9.0.7) Gecko/2009021910 Firefox/3.0.7"
request.Referer = ""
reques*****ntentType = "application/x-www-form-urlencoded"
reques*****ntentLength = postData.Length
Using writeStream As Stream = request.GetRequestStream()
Dim encoding__1 As New UTF8Encoding()
Dim bytes As Byte() = encoding__1.GetBytes(postData.ToString())
writeStream.Write(bytes, 0, bytes.Length)
End Using
Dim result As [String] = ""
Using response As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)
Cookies.Add(response.Cookies)
Using responseStream As Stream = response.GetResponseStream()
Using readStream As New StreamReader(responseStream, Encoding.UTF8)
result = readStream.ReadToEnd()
End Using
End Using
End Using
Return result
End Function
Code:
Dim postData As New StringBuilder()
postData.Append("vb_login_username=tweaker99&vb_login_password=FAKE&s=&securitytoken=TOEKE=login&vb_login_md5password=PASS&vb_login_md5password_utf=PASS")
Dim result As [String] = Post("https://www.mpgh.net/forum/login.php?do=login", postData)
result = HttpGet("page you want to get as logged in")
lol i think im the only one on this whole forum who knows how to use postdata i use it all the time instead of a browser, so say i want to hack an online site say you get a point for everytime you click a button i could ust postdata to
login then
send info to there site saying i clicked the button i have used this to make many bots to make money online and make auto posters updaters etc etc o ya and this is really good if you want to make a brut forcer