PracticeDev/study_perl/perl_cryptofile/encrypt.pl

6 lines
152 B
Perl
Raw Normal View History

2022-12-20 17:31:11 +08:00
use Filter::Crypto::CryptFile qw(:DEFAULT $ErrStr);
my $in_out_file = "./test.pl";
crypt_file($in_out_file) or die "crypt_file() failed: $ErrStr\n";