摘要：Public Function Encrypt(strPWtoEncrypt As String) As String Dim strPword As String Dim bytCount As Byte Dim intTemp As Integer For bytCount = 1 To Len(strPWtoEncrypt) intTemp = Asc(Mid(strPWtoEncrypt, bytCount, 1)) If bytCount Mod 2 = 0 Then intTemp = intTemp - bytEncrypt Else intTemp = intTemp + by 阅读全文