PD>if(IsFridayToday() && Is13Today())
PD> ExitWindowsEx(...)

PD>и в сервис какой-нибудь этот код!

Убю!!! Пару лет тому назад был вирусняк такой. Да еще и на vbscript нарисованный. Главная функчия там была что-то вроде

 if Month + DayOfMonth = 15 then
   стирй все .еxe файлы нафиг