版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
本文格式为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\代理连接目标服务器失败!\错误\
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 材料范文之创建文明乡镇汇报材料
- 职场人如何管理自己有限的时间-职场
- 部编版四年级下册道德与法治期末测试卷附答案(考试直接用)
- 小学六年级下册数学期末测试卷含答案【轻巧夺冠】
- 毕业设计文献
- 人教版六年级下册数学期末测试卷及参考答案(轻巧夺冠)
- 人教版六年级下册数学期末测试卷含答案【完整版】
- 人教版四年级下册数学期末测试卷及参考答案【培优b卷】
- 人教版六年级下册数学期末测试卷(预热题)
- 人教版四年级下册数学期末测试卷及答案(新)
- 红色卡通风世界献血日PPT模板
- 【高等数学练习题】北京交通运输职业学院专升本自考真题汇总(附答案解析)
- 房屋建造过程课件
- Q∕SY 15001-2016 国际业务社会安全管理体系建立与实施规范
- 2023太原市修缮工程预算定额说明及计算规则
- 广州信用卡中心数据开发笔试试题测试题
- 水利工程危险源辨识与风险评价报告参考模板范本
- 10kV及以下架空配电线路设计技术规程
- Q∕SY 1768-2014 测井绞车使用和维护规范
- 幼儿绘本故事:长腿爸爸tigerlee
- 上海财经大学学科建设规划
评论
0/150
提交评论