Sorry your browser is not supported!

0  A  16 Q  32 g  48 w
1  B  17 R  33 h  49 x
2  C  18 S  34 i  50 y
3  D  19 T  35 j  51 z
4  E  20 U  36 k  52 0
5  F  21 V  37 l  53 1
6  G  22 W  38 m  54 2
7  H  23 X  39 n  55 3
8  I  24 Y  40 o  56 4
9  J  25 Z  41 p  57 5
10 K  26 a  42 q  58 6
11 L  27 b  43 r  59 7
12 M  28 c  44 s  60 8
13 N  29 d  45 t  61 9
14 O  30 e  46 u  62 !
15 P  31 f  47 v  63 ?

` Set it high because string is long
set display mode 1024,768,32

` Define the text to be encrypted with Base64 encryption
Tex$="Man is distinguished, not only by his reason, but by this singular passion from other animals, which is a lust of the mind, that by a perseverance of delight in the continued and indefatigable generation of knowledge, exceeds the short vehemence of any carnal pleasure."

` Encrypt Tex$
Base64$=Base64Encrypt(Tex$)

` Decrypt Tex$
Tex2$=Base64Decrypt(Base64$)

` Show results
print "Tex$ = "+Tex$
print ""
print "Base64$ = "+Base64$
print ""
print "Tex2$ = "+Tex2$

wait key

end


function Base64Encrypt(Tex$)

 ` Define the Base64 key
 Key$="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789!?"

 ` Convert string to binary
 for t=1 to len(Tex$)
  ` Get the 8 bit binary of each character  (IanMs command)
  Binary$=Binary$+right$(bin$(asc(mid$(Tex$,t))),8)
 next t
  
 ` Convert binary to Base64 encryption
 for t=1 to len(Binary$) step 6
  ` Convert 6 bit binary to a number  (IanMs command)
  Temp=bin to decimal(mid$(Binary$,t,6))
  ` Add the Base64 Character Key to Base64$
  Base64$=Base64$+mid$(Key$,Temp+1)
 next t

endfunction Base64$


function Base64Decrypt(Base64$)

 ` Define the Base64 key
 Key$="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789!?"

 ` Convert Base64 encryption to binary 
 for t=1 to len(Base64$)
  ` Find the Base64 character position in Key$  (IanMs command)
  Temp=find char(Key$,mid$(Base64$,t))-1
  ` Add the 6 bit binary of the Base64 character to Binary$
  Binary$=Binary$+right$(bin$(Temp),6)
 next t

 ` Convert binary to string
 for t=1 to len(Binary$) step 8
  ` Convert 8 bit binary to an ASCII character  (IanMs command)
  Tex$=Tex$+chr$(bin to decimal(mid$(Binary$,t,8)))
 next t

endfunction Tex$

AAAAAAAA BBBBBBBB CCCCCCCC
AAAAAABB BBBBCCCC CCDDDDDD

dim myarr(-1) as byte

global output_ascii_string as string

function getCharacterFrom64(arg as integer)
     `you implement this:
     `where arg is on the range [0,63], return a single character
     `representing that base 64 number.
endfunction ""

function parse_6bit_from_array_to_string()
     currentpos=0
     `3 bytes per 4 characters, so make sure it has an array size that is a multiple of 3.
     while ((array count(myarr())+1) mod 3)>0
          addByteToArray(0)
     endwhile
     
     maxsize=array count(myarr())
     output_ascii_string=""
     b1 as integer
     b2 as integer
     b3 as integer `because DBPro has to convert bytes to integers
     `when (always?) they are used in a mathematical expression, 
     `I'm using integers. Pretend they're bytes, k?
     `actually, these will only store numbers inbetween 0 and 63,
     `so pretend they're two bits less than a byte
     repeat
          b1=myarr(currentpos)&%00111111
          b2=(myarr(currentpos)&%11000000)>>6 : inc currentpos
          b2=b2|((myarr(currentpos)&%00001111)<<2)
          b3=myarr(currentpos)&%11110000 : inc currentpos
          b3=b3|((myarr(currentpos)&%00000011)<<4)
          b4=(myarr(currentpos)&%11111100)>>2 : inc currentpos
          output_ascii_string=output_ascii_string+getCharacterFrom64(b1)
          output_ascii_string=output_ascii_string+getCharacterFrom64(b2)
          output_ascii_string=output_ascii_string+getCharacterFrom64(b3)
          output_ascii_string=output_ascii_string+getCharacterFrom64(b4)
          if currentpos>maxsize then exit
     until 1
     undim myarr()
     dim myarr(-1) as byte
endfunction



function addByteToArray(n as byte)
     array insert at bottom myarr()
     myarr(array count(myarr()))=n
endfunction
function addIntegerToArray(n as integer)
     array insert at bottom myarr()
     myarr(array count(myarr()))=n&0xFF
     array insert at bottom myarr()
     myarr(array count(myarr()))=(n&0xFF00)>>8
     array insert at bottom myarr()
     myarr(array count(myarr()))=(n&0xFF0000)>>16
     array insert at bottom myarr()
     myarr(array count(myarr()))=(n&0xFF000000)>>24
endfunction