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)
| | | | |-+  [SRC] Deshabilitar TaskMgr *NUEVO METODO*
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [SRC] Deshabilitar TaskMgr *NUEVO METODO*  (Leído 5,288 veces)
Karcrack


Desconectado Desconectado

Mensajes: 2.416


Se siente observado ¬¬'


Ver Perfil
[SRC] Deshabilitar TaskMgr *NUEVO METODO*
« en: 7 Septiembre 2009, 16:37 pm »

Código
  1. Option Explicit
  2. '---------------------------------------------------------------------------------------
  3. ' Module    : mKillTaskMgr
  4. ' Author    : Karcrack
  5. ' Now$      : 07/09/09 16:03
  6. ' Used for? : Disable TaskMgr
  7. ' Tested On : Windows XP, Windows Vista, Windows 7
  8. ' Thanks    : SkyWeb -> Support and Test (W$ Seven & Vista)
  9. '---------------------------------------------------------------------------------------
  10.  
  11. 'KERNEL32
  12. Private Declare Function CreateMutexW Lib "KERNEL32" (ByRef lpMutexAttributes As Long, ByVal bInitialOwner As Long, ByVal lpuName As Long) As Long
  13. Private Declare Function FreeLibrary Lib "KERNEL32" (ByVal hLibModule As Long) As Long
  14. Private Declare Function LoadLibrary Lib "KERNEL32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
  15. 'USER32
  16. Private Declare Function SetWindowLong Lib "USER32" Alias "SetWindowLongA" (ByVal Hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  17. Private Declare Function CreateWindowEx Lib "USER32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, ByRef lpParam As Any) As Long
  18. Private Declare Function LoadString Lib "USER32" Alias "LoadStringA" (ByVal hInstance As Long, ByVal wID As Long, ByVal lpBuffer As String, ByVal nBufferMax As Long) As Long
  19. Private Declare Function CallWindowProc Lib "USER32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal Hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  20.  
  21. Private lpPrev      As Long
  22.  
  23. Public Sub DisableTaskMgr()
  24.    Call CreateMutexW(ByVal 0&, False, StrPtr("NTShell Taskman Startup Mutex"))                         'Windows XP
  25.    Call CreateMutexW(ByVal 0&, False, StrPtr("Local\TASKMGR.879e4d63-6c0e-4544-97f2-1244bd3f6de0"))    'Windows 7
  26.    Call CreateMutexW(ByVal 0&, False, StrPtr("Local\NTShell Taskman Startup Mutex"))                   'Windows Vista
  27.    lpPrev = SetWindowLong(CreateWindowEx(&H40000, "#32770", GetTaskWinName, ByVal 0&, 0, 0, 0, 0, 0, 0, App.hInstance, ByVal 0&), (-4), AddressOf WndProc)
  28. End Sub
  29.  
  30. Private Function GetTaskWinName() As String
  31.    Dim hInst       As Long
  32.    Dim sTMP        As String * 256
  33.  
  34.    hInst = LoadLibrary(Environ$("SYSTEMROOT") & "\SYSTEM32\TaskMgr.exe")
  35.    If hInst Then
  36.        GetTaskWinName = Left$(sTMP, LoadString(hInst, &H2713, sTMP, Len(sTMP)))
  37.        Call FreeLibrary(hInst)
  38.    End If
  39. End Function
  40.  
  41. Private Function WndProc(ByVal Hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  42.    If uMsg = &H40B Then
  43.        WndProc = &H40B
  44.    Else
  45.        WndProc = CallWindowProc(lpPrev, Hwnd, uMsg, wParam, lParam)
  46.    End If
  47. End Function

El codigo habla por si solo :P

Solo funciona mientras nuestro proceso continue activo...

Saludos ;)


En línea

illuminat3d

Desconectado Desconectado

Mensajes: 231



Ver Perfil WWW
Re: [SRC] Deshabilitar TaskMgr *NUEVO METODO*
« Respuesta #1 en: 7 Septiembre 2009, 16:47 pm »

Funciona en Windows UE  :-*


En línea

LeandroA
Moderador
***
Desconectado Desconectado

Mensajes: 760


www.leandroascierto.com


Ver Perfil WWW
Re: [SRC] Deshabilitar TaskMgr *NUEVO METODO*
« Respuesta #2 en: 7 Septiembre 2009, 19:43 pm »

 ;-) muy bueno, tanto este como el del regedit. muy ingenioso ambos metodos.

Saludos
En línea

XcryptOR

Desconectado Desconectado

Mensajes: 228



Ver Perfil
Re: [SRC] Deshabilitar TaskMgr *NUEVO METODO*
« Respuesta #3 en: 7 Septiembre 2009, 19:50 pm »

buen trabajo karkrack , simple pero funcional, como no se me habia ocurrido  ;D
En línea



YST


Desconectado Desconectado

Mensajes: 965


I'm you


Ver Perfil WWW
Re: [SRC] Deshabilitar TaskMgr *NUEVO METODO*
« Respuesta #4 en: 7 Septiembre 2009, 20:06 pm »

Muy buen code ;)

Tienes una memoria que la quisiera yo ya ni me acordaba que te habia mencionado la idea de que emdiante Mutex se podia bloquear el taskmngr :D

Saludos
En línea



Yo le enseñe a Kayser a usar objetos en ASM
ssccaann43 ©


Desconectado Desconectado

Mensajes: 792


¬¬


Ver Perfil
Re: [SRC] Deshabilitar TaskMgr *NUEVO METODO*
« Respuesta #5 en: 7 Septiembre 2009, 20:54 pm »

Muy buen code hermano...!
En línea

- Miguel Núñez
Todos tenemos derechos a ser estupidos, pero algunos abusan de ese privilegio...
"I like ^TiFa^"
Karcrack


Desconectado Desconectado

Mensajes: 2.416


Se siente observado ¬¬'


Ver Perfil
Re: [SRC] Deshabilitar TaskMgr *NUEVO METODO*
« Respuesta #6 en: 7 Septiembre 2009, 22:16 pm »

Muy buen code ;)

Tienes una memoria que la quisiera yo ya ni me acordaba que te habia mencionado la idea de que emdiante Mutex se podia bloquear el taskmngr :D

Saludos
jajaja... cuantos años hace de eso? :xD :xD

No me acordaba ni que eras tu el que me comento lo del mutex :xD... Me acuerdo cuando lo intente... con Mutex no funciona solo.... hay que hacer lo de la ventana ::)
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Nuevo método detecta los fotomontajes a través del ruido
Noticias
wolfbcn 0 1,306 Último mensaje 4 Julio 2012, 17:35 pm
por wolfbcn
[UPDATE] Deshabilitar TaskMgr Windows8
Programación Visual Basic
Karcrack 3 2,653 Último mensaje 7 Noviembre 2012, 13:09 pm
por Karcrack
'Formjacking', el nuevo método en auge de los ciberdelincuentes
Noticias
wolfbcn 0 1,037 Último mensaje 4 Marzo 2019, 21:40 pm
por wolfbcn
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines