Perl Authen::OATH 和 Google Authenticator - 不兼容？

Question

我的理解(这可能显然是错误的)是 Authen::OATH模块与 Google Authenticator 应用程序生成的 totp 代码兼容。但它对我不起作用，而类似的 ruby​​ 代码却可以。我们是一家 Perl 商店，如果有人能给我指出正确的方向，让我免于逐行挖掘这两个库，那将会很有帮助。

这个 ruby​​ 兼容:

require 'rubygems'

require 'rotp'

secret = "bqagf6ohx4rp3a67"

puts ROTP::TOTP.new(secret).now.to_s

这个 perl 不:

use Authen::OATH;

my $oath = Authen::OATH->new();

my $totp = $oath->totp(" bqagf6ohx4rp3a67" );

print "$totp\n";

Answer 1

文档中还不是很清楚，但是 Authen::OATH 期望 totp 和 hotp 的未编码密码。如果这不是一个选项，您可以尝试 Convert::Base32 中的 decode_base32

use Convert::Base32;
use Authen::OATH;

my $oath = Authen::OATH->new();

my $totp = $oath->totp( decode_base32( "bqagf6ohx4rp3a67" ) );

print "$totp\n";