|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Ivan Frolkov 2:5020/175.2 13 Oct 2004 17:28:48
To : Artur Penttinen
Subject : Re: функция xor для каждого элемента строки
--------------------------------------------------------------------------------
Wed Oct 13 2004 17:09, Artur Penttinen wrote to Smirnov Alexey:
A>> Hello All! Подскажите пожалуйста новичку, как в Перл сделать
A>> аналог такой конструкции в Си: for( i = 0; i < strlen( pass); i++)
A>> pass[ i] ^= 0xff;
A>> Суть проблемы - есть строка, нужно для каждого символа строки
A>> сделать функцию xor. Как это делается на Перле ?
AP> join "",map { chr ($_^0xff) } split //,$str
Жуть вампирная (да еще и неправильно). А правильно так:
$str =~ s/(.)/chr(ord($1) ^ 0xff)/ge;
А еще более правильно вопрошающему, судя по всему, сказать
perldoc Crypt::CBC
--- ifmail v.2.15dev5
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: функция xor для каждого элемента строки 