小弟刚学VB,100分急求高手及版主一个问题,请赐教,谢谢!

环境略介绍:小弟用VB做了一个客户端登陆器的软件关于连接服务器这一块的源码如下:Private Sub Command1_Click()
On Error GoTo FinalizeError
Dim path As String
path = App.path
path = path & "\main.exe counnect" & " /u" & "*.*.*.*" & " /p" & "1698"
Shell path, vbNormalFocus
Command1.Enabled = FalseExit Sub
FinalizeError:
     MsgBox Err.Description & Err.Number
Exit Sub
End Sub
服务器端那边运行了一个服务器端的程序,端口用的是:"1698"
现在我可以用我自己做的登陆器连服器端的程序,端口用的是:"1698"正常运行一点都问题都没有.求助问题如下:为了安全,小弟想再用VB做一个"加密解密的软件",再服务器端运行,它的用途是把端口:"1698"加密
我客户端这边程序(path = path & "\main.exe counnect" & " /u" & "*.*.*.*" & " /p" & "加密完以后端口")加密完的端口去连接服务器端"加密解密的软件"的加密完后的端口,然后"加密解密的软件"对加密完后的端口解密.最后"加密解密的软件"用解密完后的正常端口:"1698"连接服务器端的程序,端口:1698.
我的意思是说把服务器端的程序和客户端的程序中间挟一个"加密解密的软件"用来给端口加密.
最后的效果是:用netstat -n看见的端口是:加密完的端口一堆乱码.总之看不见"1698"端口或"看见的是一堆乱码"
我不知如何下手去做那个"加密解密的软件".请高手指点.小弟先谢谢了!
呵呵!指点的越详细越好!
如果可以的话,给小弟把源码写出来,并注明每行带码的用处,小弟拿来根据自己的实际需要再进行修改,谢谢了!

解决方案 »

  1.   

    这个....要么换端口 不然 [用netstat -n看见的端口是:加密完的端口一堆乱码.总之看不见"1698"端口或"看见的是一堆乱码"] 这种方法应该是没法实现的。
      

  2.   

    如果要加密数据可以考虑MIME编码然后再处理。安全字符通讯起来比较容易处理。
      

  3.   

    http://community.csdn.net/Expert/topic/2761/2761467.xml?temp=.2357752
    这里有一个加密与解密的代码，只不过加密出来的数值比较长
      

  4.   

    你的想法不能实现。因为所有的网络连接都是基于windows系统的，你所做的它都知道。
      

  5.   

    dongge2000(秋日私语) 您好!你这个提意比较不错!请问数据加密好实现吗?如果可以的话能给小弟一些关于类似于小弟眼前的问题的一些源程序,谢谢了!谢谢了!谢谢了!谢谢了!谢谢了!谢谢了!
      

  6.   

    sunmoonn(飛車去角)、jiemupig(伦涯飘) 、mosangbike(莫桑比克)小弟先谢谢你们了！帮助小弟！