100分求解（我只能给100分，如果还要的话，另给）
有这么一个函数
function Decrypt(sStr,sFlag)
on error resume next
Dim objC2G,strPwd
if sStr = "" or isnull(sStr) then
Decrypt = ""
else
if sFlag then '动态Key加密
strPwd = FormatDate(date,"yyyymmdd","-") & Session("uYGBH")
else
strPwd = "B@K%LK" '默认Key
end if
Set objC2G = server.CreateObject("C2G.XOR.1")
Decrypt=objC2G.decryptStringHex(sStr,strPwd)
Set objC2G = Nothing
end if
end function
执行为Decrypt("a4aa9352cbb028039eda",false) 返回值是什么？具体的这个函数是怎么用的？希望能解释清楚，如果觉得解出来分不够的话我可以在给出1000分
问题点数：100、回复次数：16Top
1 楼xiwanghope（希望）回复于 2003-12-27 18:14:10 得分 5
objc2g对象的decryptStringHex方法对你输入的sstr值进行加密或者解密操作。。
具体实现过程应该有说明的吧？赫赫Top
2 楼fenlin（孤帆）回复于 2003-12-27 18:23:11 得分 5
不就是一个简单的解密函数吗？有什么问题？至于怎么用？参考如下：
调用：Decrypt("您要解密的字符串",解密方式)
解密方式：true or false
true : 动态解密
false: 非动态解密
如果动态解密则应先Session一个解密字符串 Session("uYGBH")
Top
3 楼wshzhi（好好学.net,别忘了ASP）回复于 2003-12-27 18:26:15 得分 5
在我的机器上验证你这个程序报错，这一句Set objC2G = server.CreateObject("C2G.XOR.1"),这是个加密的函数，把字符串放在第一个参数里。返回加密后的字符串
Top
4 楼gooddot（飞影）回复于 2003-12-27 20:05:51 得分 20
是个解密函数，在我机上也无显示，可能是没有该组件对象
<Script LANGUAGE="VBScript">
function Decrypt(sStr,sFlag)
on error resume next
Dim objC2G,strPwd
if sStr = "" or isnull(sStr) then
Decrypt = ""
else
if sFlag then '动态Key加密
strPwd = FormatDate(date,"yyyymmdd","-") & Session("uYGBH")
else
strPwd = "B@K%LK" '默认Key
end if
Set objC2G = server.CreateObject("C2G.XOR.1")
Decrypt=objC2G.decryptStringHex(sStr,strPwd)
Set objC2G = Nothing
end if
end function
MsgBox(Decrypt("a4aa9352cbb028039eda",false))
</script>Top
5 楼ShiStone（石头）回复于 2003-12-27 22:20:00 得分 0
我当然知道这是个解密函数了，但是我想要他最后的值
大家嫌分少嘛？Top
6 楼wshzhi（好好学.net,别忘了ASP）回复于 2003-12-27 23:05:45 得分 5
不在分多分少，在我机子上报错，没法得到Top
7 楼possible_Y（████本人签名需要刮开,方可看到 ）回复于 2003-12-27 23:29:03 得分 5
需要C2G.XOR.1组件啊Top
8 楼ShiStone（石头）回复于 2003-12-28 11:45:15 得分 0
我是初学asp的，但是我在我机器上找不到C2G.XOR.1组件，但是在我这里运行不会出错误，我应该到那里去找？我在它包含的文件中也找不到这个组件呀Top
9 楼ShiStone（石头）回复于 2004-01-12 16:58:03 得分 0
大家都不愿意告诉我？还是别的原因？Top
10 楼windancer（^_^）回复于 2004-01-12 17:16:54 得分 5
on error resume next
去掉，就能看到错误了Top
11 楼windancer（^_^）回复于 2004-01-12 17:27:47 得分 5
你这个组件需要组件的，下面这个加密解密函数可以试试看
http://www.webasp.net/tech/article_show.asp?id=13643&fieldby=&keyword=Top
12 楼windancer（^_^）回复于 2004-01-12 17:30:17 得分 5
你这个组件需要组件的，下面这个加密解密函数可以试试看
^^^^
(函数)
Top
13 楼windancer（^_^）回复于 2004-01-12 17:30:46 得分 5
写错了，不好意思Top
14 楼cqfeng（）回复于 2004-01-12 17:34:52 得分 10
Decrypt=objC2G.decryptStringHex(sStr,strPwd)
这个函数对数据进行了处理，然后返回了值，看不到源代码，不知道怎么处理的Top
15 楼cqfeng（）回复于 2004-01-12 17:37:10 得分 5
返回值就是 Decrypt()
Response.Write Decrypt("klkhjk",false)Top
16 楼sportdog（会编程的流氓狗）回复于 2004-01-12 17:38:21 得分 20
vbscript用Decrypt(函数)=returnvalue返回值
javascript用return value返回值
on error resume next(有错还执行)
一般加以下代码配合使用
if err.number<>0 then
response.write err.description
response.end
end if
Top
