한국어

tc_backup

# Functional style
use Crypt::Rijndael_PP ‘:all’;
$key = ‘a’ x 16; # 128bit hex number
$data = ”encrypt test 111222″;
print $key.”\n\n\n”;
print $data.”\n\n\n”;
# keysize = 128bit, blocksize = 128bit
$c_txt = rijndael_encrypt($key, MODE_CBC, $data,  128, 128);
print $c_txt.”\n\n\n”;
$p_txt = rijndael_decrypt($key, MODE_CBC, $c_txt, 128, 128);
print $p_txt.”\n”;

가장 먼저 테스트로 만들었는데, 잘 암호화되었다, cpan에서 모듈 설치해야하지만, 128, 192, 256 bit 암호화를 모두 잘 지원하더라. 단점은 속도가 무진장 느리더라.

 

# Functional style
use Crypt::Rijndael_PP ‘:all’;
$key = ’1234567890ABCDEF’ x 4; # 256bit hex number
open IN, “<”, “plain.txt” or die “$!\n”
;binmode IN;
open OUT, “>”, “encrypt.txt” or die “$!\n”;
binmode OUT;$data;
while(<IN>){ $data = $data.$_;}
# keysize = 256bit, blocksize = 128bit
$c_txt = rijndael_encrypt($key, MODE_CBC, $data,  256, 128);
print OUT $c_txt;
close IN;close OUT;

open IN2, “<”, “encrypt.txt” or die “$!\n”;
binmode IN2;
open OUT2, “>”, “decrypt.txt” or die “$!\n”;
binmode OUT2;
$data2;
while(<IN2>){ $data2 = $data2.$_;}

$p_txt = rijndael_decrypt($key, MODE_CBC, $data2, 256, 128);
print OUT2 $p_txt;
close IN2;close OUT2;

위 내용을 파일로 입출력하게끔 수정한 것뿐 다른 내용 없음.(암호화 keysize가 256bit인것)

 


# Functional style
use Crypt::Rijndael;
#$key =”\x31″ x 32$key = “a” x 32;
# 256bit hex number
$crypt = Crypt::Rijndael->new($key, Crypt::Rijndael::MODE_CBC());
open IN, “<”, “plain.doc” or die “$!\n”;
binmode IN;open OUT, “>”, “encrypt.doc” or die “$!\n”;
binmode OUT;
$data;
while(<IN>){  $data = $data.$_;}
# keysize = 256bit, blocksize = 128bit
print “keysize():   “.$crypt->keysize().”\n”;
print “blocksize(): “.$crypt->blocksize();
$c_txt = $crypt->encrypt($data);
print OUT $c_txt;
close IN;close OUT;
open IN2, “<”, “encrypt.doc” or die “$!\n”;
binmode IN2;
open OUT2, “>”, “decrypt.doc” or die “$!\n”;
binmode OUT2;
$data2;
while(<IN2>){  $data2 = $data2.$_;}
$p_txt = $crypt->decrypt($data2);
print OUT2 $p_txt;
close IN2;
close OUT2;
 

마지막으로 Crypt::Rijndael_PP가 속도가 너무 느려서 amoc씨가 Crypt::Rijndael로 바꿔줬다. 도움 준 amoc씨께 감사 ^^

조회 수 :
20247
등록일 :
2012.06.11
22:51:34 (*.234.246.12)
엮인글 :
https://www.rain9.com/xe/tc_backup/4007/176/trackback
게시글 주소 :
https://www.rain9.com/xe/tc_backup/4007
List of Articles
번호 제목 글쓴이 날짜 조회 수
220 [iphone] decrypt 도구 file 엔신 2012-06-11 16581
219 udp tunnel 엔신 2012-06-11 11346
218 ubuntu APM(apache2 php mysql) 설치 방법 엔신 2012-06-11 17269
» [perl] AES 암호화/복호화 엔신 2012-06-11 20247
216 iPhone code sign 엔신 2012-06-11 9892
215 [excel] 최대 행과 열 엔신 2012-06-11 21596
214 [WMI,VBS] IIS FTP 서버 IPSecurity 설정 확인 엔신 2012-06-11 21374
213 [WMI,VBS] WMI를 이용한 vbs 작성시 Windows 2008에서 오류 해결 엔신 2012-06-11 18610
212 Windows [VBS] xml parsing file 엔신 2011-01-11 19763
211 Windows WMI 엔신 2011-01-07 14110
210 이란과 아랍간의 사이가 나쁜 이유가 뭘까요? [2] 엔신 2010-11-28 12879
209 ETC 메모 엔신 2010-10-30 9847
208 Linux 패키지 파일 만들기 엔신 2010-10-30 11710
207 Programming [JSP] getParameter() 사용시 파라미터가 있고 없고 엔신 2010-07-08 13622
206 DBMS Oracle 요약 엔신 2010-07-08 20501
205 DBMS PL-SQL 엔신 2010-07-08 7458
204 Programming [JSP] JSP 요약 엔신 2010-07-07 33041
203 Programming [JSP] JDBC를 이용한 데이터베이스 활용법 엔신 2010-07-07 10629
202 Programming perl http post 엔신 2010-06-07 10780
201 Ambiguous 인터넷 엔지니어링 태스크 포스 file 엔신 2010-04-27 11483