VB6中使用Winsock穿越各種代理的完成(TCP協(xié)議)
發(fā)表時(shí)間：2024-02-19 來(lái)源：明輝站整理相關(guān)軟件相關(guān)文章人氣：
[摘要]感謝 Oleg Gdalevich 和 CSDN 用戶 zyg0(影子)對(duì)本文(程序)所做的貢獻(xiàn)本文中引用的RFC文檔內(nèi)容歸原作者所有轉(zhuǎn)載本文請(qǐng)標(biāo)明出處本文作者:吳滂本文中提及的程序可在 枕善居 http://www.mndsoft.com/blog/blogview.asp?logID=494...
感謝 Oleg Gdalevich 和 CSDN 用戶 zyg0(影子)對(duì)本文(程序)所做的貢獻(xiàn)
本文中引用的RFC文檔內(nèi)容歸原作者所有
轉(zhuǎn)載本文請(qǐng)標(biāo)明出處
本文作者:吳滂
本文中提及的程序可在 枕善居 http://www.mndsoft.com/blog/blogview.asp?logID=494 下載
關(guān)于用vb的winsock穿透代理的討論歸討論,一直沒有什么源代碼放出,現(xiàn)在我就放源出來(lái),省的某些人拿這所謂的"技術(shù)"去騙錢.
由于缺乏測(cè)試環(huán)境,本程序只在我自己編寫的代理模擬器上測(cè)試過(guò),其結(jié)果和騰訊QQ,MSN,網(wǎng)易泡泡穿越該模擬器時(shí)得出的結(jié)果基本一致.因此,代碼可能有錯(cuò)誤的地方,請(qǐng)各位有條件的用戶自行改正,請(qǐng)見諒!
首先,是基礎(chǔ)知識(shí),也就是RFC文檔.這個(gè)是必看內(nèi)容.我的程序就是基于這些文檔寫出.下面是各RFC的連接,為了準(zhǔn)確,我先提供英文版的連接,在下面的介紹中再把關(guān)鍵部分翻譯成中文.另外,要糾正一個(gè)錯(cuò)誤.國(guó)內(nèi)很多文章說(shuō)socks5代理的用戶名/密碼校驗(yàn)標(biāo)準(zhǔn)在 RFC 1928里有說(shuō)明,其實(shí)這是一個(gè)完全錯(cuò)誤的說(shuō)法(我很懷疑寫那文章的人有沒有看過(guò)RFC),socks5用戶名/密碼校驗(yàn)標(biāo)準(zhǔn)其實(shí)是在 RFC 1929 里面說(shuō)明的.
RFC 1928 - socks5 代理標(biāo)準(zhǔn)
RFC 1929 - socks5 代理用戶名/密碼校驗(yàn)標(biāo)準(zhǔn)
RFC ???? - socks4 代理標(biāo)準(zhǔn)
RFC 2616 - HTTP1.1 標(biāo)準(zhǔn)
我們現(xiàn)在直入正題:先說(shuō)socks5的TCP穿透(有了這個(gè)例子大家自己照這可以寫UDP穿透)
首先和代理服務(wù)器連接-直接用winsock去connect指定的地址端口(通常是1080)即可.然后進(jìn)入細(xì)節(jié)商議階段.
細(xì)節(jié)商議--無(wú)用戶名/密碼校驗(yàn)
RFC 1928 中對(duì)于細(xì)節(jié)商議的第一步是這樣描述的:
The client connects to the server, and sends a version
identifier/method selection message:
+----+----------+----------+
VER NMETHODS METHODS
+----+----------+----------+
1 1 1 to 255
+----+----------+----------+
The VER field is set to X''05'' for this version of the protocol. The
NMETHODS field contains the number of method identifier octets that
appear in the METHODS field.
The server selects from one of the methods given in METHODS, and
sends a METHOD selection message:
+----+--------+
VER METHOD
+----+--------+
1 1
+----+--------+
If the selected METHOD is X''FF'', none of the methods listed by the
client are acceptable, and the client MUST close the connection.
The values currently defined for METHOD are:
o X''00'' NO AUTHENTICATION REQUIRED ---------無(wú)用戶密碼 00
o X''01'' GSSAPI ---------??? GSSAPI ?
o X''02'' USERNAME/PASSWORD ---------有用戶密碼 02
o X''03'' to X''7F'' IANA ASSIGNED
o X''80'' to X''FE'' RESERVED FOR PRIVATE METHODS
o X''FF'' NO ACCEPTABLE METHODS ---------失敗 255
The client and server then enter a method-specific sub-negotiation.
換言之,就是向服務(wù)器發(fā)送三個(gè)字節(jié)的Byte數(shù)組,由于是無(wú)須用戶/密碼校驗(yàn),展開來(lái)寫是 05 01 00
然后服務(wù)器返回兩個(gè)字節(jié)的信息,第一個(gè)字節(jié)固定,第而個(gè)字節(jié)是說(shuō)明,如果是16進(jìn)制的FF(即十進(jìn)制255)表示連接失敗(o X''FF'' NO ACCEPTABLE METHODS)根據(jù)上面的列表,我們連接成功應(yīng)該第二字節(jié)為 00.
然后我們進(jìn)入第二步,請(qǐng)看以下RFC說(shuō)明:
Once the method-dependent subnegotiation has completed, the client
sends the request details. If the negotiated method includes
encapsulation for purposes of integrity checking and/or
confidentiality, these requests MUST be encapsulated in the method-
dependent encapsulation.
The SOCKS request is formed as follows:
+----+-----+-------+------+----------+----------+
VER CMD RSV ATYP DST.ADDR DST.PORT
+----+-----+-------+------+----------+----------+
1 1 X''00'' 1 Variable 2
+----+-----+-------+------+----------+----------+
Where:
o VER protocol version: X''05'' ------------- 固定 05
o CMD
o CONNECT X''01'' ------------- TCP方式 01
o BIND X''02''
o UDP ASSOCIATE X''03'' ------------- UDP方式 03
o RSV RESERVED ------------- 固定 00
o ATYP address type of following address
o IP V4 address: X''01'' ------------- IPv4 01
o DOMAINNAME: X''03''
o IP V6 address: X''04''
o DST.ADDR desired destination address
o DST.PORT desired destination port in network octet
order
The SOCKS server will typically evaluate the request based on source
and destination addresses, and return one or more reply messages, as
appropriate for the request type.
發(fā)送 05 01 00 01 + 目的地址(4字節(jié)） + 目的端口（2字節(jié)），目的地址和端口都是16進(jìn)制碼（不是字符串）。
例202.103.190.27 - 7201
則發(fā)送的信息為：05 01 00 01 CA 67 BE 1B 1C 21
(CA=202 67=103 BE=190 1B=27 1C21=7201)
關(guān)于我是怎么把16進(jìn)制碼換成10進(jìn)制的,請(qǐng)自己看程序
最后,接受服務(wù)器返回?cái)?shù)據(jù),看RFC:
+----+-----+-------+------+----------+----------+
VER REP RSV ATYP BND.ADDR BND.PORT
+----+-----+-------+------+----------+----------+
1 1 X''00'' 1 Variable 2
+----+-----+-------+------+----------+----------+
Where:
o VER protocol version: X''05'' ------------ 固定 05
o REP Reply field:
o X''00'' succeeded ------------ 若為 00 成功 其余可以都看成失敗
o X''01'' general SOCKS server failure
o X''02'' connection not allowed by ruleset
o X''03'' Network unreachable
o X''04'' Host unreachable
o X''05'' Connection refused
o X''06'' TTL expired
o X''07'' Command not supported
o X''08'' Address type not supported
o X''09'' to X''FF'' unassigned
o RSV RESERVED
o ATYP address type of following address
o IP V4 address: X''01''
o DOMAINNAME: X''03''
o IP V6 address: X''04''
o BND.ADDR server bound address
o BND.PORT server bound port in network octet order
Fields marked RESERVED (RSV) must be set to X''00''.
可見,對(duì)于返回信息,只須判斷第二字節(jié)是否為00.若為 00 連接成功,剩下的操作和直連一樣,Winsock可直接用SendData 和 GetData 發(fā)送\接受數(shù)據(jù).
下面介紹需要驗(yàn)證用戶名/密碼的socks5穿透
第一步還是發(fā)送三個(gè)字節(jié),只是內(nèi)容有變,展開來(lái)寫為: 05 01 02
服務(wù)器返回信息也有所不同,正確的返回為 05 02
成功后發(fā)送用戶/密碼信息,請(qǐng)看RFC 說(shuō)明:
Once the SOCKS V5 server has started, and the client has selected the
Username/Password Authentication protocol, the Username/Password
subnegotiation begins. This begins with the client producing a
Username/Password request:
+----+------+----------+------+----------+
VER ULEN UNAME PLEN PASSWD
+----+------+----------+------+----------+
1 1 1 to 255 1 1 to 255
+----+------+----------+------+----------+
The VER field contains the current version of the subnegotiation,
which is X''01''. The ULEN field contains the length of the UNAME field
that follows. The UNAME field contains the username as known to the
source operating system. The PLEN field contains the length of the
PASSWD field that follows. The PASSWD field contains the password
association with the given UNAME.
The server verifies the supplied UNAME and PASSWD, and sends the
following response:
+----+--------+
VER STATUS
+----+--------+
1 1
+----+--------+
A STATUS field of X''00'' indicates success. If the server returns a
`failure'' (STATUS value other than X''00'') status, it MUST close the
connection.
即 發(fā)送 01 + 用戶名長(zhǎng)度(一字節(jié)) + 轉(zhuǎn)換成16進(jìn)制碼的用戶名 + 密碼長(zhǎng)度(一字節(jié)) + 轉(zhuǎn)換成16進(jìn)制碼的密碼,關(guān)于如何把用戶名和密碼轉(zhuǎn)換為10進(jìn)制Byte數(shù)組,請(qǐng)自己看程序.
然后服務(wù)器返回兩個(gè)字節(jié)的信息,只須判斷第二字節(jié),00 為成功,其余為失敗.
剩下的步驟和無(wú)用戶名密碼校驗(yàn)是一樣的,即
發(fā)送 05 01 00 01 + 目的地址(4字節(jié)） + 目的端口（2字節(jié)），目的地址和端口都是16進(jìn)制碼（不是字符串）。
例202.103.190.27 - 7201
則發(fā)送的信息為：05 01 00 01 CA 67 BE 1B 1C 21
(CA=202 67=103 BE=190 1B=27 1C21=7201)
關(guān)于我是怎么把16進(jìn)制碼換成10進(jìn)制的,請(qǐng)自己看程序
最后接受服務(wù)器返回信息.對(duì)于返回信息,只須判斷第二字節(jié)是否為00.若為 00 連接成功,剩下的操作和直連一樣,Winsock可直接用SendData 和 GetData 發(fā)送\接受數(shù)據(jù).
socks4的TCP穿透(事實(shí)上,socks4只支持TCP穿透)
無(wú)用戶名/密碼驗(yàn)證
請(qǐng)看 RFC 說(shuō)明
1) CONNECT
The client connects to the SOCKS server and sends a CONNECT request when
it wants to establish a connection to an application server. The client
includes in the request packet the IP address and the port number of the
destination host, and userid, in the following format.
+----+----+----+----+----+----+----+----+----+----+....+----+
VN CD DSTPORT DSTIP USERID NULL
+----+----+----+----+----+----+----+----+----+----+....+----+
1 1 2 4 variable 1
VN is the SOCKS protocol version number and should be 4. CD is the
SOCKS command code and should be 1 for CONNECT request. NULL is a byte
of all zero bits.
我們首先還是連接服務(wù)器,然后根據(jù)RFC的格式發(fā)送數(shù)據(jù)給服務(wù)器.由于是無(wú)用戶密碼驗(yàn)證,我們需要發(fā)送9個(gè)字節(jié)的數(shù)據(jù),展開寫為 04 01 + 目標(biāo)端口(2字節(jié)) + 目標(biāo)IP(4字節(jié)) + 00,奇怪的是,表中的USERID部分似乎是沒有用的,我參照過(guò)大量的C++代碼,代碼中都沒有體現(xiàn)該部分.
至于如何轉(zhuǎn)換目標(biāo)端口和IP為相應(yīng)的Byte數(shù)組,請(qǐng)自己看示例程序.消息發(fā)出后,服務(wù)器會(huì)返回信息,格式如下:
+----+----+----+----+----+----+----+----+
VN CD DSTPORT DSTIP
+----+----+----+----+----+----+----+----+
1 1 2 4
VN is the version of the reply code and should be 0. CD is the result
code with one of the following values:
90: request granted -------------- 成功
91: request rejected or failed -------------- 失敗
92: request rejected becasue SOCKS server cannot connect to
identd on the client
93: request rejected because the client program and identd
report different user-ids
The remaining fields are ignored.
根據(jù)RFC的說(shuō)法,代理服務(wù)器返回8字節(jié)的數(shù)據(jù),我們只要判斷第二字節(jié)是否為90即可,若是90連接成功,否則失敗.剩下的操作和直連一樣,Winsock可直接用SendData 和 GetData 發(fā)送\接受數(shù)據(jù).
HTTP1.1 代理的穿透
由于RFC 2616過(guò)于冗長(zhǎng),加上HTTP代理穿透的步驟比socks簡(jiǎn)單,這里就不詳細(xì)說(shuō)明了,我只給出連接的步驟和發(fā)送數(shù)據(jù)格式.
第一步仍然是用Winsock去連接代理服務(wù)器.第二步為發(fā)送請(qǐng)求字符,其格式為:
無(wú)用戶名/密碼校驗(yàn) 格式:
"CONNECT" + 空格 + 目標(biāo)連接地址 + ":" + 目標(biāo)連接端口 + 空格 + "HTTP/1.1" + Chr(13) + Chr(10) + "Host:" + 空格 + 目標(biāo)連接地址 + ":" + 目標(biāo)連接端口 + Chr(13) + Chr(10) + Chr(13) + Chr(10)
用戶名/密碼驗(yàn)證格式:
"CONNECT" + 空格 + 目標(biāo)連接地址 + ":" + 目標(biāo)連接端口 + 空格 + "HTTP/1.1" + Chr(13) + Chr(10) + "Host:" + 空格 + 目標(biāo)連接地址 + ":" + 目標(biāo)連接端口 + Chr(13) + Chr(10) + "Authorization: Basic" + 空格 + 經(jīng)Base64加密過(guò)后的[用戶名:密碼] + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "Proxy-Authorization: Basic" + 空格 + 經(jīng)Base64加密過(guò)后的[用戶名:密碼] + Chr(13) + Chr(10) + Chr(13) + Chr(10)
發(fā)送請(qǐng)求完畢后,將收到代理的回應(yīng),根據(jù)RFC說(shuō)明(注意 Status-Line 和 Status-Code):
6 Response
After receiving and interpreting a request message, a server responds
with an HTTP response message.
Response = Status-Line ; Section 6.1
*(( general-header ; Section 4.5
response-header ; Section 6.2
entity-header ) CRLF) ; Section 7.1
CRLF
[ message-body ] ; Section 7.2
6.1 Status-Line
The first line of a Response message is the Status-Line, consisting
of the protocol version followed by a numeric status code and its
associated textual phrase, with each element separated by SP
characters. No CR or LF is allowed except in the final CRLF sequence.
Status-Line = HTTP-Version SP Status-Code SP Reason-Phrase CRLF
6.1.1 Status Code and Reason Phrase
The Status-Code element is a 3-digit integer result code of the
attempt to understand and satisfy the request. These codes are fully
defined in section 10. The Reason-Phrase is intended to give a short
textual description of the Status-Code. The Status-Code is intended
for use by automata and the Reason-Phrase is intended for the human
user. The client is not required to examine or display the Reason-
Phrase.
The first digit of the Status-Code defines the class of response. The
last two digits do not have any categorization role. There are 5
values for the first digit:
- 1xx: Informational - Request received, continuing process
- 2xx: Success - The action was successfully received,
understood, and accepted
- 3xx: Redirection - Further action must be taken in order to
complete the request
- 4xx: Client Error - The request contains bad syntax or cannot
be fulfilled
- 5xx: Server Error - The server failed to fulfill an apparently
valid request
The individual values of the numeric status codes defined for
HTTP/1.1, and an example set of corresponding Reason-Phrase''s, are
presented below. The reason phrases listed here are only
recommendations -- they MAY be replaced by local equivalents without
affecting the protocol.
Status-Code =
"100" ; Section 10.1.1: Continue
"101" ; Section 10.1.2: Switching Protocols
"200" ; Section 10.2.1: OK
"201" ; Section 10.2.2: Created
"202" ; Section 10.2.3: Accepted
"203" ; Section 10.2.4: Non-Authoritative Information
"204" ; Section 10.2.5: No Content
"205" ; Section 10.2.6: Reset Content
"206" ; Section 10.2.7: Partial Content
"300" ; Section 10.3.1: Multiple Choices
"301" ; Section 10.3.2: Moved Permanently
"302" ; Section 10.3.3: Found
"303" ; Section 10.3.4: See Other
"304" ; Section 10.3.5: Not Modified
"305" ; Section 10.3.6: Use Proxy
"307" ; Section 10.3.8: Temporary Redirect
"400" ; Section 10.4.1: Bad Request
"401" ; Section 10.4.2: Unauthorized
"402" ; Section 10.4.3: Payment Required
"403" ; Section 10.4.4: Forbidden
"404" ; Section 10.4.5: Not Found
"405" ; Section 10.4.6: Method Not Allowed
"406" ; Section 10.4.7: Not Acceptable
"407" ; Section 10.4.8: Proxy Authentication Required
"408" ; Section 10.4.9: Request Time-out
"409" ; Section 10.4.10: Conflict
"410" ; Section 10.4.11: Gone
"411" ; Section 10.4.12: Length Required
"412" ; Section 10.4.13: Precondition Failed
"413" ; Section 10.4.14: Request Entity Too Large
"414" ; Section 10.4.15: Request-URI Too Large
"415" ; Section 10.4.16: Unsupported Media Type
"416" ; Section 10.4.17: Requested range not satisfiable
"417" ; Section 10.4.18: Expectation Failed
"500" ; Section 10.5.1: Internal Server Error
"501" ; Section 10.5.2: Not Implemented
"502" ; Section 10.5.3: Bad Gateway
"503" ; Section 10.5.4: Service Unavailable
"504" ; Section 10.5.5: Gateway Time-out
"505" ; Section 10.5.6: HTTP Version not supported
extension-code
可知,如果連接成功,服務(wù)器返回的信息是 "HTTP/" + 代理版本 + "200" + 描述("Connection established")
所以我們只要判斷返回的信息是否以"http"開頭,是否存在" 200 "字眼即可.
以下是關(guān)鍵函數(shù)的源代碼:
Public Function ProxyStep(ProxyType As Integer, PStep As Integer)
Dim SendByte() As Byte
If ProxyType = 0 Then ''@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ sock4代理
If PStep = 1 Then
ReDim SendByte(0 To 8) As Byte
SendByte(0) = 4 '' 04
SendByte(1) = 1 '' 01
SendByte(2) = Int(DestPort / 256)
SendByte(3) = DestPort Mod 256
SendByte(4) = GetIPByte(1, DestIP)
SendByte(5) = GetIPByte(2, DestIP)
SendByte(6) = GetIPByte(3, DestIP)
SendByte(7) = GetIPByte(4, DestIP)
SendByte(8) = 0 ''最后要以 0 結(jié)束
Form1.Winsock1.SendData SendByte()
ConnStep = PStep + 1
Exit Function
End If
If PStep = 2 Then ''代理回復(fù)，第二字節(jié)為 90 為成功，其余值為失敗
If Asc(Mid(RevBuffer, 2, 1)) <> 90 Then
Debug.Print Asc(Mid(RevBuffer, 2, 1))
MsgBox "連接sock4代理失��！", 48, "錯(cuò)誤"
Form1.Winsock1.Close
ConnStep = 0
Exit Function
Else
Form1.Label8.Caption = "連接目標(biāo)服務(wù)器成功！"
ConnStep = -1
Form2.Show
Exit Function
End If
End If
End If
''*******************下面的例子有大量重復(fù)代碼，是為了讓大家更清楚地了解sock5穿透過(guò)程，大家可以拿回去自己優(yōu)化 **********************************
If ProxyType = 1 Then ''@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ sock5代理
Select Case PStep
Case 1
ReDim SendByte(0 To 2) As Byte ''第一步 無(wú)驗(yàn)證發(fā)送 05 01 00, 有驗(yàn)證發(fā)送 05 02 02
SendByte(0) = 5 '' 05
SendByte(1) = 1 ''01 ''在有用戶密碼驗(yàn)證時(shí)此字節(jié)是 1 還是 2 有諸多爭(zhēng)論，現(xiàn)以騰訊QQ穿越代理模擬器時(shí)發(fā)送的數(shù)據(jù)為準(zhǔn)，如有錯(cuò)誤，請(qǐng)自己修改！
SendByte(2) = IIf(Form1.Check1.Value = 0, 0, 2) ''00 或 02
Form1.Winsock1.SendData SendByte()
ConnStep = PStep + 1
Exit Function
Case 2 ''代理回復(fù)
If Asc(Mid(RevBuffer, 2, 1)) = 255 Then ''FF (255) 為失敗
MsgBox "連接代理失敗！", 64
Form1.Winsock1.Close
ConnStep = 0
Exit Function
End If
If Asc(Mid(RevBuffer, 2, 1)) = 0 And Asc(Mid(RevBuffer, 1, 1)) = 5 Then ''若代理回復(fù) 05 00 為無(wú)驗(yàn)證連接成功
Form1.Label8.Caption = "連接成功！無(wú)驗(yàn)證"
ReDim SendByte(0 To 9) As Byte ''第二步 無(wú)驗(yàn)證 發(fā)送連接請(qǐng)求
SendByte(0) = 5
SendByte(1) = 1
SendByte(2) = 0
SendByte(3) = 1
SendByte(4) = GetIPByte(1, DestIP)
SendByte(5) = GetIPByte(2, DestIP)
SendByte(6) = GetIPByte(3, DestIP)
SendByte(7) = GetIPByte(4, DestIP)
SendByte(8) = Int(DestPort / 256) ''把10進(jìn)制端口分成兩個(gè)字節(jié)
SendByte(9) = DestPort Mod 256 ''把10進(jìn)制端口分成兩個(gè)字節(jié)
Form1.Winsock1.SendData SendByte()
ConnStep = ConnStep + 1
Exit Function
End If
If Asc(Mid(RevBuffer, 2, 1)) = 2 And Asc(Mid(RevBuffer, 1, 1)) = 5 Then ''第二步 有用戶名密碼驗(yàn)證 成功為 05 02
Form1.Label8.Caption = "連接成功！有驗(yàn)證"
ReDim SendByte(0 To 2 + Len(UserName) + Len(UserPassword)) As Byte
SendByte(0) = 1
SendByte(1) = Len(UserName)
MemCopy SendByte(2), ByVal UserName, Len(UserName) ''將用戶名轉(zhuǎn)換
SendByte(2 + Len(UserName)) = Len(UserPassword)
MemCopy SendByte(3 + Len(UserName)), ByVal UserPassword, Len(UserPassword) ''將密碼轉(zhuǎn)換
Form1.Winsock1.SendData SendByte()
ConnStep = ConnStep + 1
Exit Function
End If
Case 3
If Asc(Mid(RevBuffer, 2, 1)) <> 0 And Form1.Check1.Value = 1 Then ''有驗(yàn)證，驗(yàn)證失敗 代理回復(fù)第二字節(jié)為 00 驗(yàn)證成功，其余值為失敗
MsgBox "sock5代理校驗(yàn)用戶名、密碼失��！", 48, "錯(cuò)誤"
Form1.Winsock1.Close
ConnStep = 0
Exit Function
End If
If Asc(Mid(RevBuffer, 2, 1)) = 0 And Form1.Check1.Value = 1 Then ''有驗(yàn)證，驗(yàn)證成功，回復(fù)值第二字節(jié)為 00 ，其余值為失敗
Form1.Label8.Caption = "連接成功！有驗(yàn)證！"
ReDim SendByte(0 To 9) As Byte ''發(fā)送連接請(qǐng)求
SendByte(0) = 5
SendByte(1) = 1
SendByte(2) = 0
SendByte(3) = 1
SendByte(4) = GetIPByte(1, DestIP)
SendByte(5) = GetIPByte(2, DestIP)
SendByte(6) = GetIPByte(3, DestIP)
SendByte(7) = GetIPByte(4, DestIP)
SendByte(8) = Int(DestPort / 256) ''把10進(jìn)制端口分成兩個(gè)字節(jié)
SendByte(9) = DestPort Mod 256 ''把10進(jìn)制端口分成兩個(gè)字節(jié)
Form1.Winsock1.SendData SendByte()
ConnStep = ConnStep + 1
Exit Function
End If
If Asc(Mid(RevBuffer, 2, 1)) = 0 And Form1.Check1.Value = 0 Then
Form1.Label8.Caption = "連接目標(biāo)服務(wù)器成功！" ''無(wú)驗(yàn)證的最后一步，代理回復(fù)第二字節(jié)為 00 成功，其余值為失敗
ConnStep = -1
Form2.Show
Exit Function
End If
If Asc(Mid(RevBuffer, 2, 1)) <> 0 And Form1.Check1.Value = 0 Then
MsgBox "連接目標(biāo)服務(wù)器失�。�", 48, "錯(cuò)誤" ''無(wú)驗(yàn)證的最后一步，代理回復(fù)第二字節(jié)為 00 成功，其余值為失敗
ConnStep = 0
Form1.Winsock1.Close
Exit Function
End If
Case 4 ''只有有驗(yàn)證才會(huì)用到這一步
If Asc(Mid(RevBuffer, 2, 1)) <> 0 Then
MsgBox "sock5代理連接目標(biāo)服務(wù)器失�。�", 48, "錯(cuò)誤"
ConnStep = 0
Form1.Winsock1.Close
Exit Function
Else
Form1.Label8.Caption = "連接目標(biāo)服務(wù)器成功！"
ConnStep = -1
Form2.Show
Exit Function
End If
End Select
End If
If ProxyType = 2 Then ''@@@@@@@@@@@@@@@@@@@@@@@@HTTP1.1代理
If PStep = 1 Then ''無(wú)用戶名密碼驗(yàn)證
If Form1.Check1.Value = 0 Then
HTTPHeader = "CONNECT " & Form1.Text5.Text & ":" & Form1.Text6.Text & _
" HTTP/1.1" & Chr(13) & Chr(10) & "Host: " & Form1.Text5.Text & ":" & Form1.Text6.Text & Chr(13) & Chr(10) & Chr(13) & Chr(10)
ConnStep = PStep + 1
Form1.Winsock1.SendData HTTPHeader
Exit Function
End If
If Form1.Check1.Value = 1 Then '' 有用戶名密碼驗(yàn)證
HTTPHeader = "CONNECT " & Form1.Text5.Text & ":" & Form1.Text6.Text & _
" HTTP/1.1" & Chr(13) & Chr(10) & "Host: " & Form1.Text5.Text & ":" & _
Form1.Text6.Text & Chr(13) & Chr(10) & "Authorization: Basic " & StrtoBase64(Form1.Text3.Text & _
":" & Form1.Text4.Text) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Proxy-Authorization: Basic " & _
StrtoBase64(Form1.Text3.Text & ":" & Form1.Text4.Text) & Chr(13) & Chr(10) & Chr(13) & Chr(10)
'' Chr(13) & Chr(10) 能否直接用vbCrLf ? 我不知道
Debug.Print HTTPHeader
ConnStep = PStep + 1
Form1.Winsock1.SendData HTTPHeader
Exit Function
End If
End If
If PStep = 2 Then ''代理服務(wù)器回復(fù)，格式：HTTP/[代理版本] [狀態(tài)代碼] [狀態(tài)說(shuō)明]
If LCase(Left(RevBuffer, 4)) = "http" And Mid(" 200 ", 1) <> 0 Then ''狀態(tài)代碼為 200 為成功
Form1.Label8.Caption = "連接目標(biāo)服務(wù)器成功！"
Form2.Show
ConnStep = -1
Else
MsgBox "HTTP1.1代理連接目標(biāo)服務(wù)器失��！", 48, "錯(cuò)誤"
ConnStep = 0
Form1.Winsock1.Close
Exit Function
End If
End If
End If
End Function
