Dapofig писал(а):
но только не понятно как с его помощью выполнить такую задачу
Add(MainForm,218580,42,56)
{
Width=377
Height=235
Caption="Crypt-DeCrypt image"
}
Add(Button,9628864,581,14)
{
Left=10
Top=140
Width=40
Caption="Open"
link(onClick,5452223:doExecute,[])
}
Add(Image,15816066,749,14)
{
Left=10
Top=10
Width=160
Height=120
Point(ImageWidth)
Point(ImageHeight)
}
Add(Image,12515042,1022,609)
{
Left=185
Top=10
Width=160
Height=120
}
Add(Button,1194282,336,182)
{
Left=55
Top=140
Width=95
Caption="Encrypt and Save"
link(onClick,12702545:doExecute,[])
}
Add(Edit,75778,672,245)
{
Left=10
Top=165
Width=85
Text="123456"
DataType=2
}
Add(ODialog,5452223,630,14)
{
Filter="Изображение BMP (*.bmp)|*.bmp|Изображение JPEG (*.jpg)|*.jpg|Все файлы (*.*)|*.*|"
Title="Выбор изображения"
FileName=""
link(onExecute,141407:doLoad,[])
}
Add(PictureStream,141407,686,14)
{
link(onLoad,15816066:doLoad,[])
}
Add(Button,6051066,336,637)
{
Left=210
Top=140
Width=105
Caption="Open Encrypted"
link(onClick,14569606:doExecute,[])
}
Add(Edit,6164446,602,511)
{
Left=225
Top=165
Width=85
Text="123456"
DataType=2
}
Add(SDialog,12702545,392,182)
{
Filter="Зашифрованное изображение BMP (*.bmp.enc)|*.bmp.enc"
Title="Сохранение"
FileName=""
link(onExecute,1928830:doEvent1,[])
}
Add(DoData,10449778,595,105)
{
link(onEventData,16398183:doPosition,[])
}
Add(ODialog,14569606,385,637)
{
Filter="Зашифрованное изображение BMP (*.bmp.enc)|*.bmp.enc"
Title="Открытие изображения"
FileName=""
link(onExecute,7024419:doOpen,[])
}
Add(AESCipher,13347155,665,308)
{
Point(doEncryptStream)
Point(SrcStream)
Point(DstStream)
Point(Count)
link(onResult,174773:doMessage,[])
link(onError,1437305:doMessage,[(750,328)(750,363)])
link(Password,75778:Text,[])
link(SrcStream,27327:Var3,[(699,145)])
link(DstStream,11939445:Stream,[(706,296)(632,296)(632,380)(559,380)])
link(Count,16398183:Size,[(713,136)(678,136)])
}
Add(BitmapStream,2098176,665,175)
{
link(Stream,27327:Var2,[])
link(Bitmap,15816066:ImageBitmap,[(678,159)(755,159)])
}
Add(MemoryStream,16398183,665,91)
{
Point(doPosition)
}
Add(Hub,1928830,455,182)
{
OutCount=3
link(onEvent1,11591762:doEvent1,[])
link(onEvent2,11939445:doOpen,[(515,195)(515,342)])
link(onEvent3,16398183:doClear,[(497,202)(497,104)])
}
Add(Hub,11591762,539,182)
{
link(onEvent1,2098176:doWrite,[])
link(onEvent2,10449778:doData,[(585,195)(585,111)])
}
Add(FileStream,11939445,553,336)
{
Mode=1
link(onLoad,6915247:doEvent1,[])
}
Add(GetDataEx,27327,665,140)
{
link(Data,16398183:Stream,[])
}
Add(Hub,6915247,595,336)
{
link(onEvent1,13347155:doEncryptStream,[])
link(onEvent2,11939445:doClose,[(621,349)(621,391)(541,391)(541,349)])
}
Add(Message,174773,777,308)
{
Message="Зашифрованый файл сохранен!"
Caption="Информация"
Icon=4
}
Add(Message,1437305,777,357)
{
Caption="Ошибка шифрования"
Icon=1
}
Add(DoData,12652475,833,525)
{
link(onEventData,16768355:doPosition,[])
}
Add(AESCipher,7097538,595,609)
{
Point(SrcStream)
Point(DstStream)
Point(Count)
Point(doDecryptStream)
link(onResult,9963595:doEvent1,[(679,615)(679,608)])
link(onErrorPassword,11585909:doMessage,[])
link(onError,7296724:doMessage,[(680,629)(680,664)])
link(Password,6164446:Text,[])
link(SrcStream,7024419:Stream,[(629,597)(563,597)(563,691)(489,691)])
link(DstStream,12308624:Var1,[(636,565)])
link(Count,7024419:Size,[(643,582)(556,582)(556,683)(496,683)])
}
Add(BitmapStream,3993290,903,609)
{
link(onRead,10861664:doEvent1,[])
link(Stream,12308624:Var2,[])
}
Add(MemoryStream,16768355,903,511)
{
Point(doPosition)
}
Add(Hub,9963595,777,602)
{
OutCount=3
link(onEvent1,12652475:doData,[(812,608)(812,531)])
link(onEvent2,3993290:doRead,[])
link(onEvent3,16768355:doClear,[(882,622)(882,524)])
}
Add(FileStream,7024419,483,637)
{
link(onLoad,16393140:doEvent1,[])
}
Add(GetDataEx,12308624,903,560)
{
link(Data,16768355:Stream,[])
}
Add(Hub,16393140,525,637)
{
link(onEvent1,7097538:doDecryptStream,[])
link(onEvent2,7024419:doClose,[(577,650)(577,700)(471,700)(471,650)])
}
Add(Message,6008702,980,616)
{
Message="Картинка загружена."
Caption="Информация"
Icon=4
}
Add(Message,7296724,707,658)
{
Caption="Ошибка расшифровки"
Icon=1
}
Add(Message,11585909,707,616)
{
Message="Неверно указан пароль!"
Caption="Ошибка расшифровки"
Icon=3
}
Add(Hub,10861664,952,609)
{
link(onEvent1,12515042:doLoad,[])
link(onEvent2,6008702:doMessage,[])
}