klasse/ocx/hvad som helst til at lave forbindelser gennem socks4

Http er den lettes, i stedet for at forbinde, til f.es googles webserver ip forbinder, du til proxys ip og laver en almindelig http request.

sock4 er lidt mere finurlig.


beskrivel sokc5 : http://www.ietf.org/rfc/rfc1928.txt

kan ikke lige find den for sock 4, men

den fortæller først hvilke ip ,den vil forbinde til osv.

har engang, lavet et projket der forbinder til sokc4, kan prøve at finde det frem.

jeg kan desværre ikke bruge http.. det havde ellers været det letteste hehe
ja sad og kiggede lidt på rfc men er simpelthen for fredagslam så du må gerne finde dit projekt frem hvis du kan hehehe :)

hej thomaxz
fandt du nogensinde det projekt der?

ja, det mener jeg, men lige nu ligger det på pc´en med defekt styre system, mener godt jeg kan genskabe selv dataene, men har ikke tid før i weekkenden.

det vilel være smukt :))
og der er ikke lige noget stress på..

Nu ved jeg ikke om du kan finde ud af at brgue winsock, mit program var den omvendte type, nemlig en sokc 4 proxy server, men har omsat hvad der sakl sendes for skabe forbindelse.


det nok smart at have variabler for hvert fetl

dim protcol as byte ' protocl skal være 4 da der skal bruge 4
dim command as byte ' forbindles 1 0 tcp 2= udp
dim port as integer ' port her bar portnumber bliver splite op til 2 byte længere ned
dim ip as string    'ip  streng til at forbindel til den ip du vil forbinde til iggnem sock4


dim strsend as string

strsend=chr$(protocol) & chr$(command) 'omsæt til ascii tegn

'så skal port numbere dels op i to byte

Dim p1 as byte
dim p2 as byte

p2=port mod 256 'korrekt
p1=port mod 255 ' ser ud til at være rigtig

strsend=strsend & chr$(p1) & chr $(p2)

'ip skal ligeldes convertes til byte

dim i() as string

i=split(ip,".")

dim i1 as byte
dim i2 as byte
dim i3 as byte
dim i4 as byte

i1=val(i(0))
i2=val(i(1))
i3=val(i(2))
i4=val(i(3))

strsend=strsend & chr$(i1) & chr$(i2) & chr$(i3) & chr$(4)


' nu skal du så vente på den svare til bage

Dim lTel As Long
Dim Ntxt() As String

'txt indeholder reply streng
TxT = Replace(Replace(TxT, Chr$(10), ""), Chr$(13), "")
   
    For lTel = 1 To Len(TxT)
        sStr = sStr & Asc(Mid$(TxT, lTel, 1)) & " ; "
    Next lTel
   
    Ntxt = Split(sStr, ";") 'indholder et array af reply


ntxt(0) ' indholder 0
ntxt(1) ' indholder status code , 90 forbundet ,91 fejl/fordbut,
        '92 failde pga. inge ident , 93 faild pga. malge iden confirmation
ntxt(2) or ntxt(3) ' portnummer ntxt(2)*256+ntxt(3)=portnumber
ntxt(4),ntxt(5),ntxt(6),ntxt(7) ' ip

håber du kan bruge det til noget, ellers spørg.

p2=port mod 256 'korrekt
port=port-p2 ' skal også med
p1=port mod 255 ' ser ud til at være rigtig