#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