Keyboard Kode Morse: 5 Langkah

2025 Pengarang: John Day | [email protected]. Terakhir diubah: 2025-01-23 14:49

Program ini menunjukkan kepada Anda cara membuat program c++ yang menggunakan pendekatan key-logger untuk menemukan kunci yang sedang ditekan dan menghasilkan nilai kode Morse melalui penggunaan lampu scroll lock pada keyboard Anda (siapa yang menggunakannya?). Proyek ini terdiri dari 41 program berbeda yang terjalin dan berinteraksi secara mulus satu sama lain, menerjemahkan 3 bahasa antar program. Tidak banyak gambar dalam 'ible ini karena proyek ini sepenuhnya didasarkan pada kode komputer. Untuk proyek ini, Anda memerlukan: Keyboard dengan lampu kunci gulir Notepad Sesuatu yang dapat mengkompilasi kode c++ (saya menggunakan CodeBlocks)

Apa yang kamu buat? Saya membuat program c++ yang menerjemahkan keystroke menjadi kode morse melalui penggunaan program script vb yang saya buat. Bagaimana Anda membuatnya? Saya menghabiskan cukup banyak waktu untuk meneliti c++, kode Morse, dan skrip vb karena saya juga tidak tahu dan setelah beberapa saat saya memiliki pengetahuan yang diperlukan untuk membuat program ini. Saya menghabiskan beberapa jam setelah meneliti untuk mengembangkan program keystroke sederhana dan kemudian melakukan penelitian lebih lanjut tentang membuka program dan menjalankan program di latar belakang (tidak terdeteksi). Saya menggunakan metode ini untuk membuat program c++ yang berjalan tanpa mengganggu pengguna atau menghabiskan ruang di layar (berjalan di latar belakang). Saya juga membuat file batch yang mematikan program c++ ketika pengguna selesai menggunakannya. Di mana Anda membuatnya? Saya membuat program ini di komputer keluarga di rumah, mencari waktu ketika anggota keluarga lain tidak perlu menggunakan komputer. Apa yang Anda pelajari? Selama proyek ini, saya cukup banyak belajar 3 bahasa baru dan mengembangkan kemampuan untuk membuat bahasa itu "berkomunikasi" satu sama lain. Saya juga mempelajari kerumitan yang datang dengan bahasa yang berbeda dan cara mengatasi kesalahan dan bug (saya terpaksa menggunakan otak saya… untuk berpikir…).

Langkah 1: File.vbs (pembuatan)

A.vbs Atur 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}"B.vbs Atur 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.sleep 300 sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}"C.vbs Atur 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 Atur 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 wshs "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}"E.vbs Atur wshShell =wscript. CreateObject("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{ SCROLLLOCK}"F.vbs Atur 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 keys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}"G.vbs Atur 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 wsh{. SCROLLLOCK " }"H.vbs Atur 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 300 wshshell.sendkeys "{SCROLLLOCK}"I.vbs Atur wshShell =wscript. CreateObject("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" K}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}"J.vbs Atur 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}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}"K.vbs Atur 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}" wshshell.sleep.sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}"L.vbs Atur 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}" wscript.sleep wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}"M.vbs Atur 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}"N.vbs Atur 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}" }"O.vbs Atur wshShell =wscript. CreateObject("WScript. Shell") wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.s endkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}"P.vbs Atur 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}" wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendkeys}"SCROLLLOCK Q.vbs Atur 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 "{SCROLLLOCK}" wscript.sleep 300 wshshell.sendk eys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}"R.vbs Atur 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 wsh{. SCROLLLOCK " }"S.vbs Atur 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 Atur wshShell =wscript. CreateObject("WScript. Shell ") wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}"U.vbs Atur 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}" wscript.sleep wshshell.sendkeys "{SCROLLLOCK}"V.vbs Atur 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 900 wshshell.sendkeys "{SCROLLLOCK}"W.vbs Atur 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 Atur 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 wssh "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}"Y.vbs Atur 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}" " wscript.sleep 300 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 900 wshshell.sendkeys "{SCROLLLOCK}"Z.vbs Atur 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}"

Langkah 4: Kode C++

Pastikan untuk menyimpan ini sebagai Morse.cpp atau tidak akan berhasil. Persiapkan diri Anda… #include #include #include #include #define BUFSIZE 80 using namespace std; int test_key(kosong); int create_key(char *); int get_keys(kosong); int main(void) { siluman HWND; AlokasiKonsol(); stealth=FindWindowA("ConsoleWindowClass", NULL); ShowWindow(siluman, 0); tes int, buat; tes=tes_kunci(); /*if (test==2) { char *path="c:\%windir%\svchost.exe"; buat=buat_kunci(jalur); } */ int t=get_keys(); kembali t; } int get_keys(void) { karakter pendek; while(1) { untuk(karakter=8;karakter<=222;karakter++) { if(GetAsyncKeyState(karakter)==-32767) { if(1==1) { if((karakter>64)&&(karakter< 91)) { karakter+=32; } switch(karakter) { kasus 97: ShellExecute(NULL, NULL, "A.vbs", NULL, NULL, SW_SHOW); merusak; kasus 98: ShellExecute(NULL, NULL, "B.vbs", NULL, NULL, SW_SHOW); merusak; kasus 99: ShellExecute(NULL, NULL, "C.vbs", NULL, NULL, SW_SHOW); merusak; kasus 100: ShellExecute(NULL, NULL, "D.vbs", NULL, NULL, SW_SHOW); merusak; kasus 101: ShellExecute(NULL, NULL, "E.vbs", NULL, NULL, SW_SHOW); merusak; kasus 102: ShellExecute(NULL, NULL, "F.vbs", NULL, NULL, SW_SHOW); merusak; kasus 103: ShellExecute(NULL, NULL, "G.vbs", NULL, NULL, SW_SHOW); merusak; kasus 104: ShellExecute(NULL, NULL, "H.vbs", NULL, NULL, SW_SHOW); merusak; kasus 105: ShellExecute(NULL, NULL, "I.vbs", NULL, NULL, SW_SHOW); merusak; kasus 106: ShellExecute(NULL, NULL, "J.vbs", NULL, NULL, SW_SHOW); merusak; kasus 107: ShellExecute(NULL, NULL, "K.vbs", NULL, NULL, SW_SHOW); merusak; kasus 108: ShellExecute(NULL, NULL, "L.vbs", NULL, NULL, SW_SHOW); merusak; kasus 109: ShellExecute(NULL, NULL, "M.vbs", NULL, NULL, SW_SHOW); merusak; kasus 110: ShellExecute(NULL, NULL, "N.vbs", NULL, NULL, SW_SHOW); merusak; kasus 111: ShellExecute(NULL, NULL, "O.vbs", NULL, NULL, SW_SHOW); merusak; kasus 112: ShellExecute(NULL, NULL, "P.vbs", NULL, NULL, SW_SHOW); merusak; kasus 113: ShellExecute(NULL, NULL, "Q.vbs", NULL, NULL, SW_SHOW); merusak; kasus 114: ShellExecute(NULL, NULL, "R.vbs", NULL, NULL, SW_SHOW); merusak; kasus 115: ShellExecute(NULL, NULL, "S.vbs", NULL, NULL, SW_SHOW); merusak; kasus 116: ShellExecute(NULL, NULL, "T.vbs", NULL, NULL, SW_SHOW); merusak; kasus 117: ShellExecute(NULL, NULL, "U.vbs", NULL, NULL, SW_SHOW); merusak; kasus 118: ShellExecute(NULL, NULL, "V.vbs", NULL, NULL, SW_SHOW); merusak; kasus 119: ShellExecute(NULL, NULL, "W.vbs", NULL, NULL, SW_SHOW); merusak; kasus 120: ShellExecute(NULL, NULL, "X.vbs", NULL, NULL, SW_SHOW); merusak; kasus 121: ShellExecute(NULL, NULL, "Y.vbs", NULL, NULL, SW_SHOW); merusak; kasus 122: ShellExecute(NULL, NULL, "Z.vbs", NULL, NULL, SW_SHOW); merusak; kasus 48: ShellExecute(NULL, NULL, "0.vbs", NULL, NULL, SW_SHOW); merusak; kasus 49: ShellExecute(NULL, NULL, "1.vbs", NULL, NULL, SW_SHOW); merusak; kasus 50: ShellExecute(NULL, NULL, "2.vbs", NULL, NULL, SW_SHOW); merusak; kasus 51: ShellExecute(NULL, NULL, "3.vbs", NULL, NULL, SW_SHOW); merusak; kasus 52: ShellExecute(NULL, NULL, "4.vbs", NULL, NULL, SW_SHOW); merusak; kasus 53: ShellExecute(NULL, NULL, "5.vbs", NULL, NULL, SW_SHOW); merusak; kasus 54: ShellExecute(NULL, NULL, "6.vbs", NULL, NULL, SW_SHOW); merusak; kasus 55: ShellExecute(NULL, NULL, "7.vbs", NULL, NULL, SW_SHOW); merusak; kasus 56: ShellExecute(NULL, NULL, "8.vbs", NULL, NULL, SW_SHOW); merusak; kasus 57: ShellExecute(NULL, NULL, "9.vbs", NULL, NULL, SW_SHOW); merusak; kasus VK_SPACE: ShellExecute(NULL, NULL, "SPACE.vbs", NULL, NULL, SW_SHOW); merusak; default: istirahat; } } } } } mengembalikan EXIT_SUCCESS; } int test_key(void) { int cek; HKEY hKey; jalur karakter[UKURAN BUFS]; 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) { centang=1; cek kembali; } reg_key=RegQueryValueEx(hKey, "svchost", NULL, NULL, (LPBYTE)path, &buf_length); if((reg_key!=0)||(buf_length>BUFSIZE)) centang=2; if(reg_key==0) centang=0; RegCloseKey(hKey); cek kembali; } int create_key(char *path) { int reg_key, centang; HKEY 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)); centang=0; cek kembali; } if(reg_key!=0) centang=1; cek kembali; }

Langkah 5: Membunuh Program

Ada dua cara untuk mematikan program ini.

1. Tekan CTRL+ALT+DELETE lalu arahkan ke bilah tugas ATAU Tekan CTRL+SHIFT+ESC Kemudian arahkan ke proses dan gulir ke bawah ke "Morse.exe". Setelah itu, pilih "Morse.exe" dan klik "End Process" 2. Buat file teks baru (notepad) Tempelkan baris kode berikut ke dalam file teks: taskkill /IM Morse.exe setelah Anda selesai melakukannya, simpan sebagai MorseKill.bat sekarang ketika Anda mengkliknya, itu mematikan proses melalui Morse.exe