Получение двоичного кода файла

Лучше python использовать там есть режим чтения (и записи) байтов из файла.

myfile=open(/home/user/file.bin . 'rb')

Вопрос: как прочитать файл именно в том виде каким его воспринимает процессор? Через binmode?

Имеете в виду, в том виде, в котором он записан на диске? Используйте ":raw" PerlIO layer.

Подскажите, что можно использовать или может как то вызвать встроенные функции линукса

В смысле, писать модули на C (и дёргать оттуда syscall'ы)? Погуглите «Perl XS», почитайте man perlapi, посмотрите на Inline::C.

Начните с реализации алгоритма XOR (A xor key = crypted; crypted xor key = A).

А для реального шифрования используйте gpg (например, gpg -c).

Алгоритма XOR хватит если его по умному применить. Вот так правильно

myfile=open('/home/user/file.bin' . 'rb')

Вариант, но его я тока начинаю изуать а с Perl уже более-менее знаком.... Вот и хотел из него что-нибудь выдепить этакое. Но все равно спасибо.

Дело в том что я вчера бездельничая на работе, начал писать скрипт для шифрования. Получалось шифрование в 6 проходов, это вполне достаточно imho.

Ну,не особо бездельниать некогда, но вот тут как то.... Просто интересно. Охота именно выудить файл, как «он есть», оббрусфцировать его, присыпать солью..... Не пользоваться тем что уже написано, а состряпать свой «велосипед»..... Пойду опять в гугл, ему много что ведомо..... Я вот файл попробовал обработать

$file2 = unpack («B*», $file);

получил свои долгожданные нолиики-единички, но при обратной процедуре

$file2 = pack («B*», $file);

обломался. Файл в первоначальное состояние возвращаться не хочет.

Я в perl увы ничего не понимаю.

Не используйте pack() на больших значениях. Для сдвига битов напишите код на C, поскольку работа с отдельными битами на Perl (особенно с использованием pack() и unpack()) довольно медленна.

А зачем биты сдвигать?

perl -E '$a=unpack(«b*», «x»); say $a; say pack(«b*», $a)'
perl -E '$c=«a»^«b»; say $c; say $c^«b»; say $c^«a»'
perl -e 'printf «%08b & %08b = %08b\n», 10,1,10&1'

local $/;
open F, '+>./file.dat' or die $!;
binmode F;
my $data = <F>;
# do smth.
print F $data;
close F;

М.б. так?

P.S. Не смог до конца понять что требуется, ибо топик старт написан одним куском.

Ну и вообще для операций с битами. ТС, похоже, хочет именно их.

Достаточно операций с байтами imho
Необязательно аж прям к битам обращаться.

Как то так вообщем:

d=[]                                                         #предположим что все данные у нас в этом списке
i=0
axor=85
ixor=3
while i<len(d):
    d[i]=d[i]^axor
    axor=axor+ixor
    i+=1
     if axor>255:
        axor=axor-256