Foro de elhacker.net

Programación => Scripting => Mensaje iniciado por: daryo en 29 Abril 2014, 21:17 pm



Título: [pregunta]cual es la mejor forma de hacer un uploader en vbs
Publicado por: daryo en 29 Abril 2014, 21:17 pm
eso que opinan uso  winsock? , PUT de http con MSXML2.XMLHTTP, mm no se alguna idea? gracias  ;D


Título: Re: [pregunta]cual es la mejor forma de hacer un uploader en vbs
Publicado por: Mad Antrax en 30 Abril 2014, 01:36 am
Código
  1. Set oINT = CreateObject("MSXML2.xmlHTTP")
  2. Function SendFile(A)
  3. On Error Resume Next
  4. Set objStream = CreateObject("ADODB.Stream")
  5. objStream.Type = 1
  6. objStream.Open()
  7. objStream.LoadFromFile(A)
  8. Set objXML = CreateObject("MSXml2.DOMDocument")
  9. Set objDocElem = objXML.createElement("Base64Data")
  10. objDocElem.dataType = "bin.base64"
  11. objDocElem.nodeTypedValue = objStream.Read()
  12. B = objDocElem.text
  13. oINT.Open "post", "http://" & Host & ":" & Port , False
  14. oINT.Send "::sendfile::" & A & "<>" & B & "::<:end:>"
  15. End Function

Ésta es la función que utilizo yo.

Llamo la función SendFile("C:\hola.txt")

El fichero se abre con Adob.Stream y utilizando el COM de XML lo transformo en un array Base64. Luego lo envío con un objeto MSXML2.xmlHTTP

En la parte del receptor, tendrás que transformar el Base64 y crear el fichero en modo binario.


Título: Re: [pregunta]cual es la mejor forma de hacer un uploader en vbs
Publicado por: daryo en 30 Abril 2014, 02:09 am
muchas gracias!