Revision c3f5960452ef1f3ce52e12a6a4a46ef317f07fff authored by Xavier Guimard on 07 March 2019, 17:15:48 UTC, committed by Xavier Guimard on 07 March 2019, 17:15:48 UTC
@maudoux: could you review this?
1 parent a9b0298
totp-client.pl
#!/usr/bin/perl -w
use Authen::OATH;
use Convert::Base32 qw( decode_base32 );
unless ( $ARGV[0] ) {
print STDERR "Usage $0 <totp-secret>\n";
exit 1;
}
my $oath = Authen::OATH->new();
my $totp = $oath->totp( decode_base32( $ARGV[0] ) );
print "$totp\n";
1;
Computing file changes ...
