#NewScriptBegin BinStrScript
Function FromDez(Dez, System)
if val(System)=0 then System=2
i=23
tval=val(Dez)
do
strout=hex(tval mod System) & strout
tval=tval \ System
loop until tval < 1
echo strout
FromDez=strout
End Function
Function ToDez(Zahl, System)
if val(System)=0 then System=2
ZahlLen = len(Zahl)
i=ZahlLen
outval=0
do
outval=outval+val("&H"+mid(Zahl,i,1))*System^(ZahlLen-i)
i=i-1
loop until i = 0
ToDez=outval
End Function
Function StrToBin(Text)
i=0
do until i >= len(Text)
i=i+1
DAT=FromDez(asc(mid(Text,i,1)),2)
OutText=OutText & cstr(String(8-len(DAT), "0")) & DAT
loop
StrToBin=OutText
End Function
Function BinToStr(BinText)
i=1
do until i > len(BinText)
OutText=OutText & chr(ToDez(mid(BinText,i,8),2))
i=i+8
loop
BinToStr=OutText
End Function