Зашифровать / расшифровать двоичный файл в Perl, используя blowfish или AES? - PullRequest
Новая
       26

Зашифровать / расшифровать двоичный файл в Perl, используя blowfish или AES?

2 голосов
/ 02 декабря 2010

Я пытаюсь зашифровать, а затем расшифровать бинарный файл в Perl безуспешно, дешифрованный файл всегда отличается от оригинала. Я пробовал и Blowfish, и AES (Rijandael), вот короткий пример: 

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

my $cipher = Crypt::CBC->new(
    -key    => 'my secret key',
    -cipher => 'Blowfish',
    -header => 'none',
    -iv     => 'dupajasi'
);
$cipher->start('encrypting');
my $sourcefile = "fs9419105v001s.zip";

{
    open(my $OUTF, '>', "$sourcefile.perl.crypt");
    open(my $F, '<', $sourcefile);
    print "[?] Encrypting ... \n";
    while (read($F, $buffer, 1024)) {
        print $OUTF $cipher->crypt($buffer);
    }
    print {$OUTF} $cipher->finish;
    close($OUTF);
}

print "[?] Decrypting.,..... \n";
$cipher2 = Crypt::CBC->new(
    -key    => 'my secret key',
    -cipher => 'Blowfish',
    -header => 'none',
    -iv     => 'dupajasi'
);

{
    open(my $OUTF, '>', "$sourcefile.perl.decrypt");
    open(my $F, '<', "$sourcefile.perl.crypt");
    while (read($F, $buffer, 1024)) {
        print {$OUTF} $cipher2->decrypt($buffer);
    }
    print {$OUTF} $cipher2->finish;
    close($OUTF);
}

Может ли кто-нибудь помочь мне выяснить, что не так?

Ответы [ 2 ]

2 голосов
/ 02 декабря 2010

Я могу это подтвердить.Я нашел подсказку: разница возникает именно на границе 1024 10 / 400 16 . 

> diff -u fs9419105v001s.zip.hex fs9419105v001s.zip.perl.decrypt.hex
--- fs9419105v001s.zip.hex
+++ fs9419105v001s.zip.perl.decrypt.hex
@@ -62,7 +62,7 @@
 03d0  5d d9 f2 f6 43 bb 3d 9d  92 aa 89 ca 75 dc 0e 51  ]...C.=. ....u..Q
 03e0  55 b2 1a e8 65 d5 29 ac  ca d9 a4 f8 1a cc 67 8b  U...e.). ......g.
 03f0  f9 1b 65 be bc 19 bf 51  e6 9f de 28 ef db db ff  ..e....Q ...(....
-0400  85 38 78 09 a7 62 9f 9d  08 db fc cb 13 90 b9 84  .8x..b.. ........
+0400  c6 a0 8b 75 f4 17 6b 64  08 db fc cb 13 90 b9 84  ...u..kd ........
 0410  f4 a8 30 d2 1d 19 52 f7  8e 84 09 a8 59 f3 4e 1e  ..0...R. ....Y.N.
 0420  3c 30 ca 6e 5b dc bb f3  48 fa 5d 3c b1 e0 64 07  <0.n[... H.]<..d.
 0430  61 98 9e a1 57 9a 69 d6  35 a7 95 5b 0d d7 31 c4  a...W.i. 5..[..1.

Это скорее комментарий, чем ответ, но, к сожалению,поле для комментариев не подходит для этого ответа.

1 голос
/ 02 декабря 2010

  1. Вы должны позвонить binmode

  2. Вы пропустили ->start('decrypting'); при расшифровке.

  3. Вы должныиспользуйте crypt(), а не decrypt().[да, это сбивает с толку] см. perldoc:

decrypt ()

$plaintext = $cipher->decrypt($ciphertext)

ThisВспомогательная функция запускает для вас всю последовательность start (), crypt () и finish (), обрабатывает предоставленный зашифрованный текст и возвращает соответствующий открытый текст.

Процедура дешифрования должна выглядеть следующим образом: 

$cipher2 = Crypt::CBC->new(
    -key    => 'my secret key',
    -cipher => 'Blowfish',
    -header => 'none',
    -iv     => 'dupajasi'
);

$cipher2->start('de')

print "[?] Decrypting ... \n";

{
    open(my $OUTF, '>', "$sourcefile");
    open(my $F, '<', "$sourcefile.perl.crypt");
    binmode $OUTF;
    binmode $F;
    while (read($F, $buffer, 1024)) {
        print $OUTF $cipher2->crypt($buffer);
    }
    print $OUTF $cipher2->finish;
    close $OUTF;
}
...