Вверх ↑
Этот топик читают: Гость
Ответов: 21
Рейтинг: 3
#1: 2013-01-21 17:10:39 ЛС | профиль | цитата
Доброго времени суток!
Подскажите возможно ли реализовать в среде HiAsm следующие. При открытии созданной программы выпадаем окно с вводом пароля своеобразная защита от посторонних. В случае правильного ввода пароля программа успешно открывается.
карма: 0

0
Разработчик
Ответов: 26324
Рейтинг: 2147
#2: 2013-01-21 17:21:16 ЛС | профиль | цитата
Тю!

Add(MainForm,2953706,203,98)
{
Visible=1
Position=1
Point(doVisible)
link(onCreate,15591400:doPass,[])
}
Add(ChildFormEx,15591400,273,112)
{
link(onTrue,2953706:doVisible,[(334,118)(334,79)(181,79)(181,132)])
}
BEGIN_SDK
Add(EditMultiEx,7613607,21,21)
{
WorkCount=#6:doPass|
EventCount=#6:onTrue|
Width=356
link(doPass,420551:doShowModal,[(53,27)(53,146)])
}
Add(MainForm,420551,84,112)
{
Left=35
Top=105
Width=319
Height=119
Visible=1
Position=1
Point(doShowModal)
}
Add(Edit,2935332,161,56)
{
Left=20
Top=20
Width=260
Text=""
Password=0
link(onEnter,11712562:doHashsum,[(205,69)(205,37)(147,37)(147,125)])
}
Add(Hashsum,11712562,161,119)
{
link(onResult,11975890:doCompare,[])
link(Data,2935332:Text,[])
}
Add(If_else,11975890,231,119)
{
link(onTrue,8574456:doEvent1,[])
link(onFalse,12707242:doMessage,[(274,132)(274,160)])
link(Op2,726434:Value,[])
}
Add(Memory,726434,238,56)
{
@Hint=#17:Password HashSumm|
Default=String(E10ADC3949BA59ABBE56E057F20F883E)
AddHint(115,-25,118,13,@Hint)
}
Add(Hub,8574456,280,119)
{
link(onEvent1,420551:doClose,[(305,125)(305,27)(67,27)(67,139)])
link(onEvent2,7613607:onTrue,[(336,132)(336,27)])
}
Add(Message,12707242,315,154)
{
Message="Incorrect Password"
Caption="Error"
}
END_SDK


Пароль 123456. Вариант со статическим паролем. Для изменяемого надо проверять список HAshSumm, заготовленный ранее по допустимым паролям, или подставлять HashSumm извне
карма: 22

1
Голосовали:ONaSn
Ответов: 21
Рейтинг: 3
#3: 2013-01-21 19:31:38 ЛС | профиль | цитата
nesco, спасибо
------------ Дoбавленo в 19.31:
nesco, а как изменить пароль 123456? В компоненте Memory я изменил на свои данные например 1256. Но когда запускаю программу и пишу новый пароль "1256" ничего не происходит
карма: 0

0
Ответов: 117
Рейтинг: 1
#4: 2013-01-21 19:41:09 ЛС | профиль | цитата
ONaSn писал(а):

Там идет проверка хеш-суммы пароля, т.е чтобы поставить свой, надо предварительно сгенерировать его хеш.
Ну а если проще без заморочек, то удалить компонент md5 и тогда в Memory просто писать нужный пароль.

code_30138.txt
карма: 0

0
файлы: 1code_30138.txt [1.1KB] [142]
Разработчик
Ответов: 26324
Рейтинг: 2147
#5: 2013-01-21 19:57:42 ЛС | профиль | цитата
Mr.Tiesto писал(а):
надо предварительно сгенерировать его хеш

Я же про это и написал
nesco писал(а):
заготовленный ранее по допустимым паролям


Mr.Tiesto писал(а):
тогда в Memory просто писать нужный пароль

И который потом очень просто прочитать в теле программы
карма: 22

0
Ответов: 258
Рейтинг: -27
#6: 2013-01-21 20:04:49 ЛС | профиль | цитата
а нет компонента который зашифрует весь текст в программе ? (как это делают крипторы/пакеры)
карма: 0

0
Ответов: 117
Рейтинг: 1
#7: 2013-01-21 20:16:23 ЛС | профиль | цитата
nesco писал(а):
И который потом очень просто прочитать в теле программы

Задачей поставлено небыло) Предложил попроще вариант.
карма: 0

0
Ответов: 21
Рейтинг: 3
#8: 2013-01-21 20:18:27 ЛС | профиль | цитата
Вот сменил пароль на 55555 md5: c5fe25896e49ddfe996db7508cf00534 все равно не проходит

code_30141.txt
карма: 0

0
файлы: 1code_30141.txt [1.3KB] [128]
Ответов: 117
Рейтинг: 1
#9: 2013-01-21 20:21:07 ЛС | профиль | цитата
C5FE25896E49DDFE996DB7508CF00534
Учитывай регистр!
карма: 0

0
Ответов: 21
Рейтинг: 3
#10: 2013-01-21 20:35:11 ЛС | профиль | цитата
Cubone, присоединяюсь к вопросу
карма: 0

0
Разработчик
Ответов: 26324
Рейтинг: 2147
#11: 2013-01-21 20:38:28 ЛС | профиль | цитата
ONaSn писал(а):
присоединяюсь к вопросу

md5 не декодируется обратно. Для шифрования нужно использовать компоненты из вкаладки Инструменты -> Криптография или сторонние компоненты криптографии
карма: 22

0
Ответов: 27
Рейтинг: 2
#12: 2013-01-22 19:25:53 ЛС | профиль | цитата
[offtop]Лучше придумывать по сложнее пароли на удивление данный сервис http://www.md5decrypter.co.uk/ разгадал хэш C5FE25896E49DDFE996DB7508CF00534[/offtop]
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#13: 2013-01-22 21:00:50 ЛС | профиль | цитата
Recosh, не надо удивляться - против лома нет приёма.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
13
Сообщение
...
Прикрепленные файлы
(файлы не залиты)