Bitmap Based Encryption

Hey. Im trying to create a program to encrypt a file to a bmp image and then decrypt it. It will be password based but that will come later. All ive coded right now is making the bmp out of the file.

file$=RequestFile("file?","*")
file1=ReadFile(file)
image=CreateImage(5000,1)
pos=0

While Not Eof(file1)
r=ReadByte(file1)
g=ReadByte(file1)
b=ReadByte(file1)
SetBuffer ImageBuffer(image)
Color r,g,b
Plot pos,1
Wend

SaveBuffer(ImageBuffer(image),"test.bmp")
CloseFile(file1)
End

When i try to execute this code, i get a black image and an error message that says "Internal Error. Unable to release <unknown> object." Any ideas?

haven't tested.. but heres a few thoughts on the above code

reading 3 bytes at once (b4 doing another eof test) is the file size multiple of 3?

you plot at pos,1 should it be pos,0 (image height 1 pixel)

you don't increase the pos position so all pixel stuff will be at 0,0

just a few thoughts

before you end the program, type:

setbuffer desktopbuffer()


You must always point to a buffer .. if you previously switched to a canvasbuffer or imagebuffer then you must return to the desktopbuffer again..

Thanks guys. I was kinda stupid about some of it LOL. But i didnt know about the desktopbuffer thing.