?? encryptdecrypt.bas
字號:
Attribute VB_Name = "EncryptDecrypt"
Function Crypt_A(x) '加密
For i = 1 To Len(x)
TempNum = Hex(Asc(Mid(x, i, 1)))
If Len(TempNum) = 4 Then
encode = encode & CStr(TempNum)
Else
encode = encode & "00" & CStr(TempNum)
End If
Next
Crypt_A = encode
End Function
Function DeCrypt_A(x) '解密
For i = 1 To Len(x) Step 4
decode = decode & Chr(Int("&H" & Mid(x, i, 4)))
Next
DeCrypt_A = decode
End Function
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -