Desinyectar DLL
25-may-2006, 15:56
|
#2 (permalink) |
 
Fecha de Ingreso: diciembre-2003
Ubicación: Córdoba, Argentina
Mensajes: 1.017
|
a que te referis con desinyectar una dll????
saludos
__________________
www.smsacelulares.com.ar Mensajes SMS a celulares Que hermosa que es esta comunidad... Usuario Linux : 404289 |
|
|
|
25-may-2006, 20:00
|
#4 (permalink) |
![[EX3] no se puede cailificar en este momento](http://static.forosdelweb.com/fdwtheme/images/reputation/reputation_balance.gif) ![Avatar de [EX3]](http://www.forosdelweb.com/customavatars/avatar131179_1.gif){kind=avatar}
Fecha de Ingreso: marzo-2006
Ubicación: Fuenlabrada, Madrid
Mensajes: 203
|
En teoria sabiendo su instancia con FreeLibrary() se descarga una libreria de la memoria:
Código:
Esa instancia te la devuelven funciones como LoadLibrary() y GetModuleHandle().Declare Function FreeLibrary Lib "kernel32" Alias "FreeLibrary" (ByVal hLibModule As Long) As Long Salu2...
__________________
Proyecto dx_lib32 (http://dxlib32.se32.com) Libreria DLL ActiveX para el desarollo de juegos y programas multimedia en Visual Basic 6.0 con la potencia de DirectX Dice un dicho que "el que calla otorga". En internet tenemos otro que dice "nunca alimentes a un troll" que viene a decir "dejale hablar solo que se ya se cansara de incordiar". Solo los necios creen tener la razon con la ultima palabra. |
|
|
|
|
26-may-2006, 08:57
|
#5 (permalink) |
 Fecha de Ingreso: abril-2006
Mensajes: 51
|
encontre este codigo pero no entiendo como indicarle que dll quitar
Código:
'--------------------------------------------------------------
'Descargar una DLL o EXE que esté en memoria ( 6/Jul/97)
'
'Basado en un código de Bruce McKinney y que realiza la misma
'tarea que WPS.exe para descargar módulos y ejecutables.
'(se supone)
'--------------------------------------------------------------
Option Explicit
Declare Function GetModuleHandle Lib "Kernel" (ByVal lpModuleName As String) As Integer
Declare Function GetModuleUsage Lib "Kernel" (ByVal hModule As Integer) As Integer
Declare Sub FreeModule Lib "Kernel" (ByVal hModule As Integer)
Public Sub Main()
Dim hModule As Integer
'El módulo a librerar se pasa en la línea de comandos
hModule = GetModuleHandle(Command$)
If hModule = 0 Then Exit Sub
'Libera todas copias de este módulo
Do While GetModuleUsage(hModule) > 0
Call FreeModule(hModule)
Loop
End Sub
Última edición por XP.; 26-may-2006 a las 09:38. |
|
|
|
Mode Lineal
La Zona horaria es GMT -6. Ahora son las 11:23.
