****************************************************************
*BINDEC(<expc>)
*BINARY TO DECIMAL CONVERSION
procedure bindec
parameter lcbinary
private lncnt1, lnasc, lcbinary, lndec
  if type("LCBINARY")!="C"
    return 0
  endif
return asc(binasc(lcbinary))
****************************************************************
* DECIMAL XOR
procedure decxor
parameters lndec1, lndec2
private lncnt1, lndec, lndec1, lndec2
  if type("LNDEC1")!="N" or type("LNDEC2")!="N"
    return ""
  endif
return bindec(binxor(decbin(lndec1),decbin(lndec2)))
****************************************************************
* CRYPT(<string>)
*
* Encrypts/decrypts <string>.
*
procedure crypt
parameters lcstring
private lnstrlen, lnchr, lccrypt, lcstring
  lnstrlen=len(lcstring)
  lccrypt=""
  for lncnt1=1 to lnstrlen
    lnchr=decxor(mod(lncnt1,255),asc(substr(lcstring,lncnt1,1)))
    lccrypt=lccrypt+chr(lnchr)
  endfor
return lccrypt
****************************************************************
* DECBIN(<expn>)
* returns a binary-like string from an ascii number
* from 0 to 255
procedure decbin
parameters lndec
private lndec, lcbinary
  do case
    case type("LNDEC")="C"
      lndec=val(lndec)
    case type("LNDEC")!="N"
      return ""
  endcase
  if lndec > 255
    return ""
  endif
  lcbinary=ascbin(chr(lndec))
return lcbinary
****************************************************************
* ASCBIN(<expc>)
*
* turns an ascii character into binary representation
*
procedure ascbin
parameters lcascii
private lcascii, lncnt1, lnasc, lcbinary
  if type("LCASCII")!="C"
    return ""
  endif
  lcbinary=""
  lnasc=asc(substr(lcascii,1,1))
  for lncnt1=7 to 0 step -1
    if lnasc >= 2^lncnt1
      lcbinary=lcbinary+"1"
      lnasc=lnasc-2^lncnt1
    else
      lcbinary=lcbinary+"0"
    endif
  endfor
return lcbinary
****************************************************************
* BINARY XOR
procedure binxor
parameters lcbin1, lcbin2
private lncnt1, lcbinary, lcbin1, lcbin2
  if type("LCBIN1")!="C" or type("LCBIN2")!="C"
    return ""
  endif
*  lnasc=0
  lcbinary=""
  lcbin1=padl(lcbin1,8,"0")
  lcbin2=padl(lcbin2,8,"0")
  for lncnt1=1 to 8
    lcbinary=lcbinary+iif(substr(lcbin1,lncnt1,1)=substr(lcbin2,lncnt1,1),;
                          "0","1")
  endfor
return lcbinary
****************************************************************
* BINASC(<expc>)
*
* BINARY TO ASCII CONVERSION with a binary-like character
* string <expc> sent as a parameter.
*
procedure binasc
parameter lcbinary
private lncnt1, lnasc, lcbinary
  if type("LCBINARY")!="C"
    return ""
  endif
  lnasc=0
  lcbinary=padl(lcbinary,8,"0")
*  lnasc=asc(substr(lcascii,1,1))
  for lncnt1=1 to 8
    lnasc=lnasc+iif(substr(lcbinary,lncnt1,1)="1",2^(8-lncnt1),0)
  endfor
  lcascii=chr(lnasc)
return lcascii