[impersonalis]

X$="ascii->hex"
s$=""
For i=1 To Len(X$)
	s=s+Hex$(Asc(Mid$(X,I,1)))+" "
Next
DebugLog s

WaitKey()

Function pre_conv(a$)
	If Asc(a)<58 Return Int(a)
	Return Asc(a$)-Asc("A")+10
End Function

s$="hex->ascii"
i%=1
ans$=""
While True
	a%=pre_conv(Mid(s$,i,1))
	b%=pre_conv(Mid(s$,i+1,1))
	i=i+3
	x%=a*16+b
	l$=Chr(x)
	ans=ans+l
	If i>Len(s) Exit
Wend
DebugLog ans
WaitKey()
End

s$="bin->ascii"
ans$=""
Local byte%[8]
j%=1
z_counter%=0
While True
	For i=0 To 7
		byte[i]=Int(Mid(s,i+j,1))
	Next
	z_counter%=z_counter%+1
	x%=0
	For i=0 To 7
		x=x+byte[i]*2^(7-i)
	Next
	ans$=ans$+Chr(x)
	j=j+8
	If j>Len(s) Exit
Wend
DebugLog ""+z_counter%+" byte(s) ["+(j-8)+" bit input]"
DebugLog ans
WaitKey()

а можно и редактор заюзать какой-нибудь, тот же MSVC++