Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Dateiname wurden in (o.O)neuerDateiname.neueExtension verändert

Mitglied: luggi

luggi (Level 1) - Jetzt verbinden

29.01.2007, aktualisiert 18.02.2007, 5810 Aufrufe, 4 Kommentare

Die neuen Dateinamen wurden aus den ehemaligen Dateinamen gebildet. jeder Name beginnt mit (o_O).
jedes Zeichen des alten Namens wurde gegen den eigenen Hexcode+1 ausgetauscht a wird b, b wird c usw. inclusive Extension (.exe wird .fyf, .pdf wird .qeg). Nummern und Sonderzeichen wurden nicht geändert.
Beispiel: uedit32.exe wurde zu vfeju32.fyf

gestern tauchten auf dem PC meines Kollegen oben genannte Dateiennamen statt der üblichen auf der Oberfläche auf. Bei genauerem Nachprüfen erstreckte sich das Dilemma über den ganzen PC und auf einige Verzeichnisse auf dem Datenserver. Es wurden nur Dateien und keine Verzeichnisse umbenannt. Ursache unbekannt.
Betriebssystem Win2000 Workstation. Server: Win2000 Server mit Virenscanner von Symantec Enterprice-Version.
Für den Server gibts eine Datensicherung, aber nicht für die Workstation.

Wer kennt die Ursache oder ist damit schon behelligt worden.
Gibt es eine Abhilfe, die Dateien wieder umzubenennen.
Mitglied: bastla
30.01.2007 um 19:05 Uhr
Hallo luggi!

Hört sich ja ziemlich übel an ...

Zum "Reparieren" der Dateinamen könnte ich das folgende Script (ohne Gewähr - Verwendung auf eigene Gefahr) anbieten:
01.
'RepairFileNames.vbs
02.
Set fso = CreateObject("Scripting.FileSystemObject")
03.
If WScript.Arguments.Count < 1 Then
04.
	WScript.Echo "Aufruf mit " & WScript.ScriptFullName & " Ordnername"
05.
	WScript.Quit
06.
End If
07.
sFolder = WScript.Arguments(0)
08.
If fso.FolderExists(sFolder) Then
09.
	Process sFolder
10.
	WScript.Echo "Fertig."
11.
Else
12.
	WScript.Echo sFolder & " ist kein gültiger Ordnername."
13.
End If
14.
Wscript.Quit
15.
 
16.
Sub Process(sFolder)
17.
On Error Resume Next
18.
Set oFolder = fso.GetFolder(sFolder)
19.
For Each oSubFolder in oFolder.SubFolders
20.
    Process oSubFolder
21.
Next
22.
For Each oFile in oFolder.Files
23.
	sOldName = oFile.Name
24.
	If Left(sOldName, 5) = "(o_O)" Then
25.
		L = Len(sOldName)
26.
		sNewName = ""
27.
		For i = 6 To L
28.
			cChar = Asc(Mid(sOldName, i, 1))
29.
			If cChar >= 66 And cChar <= 91 Or cChar >= 98 And cChar <= 123 Then
30.
				cChar = cChar - 1
31.
			End If
32.
			sNewName = sNewName & Chr(cChar)
33.
		Next
34.
		WScript.Echo oFile.Path & " ----- " & sNewName
35.
		oFile.Name = sNewName
36.
	End If
37.
Next
38.
End Sub
Speichern als "RepairFileNames.vbs" (zB in C:\Scripts), aufrufen von der Kommandozeile aus über
01.
cscript //nologo C:\Scripts\RepairFileNames.vbs D:\Test > D:\RepairFileNamesLog.txt
wobei D:\Test ein Ordner ist, dessen Inhalt (und auch jener ev Unterordner) nach Dateinamen mit "(o_O)" an den ersten 5 Stellen durchsucht wird. Gefundene Dateien werden nach dem Schema "Buchstabe um eins runter" umbenannt, wobei in dieser Fassung nur die Buchstaben von "A" bis "Z" und von "a" bis "z", aber keine Umlaute etc berücksichtigt werden (und natürlich wird "(o_O)" entfernt).

Für jede umbenannte Datei wird eine Zeile ausgegeben (siehe Anweisung "WScript.Echo ...") und bei der oben beschriebenen Form des Aufrufs in eine Logdatei geschrieben. Falls dies nicht gewünscht wäre, einfach vor "WScript.Echo ..." ein Apostroph (') setzen.

HTH und alles Gute
bastla
Bitte warten ..
Mitglied: Biber
30.01.2007 um 19:40 Uhr
hmmmm....

Ausnahmsweise würde ich da im Moment keine Skripte kaufen lassen...

Sondern
a) Netzwerkverbindung trennen und getrennt lassen
b) Rechner nur anschalten, wenn ich eine geeignete "saubere" Boot-CD eingelegt habe
c) und das auch nur, wenn ich Programme laufen lassen will, die dieses Joke-Programm lokalisieren können (SpyBot S&D, Avira, TrendMicro).

Dieses Hase-und-Igel-Umbenennen hat vorher keinen Sinn, und wenn Du Pech hast, wird Dir die RepairFilenames.vbs unterwegs in O_oRepairFilenames.wct umbenannt.

Abgesehen davon ist wahrscheinlich gar keine CScript.exe mehr da zum *.vbs ausführen.

Das Per-Skript-Reparieren kannst Du statt heute genausogut am nächsten Dienstag machen, oder wann immer der Schädling entfernt ist.

Heute wäre es so sinnvoll wie eine Motorwäsche während eines Sandbahnrennens.

Gruß
Biber
Bitte warten ..
Mitglied: luggi
31.01.2007 um 19:14 Uhr
hallo bastla,

erst mal danke für dein Script.
ich komme morgen wieder ins Büro um dein Script auszutesten.
Wie es aussieht, haben wir einen Exoten eingefangen.
In den entsprechenden Foren war nirgens ein brauchbarer Hinweis oder ein derartiger Befall vermerkt.

Logischerweise werde ich ensprechend nach Bibers Anweisung vorher den PC gründlich absuchen.
Ich hatte übrigens sofort am abgekoppelten PC nach Malware gesucht mit Adaware und
Spybotsd aber nichts auffälliges gefunden.
Meine Kollegin hat den Server mittlerweile mit dem Backup restauriert.
Die Workstation steht noch zur Säuberung an.
Erst mal danke für eure Hilfe.

Luggi
Bitte warten ..
Mitglied: luggi
18.02.2007 um 20:54 Uhr
Das Problem ist nun beseitigt.
Mit Virenscannern und Malware-Suchern wurde kein Schadensprogramm gefunden.
Durch verschiedene Tests und beobachten der Prozessliste haben wir den Verursacher herausgefunden und beseitigt: Im Verzeichnis c:\windows hatte sich GMM.EXE eingenistet.
Nach Löschen von GMM.EXE war endlich Ruh.
Das script hat wunderbar funktioniert.

Nochmals Danke an alle Helfer.
Luggi
Bitte warten ..
Neue Wissensbeiträge
iOS
WatchChat für Whatsapp
Tipp von Criemo vor 2 TageniOS3 Kommentare

Ziemlich coole App für WhatsApp User in Verbindung mit der Apple Watch. Gibts für iOS sowohl als auch für ...

iOS
IOS hat nen Cursor !!!
Tipp von Criemo vor 2 TageniOS5 Kommentare

Nette Funktion im iOS. iPhone-Mauszeiger aktivieren „Nichts ist nerviger, als bei einem Tippfehler zu versuchen, den iOS-Cursor an die ...

Off Topic
Avengers 4: Endgame - Erster Trailer
Information von Frank vor 4 TagenOff Topic2 Kommentare

Ich weiß es ist Off Topic, aber ich freue mich auf diesen Film und vielleicht geht es anderen hier ...

Webbrowser
Microsoft bestätigt Edge mit Chromium-Kern
Information von Frank vor 5 TagenWebbrowser5 Kommentare

Microsoft hat nun in seinem Blog bestätigt, dass die nächste Edge Version kein EdgeHTML mehr für die Darstellung benutzen ...

Heiß diskutierte Inhalte
Hosting & Housing
VMware VM mit über 1TB RAM für S4HANA
gelöst Frage von Leo-leHosting & Housing24 Kommentare

Hallo zusammen, wer hat Erfahrng und kann mir einen Tipp zum sizing von S4HANA Systemen geben? Wir möchten, zunächst ...

LAN, WAN, Wireless
WLAN und Ausmessung - Eine Glaubensfrage?
Frage von ptr2brainLAN, WAN, Wireless23 Kommentare

Liebe Experten, als Sys-Admin habe ich mir schon öfter die Frage gestellt, ob es sich beim Thema WLAN und ...

Virtualisierung
Gebrauchte Server Hardware als Virtualisierungs-"Spielwiese"?
Frage von NixVerstehenVirtualisierung19 Kommentare

Einen wunderschönen guten Morgen zusammen, ich möchte mich gerne etwas tiefer mit dem Thema Virtualisierung beschäftigen und dazu ein ...

Drucker und Scanner
SW-Laserdrucker mit sechs Papierfächern gesucht
Frage von MOS6581Drucker und Scanner19 Kommentare

Moin, zur Abwechslung mal eine sonderbare Anforderung :) Ich suche einen S/W Laserdrucker (kein MFP), der sechs Papierfächer bzw. ...