June 25th, 2010

Последний шаг в борьбе с вирусом

Написал 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.