当前位置:编程问答 > VB >

VB利用异或运算加密文件

说明: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 

摘自 hellostory的专栏

补充:综合编程 , 安全编程 ,
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,