Skip to main content

Browse the archive

Revision 6e5fe91459b67cc8cb42e5cf7756c1546f9dc9dd authored by Christophe Maudoux on 18 January 2019, 22:33:34 UTC, committed by Christophe Maudoux on 18 January 2019, 22:33:47 UTC 
Improve manager tree (#1616)
1 parent 72705b1
Raw File
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;
back to top