common.pl

   1 our $hashlen=32;
   2
   3 sub hash ($) {
   4     my $r= `echo $_[0] | sha256sum`; $? and die $?;
   5     $r =~ s/ *\-$//;
   6     chomp $r;
   7     return $r;
   8 }
   9
  10
  11 1;