Вверх ↑
Этот топик читают: Гость
Разработчик
Ответов: 25459
Рейтинг: 2070
#31: 2013-01-29 19:09:34 ЛС | профиль | цитата
Gunnman писал(а):
сделали..и получаем результат отличный от того что дает project1_002.zip

Там уже исправленно и выдается нормальная строка, иначе, будет выдавать с двмя нулями впереди.
карма: 19

0
Ответов: 636
Рейтинг: 18
#32: 2013-01-29 19:12:19 ЛС | профиль | цитата
Да это то понятно, нам .pas нужен что бы по нему php сделать
карма: 0

0
Разработчик
Ответов: 25459
Рейтинг: 2070
#33: 2013-01-29 19:17:20 ЛС | профиль | цитата
Ври ваш исправленный pas -- -- удалено --
карма: 19

0
Ответов: 636
Рейтинг: 18
#34: 2013-01-29 19:35:42 ЛС | профиль | цитата
Результат project1_002.zip
9925C758F9CD5801E312FB10DC54B229FF9E6F60B8E3AE4EF738CEFC0DDADB
Результат Hiasm
9925C758F9CD5801E312FB10DC54B229FF9E6F60B8E3AE4EF738CEFC0DDADBBA

nesco, ты сказал "смещает строку результата вправо на один результирующий символ (два символа HEX), а так эти строки идентичны. Вот почему кодирование этого ПО не понимается HiAsm-ом. Нормальная же строка прекрасно декодируется."

Можешь .pas дать поправленный тобой?
------------ Дoбавленo в 19.23:
nesco, я не вру..
------------ Дoбавленo в 19.35:
Наш результат оказывался в 2 раза длиннее в Delphi XE3 из-за кодировки..в XE3 UTF-8
Delphi 7 - один байт на символ в строке
Delphi XE3 - два байта на символ
карма: 0

0
Разработчик
Ответов: 25459
Рейтинг: 2070
#35: 2013-01-29 19:48:40 ЛС | профиль | цитата
Ой, мля, тут уже я ступил. Тк счет идет с 1, то отнимание 1 надо убрать

    for i := 1 to length(FResult) do
Edit5.Text := Edit5.Text + InttoHex(Ord(FResult[i]), 2);

Вот, исправленный -- unit1.zip
карма: 19

0
файлы: 1unit1.zip [1KB] [98]
Ответов: 636
Рейтинг: 18
#36: 2013-01-30 15:01:39 ЛС | профиль | цитата
Всем привет!

В общем долгими усилиями но обработчик сделали)
Отдельное спасибо капитану nesco, который очень помог!
Заказчик PHP файла разрешил его разместить на форуме бесплатно т.к. сам пользуется hiasm)
http://forum.hiasm.com/forum_serv.php?q=56&id=3468
Как работает:
1) Encrypt
В поле key вводим ключ для шифрования, в поле Data вводим данные для шифрования. Выбираем тип шифрования алгоритм SHA или MD5, СНИМАЕМ галку Data is HEX, жмем Encode.
Нужный нам результат содержится в строке Output (hex):
2) Decrypt
В поле key вводим ключ для расшифровки, в поле Data вводим данные для расшифровки. Выбираем тип шифрования алгоритм SHA или MD5, СТАВИМ галку Data is HEX, жмем Decode.
Нужный нам результат содержится в строке Output:

Данный PHP работает с компонентами EnCrypt и DeCrypt Hiasm в режиме AES 256 SHAMD5

Прошу данный обработчик включить в обновления и добавить в SVN.
карма: 0

0
Разработчик
Ответов: 25459
Рейтинг: 2070
#37: 2013-01-30 15:05:50 ЛС | профиль | цитата
Gunnman писал(а):
Прошу данный обработчик включить в обновления и добавить в SVN

Ну, это уже не ко ме, я за php не отвечаю. Да и куда его пихать, ума не приложу
карма: 19

0
Ответов: 636
Рейтинг: 18
#38: 2013-01-30 15:09:22 ЛС | профиль | цитата
nesco, в Web раздел наверно) не кидай тапками знаю что тему изначально не там создал..
карма: 0

0
Разработчик
Ответов: 25459
Рейтинг: 2070
#39: 2013-01-30 15:12:23 ЛС | профиль | цитата
Gunnman писал(а):
Web

Ни разу не спец в этом пакете, увы
карма: 19

0
Ответов: 636
Рейтинг: 18
#40: 2013-01-30 15:14:00 ЛС | профиль | цитата
nesco, ок, к кому обращаться?
карма: 0

0
Разработчик
Ответов: 25459
Рейтинг: 2070
#41: 2013-01-30 16:21:20 ЛС | профиль | цитата
Gunnman писал(а):
к кому обращаться?

Без понятия, кто в нем шарит. Наверное, кто откликнется
карма: 19

0
Ответов: 5446
Рейтинг: 323
#42: 2013-01-30 22:58:36 ЛС | профиль | цитата
nesco, этим пакетом кроме Шефа (Dilma) никто толком и не занимался. Подождём, может он добавит.
карма: 1

0
Ответов: 1048
Рейтинг: 22
#43: 2013-07-29 20:55:55 ЛС | профиль | цитата
Исправленный вариант

Выдавал предупреждение: Warning: mcrypt_encrypt() [function.mcrypt-encrypt]: Attempt to use an empty IV, which is NOT recommend in Z:home***aes.php on line 95

iv забыли дописать в функции
карма: 0

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