Verify GPG signature using OpenPGP Perl module.

1 files changed, 0 insertions, 94 deletions

diff --git a/chroot_test.txt b/chroot_test.txt
deleted file mode 100644
index a1c76d8..0000000
--- a/chroot_test.txt
+++ /dev/null
@@ -1,94 +0,0 @@
-chroot -u www /var/www /usr/bin/perl -e '
-  use URI::Escape qw(uri_escape);
-
-  my $raw_mime = <<'\''MIME_END'\'';
-Received: from mailtransmit04.runbox.com (mailtransmit04.runbox.com [185.226.149.37]) by
- 99abfb82813db16bb2b923f8a789c1622dfbc9adec15037074ea0a1d0bd3d9be with SMTP id
- <undefined> (version=TLS1.3, cipher=TLS_AES_128_GCM_SHA256); Mon, 10 Aug 2026
- 01:23:51 GMT
-Authentication-Results: mxa.mailgun.org;
- dkim=pass header.d=asciimx.com header.s=selector2 header.b=n9CTxyV+;
- spf=pass (domain asciimx.com designates 185.226.149.37 as permitted sender) smtp.mailfrom="sadeep@asciimx.com";
- spf=pass (domain mailtransmit04.runbox.com designates 185.226.149.37 as permitted sender) smtp.helo="mailtransmit04.runbox.com";
- dmarc=none header.from=asciimx.com
-X-Mailgun-Incoming: Yes
-X-Envelope-From: sadeep@asciimx.com
-Received: from mailtransmit03.runbox ([10.9.9.163] helo=aibo.runbox.com)
-	by mailtransmit04.runbox.com with esmtps  (TLS1.2) tls TLS_ECDHE_RSA_WITH_AES_128_GCM_SHA256
-	(Exim 4.93)
-	(envelope-from <sadeep@asciimx.com>)
-	id 1wtEk1-00AOZb-03
-	for lex@info.asciimx.com; Mon, 10 Aug 2026 03:23:49 +0200
-DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=asciimx.com
-	; s=selector2; h=Content-Type:MIME-Version:Message-ID:Subject:To:From:Date;
-	 bh=LcStAB7n3m8zTsu0AENI8MHLDQClt2p0YtEX7Mj98uo=; b=n9CTxyV+0K9gtkqLjdbPw57eJ
-	l5i4DmiJCsO4wKHeGsvNK8YQ7q1dqnW205gpNXTK4eC0yXI7fT2t0OmOTJROVr7MOyen0ZdR0J+VL
-	PEWlfqNkSzlnonzrREOGlCrZYnukxaPxGDUKEZ1AG+isCnzUt29R540rtQo/mi9v9sBG0/BbVWew8
-	tkT9BGoRx351kTaDVw7VAwc6FLi4Cs06XuhxFOYrGGHXY9NyFlGjAdTuLxa2ObVibBvy+MklzHe7S
-	eUArWBPBVyCgU3ejhVbqfDfIZ+pl12iSYuF4luF2lwMAOOmY2+/i49ktjqHhl+632UJhPYQRZkPxe
-	OuoomaU9g==;
-Received: from [10.9.9.74] (helo=submission03.runbox)
-	by mailtransmit03.runbox with esmtp (Exim 4.86_2)
-	(envelope-from <sadeep@asciimx.com>)
-	id 1wtEk0-0001MT-FI
-	for lex@info.asciimx.com; Mon, 10 Aug 2026 03:23:48 +0200
-Received: by submission03.runbox with esmtpsa  [Authenticated ID (1110424)]  (TLS1.2:ECDHE_SECP256R1__RSA_PSS_RSAE_SHA512__AES_256_GCM:256)
-	(Exim 4.95)
-	id 1wtEjg-009saV-DO
-	for lex@info.asciimx.com;
-	Mon, 10 Aug 2026 03:23:28 +0200
-Date: Mon, 10 Aug 2026 09:23:24 +0800
-From: Sadeep <sadeep@asciimx.com>
-To: lex@info.asciimx.com
-Subject: Test
-Message-ID: <ankoDK-hx0-riv1A@wd>
-MIME-Version: 1.0
-Content-Type: multipart/signed; micalg=pgp-sha256;
-	protocol="application/pgp-signature"; boundary="+lN9vFx72/4iTYkI"
-Content-Disposition: inline
-
-
---+lN9vFx72/4iTYkI
-Content-Type: text/plain; charset=us-ascii
-Content-Disposition: inline
-Content-Transfer-Encoding: quoted-printable
-
-This is a test email.
-
--- 
-Sadeep
-
---+lN9vFx72/4iTYkI
-Content-Type: application/pgp-signature; name=signature.asc
-
------BEGIN PGP SIGNATURE-----
-
-iQHPBAEBCAA5FiEEqfBXeZvaBlev9/CoEDv54+dQv34FAmp5KAYbFIAAAAAABAAO
-bWFudTIsMi41KzEuMTIsMiwzAAoJEBA7+ePnUL9+LAwMAM42Hp1A5YLHqOVSL716
-Ag42MCRldlJUklPUMonzrTxbRwoReG9yGqrxuB6VPDZ4pWwzpupivaUhi2ULw9Ru
-fAc8xoKZQTsjB1bo7BXw0jXwYHUCLv6HkMWgL6nJsKvcSJzIRP9arTyu4ZEqH/vI
-Io6IZIiWGwaMM+NPK1HjFbcjkKenHcapmT14aEsUQ4QjUlyyFOvvzKDZ7fgNmh/o
-hRHdXkivYmlww6dIR49bwH2pIRu3SKXtq0DqMF2t0KjjNZ0ledSUKG7P1+U7GIY2
-W0fTyK9Bf/kB8fLwCKUDQbytw4qTgHMtvE6v+h/3VUK/Lt9JEwjySTfVzrHvwNRG
-XycQXlM/5sc/tbpm0fVc5K+yg2OauOrSUI9r4HGvNS/FawV5rTuSi7KNDLB6G8O6
-GKugMgDMJnanBRI2U7quKNmpf7s95ouFN8vJ84ZslE4bzrtjDE0IQ1FOsO1yW64Y
-FE51iC4OY0un/HsYLSsFPHlebd/52WrQikVljQNDgvr/Vg==
-=GOo2
------END PGP SIGNATURE-----
-
---+lN9vFx72/4iTYkI--
-MIME_END
-
-  my $payload = "body-mime=" . uri_escape($raw_mime);
-
-  $ENV{CONTENT_TYPE}   = "application/x-www-form-urlencoded";
-  $ENV{CONTENT_LENGTH} = length($payload);
-  $ENV{REMOTE_ADDR}    = "35.212.14.65";
-  $ENV{HTTP_USER_AGENT}= "Go-http-client/2.0";
-
-  open(my $fh, "|-", "/usr/bin/perl", "/cgi-bin/lex.cgi") or die "Cannot pipe to lex.cgi: $!";
-  print $fh $payload;
-  close($fh);
-
-  print "Exit status: " . ($? >> 8) . "\n";
-'