Binstr

#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