Domino 加密密码与C#版本对应

最新推荐文章于 2023-08-06 10:26:00 发布

weixin_30340775

最新推荐文章于 2023-08-06 10:26:00 发布

阅读量98

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/blackbean/archive/2011/07/16/2108191.html

本文介绍了一种使用VBA编写的简单加密和解密方法。通过修改字符的ASCII值并结合特定的异或运算实现加密过程，同时对一些特殊字符进行了转义处理以确保加密后的字符串可以作为文件名使用。解密过程则通过逆向操作恢复原始字符串。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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 + bytEncrypt
End If

intTemp = intTemp Xor (10 - bytEncrypt)
strPword = strPword & Chr$(intTemp)
Next bytCount
'Some words cannot be used as file name
Encrypt = strPword
Encrypt = Replace(strPword, "\", "{01}")
Encrypt = Replace(strPword, "/", "{02}")
Encrypt = Replace(strPword, ":", "{03}")
Encrypt = Replace(strPword, "*", "{04}")
Encrypt = Replace(strPword, "?", "{05}")
Encrypt = Replace(strPword, """", "{06}")
Encrypt = Replace(strPword, "<", "{07}")
Encrypt = Replace(strPword, ">", "{08}")
Encrypt = Replace(strPword, "|", "{09}")

End Function
Public Function Decrypt(strPWtoDecrypt As String) As String
Dim strPword As String
Dim bytCount As Byte
Private Const bytEncrypt = 5

Dim intTemp As Integer

strPWtoDecrypt = Replace(strPWtoDecrypt, "{01}", "\")
strPWtoDecrypt = Replace(strPWtoDecrypt, "{02}", "/")
strPWtoDecrypt = Replace(strPWtoDecrypt, "{03}", ":")
strPWtoDecrypt = Replace(strPWtoDecrypt, "{04}", "*")
strPWtoDecrypt = Replace(strPWtoDecrypt, "{05}", "?")
strPWtoDecrypt = Replace(strPWtoDecrypt, "{06}", """")
strPWtoDecrypt = Replace(strPWtoDecrypt, "{07}", "<")
strPWtoDecrypt = Replace(strPWtoDecrypt, "{08}", ">")
strPWtoDecrypt = Replace(strPWtoDecrypt, "{09}", "|")

For bytCount = 1 To Len(strPWtoDecrypt)
intTemp = Asc(Mid(strPWtoDecrypt, bytCount, 1)) Xor (10 - bytEncrypt)
If bytCount Mod 2 = 0 Then
intTemp = intTemp + bytEncrypt
Else
intTemp = intTemp - bytEncrypt
End If

strPword = strPword & Chr$(intTemp)
Next bytCount

Decrypt = strPword
End Function