Google Authenticator-Implementierung in Perl
Ich suche eine einfache Perl-Implementierung, die ein Google-Authentifizierungstoken überprüft, das mithilfe eines serverseitigen Geheimnisses erstellt wurde. Zum Beispiel,
Mit der folgenden Google-URL können Sie ein Servergeheimnis im Base32-Format verschlüsseln (im folgenden Fall lautet das Geheimnis:e4ytonjeim4hcsrhja5fe5kqfu) als QR-Code, der von der Google Authenticator-App gelesen werden kann (siehe Bild unten):
https://chart.googleapis.com/chart?cht=qr&chs=100x100&chl=otpauth%3A%2F%2Ftotp%2Fmysite%3A29%3Fsecret%3De4ytonjeim4hcsrhja5fe5kqfu%26issuer%3Dmysite
Sobald der QR-Code in die Authentifizierungs-App gescannt wurde, werden Token wie der folgende generiert: 716340. Wie überprüfe ich die Richtigkeit des Tokens?
Diese Frage ist das Perl-Äquivalent dieser Python-Frage:Google Authenticator-Implementierung in Python