http://7fh6tueqddpjyxjmgtdiueylzoqt6pt7hec3pukyptlmohoowvhde4yd.onion/public-inbox.git/tree/examples/unsubscribe.milter?h=malloc_info
/usr/bin/perl -w # Copyright (C) 2016-2018 all contributors <
[email protected]> # License: AGPL-3.0+ < https://www.gnu.org/licenses/agpl-3.0.txt > use strict ; use warnings ; use Sendmail :: PMilter qw(:all) ; use IO :: Socket ; use Crypt :: CBC ; use MIME :: Base64 qw(encode_base64url) ; my $key_file = shift @ARGV or die "Usage: $0 KEY_FILE \n " ; open my $fh , '<' , $key_file or die "failed to open $key_file \n " ; my ( $
key , $iv ); if ( read ( $fh , $
key , 8 ) != 8...