client/hotp_generator

   1 #!/usr/bin/perl
   2 use warnings;
   3 use strict;
   4
   5 use Authen::OATH;
   6
   7 if ($#ARGV != 1) {
   8     print "Usage: hotp_generator SECRET COUNTER\n";
   9     exit 1;
  10 }
  11
  12 print Authen::OATH->new()->hotp(@ARGV[0..1]), "\n";