Вверх ↑
Ответов: 6
Рейтинг: 0
#1: 2017-01-20 19:02:27 ЛС | профиль | цитата
доброе время суток
Подскажите пожалуйста, для дешифровки строки собрал схемку
Что не так, rc4 обработка срабатывает, а по AES ни в какую...
Make(delphi)ver(4.05 build 186)
Add(MainForm,2953706,126,259)
{
Width=365
Height=225
Caption="Encrypt_Decrypt Data"
Position=1
}
Add(Edit,4117780,497,497)
{
Left=90
Top=10
Width=255
Font=[MS Sans Serif,8,1,0,204]
Cursor=1
WinStyle=2
Text="project_hiasm"
}
Add(Edit,8331896,651,623)
{
Left=90
Top=135
Width=255
Font=[Courier New,8,0,0,204]
Cursor=1
TabOrder=-1
WinStyle=2
Text=""
ReadOnly=0
}
Add(Button,15489552,140,483)
{
Left=150
Top=160
Width=70
Font=[MS Sans Serif,8,1,0,1]
TabOrder=-1
Caption="Decrypt"
link(onClick,8724897:doDeCrypt,[(331,489)(331,629)])
}
Add(DeCrypt,8724897,490,623)
{
Mode=7
link(onDeCrypt,8331896:doText,[])
link(DataCrypt,11544278:Text,[(496,576)(272,576)])
link(Key,4117780:Text,[])
}
Add(Edit,11544278,266,497)
{
Left=55
Top=85
Width=255
Font=[MS Sans Serif,8,1,0,204]
Cursor=1
WinStyle=2
Text="5kYVjut+J7G3CZmoE2hJ7A=="
ClearAfterEnter=1
}
карма: 0

0
Редактировалось 7 раз(а), последний 2017-01-20 19:07:28