I want to learn how to add proxy support

ChR0NiC · November 17, 2003, 01:56 AM

If anyone can recommend any public sources I could look through or teach me how, please by all means.

Gangz · November 17, 2003, 09:45 AM

What kind of connection are you using? BNLS Hash or CSB?

Grok · November 17, 2003, 10:01 AM

Quote from: ChR0NiC on November 17, 2003, 01:56 AM
If anyone can recommend any public sources I could look through or teach me how, please by all means.

Winsock Programmer's FAQ
http://tangentsoft.net/wskfaq/articles/firewalls.html

See the section on SOCKS.

Stealth · November 17, 2003, 04:23 PM

Quote from: Gangz on November 17, 2003, 09:45 AM
What kind of connection are you using? BNLS Hash or CSB?

Any type can be routed through a proxy.

ChR0NiC · November 17, 2003, 07:49 PM

BNLS Hash

Kp · November 19, 2003, 04:08 PM

Quote from: ChR0NiC on November 17, 2003, 07:49 PM
BNLS Hash

Which is it? Most clients which use BNLS do so to avoid needing to perform local hashing.

ChR0NiC · November 21, 2003, 12:06 PM

My bot uses BNLS but not CSB. It uses BNLS packets

Dyndrilliac · November 21, 2003, 02:00 PM

Quote from: Kp on November 19, 2003, 04:08 PM
Quote from: ChR0NiC on November 17, 2003, 07:49 PM
BNLS Hash
Which is it? Most clients which use BNLS do so to avoid needing to perform local hashing.

I always add hashing incase the BNLS server is down for whatever reason - So mine has both. He probably did the same.

Maddox · November 21, 2003, 05:55 PM

This could have been easily answered by googling "socks protocol." Also, what does this have to do with bot development?

Maddox · November 21, 2003, 06:17 PM

Quote from: warz on November 21, 2003, 05:59 PM
What doesn't it have to do with bot development? He stated he uses BNLS, so it's obviously for a bot.

That is like saying I use buttons on my bot, so if I have a question about buttons then I should ask on the bot development forum. A better question to ask yourself before posting a question is: if I ask this question on a non-bot related forum, can I get a good answer?

Banana fanna fo fanna · November 21, 2003, 07:11 PM

Thus...

Talking to Battle.net isn't bot related, it's networking-related
User databases aren't bot related, they're algorithmns/datastructures
UI for a bot isn't bot related, it's GUI related

etc etc

TriCk · November 21, 2003, 10:56 PM

ChR0NiC ... Sup brO...

I have ur solution right here...
For BNLS-Type logon...
Okay on ur Winsock that connects to BNET(not BNLS) under the
Winsock_Connect Sub do this...

Code Select


If Form2.Proxy.Value = 0 Then
    Send Your Logon Stuff Here (Header, 0x1E/0x50)
ElseIf Form2.Proxy.Value = 1 Then
    Dim splt() As String, str As String, i As Integer
    varServer = LCase(varServer)
    splt = Split(varServer, ".")
        For i = 0 To UBound(splt)
            str = str & Chr(CStr(splt(i)))
        Next i
    sck2.SendData Chr(&H4) & Chr(&H1) & Chr(&H17) & Chr(&HE0) & str & "anonymous" & Chr(&H0)
    TextAdd "SOCK: Connected!"
End If

Then on the Winsock's(BNET), DataArrival Sub

Do...

Code Select


If Form2.Proxy.Value = 1 Then
        sckBNET.GetData strTemp, vbString
            Select Case Mid(strTemp, 1, 2)
            Case Chr(&H0) & Chr(&H5A)
                TextAdd "SOCK: Request Granted"
                SendHeader
                >>Send 0x1E/0x50<<
            Case Chr(&H0) & Chr(&H5B)
                TextAdd "SOCK: Request Rejected Or Failed"
                sckBNET.Close
                Exit Sub
            Case Chr(&H0) & Chr(&H5C)
                TextAdd "SOCK: Request Rejected Because SOCKS server cannot IDENT on the client"
                sckBNET.Close
                Exit Sub
            Case Chr(&H0) & Chr(&H5D)
                TextAdd "SOCK: Request Rejected Because the Client Program and the ID Report Different User-IDs"
                sckBNET.Close
                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
        parseBNET (Left$(strbuffer, lnglen))
        strbuffer = Mid$(strbuffer, lnglen + 1)
    Wend
    Else
        sckBNET.GetData strTemp, vbString
        strbuffer = strbuffer & strTemp
        While Len(strbuffer) > 4
          lnglen = Val("&H" & StrToHex(StrReverse(Mid(strbuffer, 3, 2))))
          If Len(strbuffer) < lnglen Then Exit Sub
           parseBNET (Left(strbuffer, lnglen))
          strbuffer = Mid(strbuffer, lnglen + 1)
        Wend
End If

Finally...
On ur parseBNLS Sub(or whatever your's is called)
Under Case &HF for Select Case Asc(Mid$(data, 3, 1))

Code Select


Case &HF
        If varproduct = "3RAW" Or varproduct = "PX3W" Then
            InsertDWORD &H2
            sendBNLSPacket &HD
        End If
        If Form2.Proxy.Value = 1 Then
        sckBNET.Close
        TextAdd "SOCK: Connecting..."
        sckBNET.Connect varProxy, 1080
        Else
        sckBNET.Close
        sckBNET.Connect varServer, 6112
        End If

**Fixed Spelling

Stealth · November 22, 2003, 02:07 AM

-1 for spitting out code.

People who don't know any Visual Basic should not be attempting to make bots in Visual Basic.

Consider your problem: You want to add proxy support to your bot.

Consider the root of your problem: You don't know how to implement the SOCKS protocol.

Consider the best way to solve your problem: A Google search.

Let's say you've done a few Google searches and found some stuff that was relevant to your situation, but you still can't make heads or tails of it. That would be the prime time to come to these forums and ask your question, mentioning of course that you've actually put some research time into it yourself and aren't just saying "write my program for me!".

If you're not willing to actually LEARN the solution to your problem and are just looking to mooch some working code, I think you don't belong on this forum. Eh. </2AM rant>

Lenny · November 22, 2003, 04:14 AM

"Topic: I want to learn how to add proxy support" - emphasis on LEARN

Kp · November 22, 2003, 11:07 AM

Quote from: TriCk on November 21, 2003, 10:56 PM
Code Select Expand
Case &HF If varproduct = "3RAW" Or varproduct = "PX3W" Then InsertDWORD &H2 sendBNLSPacket &HD End If If Form2.Proxy.Value = 1 Then sckBNET.Close TextAdd "SOCK: Connecting..." sckBNET.Connect varProxy, 1080 Else sckBNET.Close sckBNET.Connect varServer, 6112 End If

I see a couple of things here that could be improved. First, there's no need to sckBNET.Close inside both branches of the if. Move it outside. Second, you're assuming that the bncs will always and only be on port 6112. Third, you could simplify the Connect statement by assigning the port to a variable based on whether proxy support is in effect, then connecting based on that. VB-ish syntax, with some probable errors since I don't actually write VB:

Code Select


        sckBNET.Close
        X = Form2.BNCSPort.Value ' or just X = 6112 if you want to ewwishly hardcode the port
        Y = varServer
        If Form2.Proxy.Value = 1 Then
        TextAdd "SOCK: Connecting..."
        X = 1080
        Y = varProxy
        End If
        sckBNET.Connect Y, X