| |
VB.NET - Ein- und UmsteigerVirusbefall | | | Autor: Knabber | Datum: 29.12.23 08:23 |
| Hallo
Trotz Vorsichtsmaßnahmen ist es einem Hacker gelungen
in meinem Rechner eizudringen.
Der Schaden ist relativ klein.
Mein Hobby ist fotografieren und habe mehrere tausend Bilder
in verschiedenen Ordern auf meiner Festplatte.
und jedes dieser Bilder wurde verändert.
Statt xxx.jpg ist nun xxx.jpg ofww
Natürlich kann Ich den Namen ändern und die letzen
4 Buchstaben entfernen. dann sind die Bilder wieder OK
aber zigTausendmal ist schon eine Heidenarbeit
Hat jemand schon mal etwas ähnliches gehabt??
Habe daran gedacht ein Programm zu Schreiben
das mir die Arbeit abnimmt aber weiss nicht wie.
Das Programm müsste etwa sowas können:
User wählt ein verzeichnis
Programm zählt die Bilder im Verzeichnis
mit einer schleife an den Fotos die letzten 4 Buchstaben abschneiden
fertig
Im Augenblick sieht ein Ordner so aus
00002741.jpg ofww
00002742.jpg ofww
00002743.jpg ofww
00002744.jpg ofww
00002745.jpg ofww
...usw.
Vielleicht kann da jemand helfen
Gruß
Knabber | |
Re: Virusbefall | | | Autor: Manfred X | Datum: 29.12.23 09:18 |
| Public Class frmCorrectJPG
Dim fbd As New FolderBrowserDialog With
{.Description = "Ordner zur Entfernung illegaler JPEG-Extensions", _
.ShowNewFolderButton = False}
Dim WithEvents btnFolder As New Button With
{.Parent = Me, .Top = 10, .Left = 10, .Width = 300, .Text = _
fbd.Description}
Private Sub btnFolder_Click(sender As Object, e As EventArgs) Handles _
btnFolder.Click
If fbd.ShowDialog = DialogResult.Cancel Then Exit Sub
Me.Text = "Umbennennung im Ordner wird erledigt"
Me.Refresh()
Dim cnt As Integer
For Each file As String
In IO.Directory.EnumerateFiles(fbd.SelectedPath, "*.*", _
IO.SearchOption.TopDirectoryOnly)
If file.ToLower.EndsWith(" ofww") Then
Dim fn As String = IO.Path.GetFileName(file)
fn = fn.Substring(0, fn.Length - 5)
Try
My.Computer.FileSystem.RenameFile(file, fn)
cnt += 1
Catch ex As Exception
'was auch immer
End Try
End If
Next file
MsgBox(cnt.ToString & " Files sind umbenannt worden")
Me.Text = Me.Name
End Sub
End Class Habe zunächst übersehen, dass es sich nicht um Anfügung einer weiteren Extension handelt
Beitrag wurde zuletzt am 29.12.23 um 09:42:50 editiert. | |
Re: Virusbefall | | | Autor: Manfred X | Datum: 29.12.23 13:42 |
| Hallo!
Falls in allen Fällen nur die Datei-Erweiterung verändert worden ist,
kann man diese Erweiterung durch eine Methode der Parth-Klasse korrigieren.
Dateischleife und Ende-Überürüfungs des Dateinamens wie oben:
IO.Path.ChangeExtension(file, ".jpg") | |
Re: Virusbefall | | | Autor: Knabber | Datum: 29.12.23 15:27 |
| Hallo
Erst einmal vielen Dank für deine Mühe.
Musste eben einkaufen deshalb melde ich mich erst jetzt
Leider funktioniertt der Code nicht.
Das prog läuft durch aber es kommt die Meldung "0 Files sind umbenannt worden) | |
Re: Virusbefall | | | Autor: Knabber | Datum: 29.12.23 15:32 |
| Hallo
beim 2 en Versuch hat es geklappt. Wunderbar
Werde nun alle ordner damit bearbeiten.
Vielen, vielen dank für deine Hilfe | |
Re: Virusbefall | | | Autor: Knabber | Datum: 29.12.23 16:13 |
| soooo fertig
habe ca 46000 Fotos repariert
die hälfte waren euf meiner externen hdd (Sicherungskopie)
Werde mir wohl ein fernünftiges backupprogramm zulegen müssen.
Habe bis jetzt die fotos nur doppelt gespeichert. (langt wohl nicht)
Kann aber 2 Sachen absolut nicht verstehen???
1. Wie kommt der Virus oder was auch immer auf meinem PC
Habe ein teures Virenprogramm, VPN usw.
Lade nichts herunter, mache fragwürdige Mail nicht auf usw.
2. Was hat jemand davon, irgendeinen Schaden an fremden PC anzurichten??
(Der sieht doch nicht wenn man sich ärgert...)
Nun ist erst mal alles wieder i.O
( Werde meinem PC neu aufsetzen damit ich sicher bin das nichts bösartigees mehr auf meinem Rechner vorhanden ist)
nochmal vielen, vielen Dank | |
Re: Virusbefall | | | Autor: Manfred X | Datum: 29.12.23 18:38 |
| Hallo!
Die Veränderung von Datei-Extensionsist bei Virenbefall eher ungewöhnlich.
Oft werden Dateien durch die Schadsoftware verschlüsselt und gegen eine
Gebühr, die auf ein Auslandskonto zu überweisen ist, erhält man das Passwort,
um die Dateien wieder verwenden zu können.
Noch häufiger ist der Befall von Systemsoftware. Dadurch können Konten und
Passwörter unbemerkt gestohlen werden. Oder das System läuft zunehmend instabil
und Windows stürzt (ungewöhnlich oft) auch ab.
Ich vermute eher, ein falsch parametrisiertes Anwendungs-Programm ist über Deine
Dateien gelaufen und hat dabei eine einheitlich Umbennennung der Erweiterung durchgeführt.
Das kann eine simple Fehlbedienung gewesen sein. Oder eine Person, die Zugriff auf diese
Dateien hat, wollte Dich ein wenig foppen ... | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
TOP! Unser Nr. 1
Neu! sevDataGrid 3.0
Mehrspaltige Listen, mit oder ohne DB-Anbindung. Autom. Sortierung, Editieren von Spalteninhalten oder das interaktive Hinzufügen von Datenzeilen sind ebenso möglich wie das Erstellen eines Web-Reports. Weitere InfosTipp des Monats TOP Entwickler-Paket
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR...
Jetzt nur 599,00 EURWeitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|