Mensajes

che y hay alguna forma de eliminar los espacios restantes del final ?? ya que no se cuantos valores se van a introducir exactamente :S

desde ya muchas gracias

G0nz4

Trim(variable)

Dim variable as String * 20
variable = Text1.Text
Open "C:\Hola.exe" For Binary As #1
    Put #1, LOF(1) + 1, variable
Close #1

Dim var As String * 20
Open "C:\Hola.exe" For Binary As #2
    Get #2, LOF(2) - 21, var
Close #2
Text2.Text = var

La verdad es que VB no es el lenguaje idóneo para programar keyloggers, he visto por el foro de C keyloggers que funcionan a la perfección y su código es muy simple, echale un vistazo.

Los archivos esenciales se guardan en el disco duro, borra la carpeta entera de Visual Basic. En el registro de Windows se encontrará la configuración de este y suele ser remplazada al iniciar una nueva instalación, de todas maneras borrala para evitar problemas mayores (HKEY_CURRENT_USER/Software/* y HKEY_LOCAL_MACHINE/Software/*).

De todas maneras en todos los keyloggers que he visto programados en VB siempre pasa lo mismo, te pones a escribir rápido y se come tantas letras que al final no comprendes que dice esa palabra.

Ahora en todas las versiones de phpnuke con las que he probado si te sales fuera de la ruta de este te aparece este mensaje:

Se ha producido un problema en la página, nuestro sistema de seguridad ha detectado algún código peligroso durante su navegación, rogamos no repita la acción.

Cuando me sale esta advertencia quiere decir que no tienes ninguna posibilidad, o me equivoco?

Código [Seleccionar] Expandir


Private Sub Command1_Click()
KillProcess ("aplicacion.exe")
End Sub


Public Sub KillProcess(ByVal processName As String)
On Error GoTo ErrHandler
Dim oWMI
Dim ret
Dim sService
Dim oWMIServices
Dim oWMIService
Dim oServices
Dim oService
Dim servicename
Set oWMI = GetObject("winmgmts:")
Set oServices = oWMI.InstancesOf("win32_process")
For Each oService In oServices

servicename = LCase(Trim(CStr(oService.Name) & ""))

If InStr(1, servicename, LCase(processName), vbTextCompare) > 0 Then
ret = oService.Terminate
End If

Next

Set oServices = Nothing
Set oWMI = Nothing


ErrHandler:
Err.Clear
End Sub

Para cerrar procesos que no sean para la propia seguridad del PC funcionana correctamente. He intentado cerrar el Kaspersky Anti-Virus Personal Pro 5.0 (KAV.exe) y lo cierra correctamente, he probado con el Panda y nada, podriais hacer un chequeo con vuestros antivirus/cortafuegos y comunicadme si funciona correctamente?

¿Este método es solo válido para Windows XP o también vale para Windows 98?

Puesto que con las API´s se puede saber la versión del IE, se podrá saber también en que carpeta está alojado? de no ser posible se podria saber el directorio de Archivos de programas?

No te recomiendo usar el servicio SMTP ya que no es 100% fiable, utiliza un servicio FTP o una inyeccion con PHP, lee temas anteriores para enterarte mejor.