picture encryption

[Dio]

success!

i finished coding the encrypt/decrypt it was kinda hard. but now i need to know how to upload Bitmaps and save them. anybody know any good sites? thanks.

Code:

screenres 1024,768,32,2,1
dim picx(100000000)
dim picy(100000000)
dim pic(100000000)
dim i as double
input "Pass "; p#
randomize timer
cls
r =255':g = r:b =r
for ww = 0 to 1000 step 1
  'r = int(rnd*3)-1
  'g = int(rnd*3)-1
  'b = int(rnd*3)-1
  r = r - 1
  circle (1024/2,768/2),ww,rgb(r,g,b)
  circle (1024/2+1,768/2+1),ww,rgb(r,g,b)
  circle (1024/2+2,768/2+1),ww,rgb(r,g,b)
next
1
sleep
ymax = 767
xmax = 1023
randomize p#
for y = 0 to ymax
for x = 0 to xmax
rx = int(rnd*xmax)
ry = int(rnd*ymax)
pa = point(x ,y )
pb = point(rx,ry)
pset (x  ,y  ),pb
pset (rx ,ry ),pa
next
next
sleep
randomize p#
i = -1
for y = 0 to ymax
for x = 0 to xmax
  i = i + 1
  pix = int(rnd*xmax)
  pic(i) = pix
  i = i + 1
  piy = int(rnd*ymax)
  pic(i) = piy
next  
next
i=((xmax+1)*(ymax+1))*2
do:loop until inkey$ <> ""
for y = ymax to 0 step -1
for x = xmax to 0 step -1
i = i-1
ry = pic(i)
i = i - 1
rx = pic(i)
pa = point(x,y)
pb = point(rx,ry)
pset (x  ,y  ),pb
pset (rx ,ry ),pa
'line (-1 ,-1 )-(100,100),0,b
'pset (100,y  ),16777215
'pset (x  ,100),16777215
next
next
sleep
goto 1