Просто картинка
Add(MainForm,2953706,84,245)
{
Width=377
Height=235
Caption="Crypt-DeCrypt image"
}
Add(Button,9628864,84,56)
{
Left=10
Top=140
Width=40
Caption="Open"
link(onClick,5452223:doExecute,[])
}
Add(Image,15816066,399,91)
{
Left=10
Top=10
Width=160
Height=120
Point(ImageWidth)
Point(ImageHeight)
link(Bitmap,2338950:Var1,[(405,82)(377,82)])
}
Add(Image,12515042,399,357)
{
Left=185
Top=10
Width=160
Height=120
link(Bitmap,16756896:Var1,[(405,348)(377,348)])
}
Add(Button,1194282,84,140)
{
Left=55
Top=140
Width=65
Caption="Crypt >>"
link(onClick,7146264:doEvent1,[])
}
Add(Edit,75778,161,203)
{
Left=45
Top=165
Width=85
Text="123456"
DataType=2
}
Add(ODialog,5452223,133,56)
{
link(onExecute,141407:doLoad,[])
}
Add(PictureStream,141407,189,56)
{
link(onLoad,11749062:doEvent1,[])
link(Bitmap,9304353:Var1,[(202,47)(258,47)(258,110)])
}
Add(Img_GetPoint,10244225,266,147)
{
link(onGetPixel,7677414:doGetRGB,[])
link(Bitmap,9304353:Var2,[])
link(X,14290720:Var2,[])
link(Y,14281735:Var2,[])
}
Add(For,9034816,161,147)
{
IncludeEnd=1
link(onEvent,16365150:doFor,[])
link(onStop,6219287:doWork2,[(200,160)(200,97)])
link(End,897095:Width,[(174,116)(279,116)])
}
Add(For,16365150,217,147)
{
IncludeEnd=1
link(onEvent,10244225:doGetPixel,[])
link(End,897095:Height,[(230,124)(286,124)])
}
Add(ToRGB,7677414,308,147)
{
link(onResult,1855169:doRandom,[(345,153)(345,192)(207,192)(207,237)])
}
Add(Img_Point,2688082,371,147)
{
Point(X)
Point(Y)
Point(Color)
link(Bitmap,2338950:Var2,[])
link(X,14290720:Var3,[(384,131)])
link(Y,14281735:Var3,[(391,138)])
link(Color,8911051:Result,[(398,138)(477,138)(477,271)(433,271)])
}
Add(GetDataEx,14290720,273,126)
{
Angle=3
link(Data,9034816:Position,[(208,131)(208,187)(167,187)])
}
Add(GetDataEx,9304353,266,105)
{
link(Data,897095:Bitmap,[])
}
Add(Button,13523373,84,91)
{
Left=125
Top=140
Width=40
Caption="Save"
link(onClick,12702545:doExecute,[])
}
Add(Button,6051066,84,322)
{
Left=190
Top=140
Width=40
Caption="Open"
link(onClick,14569606:doExecute,[])
}
Add(Button,15403106,84,406)
{
Left=235
Top=140
Width=65
Caption="DeCrypt >>"
link(onClick,7061782:doEvent1,[])
}
Add(Edit,6164446,161,469)
{
Left=225
Top=165
Width=85
Text="123456"
DataType=2
}
Add(Button,14722446,84,357)
{
Left=305
Top=140
Width=40
Caption="Save"
link(onClick,10810705:doExecute,[])
}
Add(SDialog,12702545,133,91)
{
Filter="BMP|*.bmp"
link(onExecute,141407:doSave,[(172,97)(172,69)])
}
Add(Random,1855169,217,231)
{
Max=255
link(onRandom,12431692:doCalc,[])
}
Add(Random,7616809,301,231)
{
Max=255
link(onRandom,2764819:doCalc,[])
}
Add(Random,4989746,385,231)
{
Max=255
link(onRandom,8911051:doCalc,[])
}
Add(DoData,10449778,161,245)
{
link(onEventData,1855169:doRandSeed,[])
link(Data,75778:Text,[])
}
Add(Hub,7146264,126,140)
{
link(onEvent1,10449778:doData,[(151,146)(151,251)])
link(onEvent2,9034816:doFor,[])
}
Add(MathParse,12431692,259,231)
{
MathStr="(%1 + %2) mod 256"
ResultType=0
link(onResult,7616809:doRandom,[])
link(X2,7677414:R,[(272,204)(314,204)])
}
Add(MathParse,2764819,343,231)
{
MathStr="(%1 + %2) mod 256"
ResultType=0
link(onResult,4989746:doRandom,[])
link(X2,7677414:G,[(356,204)(321,204)])
}
Add(MathParse,8911051,427,231)
{
DataCount=4
MathStr="((%1 + %2) mod 256)*65536 + %3*256 + %4"
ResultType=0
link(onResult,2688082:doDraw,[(466,237)(466,188)(361,188)(361,153)])
link(X2,7677414:B,[(440,197)(328,197)])
link(X3,2764819:Result,[(447,222)(380,222)(380,271)(349,271)])
link(X4,12431692:Result,[(454,213)(296,213)(296,272)(265,272)])
}
Add(Bitmap,897095,266,56)
{
Point(Width)
Point(Height)
}
Add(GetDataEx,2338950,371,105)
{
Angle=3
link(Data,9304353:Var3,[])
}
Add(Hub,11749062,224,56)
{
link(onEvent1,897095:doLoad,[])
link(onEvent2,6219287:doWork1,[(249,69)])
}
Add(HubEx,6219287,245,91)
{
link(onEvent,15816066:doLoad,[])
}
Add(GetDataEx,14281735,280,133)
{
Angle=3
link(Data,16365150:Position,[(251,138)(251,187)(223,187)])
}
Add(ODialog,14569606,133,322)
{
link(onExecute,2390508:doLoad,[])
}
Add(PictureStream,2390508,189,322)
{
link(onLoad,4390139:doEvent1,[])
link(Bitmap,12828551:Var1,[(202,313)(258,313)(258,376)])
}
Add(Img_GetPoint,7483037,266,413)
{
link(onGetPixel,15419936:doGetRGB,[])
link(Bitmap,12828551:Var2,[])
link(X,9837593:Var2,[])
link(Y,10313324:Var2,[])
}
Add(For,11666070,161,413)
{
IncludeEnd=1
link(onEvent,2995463:doFor,[])
link(onStop,9509541:doWork2,[(200,426)(200,363)])
link(End,390776:Width,[(174,382)(279,382)])
}
Add(For,2995463,217,413)
{
IncludeEnd=1
link(onEvent,7483037:doGetPixel,[])
link(End,390776:Height,[(230,390)(286,390)])
}
Add(ToRGB,15419936,308,413)
{
link(onResult,8431992:doRandom,[(345,419)(345,458)(207,458)(207,503)])
}
Add(Img_Point,3424276,371,413)
{
Point(X)
Point(Y)
Point(Color)
link(Bitmap,16756896:Var2,[])
link(X,9837593:Var3,[(384,397)])
link(Y,10313324:Var3,[(391,404)])
link(Color,10420312:Result,[(398,404)(477,404)(477,537)(433,537)])
}
Add(GetDataEx,9837593,273,392)
{
Angle=3
link(Data,11666070:Position,[(208,397)(208,453)(167,453)])
}
Add(GetDataEx,12828551,266,371)
{
link(Data,390776:Bitmap,[])
}
Add(SDialog,10810705,133,357)
{
Filter="BMP|*.bmp"
link(onExecute,2390508:doSave,[(172,363)(172,335)])
}
Add(Random,8431992,217,497)
{
Max=255
link(onRandom,16733314:doCalc,[])
}
Add(Random,15614526,301,497)
{
Max=255
link(onRandom,15850101:doCalc,[])
}
Add(Random,3387954,385,497)
{
Max=255
link(onRandom,10420312:doCalc,[])
}
Add(DoData,11564634,161,511)
{
link(onEventData,8431992:doRandSeed,[])
link(Data,6164446:Text,[])
}
Add(Hub,7061782,126,406)
{
link(onEvent1,11564634:doData,[(151,412)(151,517)])
link(onEvent2,11666070:doFor,[])
}
Add(MathParse,16733314,259,497)
{
MathStr="(256 - %1 + %2) mod 256"
ResultType=0
link(onResult,15614526:doRandom,[])
link(X2,15419936:R,[(272,470)(314,470)])
}
Add(MathParse,15850101,343,497)
{
MathStr="(256 - %1 + %2) mod 256"
ResultType=0
link(onResult,3387954:doRandom,[])
link(X2,15419936:G,[(356,470)(321,470)])
}
Add(MathParse,10420312,427,497)
{
DataCount=4
MathStr="((256 - %1 + %2) mod 256)*65536 + %3*256 + %4"
ResultType=0
link(onResult,3424276:doDraw,[(466,503)(466,454)(361,454)(361,419)])
link(X2,15419936:B,[(440,463)(328,463)])
link(X3,15850101:Result,[(447,488)(380,488)(380,537)(349,537)])
link(X4,16733314:Result,[(454,479)(296,479)(296,538)(265,538)])
}
Add(Bitmap,390776,266,322)
{
Point(Width)
Point(Height)
}
Add(GetDataEx,16756896,371,371)
{
Angle=3
link(Data,12828551:Var3,[])
}
Add(Hub,4390139,224,322)
{
link(onEvent1,390776:doLoad,[])
link(onEvent2,9509541:doWork1,[(249,335)])
}
Add(HubEx,9509541,245,357)
{
link(onEvent,12515042:doLoad,[])
}
Add(GetDataEx,10313324,280,399)
{
Angle=3
link(Data,2995463:Position,[(251,404)(251,453)(223,453)])
}