Diff

/var/www/vhosts/3dshawn.com/site1/test_crypto.pl

added on local at 2026-07-11 23:15:31

Added

lines

Removed

-0

lines

Context

unchanged

Blobs

from
to 8205133404b9

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";