加密 bmp位图文件

Question

1.先用二进制方式打开该文件。
2.把文件的数据读入一个Byte数组中。
3.逐字节进行加密。
4.把加密后的数据写入原文件。Private Function Jiami(strFile as string)as boolean     dim intFileNum as integer
     dim Buffer() as byte
     dim index as integer
     dim lonLength as long
     
     On error goto ErrLabel
  
intFileNum=FreeFile
lonLength=FileLen(strFile)
Redim Buffer(lonLength-1) Open strFile for Binary as #intFileNum
Get #intFileNum,1,Buffer
        
        '简单的加密处理示范,你可以做得复杂些。
for index=0 to lonLength-1
        
    Buffer(index)=(Buffer(index) xor index) mod 256

next index

'写回文件
Put #intFileNum,,Buffer

Close #intFileNum

JiaMi=True
Exit FunctionErrLabel:
'在这里进行错误处理
End Function解密的过程与此相反就不说了，如果像这样对文件加密，再对文件进行一次加密就能还原。