Последний шаг в борьбе с вирусом
Написал AVZ-скрипт для переименования папки по имени .. с флэшек (то, ради чего раньше лазил в WinHex):
var
i: integer;
S: string;
begin
for i:=ord('A') to ord('Z') do
begin
S:='\\?\'+Chr(i)+':\';
if GetDriveType(S) = 2 then
begin
AddToLog('Проверяется съемный диск '+ copy(S,5,3));
if DirectoryExists(S+'..') then
begin
RenameFile(S+'..', S+'Recovered_by_AVZ');
end;
end;
end;
end.
var
i: integer;
S: string;
begin
for i:=ord('A') to ord('Z') do
begin
S:='\\?\'+Chr(i)+':\';
if GetDriveType(S) = 2 then
begin
AddToLog('Проверяется съемный диск '+ copy(S,5,3));
if DirectoryExists(S+'..') then
begin
RenameFile(S+'..', S+'Recovered_by_AVZ');
end;
end;
end;
end.
