二进制

8位二进制转byte

二进制转十进制数

二进制转十六进制

byte

byte转8位二进制

byte转2位十六进制

十进制数

十进制转二进制

十进制转十六进制

十六进制

十六进制转二进制

2位十六进制转byte

十六进制转十进制

源代码

发现BUG请留言或私信，以便修正（QQ：768310524 TEL：18649713925）
代码拷贝到文本编辑器，另存为 n_func_radix.sru

$PBExportHeader$n_func_radix.sru
forward
global type n_func_radix from nonvisualobject
end type
end forwardglobal type n_func_radix from nonvisualobject autoinstantiate
end typetype variables
private:char 	HEXDIGIT[] = "0123456789ABCDEF"string BINSTR[] = {'0000','0001','0010','0011','0100','0101','0110','0111','1000','1001','1010','1011','1100','1101','1110','1111'}
end variables
forward prototypes
public function unsignedlong bin2dec (string bin)
public function string dec2bin (unsignedlong num)
public function string dec2hex (unsignedlong num)
public function unsignedlong hex2dec (string hex)
public function string bin2hex (string bin)
public function string hex2bin (string hex)
public function string byte2bin (byte b)
public function string byte2hex (byte b)
public function byte hex2byte (string hex)
public function byte bin2byte (string bin)
end prototypespublic function unsignedlong bin2dec (string bin);char binchar[]
long i,ll,result
string bindigitstrbindigitstr = "01"
binchar = bin
ll = upperbound(binchar)
for i = 1 to llresult *= 2if binchar[i] = '1' then result ++
nextreturn result
end functionpublic function string dec2bin (unsignedlong num);byte r
string bindo while num > 0r = mod(num,2)num /= 2if r = 1 thenbin = '1' + binelsebin = '0' + binend if
loopreturn binend functionpublic function string dec2hex (unsignedlong num);byte r
string hexdo while num > 15r = mod(num,16)num /= 16hex = HEXDIGIT[r + 1] + hex
loophex = HEXDIGIT[num + 1] + hex
return hex
end functionpublic function unsignedlong hex2dec (string hex);char hexchar[]
long i,ll,result
string hexdigitstrhexdigitstr = HEXDIGIT
hexchar = hex
ll = upperbound(hexchar)
for i = 1 to llresult *= 16result += pos(hexdigitstr,hexchar[i]) - 1
nextreturn result
end functionpublic function string bin2hex (string bin);int p
char hex[],binchar[]
long i,k,ll
byte tempp = mod(len(bin) , 4)
if p <> 0 then p = 4 - p
bin = fill("0",p) + binbinchar = bin
ll = upperbound(binchar) / 4
for i = 1 to lltemp = 1k ++if binchar[k] = '1' then temp += 8k ++if binchar[k] = '1' then temp += 4k ++if binchar[k] = '1' then temp += 2k ++if binchar[k] = '1' then temp += 1hex[i] = HEXDIGIT[temp]
nextreturn hex
end functionpublic function string hex2bin (string hex);string hexdigitstr
char bin[],binchar[],hexchar[]
long i,j,llhexchar = hex
ll = upperbound(hexchar)
hexdigitstr = HEXDIGIT
for i = 1 to llbinchar = BINSTR[pos(hexdigitstr,hexchar[i])]j ++bin[j] = binchar[1]j ++bin[j] = binchar[2]j ++bin[j] = binchar[3]j ++bin[j] = binchar[4]
nextreturn bin
end functionpublic function string byte2bin (byte b);string hex
hex = HEXDIGIT[b / 16 + 1] + HEXDIGIT[mod(b , 16) + 1]
return BINSTR[pos(HEXDIGIT , left(hex , 1))] + BINSTR[pos(HEXDIGIT , right(hex , 1))]
end functionpublic function string byte2hex (byte b);return HEXDIGIT[b / 16 + 1] + HEXDIGIT[mod(b , 16) + 1]
end functionpublic function byte hex2byte (string hex);return (pos(HEXDIGIT , left(hex , 1)) - 1) * 16 + pos(HEXDIGIT , right(hex , 1)) - 1
end functionpublic function byte bin2byte (string bin);char bchar[]
byte bbchar = bin
if bchar[1] = '1' then b += 128
if bchar[2] = '1' then b += 64
if bchar[3] = '1' then b += 32
if bchar[4] = '1' then b += 16
if bchar[5] = '1' then b += 8
if bchar[6] = '1' then b += 4
if bchar[7] = '1' then b += 2
if bchar[8] = '1' then b += 1return b
end functionon n_func_radix.create
call super::create
TriggerEvent( this, "constructor" )
end onon n_func_radix.destroy
TriggerEvent( this, "destructor" )
call super::destroy
end on