VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 8969|回复: 22

[灌水] 昨天我花了半天时间让SocketMaster部分支持IPv6,用来翻<反和谐>墙

[复制链接]
 楼主| 发表于 2011-8-31 12:07:21 | 显示全部楼层 |阅读模式
(网络不支持IPv6或者Vista以上的可以无视此贴)

如题,我只是想编一个DNS查询器,连接Google Public DNS IPv6的,为了查询到正确的Yo<反和谐>uTu<反和谐>be的IPv6地址用来翻<反和谐>墙(破XP竟然不支持设置IPv6的地址作为DNS,据说要2003/Vista以上,或者Linux……),大家都知道WinSock不支持连接IPv6地址,SocketMaster也不支持,而且作者不知是吃了什么不干净的东西,在代码里面胡乱写满StrConv导致SocketMaster不支持二进制数据和中文……我把那些错误的代码改掉了,而且从PSC上查到了一个getaddrinfo的示例代码,可以查询IPv6地址,然后里面相关的结构体复制到SocketMaster里面了,加了一堆If语句,目前可以直接通过IPv6地址建立TCP/UDP连接(但是不支持IPv6域名解析,还有IPv6 TCP服务端创建)然后我去网上查了DNS数据包的结构(查了半天没查到,最后通过WireShark抓包看到的结构),用VB写了一个DNS查询器山寨版,有图有真相:

无标题-1.png

代码写得很乱,所以bin和src就不拿出来献丑了,下一步打算用VB写一个DNS代理,这样不需要改Hosts表也能用IE翻<反和谐>墙了……

点评

开门,查水表!!!!!!!!!!!1  发表于 2013-3-28 11:59
代码乱只是 src 丑,跟 bin 丑没关系,还是可以拿出来献献的……  发表于 2011-8-31 17:44

评分

参与人数 1人气 -1 收起 理由
小孩不乖! -1 查水表

查看全部评分

发表于 2011-8-31 12:47:16 | 显示全部楼层
20块钱一个月的VPN路过
回复 支持 反对

使用道具 举报

发表于 2011-8-31 13:39:30 | 显示全部楼层
Linux下 使用隧道的飘过,XP使用自由x

点评

我们学校已经支持IPv6,不需要隧道了,不过回家估计要用到……  发表于 2011-8-31 13:44
Linux下推荐 miredo 一个开机自动链接的ipv6隧道,再加上修改HOST指定V6地址,就可以轻松翻  发表于 2011-8-31 13:42
回复 支持 反对

使用道具 举报

 楼主| 发表于 2011-8-31 13:46:57 | 显示全部楼层
回复 JuncoJet 的帖子

顺便再问一个问题:用什么API可以修改网络连接属性里面的DNS?我刚才试了一下用netsh命令,结果不让修改成127.0.0.1不过在“网络连接属性”对话框里面可以改……

点评

管理员权限自然是少不了的……  发表于 2011-8-31 17:05
Jen
修改网络连接属性,在Vista/Win7下需要Administrator权限。  发表于 2011-8-31 17:03
回复 支持 反对

使用道具 举报

发表于 2011-8-31 16:51:03 | 显示全部楼层
本帖最后由 Jen 于 2011-8-31 17:01 编辑

回复 acme_pjz 的帖子

待你整理好那个SocketMaster后,对比以前有几位作者改写的支持Unicode的SocketMaster,看看能否过关。
  1. Private Sub RetrieveLstNIC()
  2.     Dim strComputer As String
  3.     Dim objWMIService As Object
  4.     Dim colItems As Object
  5.     Dim objItem As Object
  6.     Dim NICDescription As String
  7.     Dim pos As Integer

  8.     On Error Resume Next
  9.     strComputer = "."
  10.     Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\CIMV2")
  11.     Set colItems = objWMIService.ExecQuery( _
  12.         "SELECT * FROM Win32_NetworkAdapterConfiguration where IPEnabled=TRUE", , 48)
  13.         
  14.     Rem Add all network cards (NIC) found to ListBox
  15.     For Each objItem In colItems
  16.         pos = InStr(1, objItem.Caption, "] ")
  17.         NICDescription = MLSGetString("0042") ' NIC not found
  18.         If pos Then
  19.             NICDescription = Mid$(objItem.Caption, pos + 2)
  20.         End If
  21.         lstNIC.AddItem NICDescription
  22.     Next
  23.    
  24.     Rem Release objects
  25.     Set objItem = Nothing
  26.     Set colItems = Nothing
  27.     Set objWMIService = Nothing
  28. End Sub
复制代码
用WMIService.详见 Network Change TCP/IP
http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=64587&lngWId=1
回复 支持 反对

使用道具 举报

 楼主| 发表于 2011-8-31 17:07:31 | 显示全部楼层
花了一下午写了个FakeDNS测试版,不过貌似现在很不稳定(没有Hosts表稳定),YouTube只能看到一部分,点击进视频页面就完全看不到了……估计是认识的DNS请求类型太少了……

FakeDNS.rar

52.81 KB, 下载次数: 355

点评

好像超过10kb的tcp通信就可以绕过域名污染  发表于 2011-8-31 20:15
回复 支持 反对

使用道具 举报

 楼主| 发表于 2011-8-31 17:38:04 | 显示全部楼层
唉,还是不行看来还是Hosts比较靠谱……

点评

自动修改HOST的话,估计250和咔吧都会报毒……  发表于 2011-8-31 23:42
你可以让你程序 自动修改HOST 保存。这样就不需要每次都查询了嘛  发表于 2011-8-31 19:23
回复 支持 反对

使用道具 举报

发表于 2011-8-31 23:15:45 | 显示全部楼层
翻强软件己发送到你的115网盘

点评

我知道翻强软件到处都能找到……  发表于 2011-8-31 23:42
回复 支持 反对

使用道具 举报

发表于 2011-8-31 23:27:35 | 显示全部楼层
ie9无法在这论坛发贴,所以回复一下.
《最高人民法院、最高人民检察院关于办理危害计算机信息系统安全刑事案件应用法律若干问题的解释》已于2011年6月20日由最高人民法院审判委员会第1524次会议、2011年7月11日由最高人民检察院第十一届检察委员会第63次会议通过,现予公布,自2011年9月1日起施行。

点评

看到了,翻强软件是“第二条(一)具有避开或者突破计算机信息系统安全保护措施,未经授权或者超越授权获取计算机信息系统数据的功能的”  发表于 2011-8-31 23:45
翻强算危害计算机信息系统安全么?难道还要判刑?  发表于 2011-8-31 23:43
回复 支持 反对

使用道具 举报

发表于 2011-9-1 07:54:38 | 显示全部楼层
第二条(一)具有避开或者突破计算机信息系统安全保护措施,未经授权或者超越授权获取计算机信息系统数据的功能的


这个是指穿越防火墙的木马偷资料或密码吧.
番强的应该不算,因为他好像没承认有这个强.
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2020-8-6 06:38

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表