Вверх ↑
Разработчик
Ответов: 26161
Рейтинг: 2127
#1: 2013-04-01 19:42:44 ЛС | профиль | цитата
Берем схему Леонида и прилепляем к ней контроль по MD5

Add(MainForm,591829,175,203)
{
Point(onClose)
link(onCreate,3918034:doEvent1,[(214,223)(214,209)])
link(onClose,12671262:doSave,[])
}
Add(Button,15833385,168,329)
{
Left=20
Top=50
Width=100
Height=22
Caption="Войти"
link(onClick,6021352:doEvent1,[])
}
Add(Edit,15115653,357,266)
{
Left=5
Top=21
Width=255
Text="12345"
Password=0
ClearAfterEnter=1
link(onEnter,6021352:doEvent2,[(445,279)(445,412)(235,412)(235,342)])
}
Add(If_else,4658087,329,329)
{
Op2=String(12345)
link(onTrue,10768938:doOff,[])
link(onFalse,14200650:doEvent1,[])
link(Op2,12332918:Item,[(342,306)(293,306)])
}
Add(Hub,6021352,245,329)
{
InCount=2
OutCount=1
link(onEvent1,14238770:doHashsum,[])
}
Add(Message,14951369,406,371)
{
Message="пароль введен не верно!"
Icon=3
}
Add(Edit,6925702,357,189)
{
Left=55
Top=180
Width=100
Text="54321"
}
Add(Button,10100688,168,273)
{
Left=20
Top=155
Width=165
Caption="Установить новый пароль"
link(onClick,16430796:doHashsum,[])
}
Add(LED,10768938,406,322)
{
Left=185
Top=80
ColorOff=32768
Value=0
}
Add(Hub,14200650,371,336)
{
link(onEvent1,10768938:doOn,[])
link(onEvent2,14951369:doMessage,[(396,349)(396,377)])
}
Add(StrList,12671262,273,189)
{
FileName="pw.ini"
Strings=#32:827CCB0EEA8A706C4C34A16891F84E7B|
}
Add(ArrayRW,12332918,287,266)
{
link(Array,12671262:Array,[])
link(Index,1355439:Value,[(300,249)(321,249)])
}
Add(Memory,1355439,315,189)
{
Default=Integer(0)
}
Add(Hub,3918034,224,203)
{
link(onEvent1,12671262:doLoad,[(263,209)(263,223)])
link(onEvent2,12332918:doRead,[(249,216)(249,272)])
}
Add(Hashsum,14238770,280,329)
{
link(onResult,4658087:doCompare,[])
link(Data,15115653:Text,[(286,320)(363,320)])
}
Add(Hashsum,16430796,217,273)
{
link(onResult,12332918:doWrite,[])
link(Data,6925702:Text,[(223,257)(363,257)])
}


карма: 22

0