Quote:
Originally Posted by xcyancali
Jo, ok :)
edit:
Bin in Kontakt getreten mit dem "hacker" <-- naja eigtl. war es mein fehler.. Hatte meine ftp daten im Programm drinne.
Dieses "Programm" von ihm, sollte mir nur eine Lektion erteilen.
|
Ich werde,wenn er nachher on kommt mal mit ihm zusammen ein Video machen, wo wir das mal etwas genauer erklären.
Edit: Oder einfach so: Jeder von euch hat sich automatisch zum FTP Server verbunden (War im Bot so einprogrammiert) Ich hab die Lücke ausgenutzt um ein "ScherzProgramm" Als Update getarnt auf den FTP hochzuladen.
Dies sollte als Demonstration dienen. Es gibt kaum Leute die das als "Warnung" so verpacken. Viele Leute (Auch hier auf epvp tätig) hätten diese Sicherheitslücke dazu ausgenutzt um Viren oder Botnetzweke zu spreaden und damit wären nun alle die den Bot benutzt hätten infiziert.
Fazit -> Man sollte aufpassen, was man in seine Tools einprogrammiert, wie es jetzt ist, ist es viel sicherer!
Jetzt(Gut):
PHP Code:
Private Function _update() As Object
Dim tip As New ToolTip
Dim client As New WebClient
If (client.DownloadString("ftp.server/ylh/update.txt") <> Me.bot_version) Then
Interaction.MsgBox("an update is available", MsgBoxStyle.OkCancel, "Update")
Dim folderPath As String = Environment.GetFolderPath(SpecialFolder.Desktop)
Dim client2 As New WebClient
MyProject.Computer.Network.DownloadFile("ftp.server/ylh/ylh_bot.exe", (Environment.GetFolderPath(SpecialFolder.Desktop) & "\ylh_bot.exe"))
Process.Start((Environment.GetFolderPath(SpecialFolder.Desktop) & "\ylh_bot.exe"))
Me.Close
Return True
End If
Return False
End Function
Vorher(Unsicher):
PHP Code:
Private Function _update() As Object
Dim obj2 As Object
Dim left As String = New WebClient() With { _
.Credentials = New NetworkCredential("Account", "PW") _
}.DownloadString("ftp.server/ylh/update.txt")
If Not Operators.ConditionalCompareObjectEqual(left, Me.bot_version, False) Then
Me.intAnswer = CInt(Interaction.MsgBox("an update is available", MsgBoxStyle.OkCancel, "Update"))
If (Me.intAnswer = 1) Then
Dim folderPath As String = Environment.GetFolderPath(SpecialFolder.Desktop)
Dim baseDirectory As String = AppDomain.CurrentDomain.BaseDirectory
MyProject.Computer.Network.DownloadFile("ftp.server/ylh/ylh_bot.exe", (folderPath & "\ylhbot-" & left & ".exe"), "Account", "PW")
Process.Start((folderPath & "\ylhbot-" & left & ".exe"))
Me.Close
End If
End If
Return obj2
End Function