VB6中使用Winsock穿越各种代理的实现

本文格式为Word版，下载可任意编辑——VB6中使用Winsock穿越各种代理的实现90ThenDebug.PrintAsc(Mid(RevBuffer,2,1))MsgBox\连接sock4代理失败!\错误\

Form1.Winsock1.Close

ConnStep=0ExitFunction

Else

Form1.Label8.Caption=\连接目标服务器成功!\

ConnStep=-1Form2.ShowExitFunction

EndIfEndIfEndIf

'*******************下面的例子有大量重复代码，是为了让大家更明了地了解sock5穿透过程，

大家可以拿回去自己优化**********************************

IfProxyType=1Then'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@sock5代理

SelectCasePStep

Case1

ReDimSendByte(0To2)AsByte'第一步无验证发送050100,有验证发送050202

SendByte(0)=5'05

SendByte(1)=1'01'在有用户密码验证时此字节是1还是2有诸多整治，现以腾讯穿越代

理模拟器时发送的数据为准，如有错误，请自己修改!

SendByte(2)=IIf(Form1.Check1.Value=0,0,2)'00或02

Form1.Winsock1.SendDataSendByte()

ConnStep=PStep+1

ExitFunctionCase2'代理回复

IfAsc(Mid(RevBuffer,2,1))=255Then'FF(255)为失败

MsgBox\连接代理失败!\

Form1.Winsock1.Close

ConnStep=0ExitFunction

EndIf

IfAsc(Mid(RevBuffer,2,1))=0AndAsc(Mid(RevBuffer,1,1))=5Then'若代理回复05

00为无验证连接成功

Form1.Label8.Caption=\连接成功!无验证\

ReDimSendByte(0To9)AsByte'其次步无验证发送连接请求

SendByte(0)=5SendByte(1)=1SendByte(2)=0SendByte(3)=1

SendByte(4)=GetIPByte(1,DestIP)SendByte(5)=GetIPByte(2,DestIP)

0AndForm1.Check1.Value=1Then'有验证，验证失败代

理回复其次字节为00验证成功，其余值为失败

MsgBox\代理校验用户名、密码失败!\错误\

Form1.Winsock1.Close

ConnStep=0ExitFunction

EndIf

IfAsc(Mid(RevBuffer,2,1))=0AndForm1.Check1.Value=1Then'有验证，验证成功，回

复值其次字节为00，其余值为失败

Form1.Label8.Caption=\连接成功!有验证!\ReDimSendByte(0To9)AsByte'发送连接请求

SendByte(0)=5SendByte(1)=1SendByte(2)=0SendByte(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进制端口分成两个字节SendByte(9)=DestPortMod256'把10进制端口分成两个字节

Form1.Winsock1.SendDataSendByte()

ConnStep=ConnStep+1

ExitFunction

EndIf

IfAsc(Mid(RevBuffer,2,1))=0AndForm1.Check1.Value=0Then

Form1.Label8.Caption=\连接目标服务器成功!\'无验证的最终一步，代理回复其次字节为00成

功，其余值为失败ConnStep=-1Form2.ShowExitFunction

EndIf

IfAsc(Mid(RevBuffer,2,1))0ThenMsgBox\代理连接目标服务器失败!\错误\

ConnStep=0Form1.Winsock1.Close

ExitFunction

Else

Form1.Label8.Caption=\连接目标服务器成功!\

ConnStep=-1Form2.ShowExitFunction

EndIfEndSelectEndIf

IfProxyType=2Then'@@@@@@@@@@@@@@@@@@@@@@@@HTTP1.1代理

IfPStep=1Then'无用户名密码验证IfForm1.Check1.Value=0Then

HTTPHeader=\

\

&Chr(13)&Chr(10)&Chr(13)&Chr(10)

ConnStep=PStep+1

Form1.Winsock1.SendDataHTTPHeader

ExitFunction

EndIf

IfForm1.Check1.Value=1Then'有用户名密码验证

HTTPHeader=\\

Form1.Text6.Text&Chr(13)&Chr(10)&\

StrtoBase64(Form1.Text3.Text&_

\

Basic\

StrtoBase64(Form1.Text3.Text&\

Chr(10)

'Chr(13)&Chr(10)能否直接用vbCrLf?我不知道

Debug.PrintHTTPHeaderConnStep=PStep+1

Form1.Winsock1.SendDataHTTPHeader

ExitFunction

EndIfEndIf

IfPStep=2Then'代理服务器回复，格式：HTTP/[代理版本][状态代码][状态说明]IfLCase(Left(RevBuffer,4))=\状态代码为200为

成功

Form1.Label8.Caption=\连接目标服务器成功!\

Form2.ShowConnStep=-1

Else

MsgBox\代理连接目标服务器失败!\错误\