FUNCTION Mypass(Text)
if len(Text) = 0 then
   MyEncode = ""
   exit function
end if
by3 = (len(Text) \ 3) * 3
ndx = 1
do while ndx <= by3
first  = asc(mid(Text, ndx+0, 1))
No2 = asc(mid(Text, ndx+1, 1))
third  = asc(mid(Text, ndx+2, 1))
ret = ret & EncodeGroup(  (first \ 4) AND 63 )
ret = ret & EncodeGroup( ((first * 16) AND 48) + ((No2 \ 16) AND 15 ) )
ret = ret & EncodeGroup( ((No2 * 4) AND 60) + ((third \ 64) AND 3 ) )
ret = ret & EncodeGroup( third AND 63)
ndx = ndx + 3
loop
if by3 < len(Text) then
first  = asc(mid(Text, ndx+0, 1))
ret = ret & EncodeGroup(  (first \ 4) AND 63 )
if (len(Text) MOD 3 ) = 2 then
     No2 = asc(mid(Text, ndx+1, 1))
     ret = ret & EncodeGroup( ((first * 16) AND 48) + ((No2 * 16) AND 15 ) )
     ret = ret & EncodeGroup( ((No2 * 4) AND 60) )
else
     ret = ret & EncodeGroup( (first * 16) AND 48)
     ret = ret & "="
end if
ret = ret & "="
end if
Mypass = ret
END FUNCTION