Plaintext Encryption - 明文加密P.E.

最新推荐文章于 2022-06-07 12:08:23 发布

Hades_Dev

最新推荐文章于 2022-06-07 12:08:23 发布

阅读量2.4k

点赞数 2

分类专栏： VB开发

本文链接：https://blog.csdn.net/mayuko2012/article/details/43951923

版权

本文探讨了一种简单的明文加密方法，涉及字符的低字节与Key1进行异或运算，然后与高字节组合形成新字符。加密和解密过程类似，适用于英文字符串。注意，该方法不适用于中文加密和解密。

摘要由CSDN通过智能技术生成

怎样才能更好的加密一段字符串？MD5、RSA、DES？

好吧，这些都不懂。

参考了一下度娘，所以想法是：

对于加密：

· 从待加密字符串中取出一个字符

· 取字符的低字节和Key1进行异或运算

· 取字符的高字节

· 将运算后的数据合成新的字符

对于解密：

· 从待解密字符串中取出一个字符

· 取字符的低字节和Key1进行异或运算

· 取字符的高字节

· 将运算后的数据合成新的字符

有了方法，可以完成下面的函数：

本加密方法只用于英文，中文也可以加密，但无法解密...

加密（Encryption）：

Private Function Encrypt(ByVal StrSource As String) As String    '加密
Dim BLowData As Byte
Dim BHigData As Byte
Dim SHigData As Byte
Dim i As Long
Dim k As Integer
Dim StrEncrypt As String
Dim StrChar As String

Dim KeyTemp As String
Dim Key1 As Byte
    For k = 1 To 30
    KeyTemp = KeyTemp & CStr(Int(Rnd * (9) + 1))
    Next
    Key1 = CByte(Mid(KeyTemp, 11, 1) & Mid(KeyTemp, 27, 1))
    For i = 1 To Len(StrSource)
    StrChar = Mid(StrSource, i, 1)  '从待加密字符串中取出一个字符
    BLowData = AscB(MidB(StrChar, 1, 1)) Xor Key1    '取字符的低字节和Key1进行异或运算
    SHigData = AscB(MidB(StrChar, 2, 1))   '取字符的高字节
    StrEncrypt = StrEncrypt & ChrB(BLowData) & ChrB(BHigData)    '将运算后的数据合成新的字符
    Next i