Вверх ↑
Этот топик читают: Гость
Разработчик
Ответов: 4698
Рейтинг: 426
#31: 2009-03-27 08:59:36 ЛС | профиль | цитата
Сравни с екзешником
карма: 10
0
Ответов: 590
Рейтинг: 19
#32: 2009-03-27 09:18:47 ЛС | профиль | цитата
Assasin писал(а):
Сравни с екзешником

не декодирует... пароль - pass
карма: 0

0
Разработчик
Ответов: 4698
Рейтинг: 426
#33: 2009-03-27 09:30:07 ЛС | профиль | цитата
Щас поправлю...
------------ Дoбавленo:

#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,847,322)
{
Left=210
Top=175
Width=195
Height=125
Strings=#5:Текст|
ReadOnly=0
}
Add(Memo,11854330,798,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,9848730:doEvent,[(186,335)(186,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,12196070:doWork3,[(788,370)])
link(Data,8223419:Var3,[(538,310)])
}
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,328305:doValue,[])
}
Add(Memory,328305,686,322)
{
link(onData,12024763:doConvert,[])
}
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
Add(MultiElementEx,12024763,742,322)
{
link(onConvert,12196070:doWork2,[])
link(String,328305:Value,[(748,310)(720,310)(720,366)(692,366)])
}
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,[(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)])
}
END_SDK
Add(HubEx,12196070,784,315)
{
link(onEvent,1889212:doAdd,[])
}
Add(DoData,1407734,252,322)
{
link(onEventData,15782727:doValue,[])
link(Data,11854330:Text,[(258,310)(392,310)(392,401)(804,401)])
}
Add(Debug,9848730,217,322)
{
link(onEvent,1407734:doData,[])
}
карма: 10
0
Ответов: 5227
Рейтинг: 587
#34: 2009-03-27 09:50:59 ЛС | профиль | цитата
Assasin, набираешь в поиске Crypt
Находишь тему
Тема: Crypting Автор: Wolfik
Набор из 16 компонент для шифровки/дешифровки данных. Delphi/FPC.

скачиваешь компоненты одним архивом и радуешся жизни

карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Ответов: 590
Рейтинг: 19
#35: 2009-03-27 09:59:59 ЛС | профиль | цитата
andrestudio писал(а):
скачиваешь компоненты одним архивом и радуешся жизни

как ты не понимаешь, человек своё хочет сделать))))
тем более там нужно считать из файла текст который надо закодировать и потом опять сохранить... бред чес гря..
карма: 0

0
Ответов: 5227
Рейтинг: 587
#36: 2009-03-27 10:09:05 ЛС | профиль | цитата
EcsTasY писал(а):
тем более там нужно считать из файла текст который надо закодировать и потом опять сохранить


EcsTasY, и что этому будет мешать

карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Ответов: 590
Рейтинг: 19
#37: 2009-03-27 10:25:04 ЛС | профиль | цитата
andrestudio писал(а):
и что этому будет мешать

гм... считаю, что это не удобным... но... на вкус и цвет...
карма: 0

0
Разработчик
Ответов: 4698
Рейтинг: 426
#38: 2009-03-27 10:29:25 ЛС | профиль | цитата
По-моему, каждый раз пересохранять файл(да и вообще уже ФАЙЛ нужен!) -- это неудобно!
карма: 10
0
Ответов: 4641
Рейтинг: 334
#39: 2009-03-27 10:37:24 ЛС | профиль | цитата
Assasin писал(а):
По-моему, каждый раз пересохранять файл(да и вообще уже ФАЙЛ нужен!) -- это неудобно!
как будто ты руками будешь пересохранять файл, при это делая 10 кликов и тыков мышкой. По хорошему при правильной схеме тут даже и не заметишь, что что то сохраняется, стирается, перезаписывается.
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 5227
Рейтинг: 587
#40: 2009-03-27 10:40:42 ЛС | профиль | цитата
у этих компонентов есть точки

doPackStream=Пакует входящий поток и выдает результат в onStream
onStream=Выдает перекодированный поток

Я вообщем с Вас балдею ребята
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Ответов: 4641
Рейтинг: 334
#41: 2009-03-27 10:48:27 ЛС | профиль | цитата
andrestudio писал(а):
doPackStream=Пакует входящий поток и выдает результат в onStream
onStream=Выдает перекодированный поток

зачем это сказал. Сейчас Assasin, спросит как это сделать.
Вообщем все хорошо! Думаю кому надо поймут как использовать компонент.
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Разработчик
Ответов: 4698
Рейтинг: 426
#42: 2009-03-27 10:48:56 ЛС | профиль | цитата
Вообщем, вот следующая версия! Замените данными контейнерами уже присутствующие!
#sha
Add(MultiElementEx,3158042,440,504)
{
}
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,[(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:А|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=#5: 133|5: 132|5: 131|5: 130|5: 129|5: 128|5: 127|5: 126|5: 125|5: 124|5: 123|5: 122|5: 121|5: 120|5: 119|5: 118|5: 117|5: 116|5: 115|5: 114|5: 113|5: 112|5: 111|5: 110|5: 109|5: 108|5: 107|5: 106|5: 105|5: 104|5: 103|5: 102|5: 101|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)])
}
END_SDK
Add(PointHint,15161361,419,490)
{
Info=#12:Расшифровать|
Transparent=0
VAlign=0
Width=78
Height=60
}
Add(PointHint,2276333,349,490)
{
Info=#9:Шифровать|
Transparent=0
VAlign=0
Height=60
}
Add(MultiElementEx,7747104,363,504)
{
}
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:я|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|5: 101|5: 102|5: 103|5: 104|5: 105|5: 106|5: 107|5: 108|5: 109|5: 110|5: 111|5: 112|5: 113|5: 114|5: 115|5: 116|5: 117|5: 118|5: 119|5: 120|5: 121|5: 122|5: 123|5: 124|5: 125|5: 126|5: 127|5: 128|5: 129|5: 130|5: 131|5: 132|5: 133|
}
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_12455.txt [6.6KB] [131]
Ответов: 590
Рейтинг: 19
#43: 2009-03-27 11:27:26 ЛС | профиль | цитата
andrestudio писал(а):
doPackStream=Пакует входящий поток и выдает результат в onStream
onStream=Выдает перекодированный поток

всё ровно не удобные... я вкурсе что есть.. еще не разобрался как юзать.. да и не охото... я уже написал шифратор и мне этого достаточно
Assasin писал(а):
Замените данными контейнерами уже присутствующие!

у тя в контейнере дешифрования список цифр, на которые шифрует, криво написан...
------------ Дoбавленo:

кстати.. юзай Код без подцветки , а то не удобно копировать код отсюда...
карма: 0

0
Разработчик
Ответов: 4698
Рейтинг: 426
#44: 2009-03-27 11:35:31 ЛС | профиль | цитата
Короче, припоздали Вы,EcsTasY, я уже доделал и для инглиш...
#sha
Add(PointHint,4007762,180,175)
{
Info=#9:Шифровать|
Transparent=0
VAlign=0
Height=60
}
Add(MainForm,2953706,33,112)
{
Width=408
BorderStyle=6
Position=1
Point(Handle)
link(onCreate,3752626:doData,[(81,132)(81,48)])
}
Add(ChildPanel,10164143,-16,112)
{
link(onEvent1,2953706:doMinimize,[(24,118)(24,132)])
link(onEvent2,2953706:doClose,[(21,125)(21,139)])
link(Data1,2953706:Handle,[(-10,106)(21,106)(21,149)(39,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.4"
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,453,189)
{
Top=45
Width=190
Height=130
Strings=#5:Текст|
}
Add(Memo,1399301,502,189)
{
Left=210
Top=45
Width=195
Height=130
Strings=#20:Закодированный текст|
ReadOnly=0
}
Add(Button,10545069,103,189)
{
Left=190
Top=45
Width=20
Height=130
Caption=">>"
link(onClick,9722868:doEvent1,[])
}
Add(Memo,1889212,852,322)
{
Left=210
Top=175
Width=195
Height=125
Strings=#5:Текст|
ReadOnly=0
}
Add(Memo,11854330,803,322)
{
Top=175
Width=190
Height=125
Strings=#20:Закодированный текст|
}
Add(Button,5992163,103,322)
{
Left=190
Top=175
Width=20
Height=125
Caption=">>"
link(onClick,2689786:doEvent1,[])
}
Add(Hub,9722868,145,189)
{
link(onEvent1,1399301:doClear,[(285,195)(285,202)])
link(onEvent2,310967:doConvert,[(177,202)(177,195)])
}
Add(Hub,2689786,145,322)
{
link(onEvent1,1889212:doClear,[(169,328)(169,335)])
link(onEvent2,1407734:doData,[(208,335)(208,328)])
}
Add(Edit,6490891,257,42)
{
Top=25
Width=405
Text="Пароль(по умолчанию "Пароль")"
link(onChange,6472772:doHashsum,[])
}
Add(EventFromData,6358957,299,140)
{
link(onEvent,5382443:doStrCat,[])
}
Add(StrCat,5382443,348,140)
{
Str2=""№"
link(onStrCat,6358957:doData,[(392,146)(392,134)(287,134)(287,146)])
link(Str1,2671059:Var2,[])
}
Add(Hashsum,6472772,306,42)
{
link(onResult,16659956:doValue,[])
link(Data,6490891:Text,[(312,35)(295,35)(295,84)(263,84)])
}
Add(Memory,16659956,348,42)
{
}
Add(If_else,3377515,481,322)
{
link(onTrue,925502:doData,[])
link(onFalse,15846552:doData,[(525,335)(525,370)])
link(Op1,8223419:Var2,[])
link(Op2,2671059:Var3,[(494,107)])
}
Add(GetDataEx,2671059,341,98)
{
link(Data,16659956:Value,[])
}
Add(DoData,925502,537,322)
{
link(onEventData,2592678:doReplace,[])
link(Data,2455247:Var3,[(543,314)(518,314)(518,366)])
}
Add(Memory,15782727,432,322)
{
link(onData,3377515:doCompare,[])
}
Add(EventFromData,4492956,481,273)
{
link(onEvent,4229007:doSplit,[])
}
Add(StrPart,4229007,530,273)
{
Char=""№"
link(onPart,12743528:doValue,[(570,286)(570,279)])
link(Str,2455247:Var1,[(536,261)(473,261)])
}
Add(GetDataEx,2455247,460,357)
{
Angle=3
link(Data,15782727:Value,[(438,366)])
}
Add(Replace,2592678,593,322)
{
link(onReplace,6646838:doDelete,[])
link(Sub_str,12743528:Value,[(606,311)(585,311)])
}
Add(GetDataEx,8223419,474,301)
{
link(Data,4492956:GetData,[])
}
Add(DoData,15846552,537,364)
{
link(onEventData,12196070:doWork3,[(793,370)])
link(Data,8223419:Var3,[(543,310)])
}
Add(Memory,12743528,579,273)
{
link(onData,4492956:doData,[(623,279)(623,267)(469,267)(469,279)])
}
Add(Delete,6646838,642,322)
{
Count=2
link(onDelete,328305:doValue,[])
}
Add(StrCat,5170947,299,189)
{
Str2=""№"
link(onStrCat,1399301:doAdd,[])
link(Str1,6358957:GetData,[])
link(Str2,310967:ConvertString,[(312,177)(264,177)(264,234)(200,234)])
}
Add(PointHint,3742779,558,217)
{
Info=#69:При введении неправильного пароля выдает ХЭШ сумму правильного пароля|
VAlign=0
Width=253
Height=39
}
Add(MultiElementEx,310967,194,189)
{
link(onConvert,5170947:doStrCat,[])
link(String,12596398:Text,[(200,177)(330,177)(330,246)(459,246)])
}
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:я|1:a|1:b|1:s|1:d|1:e|1:f|1:g|1:h|1:i|1:j|1:k|1:l|1:m|1:n|1:o|1:p|1:q|1:r|1:s|1:t|1:u|1:v|1:w|1:x|1:y|1:z|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:Я|1:A|1:B|1:C|1:D|1:E|1:F|1:G|1:H|1:I|1:J|1:K|1:L|1:M|1:N|1:O|1:P|1:Q|1:R|1:S|1:T|1:U|1:V|1:W|1:X|1:Y|1:Z|
}
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|3: 41|3: 42|3: 43|3: 44|3: 45|3: 46|3: 47|3: 48|3: 49|3: 50|3: 51|3: 52|3: 53|3: 54|3: 55|3: 56|3: 57|3: 58|3: 59|3: 60|3: 61|3: 62|3: 63|3: 64|3: 65|3: 66|5: 101|5: 102|5: 103|5: 104|5: 105|5: 106|5: 107|5: 108|5: 109|5: 110|5: 111|5: 112|5: 113|5: 114|5: 115|5: 116|5: 117|5: 118|5: 119|5: 120|5: 121|5: 122|5: 123|5: 124|5: 125|5: 126|5: 127|5: 128|5: 129|5: 130|5: 131|5: 132|5: 133|5: 141|5: 142|5: 143|5: 144|5: 145|5: 146|5: 147|5: 148|5: 149|5: 150|5: 151|5: 152|5: 153|5: 154|5: 155|5: 156|5: 157|5: 158|5: 159|5: 160|5: 161|5: 162|5: 163|5: 164|5: 165|5: 166|
}
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
Add(MultiElementEx,12024763,747,322)
{
link(onConvert,12196070:doWork2,[])
link(String,328305:Value,[(753,310)(732,310)(732,364)(697,364)])
}
BEGIN_SDK
Add(EditMultiEx,13718751,21,21)
{
WorkCount=#24:doConvert=Шифрует строку|
EventCount=#83:onConvert=Событие происходит всякий раз после шифрования строки и выдает ее в поток|
VarCount=#38:ConvertString=Содержит полученный шифр|
DataCount=#28:String=Строка для шифрования|
Width=482
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,[(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,275,28)
{
Strings=#1:Z|1:Y|1:X|1:W|1:V|1:U|1:T|1:S|1:R|1:Q|1:P|1:O|1:N|1:M|1:L|1:K|1:J|1:I|1:H|1:G|1:F|1:E|1:D|1:C|1:B|1:A|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:А|1:z|1:y|1:x|1:w|1:v|1:u|1:t|1:s|1:r|1:q|1:p|1:o|1:n|1:m|1:l|1:k|1:j|1:i|1:h|1:g|1:f|1:e|1:d|1:c|1:b|1:a|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=#5: 166|5: 165|5: 164|5: 163|5: 162|5: 161|5: 160|5: 159|5: 158|5: 157|5: 156|5: 155|5: 154|5: 153|5: 152|5: 151|5: 150|5: 149|5: 148|5: 147|5: 146|5: 145|5: 144|5: 143|5: 142|5: 141|5: 133|5: 132|5: 131|5: 130|5: 129|5: 128|5: 127|5: 126|5: 125|5: 124|5: 123|5: 122|5: 121|5: 120|5: 119|5: 118|5: 117|5: 116|5: 115|5: 114|5: 113|5: 112|5: 111|5: 110|5: 109|5: 108|5: 107|5: 106|5: 105|5: 104|5: 103|5: 102|5: 101|3: 66|3: 65|3: 64|3: 63|3: 62|3: 61|3: 60|3: 59|3: 58|3: 57|3: 56|3: 55|3: 54|3: 53|3: 52|3: 51|3: 50|3: 49|3: 48|3: 47|3: 46|3: 45|3: 44|3: 43|3: 42|3: 41|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,317,126)
{
link(onReplace,2577152:doValue,[])
link(Str,1250216:Var,[(323,89)(216,89)])
link(Sub_str,15696093:Item,[(330,114)(246,114)(246,209)(106,209)])
link(Dest,8684753:Item,[(337,107)(305,107)(305,163)(274,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,268,126)
{
link(onRead,3543657:doReplace,[])
link(Array,5552831:Array,[(274,100)(295,100)])
link(Index,15696093:Index,[(281,107)(198,107)(198,170)(113,170)])
}
Add(Memory,2577152,378,126)
{
link(onData,6509355:doData,[])
}
Add(DoData,6509355,441,126)
{
Data=Integer(1)
link(onEventData,12281444:doWork3,[(485,132)(485,79)(186,79)])
}
Add(HubEx,12281444,182,28)
{
link(onEvent,1250216:doIndex,[])
}
Add(GetDataEx,15965029,252,182)
{
Angle=1
link(Data,2577152:Value,[(384,191)])
}
Add(DoData,628010,413,175)
{
Data=Integer(1)
link(onEventData,13718751:onConvert,[(492,181)(492,27)])
link(Data,15965029:Var2,[(419,156)(369,156)(369,198)(265,198)])
}
END_SDK
Add(HubEx,12196070,789,315)
{
link(onEvent,1889212:doAdd,[])
}
Add(DoData,1407734,257,322)
{
link(onEventData,15782727:doValue,[])
link(Data,11854330:Text,[(263,310)(397,310)(397,401)(809,401)])
}
Add(Memory,328305,691,322)
{
link(onData,12024763:doConvert,[])
}
Add(DoData,3752626,166,42)
{
Data=String(Пароль)
link(onEventData,6490891:doText,[])
}
Add(PointHint,13987394,726,308)
{
Info=#12:Расшифровать|
Transparent=0
VAlign=0
Width=78
Height=60
}
------------ Дoбавленo:

EcsTasY писал(а):
кстати.. юзай Код без подцветки , а то не удобно копировать код отсюда...

А у меня внизу под лозунгом есть здесь: code 12456.txt!
карма: 10
0
файлы: 1code_12456.txt [11.9KB] [451]
Ответов: 5227
Рейтинг: 587
#45: 2009-03-27 11:35:34 ЛС | профиль | цитата
EcsTasY писал(а):
еще не разобрался как юзать.. да и не охото

отсюда все и проблемы
EcsTasY писал(а):
я уже написал шифратор и мне этого достаточно

пиз.... как Троцкий нарисовал будет правельней
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)