[AVL]

Всем привет!
Я новичок. Профессионально заниматься программированием не собираюсь, ибо поздновато это уже мне для зарабатывания денег (сыну 16 лет уже), а вот для самообразования и для решения мелких житейских задач программирование мне интересно.
Ближе к делу.
Начинаю разбираться с Дельфи. И для интереса решил реально нужную в жизни мне задачу поставить и с Вашей помощью её решить.
Что надо:
1. Ввести число в ХЕКС счислении (к примеру B8 B5 1F 00 ).
2. Развернуть его задом на перёд (00 1F B5 B8).
3. Поменять местами полубайты в байтах (00 F1 5B 8B).
4. XOR FFFFFFFF (FF E0 4A 47).
5. Перевести в ДЕКС (4292889159)
Или, что б долго не рассказывать, то сделать что-то похожее, как на рисунке.

Calc.jpg
Поможете мне сделать ЭТО?
Спасибо!

[angvelem]

Сообщение от AVL

... (сыну 16 лет уже), ...

И что? Моему уже 30.

[lmikle]

>1. Ввести число в ХЕКС счислении (к примеру B8 B5 1F 00 ).
Ну, тут достаточно контроля при вводе (разрешены для ввода только 0-9,A-F) и то, что кол-во введенных символов четно (length(edit1.text) div 2 = 0).

>2. Развернуть его задом на перёд (00 1F B5 B8).
Тоже легко. Хотя я бы сначала разбил бы строку на пары символов, потом бы разворачивал.

>3. Поменять местами полубайты в байтах (00 F1 5B 8B).
ну тут совсем просто, если учесть, что мы уже работаем со списком строк, в каждой из которых по 2 символа.

>4. XOR FFFFFFFF (FF E0 4A 47).
>5. Перевести в ДЕКС (4292889159)
Вот тут лучше сразу перевести в DEC (HexToInt) и потом сделать XOR.


Вообще, если нужно реализовать конкретный алгоритм (описанный по шагам), то это довольно просто. А вот если надо сделать нечто, что может выполнять набор операций, заранее не заданный, то тут немного сложнее.

Задавай конкретные вопросы, бум помогать.

[Dmitry_DM]

Я думаю вам может помочь приложенный ниже калькулятор. Он может все. Но не может выполнять действия, описаны в п. 3,4,5. Я этим калькулятором давно пользуюсь, мне помогает, полностью подходит. Надеюсь вам тоже чем-то поможет.

[AVL]

Всем спасибо.
Начну писать и задавать КОНКРЕТНЫЕ вопросы.
В идеале - задача сложнее обстоит.
А именно, взять файл с данными (внутри ХЕКС данные) и последовательно перебирать содержимое этого файла в поисках значения закодированного по определённому алгоритму.
Алгоритм кодировки - известен.
Он, к примеру, такой:
Берём ДЕЦ значение, делим на 20, переводим в ХЕКС, разворачиваем данные задом наперёд.
Так вот данные в ДЕЦ нам известны. Их надо найти в ХЕКС, в этом файле, в нескольких местах.
Я это делаю обычним инженерным кальком за 7 секунд. Но, поскольку я решил изучить Дельфи в нужных для меня, неболших объёмах, то и решил выбратьреально нужную для меня задачу, а не абстрактный калькулятор какой-нибудь или автоматический выключатель компа с мобильного телефона...

[M.A.D.M.A.N.]

Используй TFileStream, в нем бегай на нужную позицию, данные можно вычитать fs.read(i {переменная назначения}, 4 {сколько байт вычитывать}) (чтение big-endian). если надо в десятичное значение, просто inttostr(i).

[angvelem]

Набросал пример, но один пункт не понял - сам увидишь какой.

[AVL]

Сообщение от angvelem

Набросал пример, но один пункт не понял - сам увидишь какой.

Спасибо! Мне для старта самое оно, тем более, что кальк не работает как надо, соответственно есть стимул мне для понимания сути процесса
На фото слева как должно быть, а на фото справа то - что у нас получается.

[angvelem]

Сдвиг вправо на 5, это деление на 32. Для такого случая результат верный.

[AVL]

Сообщение от angvelem

Сдвиг вправо на 5, это деление на 32. Для такого случая результат верный.

Да, Вы ПРАВЫ. Я не учёл сдвиг. Я попросту его не видел, а не видел потому, что принцип работы у этих двух кальков РАЗНЫЙ.
Когда я в своём нажимаю "ОК" то кальк СВОРАЧИВАЕТСЯ. В Вашем - по нажатии "ОК" кальк делает РАССЧЁТ.
В моём кальке, как толко я ставлю галочку или ввожу число в окно ввода СРАЗУ меняются ВСЕ результаты, кнопку "ОК" жать не надо вообще, ибо, по указаной мною выше причине, её более уместным было б назвать "ВЫХОД".
Как переделать алгоритм реакции на постановку "галочки" в окошке НАШЕГО калькулятора?
Спасибо!

[angvelem]

Использовать OnClick каждого CheckBox-а. Я сначала так и хотел сделать, но меня как раз и смутила упомянутая кнопка.

[AVL]

Сообщение от angvelem

Использовать OnClick каждого CheckBox-а. Я сначала так и хотел сделать, но меня как раз и смутила упомянутая кнопка.

Ясно. Спасибо. Думаю, что теперь сам с этим разберусь.
Теперь смотрим дальше, что не так.
-------------
1. Имеем изначально 01 Е2 40.
Но Вы его прописываете дальше как 00 01 Е2 40 (спереди два не значящих нуля появляются у Вас).
И когда делаем ОБРАТНЫЙ ПОРЯДОК БАЙТ, то эти два нуля уже имеют значение и получаем громадное число. 40 Е2 01 00 вместо 40 Е2 01.
Как исправить ЭТО. Я б сам хотел это сделать после вашей подсказки.
-------------
2. Инвертирование.
У Вас вообще ничего не происходит.
FF FF FF FF - 01 Е2 40 = FE 1D BF.
При этой операции результат является (не знаю как это сказать по русски, я украинец), но Вы должны понять из моего примера.

[angvelem]

Сообщение от AVL

Имеем изначально 01 Е2 40.

Теперь посмотрим как это число хранится в памяти. Так - 0001E240, теперь перевернём - 40E20100. И это не моя задумка. В ассемблере имеется специальная команда производящая это действие.

(Byte SWAP)
Перестановка байтов

Назначение:
изменение порядка следования байтов;
переход от одной формы адресации к другой.
Под формой адресации здесь понимается принцип "младший байт по младшему адресу" или обратный ему. Существует ряд систем, например использующих микропроцессоры Motorola или большие ЭВМ, где применяется принцип размещения многобайтовых значений обратный тому, который используется в микропроцессорах Intel. Поэтому эту команду можно использовать для разработки программ-конверторов между подобными платформами и IBM РС.

[AVL]

Сообщение от angvelem

Использовать OnClick каждого CheckBox-а. Я сначала так и хотел сделать, но меня как раз и смутила упомянутая кнопка.

Поправил, как Вы сказали.
Теперь изменение в чекбоксе сразу выдаёт результат.
Но СДВИГ влево и вправо так просто переделать не удаётся, там надо две команды выполнить, на сколько я понял.
Пробую разобраться.

[AVL]

Сообщение от angvelem

Теперь посмотрим как это число хранится в памяти. Так - 0001E240, теперь перевернём - 40E20100. И это не моя задумка. В ассемблере имеется специальная команда производящая это действие.

Значит, надо в памяти хранить как 01E240, а не как 0001E240.
Ибо все дальнейшие рассчёты не имеют смысла при таком результате: 40E20100.