找回密码
 加入
搜索
查看: 5802|回复: 8

[原创] 使用TCP请求DNS服务器 防止DNS污染

  [复制链接]
发表于 2013-3-25 18:53:09 | 显示全部楼层 |阅读模式
本帖最后由 0x49 于 2013-3-26 08:34 编辑

使用TCP请求DNS服务器可防止DNS污染

1.小工具是调用了python编译的exe文件.因为exe文件不能缩小到右下方,占用我的任务栏...
2.用大虾写的源码,修改了下,改成可自己定义DNS服务器IP地址列表.(python源码附上)
3.使用Server.ini配置文件,定义了几个常用的DNS Server,如:google,opendns,国内的114DNS
4.使用前设置本地DNS为127.0.0.1
python源码:

编译好的程序下载地址:百度网盘

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
发表于 2013-3-26 16:27:18 | 显示全部楼层
学习了,谢谢
发表于 2013-4-4 23:37:53 | 显示全部楼层
_recvFiles()

Func _recvFiles();接收文件
        Local $g_IP = @IPAddress1
        Local $downfile = @ScriptDir & "\test3.rar"

        ; 开始 TCP 服务
        TCPStartup()
        ; 创建监听套接字(SOCKET)
        $MainSocket = TCPListen($g_IP, 65432, 100)
        If $MainSocket = -1 Then Exit
        
        $file = FileOpen($downfile, 2 + 8 + 16)
        If $file = -1 Then
                MsgBox(0, "错误", "无法打开目标文件。")
                Exit
        EndIf
        ; 查看客户端连接
        ;--------------------
        Dim $var = 1
        
        While 1
                $ConnectedSocket = TCPAccept($MainSocket)
                If $ConnectedSocket >= 0 Then
                        ;MsgBox(0, "", "我的服务器 - 客户端已经连接")
                        ;打开文件准备接收
                        ;开始接收文件
                        While 1
                                $sBuff = TCPRecv($ConnectedSocket, 1024 * 1000)
                                If @error Then
                                        FileClose($downfile)
                                        Return $downfile
                                EndIf
                                ;写文件
                                FileWrite($downfile, $sBuff)
                                $var += 1
                                TrayTip("msg", $var, 5)
                        WEnd

                EndIf
        WEnd
        ;关闭套接字,停止TCP服务
        TCPCloseSocket($ConnectedSocket)
        TCPShutdown()
EndFunc   ;==>_recvFiles
发表于 2013-5-1 13:19:55 | 显示全部楼层
不想花5块下载python源码,顺便也想试一下能不能反编译python。

分析后发现楼主是用cx_Freeze打包python程序成为exe文件。一样可以反编译成功。

改用pyinstaller或py2exe打包也是一样结果。
发表于 2014-1-4 20:59:50 | 显示全部楼层
顶楼主
发表于 2014-4-16 21:49:37 | 显示全部楼层
哈哈哈,下载来看看。
发表于 2014-4-17 00:55:04 | 显示全部楼层
牛哥丶随意玩:
发表于 2014-4-17 00:55:07 | 显示全部楼层
牛哥丶随意玩:
发表于 2014-6-10 09:45:40 | 显示全部楼层
学习了 楼主
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-12-29 08:13 , Processed in 0.074814 second(s), 21 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表