Function Encode(Stt )
Dim Ki
Dim Mm
For Ki = 1 To Len(Stt)
Mm = Chr(Asc(Mid(Stt, Ki, 1)) + 3)
Encode = Encode & Mm
Next
End Function
Function jiami(stt) ' 加密函数
Dim i
Dim Zj
For i = 1 To Len(stt)
Zj = Mid(stt, i, 1)
jiami = jiami & Chr((AscB(Zj) \ 16) * 4 + 33)
jiami = jiami & Chr((AscB(Zj) And 15) * 4 + 60)
Next
End Function
Function jiemi(stt ) ' 解密函数
Dim k
Dim bb
Dim Sm(2)
For k = 1 To Len(stt) / 2
Sm(1) = Mid(stt, 2 * k - 1, 1)
Sm(2) = Mid(stt, 2 * k, 1)
bb = ((Asc(Sm(1)) - 33) \ 4) * 16 + (Asc(Sm(2)) - 60) \ 4
jiemi = jiemi & Chr(bb)
Next
End Function