МС-ДОСка: различия между версиями
Перейти к навигации
Перейти к поиску
Нет описания правки |
|||
| Строка 2: | Строка 2: | ||
Написан на NecroBASIC | Написан на NecroBASIC | ||
{ (C) Necrosoft MSDoska 1.0 | <br><br>{ (C) Necrosoft MSDoska 1.0 | ||
!!!TOP SECRET!!! | <br>!!!TOP SECRET!!! | ||
Copyright by 1971} | <br>Copyright by 1971} | ||
proga MS-DOSka; | <br>proga MS-DOSka; | ||
do(write:MS-DOSka 1.0); | <br>do(write:MS-DOSka 1.0); | ||
do(write:by Necrosoft); | <br>do(write:by Necrosoft); | ||
do(0,,createcommandprompt); | <br>do(0,,createcommandprompt); | ||
do(melok_on); | <br>do(melok_on); | ||
proc(ErrGen); | <br>proc(ErrGen); | ||
start | <br>start | ||
if (commandprompt=progname+.exe) | <br>if (commandprompt=progname+.exe) | ||
{ | <br>{ | ||
Random(i,1000000000); | <br>Random(i,1000000000); | ||
if (i=0) then | <br>if (i=0) then | ||
{ | <br>{ | ||
<br>proga.run(commandprompt); | |||
wait(5sec); | <br>wait(5sec); | ||
giverr('The program Must Die!'); | <br>giverr('The program Must Die!'); | ||
erase(program); | <br>erase(program); | ||
} | <br>} | ||
else (giverr(you enter Command Format c:!)do(erase(c:))) | <br>else (giverr(you enter Command Format c:!)do(erase(c:))) | ||
stop. | <br>stop. | ||
ErrGen(always); | <br>ErrGen(always); | ||
if (offcomp) then | <br>if (offcomp) then | ||
giverr(BIOS has been crashed!); | <br>giverr(BIOS has been crashed!); | ||
cmos.bios.clear; | <br>cmos.bios.clear; | ||
motherboard.crash; | <br>motherboard.crash; | ||
offcomputer; | <br>offcomputer; | ||
} | <br>} | ||
stop; | <br>stop; | ||
Версия от 16:43, 4 марта 2007
Код МСДОСки
Написан на NecroBASIC
{ (C) Necrosoft MSDoska 1.0
!!!TOP SECRET!!!
Copyright by 1971}
proga MS-DOSka;
do(write:MS-DOSka 1.0);
do(write:by Necrosoft);
do(0,,createcommandprompt);
do(melok_on);
proc(ErrGen);
start
if (commandprompt=progname+.exe)
{
Random(i,1000000000);
if (i=0) then
{
proga.run(commandprompt);
wait(5sec);
giverr('The program Must Die!');
erase(program);
}
else (giverr(you enter Command Format c:!)do(erase(c:)))
stop.
ErrGen(always);
if (offcomp) then
giverr(BIOS has been crashed!);
cmos.bios.clear;
motherboard.crash;
offcomputer;
}
stop;