西安市计生委招聘:懂PHP和ASP的高手帮忙啊!
来源:百度文库 编辑:神马品牌网 时间:2024/08/31 12:54:30
请帮我把下面的加密代码转换成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
%>