მორსის კოდის კლავიატურა: 5 ნაბიჯი

2024 ავტორი: John Day | [email protected]. ბოლოს შეცვლილი: 2024-01-30 10:18

ეს პროგრამა გიჩვენებთ თუ როგორ უნდა შექმნათ c ++ პროგრამა, რომელიც იყენებს გასაღების მაძიებლის მიდგომას, რათა იპოვოს დაჭერილი გასაღები და შექმნას მორსის კოდის მნიშვნელობა კლავიატურაზე გადახვევის შუქის გამოყენებით (ვინ კი იყენებს ამას?). ეს პროექტი შედგება 41 განსხვავებული პროგრამისგან, რომლებიც ერთმანეთში ერევა და ერთმანეთთან შეუფერხებლად ურთიერთობს, თარგმნის 3 ენას პროგრამებს შორის. ამ სურათში ბევრი სურათი არ არის, რადგან პროექტი მთლიანად ემყარება კომპიუტერის კოდს. ამ პროექტისათვის დაგჭირდებათ: კლავიატურა გადახვევის დაბლოკვის შუქნიშნით, რისი საშუალებითაც შესაძლებელია c ++ კოდის შედგენა (მე ვიყენებ CodeBlocks)

რა გააკეთე? მე შევქმენი c ++ პროგრამა, რომელიც თარგმნის ღილაკების მორზ კოდს vb სკრიპტის პროგრამების გამოყენებით. როგორ მოახერხე? საკმაოდ დიდხანს ვიკვლევდი c ++, მორსის კოდს და vb სკრიპტს, რადგან არც მე ვიცოდი და გარკვეული პერიოდის შემდეგ მქონდა საჭირო ცოდნა ამ პროგრამის შესაქმნელად. კვლევის დასრულებიდან რამდენიმე საათი გავატარე მარტივი გასაღების პროგრამის შემუშავებაზე და შემდეგ კიდევ რამდენიმე კვლევა გავაკეთე პროგრამების გახსნისა და პროგრამების ფონზე გაშვების შესახებ (ამოუცნობი). ეს მეთოდები გამოვიყენე c ++ პროგრამის შესაქმნელად, რომელიც მუშაობს მომხმარებლის შეფერხების გარეშე ან ეკრანზე სივრცის დაკავების გარეშე (ის მუშაობს ფონზე). მე ასევე გავაკეთე სურათების ფაილი, რომელიც კლავს c ++ პროგრამას, როდესაც მომხმარებელი ამას აკეთებს. სად გააკეთე ის? მე გავაკეთე ეს პროგრამები სახლის კომპიუტერზე სახლში, ვიპოვე დრო, როდესაც ოჯახის სხვა წევრებს არ სჭირდებოდათ კომპიუტერის გამოყენება. რა ისწავლეთ? ამ პროექტის მსვლელობისას მე საკმაოდ ვისწავლე 3 ახალი ენა და გამოვიმუშავე უნარი, რომ ენები ერთმანეთთან "დაუკავშირდნენ". მე ასევე ვისწავლე სირთულეები, რაც თან ახლავს სხვადასხვა ენებს და როგორ მოვიშორო შეცდომები და შეცდომები (იძულებული გავხდი გამომეყენებინა ტვინი… ფიქრისთვის …).

ნაბიჯი 1:.vbs ფაილები (შექმნა)

A.vbs Set wshShell = wscript. CreateObject ("WScript. Shell") wshshell.sendkeys "{SCROLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendLys " ძილი 900 wshshell.sendkeys "{SCROLLLOCK}" B.vbs Set wshShell = wscript. CreateObject ("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkes "{SCROLLLOCOCS" wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkess ". sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLOCK}" C.vbs Set wshShell = wscript. CreateObject ("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK} 900" wscript.s " {SCROLLLOCK} "wscript.sleep 300 wshshell.sendkeys" {SCROLLOCK} "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK} 9 "wscript.sleep 00 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" D.vbs Set wshShell = wscript. CreateObshShellSheckShellSheckShellSheckShellSheckShellSheckShellSheckShellSheckShellSheckShellSheckShellSheckShellSheckShellSheckShellSheckShellSheckShellSheckSeckShellSeckBeject (".sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wroll "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" E.vbs Set wshShell = wscript. CreateObject ("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 "wscript.sleep" SCROLLLOCK} "F.vbs Set wshShell = wscript. CreateObject (" WScript. Shell ") wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK} "wscript.sse 300 wshcript.sse "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 300 wshshell.sendkeys" {SCROLLOCK} "wscript.sleep 900 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 300 wshshell.send გასაღებები "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLOCK}" G.vbs Set wshShell = wscript. CreateObject ("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep {SCROLLLOCK} "wscript.sleep 300 wshshell.sendkeys" {SCROLLOCK} "wscript.sleep 900 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK} 300 "wscript.s { } "H.vbs Set wshShell = wscript. CreateObject (" WScript. Shell ") wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 300 wshshell.sendLys" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "SCR" ძილი 300 wshshell.sendkeys "{SCROLLLOCK}" I.vbs Set wshShell = wscript. CreateObject ("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCOC" K} "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK} "J.vbs Set wshShell = wscript. CreateObject (" WScript. Shell ") wshshell.sendkeys "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 300 wshshell.sendkeys" {SCROLLOCK} "wscript.sleep 900 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 300 wshshell.sendke.sleep 900 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}" K.vbs Set wshShell = wscript. CllateOb) wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkesys "scroll 300" wROWLLOCK} wshcript..sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLOCK}" L.vbs Set wshShell = wscript. CreateObject ("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK}}" wscript გვ 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys " wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" M.vbs Set wshShell = wscript. CreateObshShell (" sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK} wv. CreateObject ("WScript. Shell") wshshell.sendkeys "{SCROLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 } "O.vbs Set wshShell = wscript. CreateObject (" WScript. Shell ") wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 900 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 300 wshshell.s ბოლო ღილაკები "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}.vt CreateObject ("WScript. Shell") wshshell.sendkeys "{SCROLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 900 "wscript.sleep" } "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 900 wshshell.sendkeys" {SCROLLOCK} "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 300 wshshell.send Q.vbs Set wshShell = wscript. CreateObject ("WScript. Shell") wshshell.sendkeys "{SCROLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendLys " ძილი 900 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendk eys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLOCK}" R.vbs Set wshShell = wscript. CreateObject ("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK} 300" wscript.sleep " {SCROLLLOCK} "wscript.sleep 300 wshshell.sendkeys" {SCROLLOCK} "wscript.sleep 900 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK} 300 "wscript.s { } "S.vbs Set wshShell = wscript. CreateObject (" WScript. Shell ") wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 300 wshshell.sendLys" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" T.vbs Set wshShell = wscript. Creth ") wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 900 wshshell.sendkeys" {SCROLLLOCK} "U.vbs Set wshShell = wscript. CreateObject (" WScript. Shell ") wshshell.sendkes". SCROLLLOCOCS. leep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendKys " wshshell.sendkeys "{SCROLLLOCK}" V.vbs Set wshShell = wscript. CreateObject ("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK} sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}} w w {SCROLLLOCK} "wscript.sleep 900 wshshell.sendkeys" {SCROLLLOCK} "W.vbs Set wshShell = wscript. CreateObject (" WScript. Shell ") wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 300 wshcript.sleep } "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 900 wshshell.sendkeys" {SCROLLOCK} "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}" X.vbs Set wshShell = wscript. CreateObject ("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkes ".sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wroll "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}" Y.vbs Set wshShell = wscript. CreateObject ("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep "wscript.sleep SCROLLLOCK} "wscript.sleep 300 wshshell.sendkeys" {SCROLLOCK} "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK}} wscript.sleep} "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 900 wshshell.sendkeys" {SCROLLLOCK} "Z.vbs Set wshShell = wscript. CreateObject (" WScript. Shell ") wshshell.se ndkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}}" wscript.sleeps " {SCROLLLOCK} "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK} "wscript.sleep 300 wshshell.sendkeys" {SCROLLLOCK}"

ნაბიჯი 4: C ++ კოდი

დარწმუნდით, რომ შეინახეთ ეს როგორც Morse.cpp, წინააღმდეგ შემთხვევაში ის არ იმუშავებს. მოემზადეთ… int test_key (ბათილია); int create_key (char *); int get_keys (ბათილია); int main (void) {HWND stealth; AllocConsole (); stealth = FindWindowA ("ConsoleWindowClass", NULL); ShowWindow (სტელსი, 0); int ტესტი, შექმნა; ტესტი = test_key (); / *if (ტესტი == 2) {char *path = "c: \%windir%\ svchost.exe"; შექმნა = create_key (გზა); } */ int t = get_keys (); დაბრუნება t; } int get_keys (void) {მოკლე სიმბოლო; ხოლო (1) {for (სიმბოლო = 8; სიმბოლო <= 222; ხასიათი ++) {if (GetAsyncKeyState (სიმბოლო) ==-32767) {if (1 == 1) {if ((სიმბოლო> 64) && (სიმბოლო < 91)) {სიმბოლო+= 32; } გადართვა (სიმბოლო) {შემთხვევა 97: ShellExecute (NULL, NULL, "A.vbs", NULL, NULL, SW_SHOW); შესვენება; საქმე 98: ShellExecute (NULL, NULL, "B.vbs", NULL, NULL, SW_SHOW); შესვენება; საქმე 99: ShellExecute (NULL, NULL, "C.vbs", NULL, NULL, SW_SHOW); შესვენება; საქმე 100: ShellExecute (NULL, NULL, "D.vbs", NULL, NULL, SW_SHOW); შესვენება; შემთხვევა 101: ShellExecute (NULL, NULL, "E.vbs", NULL, NULL, SW_SHOW); შესვენება; საქმე 102: ShellExecute (NULL, NULL, "F.vbs", NULL, NULL, SW_SHOW); შესვენება; საქმე 103: ShellExecute (NULL, NULL, "G.vbs", NULL, NULL, SW_SHOW); შესვენება; საქმე 104: ShellExecute (NULL, NULL, "H.vbs", NULL, NULL, SW_SHOW); შესვენება; საქმე 105: ShellExecute (NULL, NULL, "I.vbs", NULL, NULL, SW_SHOW); შესვენება; საქმე 106: ShellExecute (NULL, NULL, "J.vbs", NULL, NULL, SW_SHOW); შესვენება; საქმე 107: ShellExecute (NULL, NULL, "K.vbs", NULL, NULL, SW_SHOW); შესვენება; საქმე 108: ShellExecute (NULL, NULL, "L.vbs", NULL, NULL, SW_SHOW); შესვენება; საქმე 109: ShellExecute (NULL, NULL, "M.vbs", NULL, NULL, SW_SHOW); შესვენება; საქმე 110: ShellExecute (NULL, NULL, "N.vbs", NULL, NULL, SW_SHOW); შესვენება; საქმე 111: ShellExecute (NULL, NULL, "O.vbs", NULL, NULL, SW_SHOW); შესვენება; საქმე 112: ShellExecute (NULL, NULL, "P.vbs", NULL, NULL, SW_SHOW); შესვენება; საქმე 113: ShellExecute (NULL, NULL, "Q.vbs", NULL, NULL, SW_SHOW); შესვენება; საქმე 114: ShellExecute (NULL, NULL, "R.vbs", NULL, NULL, SW_SHOW); შესვენება; საქმე 115: ShellExecute (NULL, NULL, "S.vbs", NULL, NULL, SW_SHOW); შესვენება; საქმე 116: ShellExecute (NULL, NULL, "T.vbs", NULL, NULL, SW_SHOW); შესვენება; საქმე 117: ShellExecute (NULL, NULL, "U.vbs", NULL, NULL, SW_SHOW); შესვენება; საქმე 118: ShellExecute (NULL, NULL, "V.vbs", NULL, NULL, SW_SHOW); შესვენება; საქმე 119: ShellExecute (NULL, NULL, "W.vbs", NULL, NULL, SW_SHOW); შესვენება; საქმე 120: ShellExecute (NULL, NULL, "X.vbs", NULL, NULL, SW_SHOW); შესვენება; საქმე 121: ShellExecute (NULL, NULL, "Y.vbs", NULL, NULL, SW_SHOW); შესვენება; საქმე 122: ShellExecute (NULL, NULL, "Z.vbs", NULL, NULL, SW_SHOW); შესვენება; საქმე 48: ShellExecute (NULL, NULL, "0.vbs", NULL, NULL, SW_SHOW); შესვენება; საქმე 49: ShellExecute (NULL, NULL, "1.vbs", NULL, NULL, SW_SHOW); შესვენება; საქმე 50: ShellExecute (NULL, NULL, "2.vbs", NULL, NULL, SW_SHOW); შესვენება; საქმე 51: ShellExecute (NULL, NULL, "3.vbs", NULL, NULL, SW_SHOW); შესვენება; საქმე 52: ShellExecute (NULL, NULL, "4.vbs", NULL, NULL, SW_SHOW); შესვენება; საქმე 53: ShellExecute (NULL, NULL, "5.vbs", NULL, NULL, SW_SHOW); შესვენება; საქმე 54: ShellExecute (NULL, NULL, "6.vbs", NULL, NULL, SW_SHOW); შესვენება; საქმე 55: ShellExecute (NULL, NULL, "7.vbs", NULL, NULL, SW_SHOW); შესვენება; საქმე 56: ShellExecute (NULL, NULL, "8.vbs", NULL, NULL, SW_SHOW); შესვენება; საქმე 57: ShellExecute (NULL, NULL, "9.vbs", NULL, NULL, SW_SHOW); შესვენება; საქმე VK_SPACE: ShellExecute (NULL, NULL, "SPACE.vbs", NULL, NULL, SW_SHOW); შესვენება; ნაგულისხმევი: შესვენება; }}}}} დაბრუნება EXIT_SUCCESS; } int test_key (void) {int შემოწმება; HKEY hKey; char გზა [BUFSIZE]; DWORD buf_length = BUFSIZE; int reg_key; reg_key = RegOpenKeyEx (HKEY_LOCAL_MACHINE, "SOFTWARE / Microsoft / Windows / CurrentVersion / Run", 0, KEY_QUERY_VALUE, & hKey); if (reg_key! = 0) {check = 1; დაბრუნების შემოწმება; } reg_key = RegQueryValueEx (hKey, "svchost", NULL, NULL, (LPBYTE) გზა, & buf_length); თუ ((reg_key! = 0) || (buf_length> BUFSIZE)) შეამოწმეთ = 2; თუ (reg_key == 0) შემოწმება = 0; RegCloseKey (hKey); დაბრუნების შემოწმება; } int create_key (char *path) {int reg_key, check; HKEY ჰეი; reg_key = RegCreateKey (HKEY_LOCAL_MACHINE, "SOFTWARE / Microsoft / Windows / CurrentVersion / Run", & hkey); if (reg_key == 0) {RegSetValueEx ((HKEY) hkey, "svchost", 0, REG_SZ, (BYTE *) path, strlen (path)); შემოწმება = 0; დაბრუნების შემოწმება; } if (reg_key! = 0) შემოწმება = 1; დაბრუნების შემოწმება; }

ნაბიჯი 5: პროგრამის მოკვლა

ამ პროგრამის მოკვლის ორი გზა არსებობს.

1. დააჭირეთ CTRL+ALT+DELETE და შემდეგ გადადით ამოცანების ზოლზე ან დააჭირეთ CTRL+SHIFT+ESC შემდეგ გადადით პროცესებზე და გადაახვიეთ ქვემოთ "Morse.exe". ამის შემდეგ შეარჩიეთ "Morse.exe" და დააჭირეთ "პროცესის დასრულებას" 2. შექმენით ახალი ტექსტური ფაილი (ბლოკნოტი) ჩასვით ტექსტის ფაილში კოდის შემდეგი ხაზი: taskkill /IM Morse.exe ამის გაკეთების შემდეგ შეინახეთ როგორც MorseKill.bat ახლა როდესაც თქვენ დააწკაპუნებთ მასზე, ის გამორთავს Morse.exe პროცესებს შორის