online chat über ftp

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von aetium.

    online chat über ftp

    Hallo leute ich brauche zurzeit hilfe bei einem online chat der über nen ftp server laufen soll
    der code bis jetzt

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Senden_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Senden.Click
    4. Dim Minuten As String = My.Computer.Clock.LocalTime.Minute
    5. Dim Stunden As String = My.Computer.Clock.LocalTime.Hour
    6. Dim WC As New Net.WebClient
    7. Dim name As String
    8. name = Namensanzeige.Text
    9. ProgressBar1.Value = 33
    11. WC.Credentials = New Net.NetworkCredential("name", "passwort")
    12. ProgressBar1.Value = 66
    13. WC.UploadString("ftp://4storyverlosung.square7.ch/chattextdatei.txt", Ausgabefeld.Text & vbCrLf & " " & Stunden & ":" & Minuten & " " & Namensanzeige.Text & ": " & Eingabefeld.Text)
    14. Eingabefeld.Clear()
    16. End Sub
    19. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    20. Me.BackColor = My.Settings.Hintergrundfarbe
    22. Dim WC As New Net.WebClient
    23. WC.Credentials = New Net.NetworkCredential("name", "passwort")
    24. Ausgabefeld.Text = WC.DownloadString("ftp://4storyverlosung.square7.ch/chattextdatei.txt")
    25. Downloader.Enabled = True
    27. End Sub
    29. Private Sub Downloader_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Downloader.Tick
    30. Dim WC As New Net.WebClient
    31. WC.Credentials = New Net.NetworkCredential("name", "passwort")
    32. Ausgabefeld.Text = WC.DownloadString("ftp://4storyverlosung.square7.ch/chattextdatei.txt")
    34. End Sub
    36. Private Sub Online_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Onliner.Tick
    37. RichTextBox1.Text = ""
    38. Dim WC As New Net.WebClient
    39. WC.Credentials = New Net.NetworkCredential(""name", "passwort")
    40. RichTextBox1.Text = WC.DownloadString("ftp://4storyverlosung.square7.ch/chattextdatei.txt")
    41. Timer1.Start()
    42. Onliner.Stop()
    44. End Sub
    46. Private Sub Usermaker_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    47. Dim WC As New Net.WebClient
    48. WC.Credentials = New Net.NetworkCredential("name", "passwort")
    49. RichTextBox1.Text = WC.UploadString("ftp://4storyverlosung.square7.ch/Benutzertextdatei.txt", Namensanzeige.Text + vbCrLf + RichTextBox1.Text)
    51. End Sub
    53. Private Sub Einstellungen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Einstellungen.Click
    54. Me.Width = 826
    55. End Sub
    57. Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    58. Me.Width = 690
    59. End Sub
    61. Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    62. Dim WC As New Net.WebClient
    63. WC.Credentials = New Net.NetworkCredential("name", "passwort")
    64. RichTextBox1.Text = WC.UploadString("ftp://4storyverlosung.square7.ch/chattextdatei.txt", " ")
    65. End Sub
    67. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    68. Dim WC As New Net.WebClient
    69. RichTextBox1.Text = ""
    70. WC.Credentials = New Net.NetworkCredential("name", "passwort")
    71. RichTextBox1.Text = WC.DownloadString("ftp://4storyverlosung.square7.ch/Benutzertextdatei.txt")
    72. End Sub
    74. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    75. Timer2.Stop()
    76. Dim WC As New Net.WebClient
    77. WC.Credentials = New Net.NetworkCredential("name", "passwort")
    78. Dim Nutzerdaten As String = RichTextBox1.Text
    79. Nutzerdaten = Replace(Nutzerdaten, Namensanzeige.Text, "")
    80. RichTextBox1.Text = Nutzerdaten
    81. WC.UploadString("ftp://4storyverlosung.square7.ch/Benutzertextdatei.txt", RichTextBox1.Text)
    82. Me.Close()
    84. End Sub
    86. Private Sub Ausgabefeld_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ausgabefeld.TextChanged
    87. Ausgabefeld.SelectionStart = Ausgabefeld.Text.Length
    88. Ausgabefeld.ScrollToCaret()
    90. End Sub
    91. End Class


    also gibt noch paar probleme mit dem user die online sind anzeigen
    bitte added mich bei skype
    name:enverkalypse
    damit ich euch das problem genau erklären kann
    oder bei icq:
    nummer: 434-404-262
    aber bei icq bitte bei schreiben das ihr aus vb paradis seit sonst nehme ich keinen an weil da meistens nur welche mich adden wo ich dann sofort nen virus aufem pc habe


    mfg creepz.

    Welche "h4xx0r3d" Nachricht soll ich dir dann in den Chat stellen wenn er fertig ist? Hast die Wahl :P

    Ne, jetzt mal ernst:
    FTP Chats sind sehr unsicher. Schreibe die Datei doch per PHP. Dann kommt man weningstens nicht mehr an die Logindaten vom FTP Server rann.

    Dann mach es richtig und nimm TCP.
    FTP ist nicht für Chats da. Das wirst du spätestens merken, wenn dein FTP leer ist und dir das Script-Kiddy eine Nachricht hinterlassen hat.

    Bevor du dein Vorhaben in die Tat umsetzt, hör bitte darauf, was die Leute dir hier raten. Wir hatten in diesem Forum bereits jemanden, der nicht drauf hören wollte, dass FTP-Chats unsicher sind, und sich darauf hin ein oder zwei Leute in seinen Chat "gehacked" haben, um ihm mehr oder minder zu zeigen, dass es unsicher ist. (Oder um sich cool zu fühlen und sagen zu können, "Wow, ich bin voll der krasse Hacker" - Dies wär man mit einer solchen Aktion allerdings nicht)

    Ich möchte dich deshalb bitten, dir den folgenden Thread einmal durchzulesen, bevor du mit einem FTP-Chat beginnst.
    FTP-Server gehackt

    Insofern -> Lern php oder lass es bleiben und lebe mit den Konsequenzen

    EDIT: Und dazu gilt zu beachten, dass du mit Windows-Forms keine Online-Applikationen schreiben kannst (wurde bereits von dem User "Bernd" erwähnt). Wenn du mit Visual Basic Webseiten oder Webanwendungen schreiben willst, wirst du um ASP.NET nicht herum kommen.
    Blos sobald es um security geht, solltest du von solchen Dingen (FTP-Applikationen / Chat) einfach absehen.

    Grüße,
    aetium

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „aetium“ ()

Facebook
Telefonspende