Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - ~~

#341
Cita de: brache en 24 Febrero 2008, 05:28 AM
Ok y si por ejemplo ya tengo el proceso y la ubicación en el regedit que haría después borrarlo y si es así el fw no tendrá algo para protegerlo?

Pues si no nos dices el FW concreto dificil saberlo, pero generalmente a todos les cubre las esaldas un driver :P
#342
No estamos ciegos xD baja esas letras....

#343
Programación Visual Basic / Re: UPX + vb
21 Febrero 2008, 12:51 PM
Efectivamente  :xD
#344
Viva ese don de palabra q te a concedido Dios para exlicar lo q kieres!!!

Seré escueto:
En ventana o consola?  :P
#345
Programación Visual Basic / Re: UPX + vb
20 Febrero 2008, 11:06 AM
Para poner comillas puedes hacer asi:

Private Sub Command1_Click()
MsgBox " Mira q comillas xD ""muajajaj"" "
End Sub


;)
#346
Pues hooking la pagina que te puse es lo mejor que e encontrado
http://inexinferis.in.funpic.org/index.php?name=articles&req=listarticles&artid=6

Viene bien explicado y con un ejemplo, para api hooking (e inyecciones q tb es necesario) lo mejor que e visto son los tutos de MazarD
http://mzrd.martes13.net/tutos/inyecciones.pdf
http://mzrd.martes13.net/tutos/apihooking.pdf

Y aunke esta feo recomendarte un tuto q e escrito yo, te recomiendo q te leas el mio. Con eso ya no necesitas nada mas te explican bien el concepto y te dan ejemplos, creo yo q no se puede pedir mas

Luego en ingles la informacion ya es mas extensa, y en cuanto al lenguaje no te esperes q sea VB, C es mejor para estas cosas, mucho mas comodo ;)

Y por supuesto la msdn, q todo esto es cuestion de dominar bien un puñado de apis
Salu2
#347
Programación Visual Basic / Re: Notificacion
17 Febrero 2008, 16:01 PM
Yo siempre uso un modulo que hizo Sancho Mazorca un user de este foro, que está bastante bien, te pego el code, por q no encuentro el enlace:

'*****************************************************************************************************************
'*
'*  Autor: Sancho.Mazorka
'*  Fecha: 8/03/07
'*
'*  Funcion 1: Agrega un icono al SysTray
'*  Funcion 2: Crea un ToolTipText o un BalloonToolTipText
'*
'*  Mail: rhcp_269@hotmail.com
'*  Web: www.aldeamix.com/ocio/harryx  (en construccion)
'*  NOTA: Cualquier cambio echo en este modulo agregando o arreglandolo aviseme y lo pondre
'*  en la web con su nombre, como ayudante.
'*  Parametros:
'*      + AgregarIcono(Me.hWnd, Me.Icon,"Esto es un ToolTipText")
'*      + MostrarGlobo("Titulo del globo", "Texto del globo", "ToolTipText del icono", Informacion)
'*      + CambiarIcono(Me.Icon)
'*      + QuitarIcono()
'*      + TipText("Nuevo ToolTipText")
'*      + EventTray
'*          Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'*          if EventTray(X) = "LEFTDOWN" then MsgBox "Click derecho apretado"
'*          End Sub
'*
'*  NOTA MIA --> Para usar las funciones no poner parentesis ej:
'*          Private Sub Form_Load()
'*          AgregarIcono Me.hWnd, Me.Icon, "Esto es un ToolTipText"
'*          End Sub
'*****************************************************************************************************************

' + + + + + | API | + + + + + '
Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean

' + + + + + | TIPO | + + + + + '
Private Type NOTIFYICONDATA
   cbSize As Long
   hWnd As Long
   uID As Long
   uFlags As Long
   uCallbackMessage As Long
   hIcon As Long
   szTip As String * 128
   dwState As Long
   dwStateMask As Long
   szInfo As String * 256
   uTimeout As Long
   szInfoTitle As String * 64
   dwInfoFlags As Long
End Type

'nf_IconData guarda todos los parametros de NITIFYICONDATA
Dim nf_IconData As NOTIFYICONDATA

' + + + + + | CONSTANTES | + + + + + '
'Version
Const NOTIFYICON_VERSION = 3
Const NOTIFYICON_OLDVERSION = 0
'Acciones para el API
Const NIM_ADD = &H0
Const NIM_MODIFY = &H1
Const NIM_DELETE = &H2
'Informacion
Const NIM_SETFOCUS = &H3
Const NIM_SETVERSION = &H4
'Parametros
Const NIF_MESSAGE = &H1
Const NIF_ICON = &H2
Const NIF_TIP = &H4
Const NIF_STATE = &H8
Const NIF_INFO = &H10
Const NIS_HIDDEN = &H1
Const NIS_SHAREDICON = &H2
'Tipos de iconos
Const NIIF_NONE = &H0
Const NIIF_WARNING = &H2
Const NIIF_ERROR = &H3
Const NIIF_INFO = &H1
Const NIIF_GUID = &H4
'Eventos en el icono
Const WM_MOUSEMOVE = &H200
Const WM_LBUTTONDOWN = &H201
Const WM_LBUTTONUP = &H202
Const WM_LBUTTONDBLCLK = &H203
Const WM_RBUTTONDOWN = &H204
Const WM_RBUTTONUP = &H205
Const WM_RBUTTONDBLCLK = &H206

' + + + + + | ENUMERACIONES | + + + + + '
Public Enum IconType
    Ninguno = NIIF_NONE
    Advertencia = NIIF_WARNING
    Error = NIIF_ERROR
    Informacion = NIIF_INFO
    IconoEXE = NIIF_GUID
End Enum

' + + + + + | FUNCIONES | + + + + + '
Sub AgregarIcono(UhWnd As Long, Icono As Long, Optional TipText As String)
'Agregamos un icono al Systray
With nf_IconData
    .cbSize = Len(nf_IconData) 'Tamaño del nf_IconData
    .hWnd = UhWnd 'hWnd del usuario
    .uID = vbNull '?
    .uFlags = NIF_ICON Or NIF_INFO Or NIF_MESSAGE Or NIF_TIP 'Parametros
    .uCallbackMessage = WM_MOUSEMOVE 'Parametros de respuesta al mouse
    .hIcon = Icono 'Icono a poner en el SysTray
    .szTip = TipText & vbNullChar 'ToolTipText del Icono
    .dwState = 0 '?
    .dwStateMask = 0 '?
End With

'Agregamos al SysTray
Shell_NotifyIcon NIM_ADD, nf_IconData
End Sub

Sub MostrarGlobo(Titulo As String, Texto As String, TipText As String, Optional Icono As IconType = IconoEXE)
'Establecemos un texto en el globo
With nf_IconData
    .cbSize = Len(nf_IconData) 'Tamaño del nf_IconData
    .uID = vbNull '?
    .uFlags = NIF_ICON Or NIF_INFO Or NIF_MESSAGE Or NIF_TIP 'Parametros
    .uCallbackMessage = WM_MOUSEMOVE 'Parametros de respuesta al mouse
    .szTip = TipText & vbNullChar 'ToolTipText del globo
    .dwState = 0 '?
    .dwStateMask = 0 '?
    .szInfo = Texto & Chr(0) 'Texto del globo
    .szInfoTitle = Titulo & Chr(0) 'Titulo del globo
    .dwInfoFlags = Icono 'Selecionamos el tipo globo, de informacion en este caso (NIIF_NONE, NIIF_INFO, NIIF_WARNING, NIIF_ERROR)
    .uTimeout = 3000 'Tiempo de espera  (millisec.)
End With

'Mostramos el mensaje del globo
Shell_NotifyIcon NIM_MODIFY, nf_IconData
End Sub

Sub CambiarIcono(Icono As Long)
'Establecemos el nuevo icono
nf_IconData.hIcon = Icono
'Establecemos el icono
Shell_NotifyIcon NIM_MODIFY, nf_IconData
End Sub

Sub QuitarIcono()
'Quitamos el icono
Shell_NotifyIcon NIM_DELETE, nf_IconData
End Sub

Public Sub TipText(Mensaje As String)
'Establecemos el nuevo ToolTipText del icono
nf_IconData.szTip = Mensaje & vbNullChar
'Establecemos el nuevo ToolTipText
Shell_NotifyIcon NIM_MODIFY, nf_IconData
End Sub

Function EventTray(mouseX As Single) As String
'Devolvemos el evento echo en el SysTray
Select Case mouseX / Screen.TwipsPerPixelX 'Tomamos las "coordenadas" de lo que hicimos
   Case WM_LBUTTONDOWN
      EventTray = "LEFTDOWN" 'Devolvemos que se apreto el click izquierdo
   Case WM_LBUTTONUP
      EventTray = "LEFTUP" 'Devolvemos que se solto el click izquierdo
   Case WM_LBUTTONDBLCLK
      EventTray = "LEFTDOUBLE" ''Devolvemos que se apreto 2 veces el click izquierdo
   Case WM_RBUTTONDOWN
      EventTray = "RIGHTDOWN" 'Devolvemos que se apreto el click derecho
   Case WM_RBUTTONUP
      EventTray = "RIGHTUP" 'Devolvemos que se solto el click derecho
   Case WM_RBUTTONDBLCLK
      EventTray = "RIGHTDOUBLE" ''Devolvemos que se apreto 2 veces el click derecho
End Select
End Function


Salu2
#348
Hombre el resultado en ese caso concreto puede ser el mismo, ahora la forma de llegar a el es totalmente distinta xD

Api hooking <> hooking
#350
Pues no se donde le ves tu el parecido y no, no es lo mismo ni por asomo, vamos a no ser q a ti te parezca lo mismo recojer las teclas del teclado o ver q ventanas se crean o destruyen q intercertar un api para ocultar procesos archivos, conexiones...

Ademas la forma de funcionar es totalmente distinta, pero es q no se parece en nada...