elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Recopilación Tutoriales y Manuales Hacking, Seguridad, Privacidad, Hardware, etc


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Enviar archivo
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] 2 Ir Abajo Respuesta Imprimir
Autor Tema: Enviar archivo  (Leído 7,371 veces)
NYlOn


Desconectado Desconectado

Mensajes: 842


OOOOHHHHHH, TARAGÜIIII xDDDDDD


Ver Perfil WWW
Enviar archivo
« en: 28 Agosto 2005, 00:26 am »

bueno, queria compartir con uds un metodo sencillo para enviar archivos x medio de un WinSock ya que veo que siempre tienen problemas con esto
espero que les sea util

ak va el codigo del Cliente (el q manda el archivo)
Código:
Private Sub Command1_Click()
Dim SaveIn As String
Command1.Enabled = 0 'para que no mandarlo 2 veces
SaveIn = txtSaveIn.Text
tcpCliente.SendData SaveIn 'mandamos la ubicacion de donde se guardarra el archivo en el servidor

DoEvents 'cuando termine...
'mandamos el archivo

Dim Buffer As String * 50000 'declaramos la variable de 1 Kb
Common.ShowOpen 'buscamos el archivo a enviar
Open Common.FileName For Binary As #1 'abrimos en modo binario
    Do While Not EOF(1) 'mientras no lleguemos al final
        Get #1, , Buffer
        tcpCliente.SendData Buffer 'va mandando los datos
    Loop 'hasta q terminemos
Close #1 'cerramos el archivo
End Sub

Private Sub Form_Load()
txtSaveIn.Text = "Guardar en..."

'esto se puede sacar =)
tcpCliente.RemoteHost = "127.0.0.1"
tcpCliente.RemotePort = 4664
tcpCliente.Connect
End Sub

Private Sub tcpCliente_SendComplete()
Command1.Enabled = 1
End Sub

ak ta el code del servidor (el q resive el archivo)

Código:
Private Sub Form_Load()
tcpServidor.LocalPort = 4664
tcpServidor.Listen
End Sub

Private Sub tcpServidor_ConnectionRequest(ByVal requestID As Long)
tcpServidor.Close
tcpServidor.Accept requestID
End Sub

Private Sub tcpServidor_DataArrival(ByVal bytesTotal As Long)
Dim Datos As String
Dim SaveIn As String
Dim i As Long
tcpServidor.GetData Datos

i = Len(Datos) - 3

   Select Case Mid(Datos, i, 1)
        Case "."
            SaveIn = Datos
            Label1.Caption = SaveIn
        Case Else
            'guardamos los datos
            Open Label1.Caption For Binary As #1
            Seek (1), LOF(1) + 1
            Put #1, , Datos
            Close #1
    End Select
End Sub

bueno espero q le sirva a alguien ::D
el codigo esta probado, pero si alguien tiene algun problema q pregunte

un salud0

G0nz4


En línea

Numeros

Desconectado Desconectado

Mensajes: 110



Ver Perfil
Re: Enviar archivo
« Respuesta #1 en: 28 Agosto 2005, 06:08 am »

Bravo!  ;D


« Última modificación: 28 Agosto 2005, 06:20 am por Numeros » En línea

programatrix


Desconectado Desconectado

Mensajes: 3.287


Ver Perfil WWW
Re: Enviar archivo
« Respuesta #2 en: 28 Agosto 2005, 12:26 pm »

Bien, ya no tendré que buscar código para enviar ficheros en mi troyano aré copy&paste
Es broma   ;D
En línea

NYlOn


Desconectado Desconectado

Mensajes: 842


OOOOHHHHHH, TARAGÜIIII xDDDDDD


Ver Perfil WWW
Re: Enviar archivo
« Respuesta #3 en: 28 Agosto 2005, 20:52 pm »

jajaja xD

(che reydelmundo, el code ta diseñado para un troyano, pero SH !)  :Pç

q buen0 que les sirva  :)
En línea

Xpeed


Desconectado Desconectado

Mensajes: 472


Res Publica Non Dominetur


Ver Perfil
Re: Enviar archivo
« Respuesta #4 en: 28 Agosto 2005, 22:13 pm »

Citar
Dim Buffer As String * 50000 'declaramos la variable de 1 Kb

pero creo que ese bufer es muy alto para transminion de datos no?¿ ... para que sea de un Kb deberia ser de 1024


un saludo.
En línea

NYlOn


Desconectado Desconectado

Mensajes: 842


OOOOHHHHHH, TARAGÜIIII xDDDDDD


Ver Perfil WWW
Re: Enviar archivo
« Respuesta #5 en: 28 Agosto 2005, 23:54 pm »

antes lo usaba con 1kb pero lo aumente para ver que onda... y no tuve problemas ...

aclaro, que el codigo es MUY mejorable, es para que no se compliquen la vida con lineas y lineas de codigo ;D

un salud0

G0nz4
En línea

Kizar


Desconectado Desconectado

Mensajes: 1.325


kizar_net


Ver Perfil
Re: Enviar archivo
« Respuesta #6 en: 29 Agosto 2005, 21:27 pm »

El codigo que hice yo es casi = k este y te juego lo que quieras a que solo funciona si ejecutas el server y el client en el mismo ordenador, si los ordenadores tan conectados por internet no te llega ni de fly, solo te llega el primer cacho o cachos pequeños, lo k ace inservible, probadlo alguno, comprovar y comentar aqui.
 :(

Salu2
En línea

NYlOn


Desconectado Desconectado

Mensajes: 842


OOOOHHHHHH, TARAGÜIIII xDDDDDD


Ver Perfil WWW
Re: Enviar archivo
« Respuesta #7 en: 31 Agosto 2005, 00:30 am »

Citar
El codigo que hice yo es casi =
que es lo diferente del code ?? tal vez eso haga que funcione xD
yo lo probe en mi pc y anduvo sin problemas ...
si a alguien no le funciona que postee plz
un saludo

G0nz4
En línea

Kizar


Desconectado Desconectado

Mensajes: 1.325


kizar_net


Ver Perfil
Re: Enviar archivo
« Respuesta #8 en: 31 Agosto 2005, 02:10 am »

Código:
Seek (1), LOF(1) + 1

Esto es lo k no tengo, pero lo unico k ace es dejar un espacio en blanco cada vez k recibe una parte del archivo, e provado cientos de codigos, y a la hora de bajar algo de una victima solo se reciben parte del codigo.

si lo uso en mi equipo funciona perfecto.

Si keres agregame al msn, me das el client y lo provamos.
En línea

Chief

Desconectado Desconectado

Mensajes: 232


Ind. Arg.


Ver Perfil
Re: Enviar archivo
« Respuesta #9 en: 31 Agosto 2005, 04:11 am »

Hola, bueno yo no he probado el code.
Dexonline dices que atravez de internet solo te llega un pedaso y algunos mas y nada mas??,  y no probaste establecer como protocolo de winsock = sckTCPProtocol   ???
 Quizas asi funcione.

Salu2!!!
En línea

sr. oscuro

Páginas: [1] 2 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[DUDA] Enviar archivo a un ftp en C (windows)
Programación C/C++
DrKillador 2 3,210 Último mensaje 3 Enero 2013, 16:56 pm
por DrKillador
Función Enviar Archivo VirusTotal (Escanea)
Programación Visual Basic
Danyfirex 2 2,157 Último mensaje 27 Mayo 2013, 07:46 am
por BlackZeroX
Enviar un archivo a un servidor « 1 2 »
Programación C/C++
Vaagish 11 6,047 Último mensaje 9 Febrero 2014, 07:31 am
por xv0
Enviar a ftp archivo
Scripting
dian1919 4 3,756 Último mensaje 14 Octubre 2022, 21:27 pm
por Danielㅤ
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines