Utter_step Jun 16 2011 at 14:00

Стеганография на Perl

4 min

Perl*

From sandbox

+41

Comments 32

UFO just landed and posted this here

Mixail Jun 16 2011 at 14:54

Небольшой совет и сравнение скорости работы с массивами (про биты в моём комменте речи не идет).

$str = 'a'x100;
cmpthese (300, {'Arr copy' => sub {
          my @bin = ();
          for (my $i=0; $i < length($str); $i++) {
                  @bin = (@bin, split ('', sprintf "%08b", ord(substr($str, $i, 1))));
          }
},
'String' => sub {
          my $bin = '';
          my @bin = ();
          my @t = split (//, $str);
          for (my $i=0; $i <= $#t; $i++) {
                   $bin .= sprintf ("%08b", ord($t[$i]));
          }
          @bin = split '', $bin;
},
'Arr push' => sub {
          my @bin = ();
          for (my $i=0; $i < length($str); $i++) {
               push @bin, split ('', sprintf "%08b", ord(substr($str, $i, 1)));
          }
}
});

И результат производительности для сравнения:

                 Rate         Arr copy   String     Arr push   
Arr copy        17.0/s         --        -98%       -99%
String          800/s         4617%       --        -37%
Arr push        1277/s        7427%      60%         --

Чем длиннее строка, тем больше в производительности будет выигрывать «Arr push» метод.

Utter_step Jun 16 2011 at 15:06

Спасибо!
Думал использовать push но решил что скорость будет порядка 'Arr copy.
Ну, будет уроком на будущее.)

Mixail Jun 16 2011 at 15:14

Ну а работать с байтами проще и быстрее было бы с помощью логических операторов, таких как: "&, |, ^, >>, <<".

Utter_step Jun 16 2011 at 15:17

Моя задача — заменить два младших бита в байте на нужные. Возможно неправ, но не вижу способа выполнить ее одними логическими операторами, хотя возможно он есть. Попробую вечером.

Mixail Jun 16 2011 at 15:32

Самое топорное и простое решение:

my $str = 255; # or other .. $str = 'a';
my @now = (1,0);
$str = ($str & 252) | (($now[0] << 1) | $now[1]);

stroncium Jun 16 2011 at 16:15

Только

$str = ($str & 0xFC) | (($now[0] << 1) | $now[1]);

Ну и, наверное, будет что-то типа

$str = ($str & 0xFC) | (($src[$i >> 2] >> (($i & 0x3 ) << 1)) & 0x3)

все же.

stroncium Jun 16 2011 at 16:16

Это если не разворачивать.

Mixail Jun 16 2011 at 16:18

Не вижу никакой разницы, кроме идеологической, между 252 и 0xFC.

stroncium Jun 16 2011 at 16:35

Ну о ней и речь. На самом деле, это очень серьезная проблема, когда бинарные циферки пишутся в десятеричной системе.

stroncium Jun 16 2011 at 16:35

И вообще, надо
$b = $src[$i];
$str = ($str & 0xFCFCFCFC) | ($b & 0x03) | (($b & 0x0C) << 6) | (($b & 0x30) << 12) | (($b & 0xC0) << 18);

Mixail Jun 16 2011 at 16:57

Как заметил ниже vk2, ещё более правильно было бы записывать 0b11111100 )

stroncium Jun 16 2011 at 17:23

Да, точно. Мой любимый язык так не умеет. =(

UFO just landed and posted this here

stroncium Jun 16 2011 at 16:37

Я тут не так давно видел на джаве такое, специфика была еще в том, что результирующий код(а именно принтф или что-там) еще и регулярно падал с ошибкой нехватки памяти без видимых причин, до сих пор гадаю, по чему.

Mixail Jun 16 2011 at 15:31

Рассматривать отличия работы метода «Arr copy», и push, если мне не изменяет память в логике работы операторов, то в приближении будет происходить следующее:
1) при @arr = (@arr, $str); происходит создание массива содержащего в себе все элементы @arr и элемент $str. После чего копирование в массив @arr.
2) При push @arr, $str; будет происходить увеличение памяти выделенной под массив @arr (если это необходимо), после чего добавление нового элемента $str.

Ftescht Jun 16 2011 at 15:39

Невозможно закрыть программу, не выбрав файл

Utter_step Jun 16 2011 at 16:55

Да, есть пока такой недостаток…
В следующей сборке попробую тругой принцип работы с пользователем

1x1 Jun 16 2011 at 15:44

Однако, Perl не предоставляет возможности работать с файлом как с последовательностью битов, данные считываются минимум побайтово.

perldoc.perl.org/functions/vec.html

Utter_step Jun 16 2011 at 16:58

Да, неверная формулировка.
Функцию vec() рассматривал при разработке, но так и не смог применить в данной задаче

1x1 Jun 16 2011 at 18:48

$NUM_OF_LSB = 2;
for my $bit ( 0..$#bits ) {
	my $bit_index = ( $bit >> $NUM_OF_LSB - 1 << 3 ) + $bit % $NUM_OF_LSB;
	vec( $str, $bit_index, 1 ) = $bits[$bit]
}

angry_elf Jun 16 2011 at 16:57

Средний исходник на perl — сам по себе пример стеганографии.

Obramko Jun 17 2011 at 01:01

Если это школота — то я спокоен.
Автор, молодец!

Utter_step Jun 17 2011 at 01:07

Если это не ирония, то спасибо.)

Obramko Jun 17 2011 at 01:08

Нет, не ирония. Серьезно.

cblp Jun 17 2011 at 09:08

На второй картинке невооружённым глазом заметны частые вертикальные полосы. По-моему, стеганография не получилась. Ведь принцип стеганографии — не только спрятать данные в других данных, но спрятать так, чтобы невозможно было определить сам факт упрятывания.

Utter_step Jun 17 2011 at 11:18

странно, ни я ни все люди кого я просил — полос не видели… можно скрин?
отвечу не раньше вечера субботы, заранее извиняюсь.

Devgru Jun 17 2011 at 12:38

>можно скрин?
*FACEPALM*

cblp Jun 17 2011 at 14:46

Попробуйте уменьшить яркость монитора.

Или вот ваша картинка после простого уменьшения освещённости на 25 пунктов в Гимпе:

Utter_step Jun 18 2011 at 23:21

хм, уменьшив яркость не увидел ничего, но уменьшив яркость в -100 — -150 в ШФ становится видно, да. в принципе, белый, да и любой монотонный фон действительно не самое удачный объект.

вот (2.4Мб) немонотонный объект, на нем сколько не извращался — следов «вмешательства не заметил».
файл «забит» полностью.

cblp Jun 19 2011 at 12:51

Наверное, у меня дисплей такой специфический, для криптоаналитиков. Я тоже ни на одном другом полос не увидел.

Show the best of all time