VB利用异或运算加密文件 程序员文章站 2022-03-10 16:46:55 ... 说明:1、由于采用二进制读取文件的方式,因此加密时一般可以不考虑文件类型。 2、这里只进行一次异或运算,如有需要可以进行多次异或运算。 3、此加密算法速度快,当然加密强度也低 :) '----------------------------------------------------------------------- '作者: hellostory '日期: 2011-05-26 '函数名称: XOR_Encrypt '函数说明: 使用异或运算加密文件(可加密大部分文件) '参数说明: key - 密钥 ' fileName - 普通文件名, ' encryptFileName - 加密后的文件名 '返回值: true - 成功,false - 失败 '----------------------------------------------------------------------- Private Function XOR_Encrypt(key As Integer, fileName As String, encryptFileName As String) As Boolean On Error GoTo errHandler Dim inputFileNo As Integer Dim fileBytes() As Byte Dim length As Long XOR_Encrypt = False '打开文件并保存在二进制数组中 inputFileNo = FreeFile Open fileName For Binary As #inputFileNo length = LOF(inputFileNo) If length = 0 Then MsgBox "退出加密:文件内容为空!", vbInformation, "提示" Exit Function End If ReDim fileBytes(length - 1) As Byte Get inputFileNo, , fileBytes() Close #inputFileNo '将该二进制数组进行异或加密 Dim i As Long For i = LBound(fileBytes) To UBound(fileBytes) fileBytes(i) = fileBytes(i) Xor key Next '将异或加密后的二进制数组保存在新的文件中 Dim outputFileNo As Integer outputFileNo = FreeFile Open encryptFileName For Binary As #outputFileNo Put outputFileNo, , fileBytes Close #outputFileNo XOR_Encrypt = True errHandler: If Err.Number Then MsgBox "加密过程中出错:" & Err.Description, vbCritical, "错误" XOR_Encrypt = False Resume Next End If End Function 上一篇: USB总线标准 下一篇: Spring Boot(MVC)下空间字段(Geometry)与geojson的自动转换 推荐阅读 JS位异或运算制作加密解密 异或(XOR)运算加密/解密在线工具 authcode函数使用异或运算进行加密和解密 JS位异或运算制作加密解密 authcode函数使用异或运算进行加密和解密 如何通过php 使用异或(XOR)加密/解密文件 其他语言如何解密PHP多字符串的异或加密-php字符串异或运算原理 如何通过php 使用异或(XOR)加密/解密文件 VB利用异或运算加密文件 VB利用异或运算加密文件