Select Code to Download

  #! /usr/bin/perl -w

...
    $ones += ($bitmap =~ tr/1/1/);
  }
  print "$ones/128 bits set\n";

  foreach( split //, $pw ) {
    printf "%08b\n", ord $_;
  }

  01110100
  01101000
...
  01101110
  01110010
  01100100