vb asp +数据传输加密

主要实现ASP与VB程序的数据交互 有个问题是在传输的过程中数据都是明文的抓包工具随便就可以得到了
我现在想吧ASP查询到的数据集加密后在传输不

加密模块已经做好但是不知道该把加密函数加在那里希望前辈们指导下帖出代码

ASP： 主要取得ACCESS数据库里面的数据
VBScript code:

set GetFol = Server.CreateObject("MyDll.MyClass") '这是加密函数
dim strInput
dim key
set conn=Server.CreateObject("ADODB.connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("data.mdb")
dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "select * from QQdata",conn
rs.save response,1
Set GetFol = Nothing
rs.close




VB：通过ASP取得的数据集然后绑定到DAE控制并显示出来


VB code:


'从远程数据库得到内容

Private Sub Command1_Click()
'‘提交一个HTTP请求。
Set rs = New ADODB.Recordset
rs.Open "http://192.168.1.11:8081/getinfo.asp"
Set DataGrid1.DataSource = rs
End Sub




这样可以实现数据绑定我现在想在ASP加密数据集后传输然后VB程序在解密 不知道这样的 方案是否能实现 懂的朋友来解答下 欢迎友情帮UP人员

---

没人 回答吗
{{---