如何把文本内容加密?/

发布网友 发布时间：2022-04-23 22:09

我来回答

共4个回答

热心网友 时间：2023-10-11 14:00

最简单也最好理解的方法,就是使用二进制来读取文件, 每字节可以在原来读取值的基本上加上一个数,比如1,然后生成为加密后的新文件,这样就和原文件内容不同了.

呵呵,不过这样很容易被看出来,你可以自己做一个密鈅,比如 12345, 然后循环为每个字节分别加上1,2,3,4,5呵,这样难度就高一些了..

这样的算法很多了,还可以使用异或呀,与呀,甚至是MD5呀.都可以的.

热心网友 时间：2023-10-11 14:00

最简单的方法是把文字转换成ASCII编码，然后加上一个数，在转换成字符
读取的时候相应的加减就可以了

热心网友 时间：2023-10-11 14:01

如果你的软件不是用在重要场合的或者不需要很高的安全性,就用我的这个吧!
-------------------------------------------------
s 是加密的文本,下面是两个自定义的函数
一个加密,一个解密
我做打字软件时自己写的函数
测试通过了
中文和英文都可以加密

Function Jia_mi_txt(s As String) As String
Dim a, b As String
Dim i As Long
For i = 1 To Len(s)
a = Mid(s, i, 1)
If Chr(Asc(Chr(Asc(a) + 1)) - 1) = a Then
b = b & Chr(Asc(a) + 1)
Else
b = b & "■" & a
End If

Next i
Jia_mi_txt = b
End Function

Function Jiemi_txt(s As String) As String
Dim a, b, c As String
Dim i As Long
For i = 1 To Len(s)
a = Mid(s, i, 1)

If a = "■" Then
i = i + 1
a = Mid(s, i, 1)
b = b + a
Else

b = b + Chr(Asc(a) - 1)
End If
Jiemi_txt = b
Next i

End Function

热心网友 时间：2023-10-11 14:01

开玩笑,,这种东西你用MD5加密,, ,,你自己看的时候,你怎么解???
MD5目前是无解的加密~!!!
如果你知道MD5的解密代码,,发给我,我给你钱