如何对BMP图像进行加密？谢谢

[jcuiming998]

在开发软件过程需用到大量的BMP图片，现在是BMP文件存于目录中，一数据库存储BMP文件的路径，当需要显示BMP时在数据库中寻找BMP的路径然后放到PICTURE控件中显示，

现在希望将BMP图片加密，用其它的看图软件打不开，而我的程序能够识别与加裁，正常执行请问有什么好的方法，谢谢！

[PANBing]

简单的用异或加密就行啦！
:)

[jcuiming998]

呵呵，能说详细点吗？

[happy_sea]

bmp文件的头两个字节是BM，改成别的其他看图软件就不认得了。自己打开时再改回来就行了。

[jcuiming998]

在VB里如何更改文件谢谢了

[cangwu_lee]

将文件头改掉，用的时候再些回去

[m00ners]

支持 happy_sea(开心海(数据读取中，请稍候......))

[doxob]

打开文件以本路径color.bmp文件为例
intnum1 = FreeFile
Open App.Path & "\color.bmp" For Binary As #intnum1
Get #intnum1, i,temp '读出文件内容第i字节（单字节）
Close #intnum1
Open App.Path & "\color.bmp" For Binary As #intnum1
Put #intnum1, i,temp ‘写入文件第i字节（单字节）
close #intnum1

[wdthkyou]

Open App.Path & "\color.bmp" For Binary As #intnum1
Put #intnum1, i,temp ‘写入文件第i字节（单字节）
close #intnum1
=======================================================
这样是不是仅在指定的位置上写入数据，其余位置的数据保持不变（既不会清空，又不会位置变动）呀？