home *** CD-ROM | disk | FTP | other *** search
/ PC World 2005 December (Special) / PCWorld_2005-12_Special_cd.bin / Bezpecnost / lsti / lsti.exe / framework-2.5.exe / bits2str.awk < prev    next >
Text File  |  2004-08-02  |  327b  |  17 lines
  1. # bits2str --- turn a byte into readable 1's and 0's
  2.  
  3. function bits2str(bits,        data, mask)
  4. {
  5.     if (bits == 0)
  6.         return "0"
  7.  
  8.     mask = 1
  9.     for (; bits != 0; bits = rshift(bits, 1))
  10.         data = (and(bits, mask) ? "1" : "0") data
  11.  
  12.     while ((length(data) % 8) != 0)
  13.         data = "0" data
  14.  
  15.     return data
  16. }
  17.