Вверх ↑
Разработчик
Ответов: 4698
Рейтинг: 426
#1: 2009-03-27 08:39:34 ЛС | профиль | цитата
Вот он! Родился на свет новый велосипед "Стелс" одно-скоростной!
Пока только русские маленькие шифрует и расшифровывает!
#sha
Add(MainForm,2953706,98,112)
{
Width=408
BorderStyle=6
Position=1
Point(Handle)
}
Add(ChildPanel,10164143,49,112)
{
link(onEvent1,2953706:doMinimize,[(89,118)(89,132)])
link(onEvent2,2953706:doClose,[(86,125)(86,139)])
link(Data1,2953706:Handle,[(55,106)(86,106)(86,149)(104,149)])
}
BEGIN_SDK
Add(EditMulti,14921415,21,49)
{
EventCount=2
DataCount=1
}
Add(Panel,10383375,35,147)
{
Width=408
Height=26
Color=-16777215
BevelWidth=2
Point(doColor)
link(onClick,10125777:doWork1,[(74,153)])
}
Add(Label,16487376,35,196)
{
Left=25
Top=5
Width=114
Height=17
Color=-16777215
Caption="Шифратор данных 1.2"
link(onClick,10125777:doWork2,[])
}
Add(Button,925320,168,91)
{
Left=377
Top=3
Width=20
Caption="X"
link(onClick,14921415:onEvent2,[(264,97)(264,62)])
}
Add(Button,8239750,168,56)
{
Left=357
Top=3
Width=20
Caption="_"
link(onClick,14921415:onEvent1,[(260,62)(260,55)])
}
Add(MoveWindow,16111218,91,196)
{
link(Handle,14921415:Data1,[(97,126)(27,126)])
}
Add(HubEx,10125777,70,189)
{
link(onEvent,16111218:doMove,[])
}
END_SDK
Add(Memo,12596398,448,189)
{
Top=45
Width=190
Height=130
Strings=#5:Текст|
}
Add(Memo,1399301,497,189)
{
Left=210
Top=45
Width=195
Height=130
Strings=#20:Закодированный текст|
ReadOnly=0
}
Add(Button,10545069,98,189)
{
Left=190
Top=45
Width=20
Height=130
Caption=">>"
link(onClick,9722868:doEvent1,[])
}
Add(Memo,1889212,749,322)
{
Left=210
Top=175
Width=195
Height=125
Strings=#5:Текст|
ReadOnly=0
}
Add(Memo,11854330,700,322)
{
Top=175
Width=190
Height=125
Strings=#20:Закодированный текст|
}
Add(Button,5992163,98,322)
{
Left=190
Top=175
Width=20
Height=125
Caption=">>"
link(onClick,2689786:doEvent1,[])
}
Add(Hub,9722868,140,189)
{
link(onEvent1,1399301:doClear,[(280,195)(280,202)])
link(onEvent2,310967:doConvert,[(172,202)(172,195)])
}
Add(Hub,2689786,140,322)
{
link(onEvent1,1889212:doClear,[(164,328)(164,335)])
link(onEvent2,12024763:doConvert,[(172,335)(172,328)])
}
Add(Edit,6490891,147,42)
{
Top=25
Width=405
Text="Пароль(по умолчанию пустой)"
link(onChange,6472772:doHashsum,[])
}
Add(EventFromData,6358957,189,140)
{
link(onEvent,5382443:doStrCat,[])
}
Add(StrCat,5382443,238,140)
{
Str2=""№"
link(onStrCat,15745219:doStrCat,[])
link(Str1,2671059:Var2,[])
}
Add(Hashsum,6472772,196,42)
{
link(onResult,16659956:doValue,[])
link(Data,6490891:Text,[(202,35)(185,35)(185,84)(153,84)])
}
Add(Memory,16659956,238,42)
{
}
Add(If_else,3377515,476,322)
{
link(onTrue,925502:doData,[])
link(onFalse,15846552:doData,[(520,335)(520,370)])
link(Op1,8223419:Var2,[])
link(Op2,2671059:Var3,[(489,107)])
}
Add(GetDataEx,2671059,231,98)
{
link(Data,16659956:Value,[])
}
Add(DoData,925502,532,322)
{
link(onEventData,2592678:doReplace,[])
link(Data,2455247:Var3,[(538,314)(513,314)(513,366)])
}
Add(Memory,15782727,427,322)
{
link(onData,3377515:doCompare,[])
}
Add(StrCat,15745219,287,140)
{
link(onStrCat,6358957:doData,[(331,146)(331,134)(177,134)(177,146)])
link(Str2,12596398:Text,[(300,128)(377,128)(377,246)(454,246)])
}
Add(EventFromData,4492956,476,273)
{
link(onEvent,4229007:doSplit,[])
}
Add(StrPart,4229007,525,273)
{
Char=""№"
link(onPart,12743528:doValue,[(565,286)(565,279)])
link(Str,2455247:Var1,[(531,261)(468,261)])
}
Add(GetDataEx,2455247,455,357)
{
Angle=3
link(Data,15782727:Value,[(433,366)])
}
Add(Replace,2592678,588,322)
{
link(onReplace,6646838:doDelete,[])
link(Sub_str,12743528:Value,[(601,311)(580,311)])
}
Add(GetDataEx,8223419,469,301)
{
link(Data,4492956:GetData,[])
}
Add(DoData,15846552,532,364)
{
link(onEventData,14473772:doWork3,[(690,370)])
link(Data,8223419:Var3,[(538,310)])
}
Add(HubEx,14473772,686,315)
{
link(onEvent,1889212:doAdd,[])
}
Add(Memory,12743528,574,273)
{
link(onData,4492956:doData,[(618,279)(618,267)(464,267)(464,279)])
}
Add(Delete,6646838,637,322)
{
Count=2
link(onDelete,14473772:doWork2,[])
}
Add(MultiElementEx,12024763,189,322)
{
link(onConvert,15782727:doValue,[])
link(String,11854330:Text,[(195,309)(279,309)(279,401)(706,401)])
}
BEGIN_SDK
Add(EditMultiEx,13718751,21,21)
{
WorkCount=#24:doConvert=Шифрует строку|
EventCount=#83:onConvert=Событие происходит всякий раз после шифрования строки и выдает ее в поток|
VarCount=#38:ConvertString=Содержит полученный шифр|
DataCount=#28:String=Строка для шифрования|
Width=545
link(doConvert,9993815:doEvent,[(33,27)(33,48)(9,48)(9,69)])
link(ConvertString,15965029:Var1,[(27,191)])
}
Add(Hub,2032964,42,112)
{
OutCount=3
link(onEvent1,13862437:doData,[(131,118)(131,41)])
link(onEvent2,15696093:doEnum,[(78,125)(78,132)])
}
Add(GetIndexData,1250216,210,35)
{
link(Data1,13718751:String,[(216,26)(27,26)])
link(Data2,15965029:Var3,[(223,26)(265,26)])
}
Add(DoData,13862437,147,35)
{
Data=Integer(0)
link(onEventData,12281444:doWork2,[])
}
Add(StrList,5552831,324,28)
{
Strings=#1:я|1:ю|1:э|1:ь|1:ы|1:ъ|1:щ|1:ш|1:ч|1:ц|1:х|1:ф|1:у|1:т|1:с|1:р|1:п|1:о|1:н|1:м|1:л|1:к|1:й|1:и|1:з|1:ж|1:ё|1:е|1:д|1:г|1:в|1:б|1:а|
}
Add(StrList,5461682,86,28)
{
Strings=#3: 33|3: 32|3: 31|3: 30|3: 29|3: 28|3: 27|3: 26|3: 25|3: 24|3: 23|3: 22|3: 21|3: 20|3: 19|3: 18|3: 17|3: 16|3: 15|3: 14|3: 13|3: 12|3: 11|3: 10|1:9|1:8|1:7|1:6|1:5|1:4|1:3|1:2|1:1|
}
Add(Replace,3543657,373,126)
{
link(onReplace,2577152:doValue,[])
link(Str,2315649:Var2,[])
link(Sub_str,14456168:Var2,[(386,93)(437,93)(437,218)(106,218)])
link(Dest,8684753:Item,[(393,107)(361,107)(361,163)(330,163)])
}
Add(ArrayEnum,15696093,100,126)
{
link(onItem,8684753:doRead,[])
link(onEndEnum,628010:doData,[(148,139)(148,181)])
link(Array,5461682:Array,[])
}
Add(ArrayRW,8684753,324,126)
{
link(onRead,3543657:doReplace,[])
link(Array,5552831:Array,[(330,100)(344,100)])
link(Index,15696093:Index,[(337,107)(288,107)(288,178)(113,178)])
}
Add(Position,2894673,198,126)
{
ZeroPos=0
link(onSearch,6505745:doCompare,[])
link(Str,2315649:Var1,[(204,86)])
link(Target,14456168:Var3,[(211,107)(140,107)(140,191)])
}
Add(GetDataEx,14456168,93,182)
{
link(Data,15696093:Item,[])
}
Add(GetDataEx,2315649,366,77)
{
link(Data,1250216:Var,[(379,74)(216,74)])
}
Add(If_else,6505745,254,126)
{
Type=2
Op2=Integer(0)
link(Op1,2894673:Position,[(260,102)(242,102)(242,163)(204,163)])
}
Add(Memory,2577152,434,126)
{
link(onData,6509355:doData,[])
}
Add(DoData,6509355,497,126)
{
Data=Integer(1)
link(onEventData,12281444:doWork3,[(541,132)(541,79)(186,79)])
}
Add(HubEx,12281444,182,28)
{
link(onEvent,1250216:doIndex,[])
}
Add(GetDataEx,15965029,252,182)
{
Angle=1
link(Data,2577152:Value,[(440,191)])
}
Add(DoData,628010,469,175)
{
Data=Integer(1)
link(onEventData,13718751:onConvert,[(534,181)(534,27)])
link(Data,15965029:Var2,[(475,156)(369,156)(369,198)(265,198)])
}
Add(Debug,9993815,21,63)
{
link(onEvent,2032964:doEvent1,[(37,69)(37,118)])
}
END_SDK
Add(PointHint,3742779,553,217)
{
Info=#69:При введении неправильного пароля выдает ХЭШ сумму правильного пароля|
VAlign=0
Width=253
Height=39
}
Add(MultiElementEx,310967,189,189)
{
link(onConvert,1399301:doAdd,[])
link(String,6358957:GetData,[])
}
BEGIN_SDK
Add(EditMultiEx,13718751,21,21)
{
WorkCount=#24:doConvert=Шифрует строку|
EventCount=#83:onConvert=Событие происходит всякий раз после шифрования строки и выдает ее в поток|
VarCount=#38:ConvertString=Содержит полученный шифр|
DataCount=#28:String=Строка для шифрования|
Width=545
link(doConvert,2032964:doEvent1,[(31,27)(31,118)])
link(ConvertString,15965029:Var1,[(27,191)])
}
Add(Hub,2032964,42,112)
{
OutCount=3
link(onEvent1,13862437:doData,[(131,118)(131,41)])
link(onEvent2,15696093:doEnum,[])
}
Add(GetIndexData,1250216,210,35)
{
link(Data1,13718751:String,[(216,26)(27,26)])
link(Data2,15965029:Var3,[(223,26)(265,26)])
}
Add(DoData,13862437,147,35)
{
Data=Integer(0)
link(onEventData,12281444:doWork2,[])
}
Add(StrList,5552831,86,28)
{
Strings=#1:а|1:б|1:в|1:г|1:д|1:е|1:ё|1:ж|1:з|1:и|1:й|1:к|1:л|1:м|1:н|1:о|1:п|1:р|1:с|1:т|1:у|1:ф|1:х|1:ц|1:ч|1:ш|1:щ|1:ъ|1:ы|1:ь|1:э|1:ю|1:я|
}
Add(StrList,5461682,310,28)
{
Strings=#1:1|1:2|1:3|1:4|1:5|1:6|1:7|1:8|1:9|3: 10|3: 11|3: 12|3: 13|3: 14|3: 15|3: 16|3: 17|3: 18|3: 19|3: 20|3: 21|3: 22|3: 23|3: 24|3: 25|3: 26|3: 27|3: 28|3: 29|3: 30|3: 31|3: 32|3: 33|
}
Add(Replace,3543657,373,119)
{
link(onReplace,2577152:doValue,[])
link(Str,2315649:Var2,[])
link(Sub_str,14456168:Var2,[(386,86)(437,86)(437,211)(106,211)])
link(Dest,8684753:Item,[(393,100)(361,100)(361,156)(330,156)])
}
Add(ArrayEnum,15696093,100,119)
{
link(onItem,2894673:doSearch,[])
link(onEndEnum,628010:doData,[(148,132)(148,174)])
link(Array,5552831:Array,[])
}
Add(ArrayRW,8684753,324,119)
{
link(onRead,3543657:doReplace,[])
link(Array,5461682:Array,[])
link(Index,15696093:Index,[(337,100)(288,100)(288,171)(113,171)])
}
Add(Position,2894673,156,119)
{
ZeroPos=0
link(onSearch,6505745:doCompare,[])
link(Str,2315649:Var1,[(162,86)])
link(Target,14456168:Var3,[(169,100)(140,100)(140,184)])
}
Add(GetDataEx,14456168,93,175)
{
link(Data,15696093:Item,[])
}
Add(GetDataEx,2315649,366,77)
{
link(Data,1250216:Var,[(379,77)(216,77)])
}
Add(If_else,6505745,212,119)
{
Type=2
Op2=Integer(0)
link(onTrue,8684753:doRead,[])
link(Op1,2894673:Position,[(218,95)(200,95)(200,156)(162,156)])
}
Add(Memory,2577152,434,119)
{
link(onData,6509355:doData,[])
}
Add(DoData,6509355,497,119)
{
Data=Integer(1)
link(onEventData,12281444:doWork3,[(541,125)(541,79)(186,79)])
}
Add(HubEx,12281444,182,28)
{
link(onEvent,1250216:doIndex,[])
}
Add(GetDataEx,15965029,252,182)
{
Angle=1
link(Data,2577152:Value,[(440,191)])
}
Add(DoData,628010,469,168)
{
Data=Integer(1)
link(onEventData,13718751:onConvert,[(534,174)(534,27)])
link(Data,15965029:Var2,[(475,156)(369,156)(369,198)(265,198)])
}
END_SDK
карма: 10
0
файлы: 1code_12451.txt [9.9KB] [577]