asp中如何对用base64加密过的url参数进行解密，网上的解密函数都不好使。

[ddff12]

asp中如何对用base64加密过的url参数进行解密，网上的解密函数都不好使。

我想通过asp来解密传入的url参数，但网上的一些asp版的解密算法都不好使，哪位大侠能帮我提供一个正确的解密函数(asp版)。
我传入的地址：

http://localhost/exesql.asp?param=U2VsZWN0ICogRnJvbSBHQm94U29uZyBXaGVyZSBTb25nS2V5IExpa2UgJyEhsrzA78S3ucXA1s3FLbvDz+vH+i646Mf6us3O6Mf6ISEnIEFuZCBUeXBlPSfS9Ma1JyZ0eXBlPTEmZmllbGRsaXN0PUlEJCR8fCQkQ2hTb25nTmFtZSQkfHwkJEVuU29uZ05hbWUkJHx8JCRQbGF5ZXIkJHx8JCRTb25nV3JpdGVyJCR8fCQkQWxidW0kJHx8JCRVcmw=

经过解密可以得到param参数传入的应该是：
Select * From GBoxSong Where SongKey Like '!!布里姆古乐团-幻想曲.歌曲和舞曲!!' And Type='音频'&type=1&fieldlist=ID$$||$$ChSongName$$||$$EnSongName$$||$$Player$$||$$SongWriter$$||$$Album$$||$$Url

我的加密算法是通过客户端实现的，传入到asp页面后需要解密，一直找不到合适的解密函数，很苦恼。但我前几天发现了一个base64.js文件可以正确的解密，但asp里不能调用javascript的函数，所以我没办法特来CSDN求帮。

下面列出那个js文件的地址，你们可以下载：
http://www.mlguitar.net/Base64.js

拜托各位高手了，在此拜上！

[孟子E章]

asp可以调用js函数的
<%

Response.Write ff()
%>


<script language=javascript runat=server>
function ff()
{
return "测试"
}
</script>

[Dogfish]

应该可以的。可能是编码的问题。

[ddff12]

我试了可以调用，但西面的代码为什么不行？请大侠们帮我检查一下，看看哪里不对：

<script language = "JavaScript" runat="server">
var keyStr = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/="
function encode64(input)
{
input = strUnicode2Ansi(input);

var output = "";
var chr1, chr2, chr3 = "";
var enc1, enc2, enc3, enc4 = "";
var i = 0;

do{
chr1 = input.charCodeAt(i++);
chr2 = input.charCodeAt(i++);
chr3 = input.charCodeAt(i++);

enc1 = chr1 >> 2;
enc2 = ((chr1 & 3) << 4) | (chr2 >> 4);
enc3 = ((chr2 & 15) << 2) | (chr3 >> 6);
enc4 = chr3 & 63;

if (isNaN(chr2))
{
enc3 = enc4 = 64;
}
else if(isNaN(chr3))
{
enc4 = 64;
}

output = output +
keyStr.charAt(enc1) +
keyStr.charAt(enc2) +
keyStr.charAt(enc3) +
keyStr.charAt(enc4);
chr1 = chr2 = chr3 = "";
enc1 = enc2 = enc3 = enc4 = "";

}while(i < input.length);

return output;
}

function decode64(input)
{
var output = "";
var chr1, chr2, chr3 = "";
var enc1, enc2, enc3, enc4 = "";
var i = 0;

if(input.length%4!=0)
{
return "";
}
var base64test = /[^A-Za-z0-9\+\/\=]/g;
if (base64test.exec(input))
{
return "";
}

do {
enc1 = keyStr.indexOf(input.charAt(i++));
enc2 = keyStr.indexOf(input.charAt(i++));
enc3 = keyStr.indexOf(input.charAt(i++));
enc4 = keyStr.indexOf(input.charAt(i++));

chr1 = (enc1 << 2) | (enc2 >> 4);
chr2 = ((enc2 & 15) << 4) | (enc3 >> 2);
chr3 = ((enc3 & 3) << 6) | enc4;

output = output + String.fromCharCode(chr1);

if (enc3 != 64) {
output+=String.fromCharCode(chr2);
}
if (enc4 != 64) {
output+=String.fromCharCode(chr3);
}

chr1 = chr2 = chr3 = "";
enc1 = enc2 = enc3 = enc4 = "";

} while (i < input.length);

return strAnsi2Unicode(output);
}

function UnicodeChr()
{
return '00A4,00A7,00A8,00B0,00B1,......';//中间我省略了可参考base64.js
}

function AnsicodeChr()
{
return 'A1E8,A1EC,A1A7,...';//中间我省略了可参考base64.js
}

function UnicodeToAnsi(chrCode)
{
var chrHex=chrCode.toString(16);
chrHex="000"+chrHex.toUpperCase();
chrHex=chrHex.substr(chrHex.length-4);
var i=UnicodeChr().indexOf(chrHex);
if(i!=-1)
{
chrHex=AnsicodeChr().substr(i,4);
}
return parseInt(chrHex,16)
}

function AnsiToUnicode(chrCode)
{
var chrHex=chrCode.toString(16);
chrHex="000"+chrHex.toUpperCase();
chrHex=chrHex.substr(chrHex.length-4);
var i=AnsicodeChr().indexOf(chrHex);
if(i!=-1)
{
chrHex=UnicodeChr().substr(i,4);
}
return parseInt(chrHex,16)
}

function strUnicode2Ansi(asContents)
{
var len1=asContents.length;
var temp="";
for(var i=0;i<len1;i++)
{
var varasc=asContents.charCodeAt(i);
if(varasc<0)
varasc+=65536;
if(varasc>127)
varasc=UnicodeToAnsi(varasc);
if(varasc>255)
{
var varlow=varasc & 65280;
varlow=varlow>>8;
var varhigh=varasc & 255;
temp+=String.fromCharCode(varlow)+String.fromCharCode(varhigh);
}
else
{
temp+=String.fromCharCode(varasc);
}
}
return temp;
}

function strAnsi2Unicode(asContents)
{
var len1=asContents.length;
var temp="";
var chrcode;
for(var i=0;i<len1;i++)
{
var varasc=asContents.charCodeAt(i);
if(varasc>127)
{
chrcode=AnsiToUnicode((varasc<<8)+asContents.charCodeAt(++i));
}
else
{
chrcode=varasc;
}
temp+=String.fromCharCode(chrcode);
}
return temp;
}

function request(paras)
{
var url = location.href;
var paraString = url.substring(url.indexOf("?")+1,url.length).split("&");
var paraObj = {}
for (i=0; j=paraString[i]; i++){
paraObj[j.substring(0,j.indexOf("=")).toLowerCase()] = j.substring(j.indexOf("=")+1,j.length);
}
var returnValue = paraObj[paras.toLowerCase()];
if(typeof(returnValue)=="undefined"){
return "";
}
else{
return returnValue;
}
}

function getDeRes()
{
var pas = Request("Params");
//return pas; //这个可以返回
return decode64(pas); //这个不能返回（为什么？我请大家帮忙解决）
}
</Script>
<html>
<head></head>
<body>
<%=getDeRes()%>
</body></html>

[wcwtitxu]

Function decode(str)
	Dim val
	With (CreateObject("MSXML2.DOMDocument").createElement("TXT"))
		.dataType = "bin.base64"
		.text = str
		val = .nodeTypedValue
	End With
	With CreateObject("ADODB.Stream")
		.Type = 1
		.Open
		.Write val
		.Position = 0
		.Type = 2
		.Charset = "GBK"
		WScript.Echo .ReadText(-1)
	End With
End Function


Dim s

s = "U2VsZWN0ICogRnJvbSBHQm94U29uZyBXaGVyZSBTb25nS2V5IExpa2UgJyEhsrzA78S3ucXA1s3FLbvDz+vH+i646Mf6us3O6Mf6ISEnIEFuZCBUeXBlPSfS9Ma1JyZ0eXBlPTEmZmllbGRsaXN0PUlEJCR8fCQkQ2hTb25nTmFtZSQkfHwkJEVuU29uZ05hbWUkJHx8JCRQbGF5ZXIkJHx8JCRTb25nV3JpdGVyJCR8fCQkQWxidW0kJHx8JCRVcmw="
decode(s)

[wcwtitxu]

上面是在 wsh 环境下测试的，　 asp 用这个

Function decode(str)
	Dim val
	With Server.CreateObject("MSXML2.DOMDocument").createElement("TXT")
		.dataType = "bin.base64"
		.text = str
		val = .nodeTypedValue
	End With
	With Server.CreateObject("ADODB.Stream")
		.Type = 1
		.Open
		.Write val
		.Position = 0
		.Type = 2
		.Charset = "GBK"
		decode = .ReadText(-1)
	End With
End Function


Dim s
s = "U2VsZWN0ICogRnJvbSBHQm94U29uZyBXaGVyZSBTb25nS2V5IExpa2UgJyEhsrzA78S3ucXA1s3FLbvDz+vH+i646Mf6us3O6Mf6ISEnIEFuZCBUeXBlPSfS9Ma1JyZ0eXBlPTEmZmllbGRsaXN0PUlEJCR8fCQkQ2hTb25nTmFtZSQkfHwkJEVuU29uZ05hbWUkJHx8JCRQbGF5ZXIkJHx8JCRTb25nV3JpdGVyJCR8fCQkQWxidW0kJHx8JCRVcmw="

Response.Write decode(s)

[ddff12]

多谢多谢，赏分。

[ddff12]

楼上的，我用你的asp版的函数只能解一部分文本，是不是有问题，如下列文本：

"U2VsZWN0ICogRnJvbSBHQm94U29uZyBXaGVyZSBTb25nS2V5IExpa2UgJyEhtcDAvLXEzujH+ihKdWxpYW4gQnJlYW0gRWRpdGlvbiBWb2wuMzogRGFuY2VzIG9mIERvd2xhbmQpISEnIEFuZCBUeXBlPSfS9Ma1Jw=="

用你的函数解完后前半部分是对的，（CSDN论坛限制非法字符，所以我不贴了）

而用在线解密网站 http://md5.mmkey.com/base64/
解密的结果是正确的。正确字符串我也贴不出来，这个网站上解密的结果是正确的。

请再劳驾帮忙看一下吧，再次感谢了。
[/code]

[wcwtitxu]

Function decode(str)
    Dim val
    With Server.CreateObject("MSXML2.DOMDocument").createElement("TXT")
        .dataType = "bin.base64"
        .text = str
        val = .nodeTypedValue
    End With
    With Server.CreateObject("ADODB.Stream")
        .Type = 1
        .Open
        .Write val
        .Position = 0
        .Type = 2
        .Charset = "GBK"
        decode = .ReadText(-1)
    End With
End Function


Dim s
s = "U2VsZWN0ICogRnJvbSBHQm94U29uZyBXaGVyZSBTb25nS2V5IExpa2UgJyEhtcDAvLXEzujH+ihKdWxpYW4gQnJlYW0gRWRpdGlvbiBWb2wuMzogRGFuY2VzIG9mIERvd2xhbmQpISEnIEFuZCBUeXBlPSfS9Ma1Jw=="

Response.Write decode(s)

测试没有问题。


这个方法用的是 xml 及 adodb　组件进行解码
你不用怀疑其正确性, 如有出现差错，请检查被解码的原字符串是否合法

[ddff12]

是我这边代码问题，多谢多谢。