NEUS is designed to allow all data between 0 and 255 to be represented as characters between A and P, to allow for easy transfering of data between people (if its used for serial codes, for example).
You will need my memory plug-in, to use this.
Rem Project: NUC
Rem Created: 21/11/2004 10:53:53
Rem ***** Main Source File *****
d as DWORD
d=make memory(1024)
pokeString$ d,0,"Test"+chr$(255),5,0
NUES_Encode(d,5,"C:\TEST.TXT")
pokeString$ d,0," ",5,0
print NUES_Decode(d,"C:\TEST.TXT")
print peekString$(d,0,5,0)
wait key
end
function NUES_Encode(addr as DWORD,size as DWORD,file as string)
local l as DWORD
local value as DWORD
local bit as BYTE
if file exist(file) then delete file file
open to write 1,file
for l=0 to size-1
value=peekB(addr,l)
bit=((value>>4) && 15)+65
write byte 1,bit
bit=(value && 15)+65
write byte 1,bit
next l
close file 1
endfunction
function NUES_Decode(addr as DWORD,file as string)
local bit as integer:rem Cant be a byte as it should be due to a bug...
local value as DWORD
local l as DWORD
if file exist(file)=0 then exitfunction 0
open to read 1,file
l=0
while file end(1)=0
read byte 1,bit
value=((bit-65) && 15)<<4
read byte 1,bit
value=value || ((bit-65) && 15)
pokeB addr,l,value
inc l
endwhile
close file 1
endfunction 1
Walk softly... and carry a big gun...
