你可以随便编两个函数进行加密和解密,这里我给你介绍一个简单的加密和解密函数
加密函数:
function decrypt(dcode)
dim texts
dim i
for i=1 to len(dcode)
texts=texts & chr(asc(mid(decode,i,2))-i)
next
decrypt=texts
end funtion
解密函数:
function cncrypt(ecode)
dim texts
dim i
for i=1 to len(ecode)
texts=texts & chr(asc(mid(ecode,i,2))+i)
next
encrypt=texts
end function
当然你也可以根据你自己的需要编一些其他的函数来实现!
方法很多,你可以自己去试试!