Ok i have a problem i'm trying to make a massbot...
I'm connecting through winsocks using index()
Problem is i keep on getting disconnected if i connect more than 1 at once.
I Recorded the 'PacketID' being sent.
0x05
0x29
0x37
0x06
0x07
0x45
This is recieved, btw
0x45 is where i sent cdkey and i think around here is where it disconnects...
Thanks,
DDA-TriCk-E
Quote from: TriCk on June 06, 2004, 05:33 AM
Ok i have a problem i'm trying to make a massbot...
I'm connecting through winsocks using index()
Problem is i keep on getting disconnected if i connect more than 1 at once.
I Recorded the 'PacketID' being sent.
0x05
0x29
0x37
0x06
0x07
0x45
This is recieved, btw
0x45 is where i sent cdkey and i think around here is where it disconnects...
Thanks,
DDA-TriCk-E
0x37? Never knew that existed. As far as 0x45, that lets the server know what port you're using for hosting games and is
only used on Warcraft III and Frozen Throne.
Do you have index'd winsocks?
Nvm i fixed that
I need a better proxy support now... mine doesnt support all proxies on some "bad proxies" i have named them, the bot will freeze apon connect
Can anyone help me? possibly with code for [VB6] proxy connect...
And i dont want Feanor's source posted here, i've seen that code a million times, it doesn't work for all proxies. Thankyou
Quote from: TriCk on June 06, 2004, 05:33 AM
Ok i have a problem i'm trying to make a massbot...
I'm connecting through winsocks using index()
Problem is i keep on getting disconnected if i connect more than 1 at once.
I Recorded the 'PacketID' being sent.
0x05
0x29
0x37
0x06
0x07
0x45
This is recieved, btw
0x45 is where i sent cdkey and i think around here is where it disconnects...
Thanks,
DDA-TriCk-E
Second thought on this, looks like maybe you could be printing the packet ids out, without even putting them to hex!
5 = 0x05
29 = 0x1D
37 = 0x25
6 = 0x06
7 = 0x07
45 = 0x2D
That looks like it could be a valid sequence. The numbers on the left is what you printed out, but without the hex notation in the front
yea user, i was too lazy to turn em into packet's prolly shudnt have put 0x infront but o well...
i seriously need some better proxy support...... still
i need it to use SOCKS4/5 but not the way Feanor's bot's source does....
Dim splt() As String, str As String, i As Integer
m_Server = "63.241.83.9"
splt = Split(m_Server, ".")
For i = 0 To UBound(splt)
str = str & Chr(CStr(splt(i)))
Next i
sck1.SendData Chr(&H4) & Chr(&H1) & Chr(&H17) & Chr(&HE0) & str & "anonymous" & Chr(&H0)
AddC RTB, vbGreen, "SOCK: Connected!"
sck1.GetData strTemp, vbString
Select Case Mid(strTemp, 1, 2)
Case Chr(&H0) & Chr(&H5A)
AddC RTB, vbGreen, "Request Granted"
Send1E
Exit Sub
Case Chr(&H0) & Chr(&H5B)
AddC RTB, vbRed, "SOCK: Request Rejected Or Failed"
mnuConnect_Click
Exit Sub
Case Chr(&H0) & Chr(&H5C)
AddC RTB, vbRed, "SOCK: Request Rejected Because SOCKS server cannot IDENT on the client"
Exit Sub
Case Chr(&H0) & Chr(&H5D)
AddC RTB, vbRed, "SOCK: Request Rejected Because the Client Program and the ID Report Different User-IDs"
Exit Sub
End Select
strBuffer = strBuffer & strTemp
While Len(strBuffer) > 4
lngLen = Val("&H" & StrToHex(StrReverse(Mid$(strBuffer, 3, 2))))
If Len(strBuffer) < lngLen Then Exit Sub
parsep (Left$(strBuffer, lngLen))
strBuffer = Mid$(strBuffer, lngLen + 1)
Wend
I dont want that type of proxy support.
Because it doesnt work for all proxies
some make the bot freeze.....
if anyone knows how to make them not freeze the bot or has a better proxy support system please post.....
Thanks :)
Why not write your own using the extensive protocol (http://archive.socks.permeo.com/rfc/rfc1928.txt) documents (http://archive.socks.permeo.com/protocol/socks4.protocol)?
o X'00' NO AUTHENTICATION REQUIRED
o X'01' GSSAPI
o X'02' USERNAME/PASSWORD
o X'03' to X'7F' IANA ASSIGNED
o X'80' to X'FE' RESERVED FOR PRIVATE METHODS
o X'FF' NO ACCEPTABLE METHODS
I dont understand what the X'#' are there for?
How would i implement this into VB6 coding?
Quote from: TriCk on June 11, 2004, 05:32 PM
o X'00' NO AUTHENTICATION REQUIRED
o X'01' GSSAPI
o X'02' USERNAME/PASSWORD
o X'03' to X'7F' IANA ASSIGNED
o X'80' to X'FE' RESERVED FOR PRIVATE METHODS
o X'FF' NO ACCEPTABLE METHODS
I dont understand what the X'#' are there for?
How would i implement this into VB6 coding?
It is a hexadecimal value representing the packet id from the looks of it. You would parse the packet id and then do something based on its value.
X'00' == 0x00 - another way of writing a byte