Plaintext Encryption - 明文加密P.E.

最新推荐文章于 2025-11-02 12:01:09 发布

原创

最新推荐文章于 2025-11-02 12:01:09 发布 · 2.5k 阅读

0 ·

CC 4.0 BY-SA版权

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

怎样才能更好的加密一段字符串？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(StrSo