Реверс HEX данных

Вверх ↑

Форумы Помощь по пакетуРеверс HEX данных ← Ctrl123 4Ctrl →

Этот топик читают: Гость

Ответов: 16884

Рейтинг: 1239

#16: 2009-04-23 17:02:35 ЛС | профиль | цитата

nesco писал(а):

Я уже представил самый короткий

nesco писал(а):

Скажи лучше -- на кой начинающим скрипты, они в компонентах теряются, им схематехнику изучать надо по-началу

------------ Дoбавленo в 17.05:
andrestudio, там у Copy другие свойства и StrCat по другому включено.

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Разработчик

Ответов: 26163

Рейтинг: 2127

#17: 2009-04-23 17:21:30 ЛС | профиль | цитата

Tad, не передергивай, ты прекрасно знаешь, на что я дал такой ответ
------------ Дoбавленo в 17.24:
Tad, твое решение не совсем корректно, оно четыре раза выставляет в Edit результат. Правильнее сделать так


Add(MainForm,14146611,252,287)
{
 Height=156
}
Add(Edit,4833166,308,287)
{
 Left=5
 Top=10
 Width=380
 Text="99900"
}
Add(Convertor,11845023,308,336)
{
 Mode=6
 Digits=8
 link(onResult,14478331:doValue,[])
 link(Data,4833166:Text,[])
}
Add(Button,1920163,252,336)
{
 Left=170
 Top=35
 link(onClick,11845023:doConvert,[])
}
Add(StrCat,11819214,518,336)
{
 link(Str1,3696289:Var1,[(524,323)(510,323)(510,380)])
}
Add(For,14070483,420,336)
{
 Start=7
 End=1
 Step=-2
 link(onEvent,15439106:doCopy,[])
 link(onStop,12288795:doText,[(463,349)(463,405)])
}
Add(Copy,15439106,469,336)
{
 Count=2
 link(onCopy,11819214:doStrCat,[])
 link(Str,14478331:Value,[(475,323)(407,323)(407,380)(370,380)])
}
Add(Memory,14478331,364,336)
{
 link(onData,14070483:doFor,[])
}
Add(Edit,12288795,518,399)
{
 Left=5
 Top=70
 Width=380
 link(Str,3696289:Var2,[])
}
Add(GetDataEx,3696289,511,371)
{
 link(Data,11819214:Result,[])
}

карма: 22

Администрация

Ответов: 15295

Рейтинг: 1519

#18: 2009-04-23 17:33:38 ЛС | профиль | цитата

nesco писал(а):

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

поддерживаю. Кончаем пихать скрипты во все щели - не для этого они предназначенны совершенно.

карма: 27

https://hiasm.com

Ответов: 16884

Рейтинг: 1239

#19: 2009-04-23 17:37:13 ЛС | профиль | цитата

nesco писал(а):

Tad писал(а)Кто меньше ?
Я уже представил самый короткий

Это был ответ мне.

nesco, твое решение с IC тоже не совсем корректно с точки зрения оптимальности.
Нафига ты четыре раза тревожишь ДВЕ функции Int2Hex(ToIntegerEvent(Data), 8), X, 2

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Разработчик

Ответов: 26163

Рейтинг: 2127

#20: 2009-04-23 17:39:04 ЛС | профиль | цитата

Tad писал(а):

тоже не совсем корректно с точки зрения оптимальности

Я знаю, но я пошел на принцип, в угоду быстродействию -- сделать одной строкой

карма: 22

Ответов: 16884

Рейтинг: 1239

#21: 2009-04-23 17:45:40 ЛС | профиль | цитата

nesco,
Извини, но это не в угоду быстродействию , а в ущерб быстродействию IC

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Администрация

Ответов: 15295

Рейтинг: 1519

#22: 2009-04-23 17:57:55 ЛС | профиль | цитата

nesco, Tad, обоих до звания Участник понижать надо. Написал же черным по белому правильное решение задачи и условия ее реализации:

Dilma писал(а):

на самом деле если б у нас парсер поддерживал бинарные команды shl, shr и and то можно в одном элементе было б сделать

в IC это эквивалентно коду


#pas
procedure THiAsmClass.doConvert;
var d:cardinal;
begin
  d := ReadInteger(_Data, Data); 
  _hi_onEvent(onResult, Int2Hex((d and $FF shl 24) + (d and $FF00 shl 8) + (d and $FF0000 shr 8) + (d and $FF000000 shr 24), 8));
end;

карма: 27

https://hiasm.com

Разработчик

Ответов: 26163

Рейтинг: 2127

#23: 2009-04-23 18:07:53 ЛС | профиль | цитата

Dilma писал(а):

Написал же черным по белому правильное решение задачи и условия ее реализации

А я не придал этому большого значения

карма: 22

Ответов: 16884

Рейтинг: 1239

#24: 2009-04-23 18:19:56 ЛС | профиль | цитата

Dilma, я не думал, что это ко мне относится - я скриптами не баловался.

Вот nesco выступил против применения цикла.
nesco, на без цикла:
code_12958.txt
Правда 9-компонент.

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

файлы: 1

code_12958.txt [1KB] [222]

Разработчик

Ответов: 26163

Рейтинг: 2127

#25: 2009-04-23 18:37:07 ЛС | профиль | цитата

А вот реализация алгоритма от Dilm-ы на дискретных компонентах


Add(Edit,1122164,203,259)
{
 Left=5
 Top=10
 Width=380
 Text="99900"
}
Add(Edit,3239374,623,329)
{
 Left=5
 Top=60
 Width=380
 Text=""
}
Add(Button,11228743,154,329)
{
 Left=170
 Top=35
 link(onClick,4079813:doOperation,[])
}
Add(Math,4079813,203,329)
{
 OpType=4
 Op2=255
 ResultType=0
 link(onResult,11511185:doOperation,[])
 link(Op1,7304958:Var2,[])
}
Add(Math,11511185,245,329)
{
 OpType=9
 Op2=24
 ResultType=0
 link(onResult,12815869:doOperation,[])
}
Add(Math,12815869,287,329)
{
 OpType=4
 Op2=65280
 ResultType=0
 link(onResult,15235056:doOperation,[])
 link(Op1,14016338:Var2,[])
}
Add(GetDataEx,7304958,196,301)
{
 link(Data,1122164:Text,[])
}
Add(Math,15235056,329,329)
{
 OpType=9
 Op2=8
 ResultType=0
 link(onResult,1706254:doOperation,[])
}
Add(Math,1706254,371,329)
{
 OpType=4
 Op2=16711680
 ResultType=0
 link(onResult,12332183:doOperation,[])
 link(Op1,9188497:Var2,[])
}
Add(Math,12332183,413,329)
{
 OpType=10
 Op2=8
 ResultType=0
 link(onResult,11539995:doOperation,[])
}
Add(Math,11539995,455,329)
{
 OpType=4
 Op2=4278190080
 ResultType=0
 link(onResult,4423827:doOperation,[])
 link(Op1,9188497:Var3,[(461,310)])
}
Add(Math,4423827,497,329)
{
 OpType=10
 Op2=24
 ResultType=0
 link(onResult,2947253:doCalc,[])
}
Add(Convertor,3614114,581,329)
{
 Mode=6
 Digits=8
 link(onResult,3239374:doText,[])
}
Add(MainForm,2931390,154,259)
{
 Height=150
}
Add(MathParse,2947253,539,329)
{
 DataCount=4
 MathStr="%1 + %2 + %3 + %4"
 link(onResult,3614114:doConvert,[])
 link(X1,11511185:Result,[(545,317)(398,317)(398,373)(251,373)])
 link(X2,15235056:Result,[(552,317)(444,317)(444,373)(335,373)])
 link(X3,12332183:Result,[(559,317)(489,317)(489,373)(419,373)])
}
Add(GetDataEx,9188497,364,301)
{
 Angle=3
 link(Data,14016338:Var3,[])
}
Add(GetDataEx,14016338,280,301)
{
 Angle=3
 link(Data,7304958:Var3,[])
}

Ни фига себе просто

Зато, в одну линию

карма: 22

Ответов: 4641

Рейтинг: 334

#26: 2009-04-23 18:37:20 ЛС | профиль | цитата

Tad писал(а):

Вот nesco выступил против применения цикла

продолжаем играться. Игра элементами
code_12959.txt

карма: 1

Время верстки: %cr_time% Текущее время: %time%

файлы: 1

code_12959.txt [1.6KB] [156]

Разработчик

Ответов: 26163

Рейтинг: 2127

#27: 2009-04-23 18:39:29 ЛС | профиль | цитата

Ага, вот таймера, там точно не хватало

карма: 22

Ответов: 16884

Рейтинг: 1239

#28: 2009-04-23 18:42:20 ЛС | профиль | цитата

Dilma писал(а):

nesco, Tad, обоих до звания Участник понижать надо.

Ну и кто от этого выиграет или проиграет ?
В бытность советником:
1. - давил на + и человек получал 3 очка, сейчас получает 2. В проигрыше человек, а на мне очки никак не отразились.
2. выкладывал в Публикатор схемы. Сейчас не выкладываю. Нет желания потому, что категория безопасности - Medium.
Вот здесь вопрос о выигравших и проигравших спорный. Вроде пользователи выиграли, что не мучаю их своими схемами, а может проиграли, что не видят моих шедевров.

. И опять же на мне это никак не отразилось.

------------ Дoбавленo в 18.46:

nesco писал(а):

Зато, в одну линию

и очень понятно для начинающего.

и 16 компонент

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 5227

Рейтинг: 587

#29: 2009-04-23 18:49:20 ЛС | профиль | цитата

Dilma писал(а):

Кончаем пихать скрипты во все щели - не для этого они предназначенны совершенно.

Dilma, вот просто ради интереса за что такоё отношение к встроеным средствам администрирования

Тут изменить порядок считывания этих пар (вразнобой допустим) и многие схемы пришли в негодность. А в моём примере достаточно было несколько цифр сменить.
Где криминал то

Пример то проще некуда был там блудить обсолютно негде, коментарий написать и всё.

карма: 4

Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...

Ответов: 16884

Рейтинг: 1239

#30: 2009-04-23 18:57:24 ЛС | профиль | цитата

andrestudio, но ты заметил, что я против не выступал.
Каждый решает возникшую проблему самостоятельно.
И кому нравится поп, а кому попадья - это его дело.
Ты предложил вариант, который ИМХО имеет тоже право на жизнь.
Тем более, что компонент, использованный тобой, из стандартной палитры.

Dilma писал(а):

Кончаем пихать скрипты во все щели - не для этого они предназначенны совершенно.

А для чего они предназначены?
Где-то есть список их допустимого использования ?

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Форумы Помощь по пакетуРеверс HEX данных ← Ctrl123 4Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)