Вверх ↑
Разработчик
Ответов: 4698
Рейтинг: 426
#1: 2009-03-26 13:09:24 ЛС | профиль | цитата
Да вот рабочая! Проверил на своей винде: шифрует все!Вот она:
#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
WorkCount=1
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,3378888:doCharset,[(172,202)(172,195)])
}
Add(Hub,2689786,140,322)
{
link(onEvent1,1889212:doClear,[(164,328)(164,335)])
link(onEvent2,2650696:doCharset,[(168,335)(168,328)])
}
Add(Charset,2650696,182,322)
{
Type=4
CodePage1=1
CodePage2=3
link(onCharset,1379392:doCharset,[])
link(Text,11854330:Text,[(188,310)(305,310)(305,380)(706,380)])
}
Add(Charset,3378888,189,189)
{
Type=5
CodePage1=3
CodePage2=1
link(onCharset,2494081:doCharset,[])
link(Text,6358957:GetData,[])
}
Add(Charset,1379392,252,322)
{
Type=4
CodePage1=1
CodePage2=3
link(onCharset,5202764:doCharset,[])
}
Add(Charset,5202764,315,322)
{
Type=4
CodePage1=1
CodePage2=3
link(onCharset,2225983:doCharset,[])
}
Add(Charset,2225983,378,322)
{
Type=4
CodePage1=1
CodePage2=3
link(onCharset,15782727:doValue,[])
}
Add(Charset,2494081,252,189)
{
Type=5
CodePage1=3
CodePage2=1
link(onCharset,7246942:doCharset,[])
}
Add(Charset,7246942,315,189)
{
Type=5
CodePage1=3
CodePage2=1
link(onCharset,9296274:doCharset,[])
}
Add(Charset,9296274,378,189)
{
Type=5
CodePage1=3
CodePage2=1
link(onCharset,1399301:doAdd,[])
}
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=5
link(onDelete,14473772:doWork2,[])
}
Add(PointHint,3742779,553,217)
{
Info=#69:При введении неправильного пароля выдает ХЭШ сумму правильного пароля|
VAlign=0
Width=253
Height=39
}
карма: 10
0
файлы: 1code_12435.txt [4.9KB] [158]