I have anti-leecher code which able to login the form with using winsock coded in vb6. I manage to get the code but I couldn't get what exactly the HTTP headers
can anyone help me on my problem then I can attach my hacks smoothly as plan
THANKS IN ADVANCE
Code:
Private Sub cmdLogin_Click()
With W
.Close
.RemoteHost = "www.mpgh.net"
.RemotePort = "80"
.Connect
End With
End Sub
Private Sub W_Connect()
Dim Packet As String
Dim Post As String
Post = "vb_login_username" & txtUser.Text & "&vb_login_password" & txtPass.Text & "&cookieuser=1&s=securitytoken=guest&do=login"
'Post = "vb_login_username" & txtUser.Text & "&vb_login_password" & txtPass.Text & "&cookieuser=8b6004c1a08517f3d57b438051b52e91=securitytoken=d54fcd42608c0f7eb4ad43b51b9ba7fcc1349720445=login"
Packet = Packet & "POST / HTTP/1.1" & vbNewLine
Packet = Packet & "Host: www.mpgh.net" & vbNewLine
Packet = Packet & "Connection: close" & vbNewLine
Packet = Packet & "User-Agent: Mozilla/5.0 (Macintosh; U; Intel Mac OS X; de-de) AppleWebKit/523.10.3 (KHTML, like Gecko) Version/3.0.4 Safari/523.10" & vbNewLine
Packet = Packet & "Accept -Encoding: gzip" & vbNewLine
Packet = Packet & "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & vbNewLine
Packet = Packet & "Accept-Language: en-US,en;q=0.8" & vbNewLine
Packet = Packet & "Accept-Charset: ISO-8859-1,UTF-8;q=0.7,*;q=0.7" & vbNewLine
Packet = Packet & "Cache-Control: no-cache" & vbNewLine
Packet = Packet & "Content-type: application/x-www-form-urlencoded" & vbNewLine
Packet = Packet & "Content-length: " & Len(Post) & vbNewLine & vbNewLine & Post
If W.State = 7 Then W.SendData Packet
End Sub
Private Sub W_DataArrival(ByVal bytesTotal As Long)
Dim data As String
If W.State = 7 Then W.PeekData data
txtData.Text = data
If InStr(data, "You have entered invalid username and password.") Then
MsgBox "invalid login"
ElseIf InStr(data, "Thank you for loggin in, ") Then
MsgBox "You are login as " & txtUser.Text
End If
End Sub
Private Sub W_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
W.Close
MsgBox "ERROR !!!", vbExclamation, "ERROR"
End Sub
screen shoot here
vscan
winsock mpgh2.rar - Jotti's malware scan
https://www.virustotal.com/file/27ad...is/1349899515/