Perl을 사용하여 파일의 특정 열을 암호화하고 해독하는 방법은 무엇입니까?

Question

나는

NAME ID  LOCATION 
aa  12  in 
bb  13  freak 
cc  14  test 

내가 암호화 할뿐만 아니라 필드 "LOCATION"해독, 아래와 같이 로그 파일을 가지고있다. Perl에서 암호화 모듈을 사용하여이를 수행하는 방법은 무엇입니까?

저는 Perl을 처음 사용 했으므로 도와주세요.

Answer 1

사용 Crypt::CBC

샘플 스크립트

#!/usr/bin/perl 
use strict; 
use Crypt::CBC; 

unless (scalar @ARGV == 3) { 
    die "Usage: $0 encrypt|decrypt|en|de \$mysecretkey \$file_to_dencrypt"; 
} 

my $type = shift @ARGV; 
my $key = shift @ARGV; 
my $file = shift @ARGV; 

die "The first ARGV should be one of de, en, encrypt, decrypt" if ($type !~ /^(en|de)(crypt)?$/); 
die "the file $file is not existence" unless (-f $file); 

my $DEBUG = 1; 

print "type is $type, key is $key, file is $file\n" if $DEBUG; 

my $cipher = Crypt::CBC->new(
    -key => $key, 
    -cipher => 'Blowfish' 
); 

local $/; 
open(FH, $file) or die $!; 
flock(FH, 2); 
my $data = <FH>; 
close(FH); 

my ($save_data, $save_file); 
if ($type =~ /^en(crypt)?$/) { 
    $save_data = $cipher->encrypt($data); 
    $save_file = $file . '.encrypt'; 
} else { 
    $save_data = $cipher->decrypt($data); 
    $save_file = $file . '.decrypt'; 
} 

open(FH, '>', $save_file) or die $!; 
print FH $save_data; 
close(FH); 

if (-e $save_file) { 
    print "$type file $file to $save_file OK\n"; 
} else { 
    print "failed without reason\n"; 
}