И если желаешь, то замени все эти KeyMask на StrList
code_19519.txt
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
}