И если желаешь, то замени все эти KeyMask на StrList
code_19519.txt
Изменил и еше добавил перевод в нормальный вид(снятие пробелов,вместо ''space'' настоящий пробел,и все буквы с маленкой буквой)
Add(MainForm,12966647,105,448) { Width=363 Height=412 WinStyle=2 Caption="Рашифрователь Кейлогера" BorderStyle=3 } Add(Edit,14509787,392,721) { Left=685 Top=550 Width=135 Visible=1 Text="" link(onChange,1656242:doGetIndex,[(468,727)(468,300)]) } Add(ArrayRW,14472721,301,721) { Point(Count) link(onRead,14509787:doText,[]) link(Array,5018169:Array,[]) link(Index,237052:Result,[(314,695)(321,695)]) } Add(Math,237052,315,637) { Op2=1 link(onResult,8250056:doEvent1,[]) link(Op1,7209486:Var2,[(321,589)(314,589)]) } Add(ListBox,5018169,287,490) { Top=20 Width=120 Height=360 Point(doSelect) Point(Index) link(FileName,2549299:Text,[]) } Add(Hub,8250056,371,637) { OutCount=3 link(onEvent1,14472721:doRead,[(397,643)(397,685)(289,685)(289,727)]) link(onEvent2,5018169:doSelect,[(397,650)(397,594)(275,594)(275,538)]) link(onEvent3,1223526:doData,[(397,657)(397,619)(191,619)(191,580)]) } Add(ListBox,15820048,903,224) { Left=725 Top=475 Width=65 Height=75 Visible=1 FileName="C:\Rashifrovka.txt" link(onChange,5534928:doReplace,[(946,230)(946,325)(912,325)(912,398)]) } Add(Label,13262413,84,497) { Left=20 Width=74 Height=20 Font=[MS Sans Serif,11,1,0,1] Caption="Исходник" } Add(Label,6215925,126,497) { Left=165 Width=153 Height=20 Font=[MS Sans Serif,11,1,0,1] Caption="После Рашифровки" } Add(SDialog,14075694,994,294) { Filter="Text Files|.txt" StartDir="C:\" FileName="Finish" link(onExecute,15877683:doText,[]) } Add(ODialog,13060307,210,392) { Filter="Text Files|*.txt" StartDir="C:\" FileName="" link(onExecute,8023905:doEvent1,[]) } Add(StyleXP,11690727,105,413) { } Add(DropFile,8334153,210,427) { link(onDropFile,8023905:doEvent2,[(247,433)(247,405)]) } Add(Hub,8023905,252,392) { InCount=2 OutCount=1 link(onEvent1,2549299:doText,[]) } Add(Replace,5534928,924,392) { SubStr="\r\n" DestStr=" " link(onReplace,7368239:doEvent4,[(980,398)(980,458)]) link(Str,15820048:Text,[(930,337)(909,337)]) } Add(Memo,7433420,1043,364) { Left=120 Top=20 Width=240 Height=360 link(FileName,15877683:Text,[]) } Add(Timer,16151045,217,637) { Interval=0 link(onTimer,237052:doOperation,[]) } Add(DoData,1223526,203,574) { link(onEventData,5018169:doDelete,[(261,580)(261,510)]) link(Data,7209486:Var1,[(209,565)]) } Add(GetDataEx,7209486,308,560) { link(Data,5018169:Index,[]) } Add(Menu,7527490,77,175) { Menu=#4:Файл|1:(|7:Открыть|9:Сохранить|1:-|17:Очистить Исходник|17:Очистить Резултат|1:-|5:Выход|1:)|11:О программе| Point(onSelectNum) link(onSelectNum,6989177:doCompare,[]) } Add(Message,15120962,413,217) { Message="Рашифрователь логов 1.0\r\nАвтор Арман. А.\r\nПочта armansystem@mail.ru" Caption="О Програме..." } Add(If_else,1181510,308,210) { Op2=Integer(7) link(onTrue,12966647:doClose,[(345,216)(345,608)(93,608)(93,475)]) link(onFalse,10859482:doCompare,[]) } Add(If_else,6355755,182,189) { Op2=Integer(2) link(onTrue,14075694:doExecute,[(639,195)(639,300)]) link(onFalse,5073094:doCompare,[]) } Add(If_else,4219482,266,203) { Op2=Integer(5) link(onTrue,7433420:doClear,[(706,209)(706,377)]) link(onFalse,1181510:doCompare,[]) } Add(If_else,5073094,224,196) { Op2=Integer(4) link(onTrue,5018169:doClear,[(338,202)(338,615)(275,615)(275,503)]) link(onFalse,4219482:doCompare,[]) } Add(If_else,6989177,140,182) { Op2=Integer(1) link(onTrue,13060307:doExecute,[(187,188)(187,398)]) link(onFalse,6355755:doCompare,[]) } Add(If_else,10859482,364,217) { Op2=Integer(8) link(onTrue,15120962:doMessage,[]) } Add(Edit,2549299,294,392) { Left=270 Top=3360 Visible=1 Text="" link(onChange,1649547:doEvent1,[]) } Add(Edit,15877683,1050,294) { Left=270 Top=3360 Visible=1 Text="" link(onChange,7433420:doSave,[(1094,300)(1094,352)(1031,352)(1031,405)]) } Add(Hub,1649547,350,392) { link(onEvent1,5018169:doLoad,[(376,398)(376,461)(275,461)(275,524)]) link(onEvent2,16151045:doTimer,[(376,405)(376,552)(173,552)(173,643)]) } Add(InfoTip,4628466,711,67) { Info=#23:Завершение и Сохранение| Font=[MS Sans Serif,18,0,0,1] Frame=2 Width=491 Height=417 } Add(InfoTip,10007235,459,123) { Info=#10:Рашифровка| Font=[MS Sans Serif,18,0,0,1] Frame=2 Width=232 Height=340 } Add(InfoTip,4201686,46,123) { Info=#4:Меню| Font=[MS Sans Serif,18,0,0,1] Frame=2 Width=414 Height=220 } Add(InfoTip,1467606,53,375) { Info=#7:Главное| Font=[MS Sans Serif,18,0,0,1] Frame=2 Width=127 Height=165 } Add(InfoTip,13797322,186,347) { Info=#17:Загрузка и Начало| Font=[MS Sans Serif,18,0,0,1] Frame=2 Width=246 Height=438 } Add(StrList,1656242,511,252) { Strings=#2:27|3:112|3:113|3:114|3:115|3:116|3:117|3:118|3:119|3:120|3:121|3:122|3:123|3:145|2:45|2:19|3:192|2:48|2:49|2:50|2:51|2:52|2:53|2:54|2:55|2:56|2:57|3:189|3:187|1:8|2:36|2:35|3:144|3:111|3:106|3:109|1:9|2:81|2:87|2:69|2:82|2:84|2:89|2:85|2:73|2:79|2:80|3:219|3:221|3:220|2:46|2:33|3:103|3:104|3:105|3:107|2:20|2:65|2:83|2:68|2:70|2:71|2:72|2:74|2:75|2:76|3:186|3:222|2:13|2:34|3:100|3:101|3:102|2:16|2:90|2:88|2:67|2:86|2:66|2:78|2:77|3:188|3:190|3:191|2:16|2:38|2:97|2:98|2:99|2:13|2:17|2:91|2:18|2:32|2:18|2:93|2:17|2:37|2:40|2:39|2:96|3:110| Point(doGetIndex) Point(onGetIndex) link(onGetIndex,10001673:doGetString,[]) } Add(StrList,10001673,630,217) { Strings=#3:Esc|2:F1|2:F2|2:F3|2:F4|2:F5|2:F6|2:F7|2:F8|2:F9|3:F10|3:F11|3:F12|11:Scroll Lock|6:Insert|5:Pause|1:`|1:0|1:1|1:2|1:3|1:4|1:5|1:6|1:7|1:8|1:9|1:-|1:=|9:Backspace|4:Home|3:End|8:Num Lock|5:Num /|5:Num *|5:Num -|3:Tab|1:Q|1:W|1:E|1:R|1:T|1:Y|1:U|1:I|1:O|1:P|1:[|1:]|1:\|6:Delete|7:Page Up|5:Num 7|5:Num 8|5:Num 9|5:Num +|9:Caps Lock|1:A|1:S|1:D|1:F|1:G|1:H|1:J|1:K|1:L|1:;|1:'|5:Enter|9:Page Down|5:Num 4|5:Num 5|5:Num 6|5:Shift|1:Z|1:X|1:C|1:V|1:B|1:N|1:M|1:<|1:>|1:?|5:Shift|8:Arrow Up|5:Num 1|5:Num 2|5:Num 3|9:Num Enter|4:Ctrl|3:Win|3:Alt|5:Space|3:Alt|5:Ankap|4:Ctrl|10:Arrow Left|10:Arrow Down|11:Arrow Right|5:Num 0|5:Num .| Point(doGetString) Point(onGetString) link(onGetString,15820048:doAdd,[]) } Add(Button,10803865,788,571) { Left=105 Caption="Probel" link(onClick,7216030:doEvent1,[]) } Add(StrCase,15438871,1110,578) { link(onModify,6622093:doEvent1,[(1148,584)(1148,587)]) link(Str,5898097:Var3,[(1116,506)]) } Add(Replace,12351164,984,578) { SubStr="Space" DestStr=" " link(onReplace,7368239:doEvent3,[(1028,584)(1028,518)(993,518)(993,451)]) link(Str,5898097:Var1,[(990,542)(876,542)(876,506)]) } Add(Replace,10705036,879,571) { SubStr=" " link(onReplace,7368239:doEvent1,[(923,577)(923,553)(824,553)(824,437)]) link(Str,5898097:Var2,[]) } Add(GetDataEx,5898097,879,501) { link(Data,7433420:Text,[(885,455)(1049,455)]) } Add(Hub,7368239,1005,431) { InCount=4 OutCount=1 link(onEvent1,7433420:doText,[(1031,437)(1031,391)]) } Add(Timer,11686985,865,634) { Interval=1 Enable=1 link(onTimer,8498280:doEvent1,[]) } Add(Hub,7216030,830,571) { link(onEvent1,10705036:doReplace,[]) link(onEvent2,11686985:doTimer,[(854,584)(854,640)]) } Add(Timer,5037699,984,640) { Interval=1 Enable=1 link(onTimer,15438871:doModify,[(1028,646)(1028,647)(1063,646)(1063,584)]) } Add(Hub,8498280,914,634) { link(onEvent1,12351164:doReplace,[(941,640)(941,584)]) link(onEvent2,5037699:doTimer,[(960,647)(960,646)]) } Add(Hub,6622093,1155,581) { OutCount=3 link(onEvent1,7368239:doEvent2,[(1193,584)(1193,524)(825,524)(825,444)]) link(onEvent2,11686985:doStop,[(1181,594)(1181,620)(853,620)(853,647)]) link(onEvent3,5037699:doStop,[(1181,601)(1181,627)(972,627)(972,653)]) } Add(InfoTip,7470865,739,494) { Info=#16:В нормальный вид| Font=[MS Sans Serif,18,0,0,1] Frame=2 Width=484 Height=200 }
|