VPF::Работа с HEX числами - Форум программистов

edgik

Дата 1.12.2007, 12:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 25.11.2007

Репутация: нет
Всего: нет

Имеем 2 HEX числа, которые были получены путем суммирования нескольких: 2f8 и 4C4 Необходимо вычислить контрольную сумму, которая вычсиляется след. образом: от младшего числа 4C4 откусывается 2 символа, и получаем C4, а второе число контрольной суммы получаем путем
суммирования того, что осталось от первого, т.е. 4 с 2F8 и получаем 2FC, от которого откусываем опять же FC и получаем в итоге контрольную сумму FC C4.

Первое что пришло в голову это пооткусывать через

Код



substr($i,-2,1);
substr($i,0,1);

substr($y,-2,1);
substr($y,0,1);

а потом уже суммировать. А красивее решения для вычисления нет?
Вдобавок кстати число может быть и не 3 разрядное, а например 4 FCDF, тут к substr придется еще и вычисление количества символов в
HEX добавить.

nitr

Дата 1.12.2007, 13:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84

Может посмотреть в сторону модулей?

Как варинат http://search.cpan.org/~olimaul/Digest-CRC...b/Digest/CRC.pm

--------------------

I love ArchLinux

amg

Дата 1.12.2007, 13:56 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1145
Регистрация: 3.8.2006
Где: Новосибирск

Репутация: 38
Всего: 50

Замысловато и, скорее всего, не эффективно:

Код


$_= '2f8 4C4';
$s = '';
1 while s{(?:^|(\S+)\s+)(\S*)(\S\S)$}
         {$s="$3 $s"; sprintf "%X", hex($1||0)+hex($2||0)}e;
print $s;

edgik

Дата 2.12.2007, 08:55 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 25.11.2007

Репутация: нет
Всего: нет

Цитата(nitr @ 1.12.2007, 13:49)

Может посмотреть в сторону модулей?

http://search.cpan.org/~olimaul/Digest-CRC...b/Digest/CRC.pm

Не, у меня готовый алгоритм вычисления, мне надо под него подстраиваться.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »