如何截获软件封包并模拟发包？

Question

最近遇到一个软件，软件是个好东西，可是不停给一个地址发包，并且接受信息（郁闷的是，接受的信息都是重复的……）
我想软件在单机中用（老家不好上网——！）如何用VB实现接受这个软件发的包，并且模拟个封包发还给这个软件？

Answer 1

啊，怪我没说清楚
比如：该软件每隔一段时间给122.224.50.154:1234 发信息，信息内容为：comeonbaby
然后从122.224.50.154给本机（软件所在计算机）4321端口发一条信息，内容为:Iknowbaby
让软件接受下，这样软件就可照常运行了……
过段时间过年了，要回老家……，不能上网……只能想办法求助了
用vb如何搞呢？

Answer 2

你这个中了木马了把，你看他的信息：comeonbaby 那人把你当肉鸡了
你发信息，是肉鸡上线啊。

Answer 3

这个不用编程应该可以实现吧？
安装一个虚拟计算机应该可以吧？VitrualPC

Answer 4

另外，不是把我当肉鸡，而是验证程序，验证你在线，这样软件就可使用……
我是想用VB实现这个功能，这样也能学点东西……不想用olldlg对软件修改

Answer 5

看看这个软件里面支持设置代理服务器不.....如果支持,则自己做个假代理服务器.....再将软件的代理设置为自己IP...于是........如果不支持,那可能就得拦截API了,,,,,

Answer 6

安装一个虚拟网卡， 该网卡绑定服务器地址，创建一个SOCKET 服务程序绑定虚拟网卡IP，并设定连接协议以及连接端口和服务器上的一样。 然后就可以模拟远程服务器的操作了。

Answer 7

bdzwj的方法的确算个方法……
额……
不过我希望的是通过编程实现啊……

Answer 8

这个问题就有点麻烦了，不想装网卡的话，很多底层的东西处理的时候就很难做了，起码，很多底层的东西要自己写。Tcp/ip底层的协议没有深入研究过，帮你顶一下吧！

Answer 9

根据楼主的要求，我试验了一下，好象可以
做法如下：
1、电脑连上路由器（内网即可不用上网，没有的也可试下，不过不知行不行）。
2、把自己电脑IP设为122.224.50.154 （如果你运行软件不用1234这个端口的话就可以，在你说来本机用的是4321端口）。
3、VB中加入Winsock1，设为UDP方式，如果是TCP的话要连接（这个我不会）。
   代码如下：
Private Sub Form_Load()
    Winsock1.RemotePort = 4321  '客户端端口
    Winsock1.LocalPort =1234    '本软件端口
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
       Dim stRec As String
        '接收对方数据
        Winsock1.GetData stRec, vbString  '是不是要vbString你可试下
        if stRec="comeonbaby" then
           Winsock1.RemoteHost = Winsock1.RemoteHostIP  '得到发送方IP地址，可直接=“122.224.50.154 ”你自己本机
            Winsock1.SendData "Iknowbaby "
       endif
End Sub
   

Answer 10

啊哈,也是,反正是单机,把自己IP设置为那个IP不就行罗,哈哈哈哈哈哈我怎么没想到,学习了!

Answer 11

晕，本来想学到点东西的，嘎嘎嘎……原来比我懒的还多……居然想出把自己机器IP改变的方法
问题是，我想的是通过vb来实现啊……

Answer 12

使用API钩子，钩Socket收发函数。