Mensajes

No va a listar tu maquina, es para escanear IPs, la idea es encontrar las demas maquinas o equipos conectados en la misma red. No es para ver tu IP.

Aca esta la lista mia.

Scanning IP range 192.168.0.1/192.168.0.255 - 31/08/2007 23:13:54
Waiting reply...

        192.168.0.1
        192.168.0.2
        192.168.0.3
        192.168.0.4
        192.168.0.9
        192.168.0.21
        192.168.0.200
        192.168.0.201
        192.168.0.202
        192.168.0.203

Si estas en una red proba esto 192.168.0.1/192.168.0.255, tendrias que poder ver la lista de maquinas, routers, impresoras o cualquier otra cosa en la red.

El nuevo archivo viene con source code "para los que no confian"

Si funciona bien lo posteo aca, pero primero quiero estar seguro que funciona, no quiero postear un codigo que funcione mal.

Bueno lo que hace es escanear la red (LAN no Internet), y el resultado deberia ser una list de las IP que respondieron "pueden ser un Router, PC, o cualquier otra cosa).

[compilado para correr desde la consola]

Nueva version

Se que muchos no lo querian ver porque estaba compilado, asi que ahora la descarga tiene el source code, el programa para compilar y el codigo del compilador.

Bueno les comento, hace unos dias estaba trabajando en un programita, un IP Scanner, y la verdad esta funcionando correctamente (al menos aca), puede escanear 255 IPs en alrededor de 1 segundo, muy rapido, el programa basicamente usa RAW Sockets y lo que hace es enviar ARP packets y luego leer el ARP Table,  esta hecho en VB 6 compilado para correr desde la consola y empaquetado con YP.

Me gustaria que lo prueben y me comenten como funciona y si tienen alguna idea para mejorarlo. Cuando este "listo" funcionando bien y probado voy a postear el codigo aca para cuaquier interesado.

Aca les dejo el link http://www.filefactory.com/mupc/9af0e7/

Un saludo y gracias.

private bOnline as boolean


private sub Timer1...
dim bRet as boolean

bret = CheckStatusConn

if bret then
if not bOnline then
   bOnline =true
   'aca es donde te conectas
  end if
else
  bOnline =false
end if
end sub

Un a cosa que podes hacer es poner Sleep 100 junto con cada DoEvents, esto ayuda a no cargar tanto el sistema,  parar el timer "Timer1.Enabled = False al entrar en Timer1_Timer y reanudalo antes de salir, por que si el proceso que esta dentro tarda mucho el timer se va a disparar nuevamente antes de que tu funcion termine. Con respecto a lo demas, mantener la conexión abierta no me parece buena idea y por ultimo, si no tienes nada para detener or pasar los Firewalls este programa posiblemente sea bloqueado. Si lo que vas a hacer es nada mas que eso, una idea simple es abrir una instancia de Internet Explorer de manera oculta, y usar el shell para manejarla, como Iexplore esta habilitado en casi todas las maquinas no habria problema.

La verdad no se cual es exactamente el problema, si lo podes decribir mejor.. no recibis nada... o que.
P.S: Hay un tutorial de como escribir un troyano, lo vi ayer (hace 1 o 2 dias que estoy aca) creo que es de EON, cliente en visual, servidor en C.

Mirate esto primero http://foro.elhacker.net/index.php/topic,167301.0.html

Usa API el codigo no es corto pero si queres te mando un link de donde lo podes bajar