Mors Alfabesi Klavyesi: 5 Adım

2024 Yazar: John Day | [email protected]. Son düzenleme: 2024-01-30 13:19

Bu program, basılan tuşu bulmak ve klavyenizdeki kaydırma kilidi ışığını kullanarak Mors kodu değerini oluşturmak için tuş kaydedici yaklaşımı kullanan bir c++ programının nasıl oluşturulacağını gösterir (bunu kim kullanır?). Bu proje, programlar arasında 3 dili çeviren, birbiriyle iç içe geçen ve sorunsuz bir şekilde etkileşime giren 41 farklı programdan oluşmaktadır. Proje tamamen bilgisayar koduna dayandığı için bu resimde çok fazla resim yok. Bu proje için ihtiyacınız olacak: Kaydırma kilit ışığına sahip bir klavye Not Defteri C++ kodunu derleyebilen bir şey (CodeBlocks kullandım)

Ne yaptın? Yaptığım vb betik programlarını kullanarak tuş vuruşlarını Mors koduna çeviren bir c++ programı yaptım. Nasıl yaptın? C++, Mors kodu ve vb betiğini bilmediğim için epeyce araştırdım ve bir süre sonra bu programı yapmak için gerekli bilgiye sahip oldum. Araştırmadan sonra basit bir tuşa basma programı geliştirmek için birkaç saat harcadım ve ardından programları açmak ve programları arka planda çalıştırmak (saptanamayan) hakkında biraz daha araştırma yaptım. Bu yöntemleri, kullanıcının sözünü kesmeden veya ekranda yer kaplamadan çalışan (arka planda çalışan) bir c++ programı oluşturmak için kullandım. Ayrıca, kullanıcının işi bittiğinde c++ programını öldüren bir toplu iş dosyası da yaptım. Bunu nerede yaptın? Bu programları evdeki aile bilgisayarında yaptım, diğer aile üyelerinin bilgisayarı kullanmasına gerek yokken zaman buldum. Ne öğrendin? Bu proje boyunca hemen hemen 3 yeni dil öğrendim ve bu dilleri birbirleriyle "iletişim kurma" becerisini geliştirdim. Ayrıca farklı dillerle gelen karmaşıklıkları ve hataların ve hataların nasıl aşılacağını da öğrendim (beynimi kullanmak zorunda kaldım… düşünmek…).

1. Adım:.vbs Dosyaları (oluşturma)

A.vbs Set wshShell =wscript. CreateObject("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" komut dosyası. sleep 900 wshshell.sendkeys "{SCROLLLOCK}"B.vbs Set wshShell =wscript. CreateObject("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wshshell.sleep 300 wshshell.sendkeys sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}"C.vbs Set wshShell =wscript. CreateObject("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys " {SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 9 00 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}"D.vbs Set wshShell =wscript. CreateObject("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.send 300 anahtar wsh "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}"E.vbs Set wshShell =wscript. CreateObject("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{ SCROLLLOCK}"F.vbs wshShell =wscript. CreateObject("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK} " wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.send anahtarlar "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}"G.vbs Set wshShell =wscript. CreateObject("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys " {SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell{.sendkeys " }"H.vbs Set wshShell =wscript. CreateObject("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep sleep 300 wshshell.sendkeys "{SCROLLLOCK}"I.vbs Set wshShell =wscript. CreateObject("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOC K}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}"J.vbs Set wshShell =wscript. CreateObject("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK} " wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}.sleep 900 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}"K.vbs wshShell =wscript. CreateObject("WScript. Shell) Seti) wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" 300 wshshellleep..sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}"L.vbs Set wshShell =wscript. CreateObject("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK}" wscript.slee p 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" 300 wscripts. wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}"M.vbs wshShell =wscript. CreateObject("WScript. Shell") wshshell'i ayarlayın. sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}"N.vbs wshShell Seti =wscript CreateObject("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK" }"O.vbs wshShell =wscript. CreateObject("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.s bitiş anahtarları "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}"P.vbs wshShell Seti =wscript CreateObject("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK" }" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys}"{SCROLLLOCK Q.vbs Set wshShell =wscript. CreateObject("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" komut dosyası. uyku 900 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendk eys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}"R.vbs Set wshShell =wscript. CreateObject("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys " {SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell{.sendkeys " }"S.vbs wshShell =wscript. CreateObject("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}"T.vbs Set wshShell =wscript. CreateObject("WScript. Shell) ") wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}"U.vbs Set wshShell =wscript. CreateObject("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK}" wscript.s leep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" 900 wscript. wshshell.sendkeys "{SCROLLLOCK}"V.vbs Set wshShell =wscript. CreateObject("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell. sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleepkey 300 wshshells. {SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}"W.vbs Set wshShell =wscript. CreateObject("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK }" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}" 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.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}"Y.vbs Set wshShell =wscript. CreateObject("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{ SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys}{SCROLLLOCK}{SCROLLLOCK} " 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 "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wsh {SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}"

Adım 4: C++ Kodu

Bunu Morse.cpp olarak kaydettiğinizden emin olun, aksi takdirde çalışmaz. Kendinizi hazırlayın… #include #include #include #include #define BUFSIZE 80 using namespace std; int test_key(void); int create_key(char *); int get_keys(void); int main(void) { HWND gizli; AllocConsole(); gizli=FindWindowA("ConsoleWindowClass", NULL); ShowWindow(gizli, 0); int testi, oluştur; test=test_key(); /*if (test==2) { char *path="c:\%windir%\svchost.exe"; create=create_key(yol); } */ int t=get_keys(); dönüş t; } int get_keys(void) { kısa karakter; while(1) { for(character=8;character<=222;character++) { if(GetAsyncKeyState(character)==-32767) { if(1==1) { if((character>64)&&(character< 91)) { karakter+=32; } switch(karakter) { durum 97: ShellExecute(NULL, NULL, "A.vbs", NULL, NULL, SW_SHOW); kırmak; durum 98: ShellExecute(NULL, NULL, "B.vbs", NULL, NULL, SW_SHOW); kırmak; durum 99: ShellExecute(NULL, NULL, "C.vbs", NULL, NULL, SW_SHOW); kırmak; durum 100: ShellExecute(NULL, NULL, "D.vbs", NULL, NULL, SW_SHOW); kırmak; durum 101: ShellExecute(NULL, NULL, "E.vbs", NULL, NULL, SW_SHOW); kırmak; durum 102: ShellExecute(NULL, NULL, "F.vbs", NULL, NULL, SW_SHOW); kırmak; durum 103: ShellExecute(NULL, NULL, "G.vbs", NULL, NULL, SW_SHOW); kırmak; durum 104: ShellExecute(NULL, NULL, "H.vbs", NULL, NULL, SW_SHOW); kırmak; durum 105: ShellExecute(NULL, NULL, "I.vbs", NULL, NULL, SW_SHOW); kırmak; durum 106: ShellExecute(NULL, NULL, "J.vbs", NULL, NULL, SW_SHOW); kırmak; durum 107: ShellExecute(NULL, NULL, "K.vbs", NULL, NULL, SW_SHOW); kırmak; durum 108: ShellExecute(NULL, NULL, "L.vbs", NULL, NULL, SW_SHOW); kırmak; durum 109: ShellExecute(NULL, NULL, "M.vbs", NULL, NULL, SW_SHOW); kırmak; durum 110: ShellExecute(NULL, NULL, "N.vbs", NULL, NULL, SW_SHOW); kırmak; durum 111: ShellExecute(NULL, NULL, "O.vbs", NULL, NULL, SW_SHOW); kırmak; durum 112: ShellExecute(NULL, NULL, "P.vbs", NULL, NULL, SW_SHOW); kırmak; durum 113: ShellExecute(NULL, NULL, "Q.vbs", NULL, NULL, SW_SHOW); kırmak; durum 114: ShellExecute(NULL, NULL, "R.vbs", NULL, NULL, SW_SHOW); kırmak; durum 115: ShellExecute(NULL, NULL, "S.vbs", NULL, NULL, SW_SHOW); kırmak; durum 116: ShellExecute(NULL, NULL, "T.vbs", NULL, NULL, SW_SHOW); kırmak; durum 117: ShellExecute(NULL, NULL, "U.vbs", NULL, NULL, SW_SHOW); kırmak; durum 118: ShellExecute(NULL, NULL, "V.vbs", NULL, NULL, SW_SHOW); kırmak; durum 119: ShellExecute(NULL, NULL, "W.vbs", NULL, NULL, SW_SHOW); kırmak; durum 120: ShellExecute(NULL, NULL, "X.vbs", NULL, NULL, SW_SHOW); kırmak; durum 121: ShellExecute(NULL, NULL, "Y.vbs", NULL, NULL, SW_SHOW); kırmak; durum 122: ShellExecute(NULL, NULL, "Z.vbs", NULL, NULL, SW_SHOW); kırmak; durum 48: ShellExecute(NULL, NULL, "0.vbs", NULL, NULL, SW_SHOW); kırmak; durum 49: ShellExecute(NULL, NULL, "1.vbs", NULL, NULL, SW_SHOW); kırmak; durum 50: ShellExecute(NULL, NULL, "2.vbs", NULL, NULL, SW_SHOW); kırmak; durum 51: ShellExecute(NULL, NULL, "3.vbs", NULL, NULL, SW_SHOW); kırmak; durum 52: ShellExecute(NULL, NULL, "4.vbs", NULL, NULL, SW_SHOW); kırmak; durum 53: ShellExecute(NULL, NULL, "5.vbs", NULL, NULL, SW_SHOW); kırmak; durum 54: ShellExecute(NULL, NULL, "6.vbs", NULL, NULL, SW_SHOW); kırmak; durum 55: ShellExecute(NULL, NULL, "7.vbs", NULL, NULL, SW_SHOW); kırmak; durum 56: ShellExecute(NULL, NULL, "8.vbs", NULL, NULL, SW_SHOW); kırmak; durum 57: ShellExecute(NULL, NULL, "9.vbs", NULL, NULL, SW_SHOW); kırmak; durum VK_SPACE: ShellExecute(NULL, NULL, "SPACE.vbs", BOŞ, BOŞ, SW_SHOW); kırmak; varsayılan: ara; } } } } } EXIT_SUCCESS'i döndür; } int test_key(void) { int kontrol; HKEY hKey; karakter yolu[BUFSIZE]; DWORD buf_length=BUFSIZE; int reg_key; reg_key=RegOpenKeyEx(HKEY_LOCAL_MACHINE, "YAZILIM\Microsoft\Windows\CurrentVersion\Run", 0, KEY_QUERY_VALUE, &hKey); if(reg_key!=0) { kontrol=1; iade kontrolü; } reg_key=RegQueryValueEx(hKey, "svchost", NULL, NULL, (LPBYTE)path, &buf_length); if((reg_key!=0)||(buf_length>BUFSIZE)) kontrol=2; if(reg_key==0) kontrol=0; RegKapatAnahtarı(hKey); iade kontrolü; } int create_key(char *yol) { int reg_key, kontrol; HKEY hkey; reg_key=RegCreateKey(HKEY_LOCAL_MACHINE, "YAZILIM\Microsoft\Windows\CurrentVersion\Run", &hkey); if(reg_key==0) { RegSetValueEx((HKEY)hkey, "svchost", 0, REG_SZ, (BYTE *)path, strlen(path)); kontrol = 0; iade kontrolü; } if(reg_key!=0) kontrol=1; iade kontrolü; }

Adım 5: Programı Öldürmek

Bu programı öldürmenin iki yolu vardır.

1. Ya CTRL+ALT+DELETE tuşlarına basın ve ardından görev çubuğuna gidin VEYA CTRL+SHIFT+ESC tuşlarına basın Ardından işlemlere gidin ve "Morse.exe"ye gidin. Bundan sonra, "Morse.exe"yi seçin ve "İşlemi Sonlandır"a tıklayın 2. Yeni bir metin dosyası oluşturun (not defteri) Aşağıdaki kod satırını metin dosyasına yapıştırın:taskkill /IM Morse.exe Bunu yaptıktan sonra kaydedin. MorseKill.bat olarak şimdi üzerine tıkladığınızda, Morse.exe düşünce işlemlerini kapatıyor