Diff -- /var/www/vhosts/3dshawn.com/site1/test_crypto.pl
Diff
/var/www/vhosts/3dshawn.com/site1/test_crypto.pl
deleted on local at 2026-07-11 23:20:01
Added
+0
lines
Removed
-8
lines
Context
0
unchanged
Blobs
from 8205133404b9
to
to
Unified diff
Naive LCS-based line diff. Additions in emerald, deletions in rose. Both sides decompressed live from BLOB_STORE.| 1 | use strict; use warnings; | |
| 2 | use lib '/var/www/vhosts/3dshawn.com/site1'; | |
| 3 | use MODS::Crypto; | |
| 4 | my $secret = "SECRET-PAYLOAD-1234\n" . ("A" x 500); | |
| 5 | my $enc = MODS::Crypto::encrypt($secret); | |
| 6 | print "enc_ok=", ($enc ? "1 (len=" . length($enc) . ")" : "0"), "\n"; | |
| 7 | my $dec = MODS::Crypto::decrypt($enc); | |
| 8 | print "dec_ok=", ($dec eq $secret ? "1 (roundtrip matches)" : "0 (mismatch)"), "\n"; |