펄과 루비 간의 복어 암호화의 차이

Question

왜 Crypt :: CBC (펄)와 OpenSSL (루비)간에 복어 암호화가 다른가요?

펄

use Crypt::CBC; 

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

# ciphertext is 53616c7465645f5f409c8b8eb353823c06d9b50537c92e19 

루비

require "rubygems" 
require "openssl" 

cipher = OpenSSL::Cipher::Cipher.new("bf-cbc") 
cipher.encrypt 
cipher.key = "length32length32length32length32" 

result = cipher.update("test") << cipher.final 
ciphertext = result.unpack("H*").first 

# ciphertext is 16f99115a09e0464 

크립트 :: CBC는 기본적으로 출력에 Salted__을 붙이는 것 같다. 당신은 이것들 사이에 그렇게 다른 일이 무엇인지 설명 할 수 있습니까? OpenSSL이 Crypt :: CBC와 비슷한 방식으로 작동하도록하는 방법이 있습니까?

Answer 1

Crypt :: CBC (perl)는 자체 met 소금과 초기화 벡터를 무작위로 추출합니다. Blowfish의 경우 위에서 언급 한 것처럼 56의 키 길이를 사용합니다. 귀하의 예제에서 펄 코드를 사용

:

이 사용 루비 (OpenSSL을)를 디코딩 할

펄

use Crypt::CBC; 

my $cipher = Crypt::CBC->new(-key => 'length32length32length32length32', -cipher => 'Blowfish'); 
my $ciphertext = $cipher->encrypt_hex('test'); 
# 53616c7465645f5f409c8b8eb353823c06d9b50537c92e19 

키와 초기화 벡터를 추출하기 위해 약간의 조정이 필요 루비

require 'openssl' 

# Hex string to decode(from above) 
string = '53616c7465645f5f409c8b8eb353823c06d9b50537c92e19' 

# Pack Hex 
string = [string].pack('H*') 

# Some Config 
pass = 'length32length32length32length32' 
key_len = 56; 
iv_len = 8; 
desired_len = key_len + iv_len; 
salt_re = /^Salted__(.{8})/ 

#Extract salt 
salt = salt_re.match(string) 
salt = salt.captures[0] 
data = ''; 
d = ''; 
while (data.length < desired_len) 
    d = Digest::MD5::digest("#{d}#{pass}#{salt}"); 
    data << d; 
end 

#Now you have extracted your key and initialization vector 
key = data.slice(0..key_len-1) 
iv = data.slice(key_len .. -1) 

# Trim string of salt 
string = string[16..-1] 

cipher = OpenSSL::Cipher::Cipher.new "bf-cbc" 
cipher.decrypt 
cipher.key_len = key_len 
cipher.key = key 
cipher.iv = iv 

puts cipher.update(string) << cipher.final 
# test 

Answer 2

복어 키 크기가 기본값으로 바뀌 었습니다. OpenSSL의 기본값은 16이고 Crypt :: Blowfish의 기본값은 56입니다.

-keysize => n을 지정하여 Crypt :: CBC에서 키 크기를 무시할 수 있지만 불행하게도 OpenSSL의 키 크기를 무시하는 방법은 없습니다.

16 바이트 복어 키 크기로는 OpenSSL 라이브러리의 기본값은, 당신은 -keysize => 16

http://metacpan.org/pod/Crypt::CBC

펄 (키 사이즈를 지정) 설정하실 수 있습니다에는 OpenSSL과 호환성을 위해 있도록

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