picture encryption

[Dio]

no, i mean how to upload picture into FB so that while in the fb program i see the image from the bmp displayed on the screen. and, if i want, save the bmp back onto my computer in a new file or, if i wish, save over the file that i drew the bmp from in the first place.

[Dio]

and, if possible, have the computer detect the dimension (that means how big the picture is) automatically.

[Anonymous]

Code:

bload "mybmp.bmp"

dim as integer bmp_x, bmpy
dim as any ptr bmp_img

bmp_img = imagecreate( bmp_x, bmp_y )

get( 0, 0 )-( bmp_x - 1, bmp_y - 1 ), bmp_img

bsave "mynewbmp.bmp", bmp_img

i believe thats how. you can also skip a step

Code:

dim as integer bmp_x, bmpy
dim as any ptr bmp_img

bmp_img = imagecreate( bmp_x, bmp_y )

bload "mybmp.bmp", bmp_img

put( 20, 20 ), bmp_img

bmp_x and bmp_y would of course contain the dimensions of the image

[Dio]

cool thanks.

[Kylemc]

Why not just encrypt the BMP or whatever file instead of messing around with the individual pixels?

[Dio]

i thought about this for awhile and the came to a simple answer:








i don't know how.

[marinedalek]

Just to add more shortening to the much debated ( :winkwink: ) code...

Code:

pset (x,y), point(rx,ry)
pset (rx ,ry), point(x,y)

[Neo]

Just to add more shortening to the much debated ( :winkwink: ) code...

Code:

pset (x,y), point(rx,ry)
pset (rx ,ry), point(x,y)

That won't work. You'll put the same color back, instead of swapping the colors. :winkwink:

[Anonymous]

...and lose the color at x, y in the process >.>

[Zack]

Code:

#define infile "infile.bmp"
#define passfile "passfile.bmp"
#define outfile "outfile.enc"
dim as integer ifHandle,pfHandle,ofHandle,fpos
dim as ubyte ifTemp,passTemp
ifHandle=freefile
pfHandle=ifHandle+1
ofHandle=pfHandle+1
open infile for binary as #ifHandle
open passfile for binary as #pfHandle
open outfile for binary as #ofHandle
if lof(ifHandle)<>lof(pfHandle) then
    print "Error: different file lengths."
    sleep
    end
end if
do
    get #ifHandle,,ifTemp
    get #pfHandle,,passTemp
    put #ofHandle,,chr$(ifTemp xor passTemp)
    fpos+=1
    if fpos>=lof(ifHandle) then exit do
loop
print "Done."
sleep
close

There's a simple encryption app. Infile is the file you want to encrypt, passfile is the password file, and outfile holds the name of the encrypted file you want to create. Infile has to be EXACTLY the same size as passfile, otherwise it won't work (using a password the same length as the data to encrypt makes the code theoretically unbreakable). To decipher, put whatever outfile you used in the infile field, use the original passfile, and make up a name for the new, unciphered file.
If you are encrypting a bitmap file, make a password file by just opening up mspaint and drawing a picture that has the exact same dimensions of the picture you want to encrypt. (Note: that won't work for some compressed image formats like png, because even two pictures of the same dimensions will have different compressed sizes.)