Вверх ↑
Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
#16: 2013-01-29 15:09:59 правка | ЛС | профиль | цитата


Редактировалось 4 раз(а), последний 2017-06-21 00:51:03
карма: 0

0
Разработчик
Ответов: 25376
Рейтинг: 2070
#17: 2013-01-29 15:54:35 ЛС | профиль | цитата
Запускной файл после компиляции кинь, а то у меня нет используемых модулей VCL, у меня только дефолтный делфи7
------------ Дoбавленo в 15.45:
Все, нашел, отбой
------------ Дoбавленo в 15.54:
Че-то ваше ПО у меня не работает

bug_aesencode_001.png
карма: 19

0
файлы: 1bug_aesencode_001.png [56.8KB] [218]
Гость
Ответов: 17029
Рейтинг: 0
#18: 2013-01-29 16:01:00 правка | ЛС | профиль | цитата


Редактировалось 4 раз(а), последний 2017-06-21 00:51:04
карма: 0

0
Разработчик
Ответов: 25376
Рейтинг: 2070
#19: 2013-01-29 16:04:29 ЛС | профиль | цитата
host-109-235-189-9.bisv.r писал(а):
В архиве лежит в одной из папок Project1.exe

Уже ответил, но не работает она у меня, ошибка приведена выше. Скрин результа работы кинь
карма: 19

0
Гость
Ответов: 17029
Рейтинг: 0
#20: 2013-01-29 16:06:51 правка | ЛС | профиль | цитата


Редактировалось 4 раз(а), последний 2017-06-21 00:51:04
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#21: 2013-01-29 16:07:36 правка | ЛС | профиль | цитата


Редактировалось 4 раз(а), последний 2017-06-21 00:51:05
карма: 0

0
Разработчик
Ответов: 25376
Рейтинг: 2070
#22: 2013-01-29 16:12:34 ЛС | профиль | цитата
host-109-235-189-9.bisv.r писал(а):
Вот собсно эту ошибку и дает CryptoAPI

А вот HiAsm работает и никаких ошибок не выдает

Add(MainForm,2953706,70,63)
{
Width=562
Height=171
Position=1
}
Add(EnCrypt,4619222,203,126)
{
Mode=7
Point(onError)
link(onEnCrypt,11583020:doConvert,[])
link(Data,8570117:Var2,[])
link(Key,3791779:Var2,[])
}
Add(Edit,6416427,210,63)
{
Left=5
Top=10
Width=205
Font=[Verdana,8,0,0,204]
Text="12345678"
}
Add(Edit,5964363,168,63)
{
Left=5
Top=30
Width=205
Font=[Verdana,8,0,0,204]
Text="abcdefghijklmnopq"
}
Add(Edit,3425068,357,168)
{
Left=5
Top=50
Width=535
Font=[Verdana,8,0,0,204]
Text=""
}
Add(Edit,9981670,322,126)
{
Left=5
Top=70
Width=535
Font=[Verdana,8,0,0,204]
Text=""
}
Add(StreamConvertor,11583020,259,126)
{
Mode=2
link(onResult,9981670:doText,[])
}
Add(StreamConvertor,2392511,266,168)
{
Mode=2
link(onResult,3425068:doText,[])
link(Data,8570117:Var3,[(272,110)])
}
Add(Hub,14555041,133,119)
{
OutCount=3
link(onEvent1,2392511:doConvert,[(176,125)(176,174)])
link(onEvent2,4619222:doEnCrypt,[])
link(onEvent3,10944467:doConvert,[(157,139)(157,244)])
}
Add(GetDataEx,8570117,203,105)
{
Angle=3
link(Data,5964363:Text,[(174,110)])
}
Add(Button,7304813,70,119)
{
Left=480
Top=10
TabOrder=-1
Caption="Get Hash"
link(onClick,14555041:doEvent1,[])
}
Add(StreamConvertor,10944467,168,238)
{
Mode=3
link(onResult,12672991:doDeCrypt,[])
link(Data,9981670:Text,[(174,210)(328,210)])
}
Add(DeCrypt,12672991,231,238)
{
Mode=7
link(onDeCrypt,11231242:doText,[])
link(Key,3791779:Var3,[(244,117)])
}
Add(GetDataEx,3791779,210,112)
{
link(Data,6416427:Text,[])
}
Add(Edit,11231242,294,238)
{
Left=5
Top=105
Width=205
Font=[Verdana,8,0,0,204]
Text=""
}


И никаких ошибок CryptoAPI, что я делаю не так

Вот только мне одного непонятно -- nы тащишь сюда код, говоришь, что он работает не так, а выясняется, что он вообще не работает. Где логика Ты понимаешь, что я даже сравнить результаты не могу
карма: 19

0
Гость
Ответов: 17029
Рейтинг: 0
#23: 2013-01-29 16:23:45 правка | ЛС | профиль | цитата


Редактировалось 4 раз(а), последний 2017-06-21 00:51:06
карма: 0

0
Разработчик
Ответов: 25376
Рейтинг: 2070
#24: 2013-01-29 16:38:33 ЛС | профиль | цитата
Таак. Удалось запустить твое ПО, перекомпилировав его. Вот результат

aes_256_001_d.png

и вот результат моей схемы

aes_256_001_h.png

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

Вывод: передай привет своим кодерам, ни делфи, ни HiAsm тут совсем не причем
карма: 19

0
файлы: 2aes_256_001_d.png [43.5KB] [232], aes_256_001_h.png [22.6KB] [238]
Гость
Ответов: 17029
Рейтинг: 0
#25: 2013-01-29 16:43:38 правка | ЛС | профиль | цитата


Редактировалось 4 раз(а), последний 2017-06-21 00:51:07
карма: 0

0
Разработчик
Ответов: 25376
Рейтинг: 2070
#26: 2013-01-29 16:58:37 ЛС | профиль | цитата
Вот где ошибка

У кодера

    for i := 0 to length(FResult) - 1 do
Edit5.Text := Edit5.Text + InttoHex(Ord(FResult[i]), 2);
а нужно

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

Строки не считаются с нулевого символа в делфи

-- Удалено, См. ниже --
карма: 19

1
Голосовали:Gunnman
Гость
Ответов: 17029
Рейтинг: 0
#27: 2013-01-29 17:00:10 правка | ЛС | профиль | цитата


Редактировалось 4 раз(а), последний 2017-06-21 00:51:07
карма: 0

0
Разработчик
Ответов: 25376
Рейтинг: 2070
#28: 2013-01-29 17:03:36 ЛС | профиль | цитата
На лучше вот эту, у ней можно результирующую строку скопировать -- project1_002.zip
карма: 19

0
файлы: 1project1_002.zip [275.9KB] [121]
Гость
Ответов: 17029
Рейтинг: 0
#29: 2013-01-29 17:07:39 правка | ЛС | профиль | цитата


Редактировалось 4 раз(а), последний 2017-06-21 00:51:09
карма: 0

0
Ответов: 633
Рейтинг: 18
#30: 2013-01-29 18:55:45 ЛС | профиль | цитата
nesco, а можно еще .pas? оч нужен..чет тупим..
for i := 1 to length(FResult) - 1 do
Edit5.Text := Edit5.Text + InttoHex(Ord(FResult[i]), 2);

сделали..и получаем результат отличный от того что дает project1_002.zip
карма: 0

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