asp字符串加密解密函数

<% 
a_key=split("96,44,63,80",",") '定义密钥 
'*********加密的过程********* 
function encrypt(m) 
dim strchar,ikeychar,istringchar,i 
k=0 
for i = 1 to len(m) 
ikeychar =cint(a_key(k)) 
istringchar = asc(mid(m,i,1)) '获取字符的ascii码值 
icryptchar = ikeychar xor istringchar '进行异或运算 
'对密钥进行移位运算 
if k<3 then 
k=k+1 
else 
k=0 
end if 
c = c & chr(icryptchar) 
next 
encrypt = c 
end function 
'*********解密的过程********* 
function decrypt(c) 
dim strchar, ikeychar, istringchar, i 
k=0 
for i = 1 to len(c) 
ikeychar =cint(a_key(k)) 
istringchar = asc(mid(c,i,1)) 
idecryptchar = ikeychar xor istringchar '进行异或运算 
'对密钥进行移位运算 
if k<3 then 
k=k+1 
else 
k=0 
end if 
strdecrypted = strdecrypted & chr(idecryptchar) 
next 
decrypt = strdecrypted 
end function 
%> 
【说明】：本文章由站长整理发布，文章内容不代表本站观点，如文中有侵权行为，请与本站客服联系(QQ:)！