CVE-2026-46473

Description

Authen::TOTP versions before 0.1.1 for Perl generate secrets using rand. Secrets were generated using Perl's built-in rand function, which is predictable and unsuitable for security usage.

CVSS Details

CVSS Score

7.5

Severity

HIGH

CVSS Vector

CVSS:3.1/AV:N/AC:L/PR:N/UI:N/S:U/C:H/I:N/A:N

Configurations (Affected Products)

No configuration data available.

Authen::TOTP < 0.1.1

PoC / Exploit Code

⚠ For Security Research Only

The following code is for security research and authorized testing only.

python

#!/usr/bin/perl
# PoC: Demonstration of weak secret generation vulnerability
# This script simulates the vulnerable behavior of Authen::TOTP < 0.1.1
# which uses non-cryptographic rand() for secret generation.

use strict;
use warnings;

# Simulate the vulnerable secret generation logic
sub generate_vulnerable_secret {
    my $length = shift || 16;
    my $secret = '';
    # Vulnerable: Uses rand() which is predictable and not CSPRNG
    my @chars = ('A'..'Z', '2'..'7'); 
    for (1..$length) {
        $secret .= $chars[rand(@chars)];
    }
    return $secret;
}

print "[+] Simulating vulnerable secret generation...\n";
print "[+] Generated Weak Secret: " . generate_vulnerable_secret(16) . "\n";
print "[!] Note: An attacker observing the generation time/PID could predict this output.\n";

References

[1] CVE.org https://www.cve.org/CVERecord?id=CVE-2026-46473
[2] NVD NIST https://nvd.nist.gov/vuln/detail/CVE-2026-46473
[3] CVE Details https://www.cvedetails.com/cve/CVE-2026-46473/
[4] VulDB https://vuldb.com/cve/CVE-2026-46473
[5] https://github.com/tchatzi/Authen-TOTP/commit/d04f30cc6538d77fc6b6d550da450cf3017b8561.patch
[6] https://metacpan.org/release/TCHATZI/Authen-TOTP-0.1.1/changes
[7] http://www.openwall.com/lists/oss-security/2026/05/21/15

Raw JSON Data

JSON

{"cve": {"id": "CVE-2026-46473", "sourceIdentifier": "9b29abf9-4ab0-4765-b253-1875cd9b441e", "published": "2026-05-21T19:16:53.510", "lastModified": "2026-05-21T22:16:48.157", "vulnStatus": "Received", "cveTags": [], "descriptions": [{"lang": "en", "value": "Authen::TOTP versions before 0.1.1 for Perl generate secrets using rand.\n\nSecrets were generated using Perl's built-in rand function, which is predictable and unsuitable for security usage."}], "metrics": {"cvssMetricV31": [{"source": "134c704f-9b21-4f2e-91b3-4a467353bcc0", "type": "Secondary", "cvssData": {"version": "3.1", "vectorString": "CVSS:3.1/AV:N/AC:L/PR:N/UI:N/S:U/C:H/I:N/A:N", "baseScore": 7.5, "baseSeverity": "HIGH", "attackVector": "NETWORK", "attackComplexity": "LOW", "privilegesRequired": "NONE", "userInteraction": "NONE", "scope": "UNCHANGED", "confidentialityImpact": "HIGH", "integrityImpact": "NONE", "availabilityImpact": "NONE"}, "exploitabilityScore": 3.9, "impactScore": 3.6}]}, "weaknesses": [{"source": "9b29abf9-4ab0-4765-b253-1875cd9b441e", "type": "Secondary", "description": [{"lang": "en", "value": "CWE-331"}]}], "references": [{"url": "https://github.com/tchatzi/Authen-TOTP/commit/d04f30cc6538d77fc6b6d550da450cf3017b8561.patch", "source": "9b29abf9-4ab0-4765-b253-1875cd9b441e"}, {"url": "https://metacpan.org/release/TCHATZI/Authen-TOTP-0.1.1/changes", "source": "9b29abf9-4ab0-4765-b253-1875cd9b441e"}, {"url": "http://www.openwall.com/lists/oss-security/2026/05/21/15", "source": "af854a3a-2127-422b-91ae-364da2661108"}]}}