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

Question

在开发软件过程需用到大量的BMP图片，现在是BMP文件存于目录中，一数据库存储BMP文件的路径，当需要显示BMP时在数据库中寻找BMP的路径然后放到PICTURE控件中显示，现在希望将BMP图片加密，用其它的看图软件打不开，而我的程序能够识别与加裁，正常执行请问有什么好的方法，谢谢！

Answer 1

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

Answer 2

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

Answer 3

打开文件以本路径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

Answer 4

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