04-15-2005, 03:29 PM
To complement the new Longint type, here's a little lib including HEX64$,OCT64$ amd BIN64$ functions...
Code:
'BASE64 library by Antoni Gual 4/2005
'
Declare function bin64$(num as longint)
Declare function hex64$(num as longint)
Declare function oct64$(num as longint)
function bin64$(num as longint)
a$=string$(64,48) 'zero padded
b$=BIN$(cint (num shr 32)and &hFFFFFFFF)
mid$(a$,33-len(b$))=b$
b$=BIN$(cint (num and &hFFFFFFFF))
mid$(a$,65-len(b$))=b$
FUNCTION=a$
end function
function hex64$(num as longint)
a$=string$(16,48) 'zero padded
b$=hex$(cint(num shr 32and &hFFFFFFFF))
mid$(a$,9-len(b$))=b$
b$=hex$(cint (num and &hFFFFFFFF))
mid$(a$,17-len(b$))=b$
FUNCTION=a$
end function
function oct64$(num as longint)
a$=string$(22,48) 'zero padded
b$=oct$(cint(num shr 60)and &hf)
mid$(a$,3-len(b$))=b$
b$=oct$(cint ((num and &hFFFFFFFC0000000)shr 30))
mid$(a$,13-len(b$))=b$
b$=oct$(cint (num and &h3FFFFFFF))
mid$(a$,23-len(b$))=b$
FUNCTION=a$
end function
Antoni