VB6中使用Winsock穿越各種代理的實(shí)現(xiàn)

本文格式為Word版，下載可任意編輯——VB6中使用Winsock穿越各種代理的實(shí)現(xiàn)90ThenDebug.PrintAsc(Mid(RevBuffer,2,1))MsgBox\連接sock4代理失敗!\錯(cuò)誤\

Form1.Winsock1.Close

ConnStep=0ExitFunction

Else

Form1.Label8.Caption=\連接目標(biāo)服務(wù)器成功!\

ConnStep=-1Form2.ShowExitFunction

EndIfEndIfEndIf

'*******************下面的例子有大量重復(fù)代碼，是為了讓大家更明了地了解sock5穿透過程，

大家可以拿回去自己優(yōu)化**********************************

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

SelectCasePStep

Case1

ReDimSendByte(0To2)AsByte'第一步無驗(yàn)證發(fā)送050100,有驗(yàn)證發(fā)送050202

SendByte(0)=5'05

SendByte(1)=1'01'在有用戶密碼驗(yàn)證時(shí)此字節(jié)是1還是2有諸多整治，現(xiàn)以騰訊穿越代

理模擬器時(shí)發(fā)送的數(shù)據(jù)為準(zhǔn)，如有錯(cuò)誤，請(qǐng)自己修改!

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

Form1.Winsock1.SendDataSendByte()

ConnStep=PStep+1

ExitFunctionCase2'代理回復(fù)

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'若代理回復(fù)05

00為無驗(yàn)證連接成功

Form1.Label8.Caption=\連接成功!無驗(yàn)證\

ReDimSendByte(0To9)AsByte'其次步無驗(yàn)證發(fā)送連接請(qǐng)求

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

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

0AndForm1.Check1.Value=1Then'有驗(yàn)證，驗(yàn)證失敗代

理回復(fù)其次字節(jié)為00驗(yàn)證成功，其余值為失敗

MsgBox\代理校驗(yàn)用戶名、密碼失敗!\錯(cuò)誤\

Form1.Winsock1.Close

ConnStep=0ExitFunction

EndIf

IfAsc(Mid(RevBuffer,2,1))=0AndForm1.Check1.Value=1Then'有驗(yàn)證，驗(yàn)證成功，回

復(fù)值其次字節(jié)為00，其余值為失敗

Form1.Label8.Caption=\連接成功!有驗(yàn)證!\ReDimSendByte(0To9)AsByte'發(fā)送連接請(qǐng)求

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進(jìn)制端口分成兩個(gè)字節(jié)SendByte(9)=DestPortMod256'把10進(jìn)制端口分成兩個(gè)字節(jié)

Form1.Winsock1.SendDataSendByte()

ConnStep=ConnStep+1

ExitFunction

EndIf

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

Form1.Label8.Caption=\連接目標(biāo)服務(wù)器成功!\'無驗(yàn)證的最終一步，代理回復(fù)其次字節(jié)為00成

功，其余值為失敗ConnStep=-1Form2.ShowExitFunction

EndIf

IfAsc(Mid(RevBuffer,2,1))0ThenMsgBox\代理連接目標(biāo)服務(wù)器失敗!\錯(cuò)誤\

ConnStep=0Form1.Winsock1.Close

ExitFunction

Else

Form1.Label8.Caption=\連接目標(biāo)服務(wù)器成功!\

ConnStep=-1Form2.ShowExitFunction

EndIfEndSelectEndIf

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

IfPStep=1Then'無用戶名密碼驗(yàn)證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'有用戶名密碼驗(yàn)證

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'代理服務(wù)器回復(fù)，格式：HTTP/[代理版本][狀態(tài)代碼][狀態(tài)說明]IfLCase(Left(RevBuffer,4))=\狀態(tài)代碼為200為

成功

Form1.Label8.Caption=\連接目標(biāo)服務(wù)器成功!\

Form2.ShowConnStep=-1

Else

MsgBox\代理連接目標(biāo)服務(wù)器失敗!\錯(cuò)誤\