杭州交通信息网跟踪者 电视剧:懂PHP和ASP的高手帮忙啊！
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/30 09:22:53
请帮我把下面的加密代码转换成ASP的。
<?
class encryptCalss
{
var $key=12;
function encode($txt){
for($i=0;$i<strlen($txt);$i++){
$txt[$i]=chr(ord($txt[$i])+$this->key);
}
return $txt=urlencode(base64_encode(urlencode($txt)));
}
function decode($txt){
$txt=urldecode(base64_decode($txt));
for($i=0;$i<strlen($txt);$i++){
$txt[$i]=chr(ord($txt[$i])-$this->key);
}
return $txt;
}
}
?>
<?
class encryptCalss
{
var $key=12;
function encode($txt){
for($i=0;$i<strlen($txt);$i++){
$txt[$i]=chr(ord($txt[$i])+$this->key);
}
return $txt=urlencode(base64_encode(urlencode($txt)));
}
function decode($txt){
$txt=urldecode(base64_decode($txt));
for($i=0;$i<strlen($txt);$i++){
$txt[$i]=chr(ord($txt[$i])-$this->key);
}
return $txt;
}
}
?>
我不是高手，只是看得懂两种语言，稍微改了一下，这个程序的核心在Base64编码上，ASP恰恰没有这个函数，只能自己写，有兴趣可以上网找一下。
<%
Dim key
key = 12
Function base64_encode(txt)
'请自行实现Base64编码功能
End Function
Function base64_decode(txt)
'请自行实现Base64解码功能
End Function
Function encode(txt)
Dim i, ntxt
ntxt = ""
For i = 1 To Len(txt)
ntxt = ntxt & Chr(Asc(Mid(txt, i, 1) + key))
Next
encode = Server.urlencode(base64_encode(Server.urlencode(ntxt)))
End Function
Function decode(txt)
Dim i, ntxt
ntxt = ""
txt = Server.urldecode(base64_decode(txt));
For i = 1 To Len(txt)
ntxt = ntxt & Chr(Asc(Mid(txt, i, 1) - key))
Next
decode = ntxt
End Function
%>