Вверх ↑
Ответов: 845
Рейтинг: 19
#1: 2010-03-17 18:46:37 ЛС | профиль | цитата
Должен

------------ Дoбавленo в 18.48:
облегчёная

Add(Cryptography,12676423,364,63)
{
Key="ov4ut6kvlfgbhg5574fghgfhdggb0656gf4hg41g5g5"
link(onCrypt,14962834:doConvert,[])
}
Add(Button,961380,21,63)
{
Left=5
Top=5
Width=125
Height=25
Caption="Закриптовать файл"
link(onClick,916582:doExecute,[])
}
Add(Convertor,14982910,315,63)
{
Mode=11
link(onResult,12676423:doCrypt,[])
}
Add(FileStream,1987350,266,63)
{
link(onLoad,14982910:doConvert,[])
link(FileName,3017160:Value,[(272,51)(161,51)(161,107)(125,107)])
}
Add(Convertor,14962834,413,63)
{
Mode=12
link(onResult,54924:doOpen,[])
}
Add(FileStream,54924,468,63)
{
Mode=2
AutoCopy=0
Point(doCopyFromStream)
link(FileName,4583092:Value,[(474,118)(223,118)])
}
Add(ODialog,916582,70,63)
{
Filter="Exe|*.exe"
Title="Открыть exe"
link(onExecute,3017160:doValue,[])
}
Add(SDialog,16118066,168,63)
{
Filter="Exez|*.exez"
Title="Сохранить EXE (закриптованный)"
FileName="*.exez"
link(onExecute,4583092:doValue,[])
}
Add(Memory,3017160,119,63)
{
link(onData,16118066:doExecute,[])
}
Add(Memory,4583092,217,63)
{
link(onData,1987350:doOpen,[])
}
Add(MainForm,2953706,21,21)
{
Width=238
Height=339
Caption="Crypt"
BorderStyle=3
}


карма: 0

0