Последняя модификация: 10.08.2014 г

Страница загружена с адреса: http://comp.site3k.ru/comp/ndosdoc.html

NDOS

Программа NDOS входящая в состав нортоновских утилит для MS-DOS является интерпретатором команд, предназначенным для замены стандартного MS-DOS-интерпритатора Command.com (командой CHELL= в Config.sys), или для применения совместно с ним. Ее расширенный командный язык, содержащий 86 команд, 45 переменных и 44 функцыи (которые, по сути, то же являются командами) и основанный, для удобства, на стандартных MS-DOS-командах, вплотную приближает язык бат-файлов к обычным языкам программирования. Кроме того, многие внешние команды MS-DOS, для NDOS являются внутренними, что так же является несомненным плюсом.

Язык бат-файлов NDOS настолько мощный, что, освоив его, я перестал писать exe и com-файлы под DOS, забыл Basic и недоучил Pascal (напрасно, конечно, но, нужда в них отпала). Многие функции на моем компьютере, до сих пор автоматизированы бат-файлами NDOS, например, ежедневное автоматическое создание резервых копий в двухнедельной системе циркуляции архивов, автоматический подбор наилучшего упаковщика для отмеченных в файловом менеджере программ, или проверка компьютера на предмет активизации загрузочных вирусов.

Ниже приводится пример антивирусного бат-файла, написанного на языке NDOS, видимые в нем квадратики и полосочки объясняются тем, что здесь напрямую скопирован текст файла, без замены специальных символов, вроде символов с кодами 10 и 11 на отображаемые:

@echo off
loadBTM OFF
set real=%@eval[%@dosmem[b]% + %@xms[b]% - 67719760]

if %real%==0 (scrput %_row %_column bri whi on %_bg Память без изменений.^echo.^quit)
echo %@SUBSTR[%_time,0,5] > C:\windows\РАБОЧИ~1\Разность.xms
echo %@eval[%@dosmem[b]% + %@xms[b]%] >> C:\windows\РАБОЧИ~1\Разность.xms
echo Разница = %real >> C:\windows\РАБОЧИ~1\Разность.xms 

if %real% ge 0 (scrput %_row %_column bri whi on %_bg Количество свободной памяти увеличилось.^echo.^quit)

cls bla on bla
vscrput 3 8 red on %_bg ПОДОЗРЕНИЕ НА ВИРУС
drawbox 1 12 16 69 2 bright gre on whi fill whi
drawbox 3 15 13 65 2 blu on red fill red shadow
scrput 5 18 bright green on red Общее количество свободной памяти уменьшилось.
scrput 6 22 bright green on red Если в память не были инсталлированы
scrput 7 18 bright green on red незафиксированные при тестировании драйверы,
scrput 8 17 bright green on red значит в нее инсталлировались незафиксированные
scrput 10 35 bright yel on red В И Р У С Ы .
scrput 22 20 whi on bla Свободная память уменьшилась на
: scrput 22 50 mag on black %@eval[16-%real]
scrput 22 52 mag on black %@eval[0-%real]
scrput 22 %@eval[52+%@len[%real]] whi on bla байт.
screen 0 0

beep 349 10 233 10 349 10 233 10 349 10 233 10 349 10 233 10 349 10 233 10 349 10 233 10 349 10 233 10 349 10 233 10
cls bla on bla 
vscrput 3 8 red on %_bg ПОДОЗРЕНИЕ НА ВИРУС
drawbox 1 14 16 67 2  bright gre on whi fill whi
drawbox 3 18 13 62 2 red on blu fill blu shadow
scrput 5 33 bright yelow on blue В Н И М А Н И Е !
scrput 7 20 red on blu Загрузка операционной системы прекращена.
scrput 8 28 red on blu Сейчас будет произведена
scrput 9 25 red on blu х о л о д н а я   перезагрузка.
scrput 10 25 bright whi on blue Приготовте дискету для загрузки
scrput 11 28 bright whi on blue чистой среды и нажмите Y.
scrput 22 20 whi on bla Свободная память уменьшилась на
: scrput 22 50 mag on black %@eval[16-%real]
scrput 22 52 mag on black %@eval[0-%real]
scrput 22 %@eval[52+%@len[%real]] whi on bla байт.
screen 0 0

delay 2
:HOM
vscrput 3 8 red on %_bg ПОДОЗРЕНИЕ НА ВИРУС
beep 523 1 2093 2
DRaWBOX 15 22 20 58 4 bri bla on cyan fill cyan shadow
scrput 16 29 bla on CYAN Перегрузить компьютер?
:POZA1
gosub INTERFACE
scrput 18 26 bri whi on green  Yes 
scrput 18 37 whi on green Сведенья
scrput 18 51 whi on green No
scrput 18 47 bri bla on cyan _
scrput 19 36 bri bla on cyan __________
scrput 18 33 BRI bla on cyan _
scrput 18 55 BRI bla on cyan _
scrput 19 27 BRI bla on cyan _______
scrput 19 50 BRI bla on cyan ______
screen 0 0
inkey /k"YNC[Right][Enter]" %%KEY
if %KEY==@28 reboot /c
if %KEY==@77 goto POZA2
gosub KEYBORD

:KEYBORD
if %KEY==y reboot /c
if %KEY==n (cls^quit)
if %KEY==c (mem /c | list /s^cls bla on bla^scrput 9 27 bri whi on bla Рекомендую закончить работу^goto HOM)
return

:INTERFACE
drawbox 18 26 18 32 0 gre on gre
drawbox 18 49 18 54 0 gre on gre
drawbox 18 35 18 46 0 gre on green
scrput 22 20 whi on bla Свободная память уменьшилась на
: scrput 22 50 mag on black %@eval[16-%real]
scrput 22 52 mag on black %@eval[0-%real]
scrput 22 %@eval[52+%@len[%real]] whi on bla байт.
return

:POZA2
gosub INTERFACE
scrput 18 28 whi on green Yes
scrput 18 35 bri whi on green  Сведенья 
scrput 18 51 whi on green No
screen 0 0
inkey /k"YNC[Left][Right][Enter]" %%KEY
if %KEY==@75 goto POZA1
if %KEY==@28 (mem /c | list /s^cls bla on bla^scrput 9 27 bri whi on bla Рекомендую закончить работу^goto HOM)
if %KEY==@77 goto POZA3
gosub KEYBORD

:POZA3
gosub INTERFACE
scrput 18 28 whi on green Yes
scrput 18 37 whi on green Сведенья
scrput 18 49 bri whi on green  No 
screen 0 0
inkey /k"YNC[Left][Enter]" %%KEY
if %KEY==@75 goto POZA2
if %KEY==@28 (cls^quit)
gosub KEYBORD

Так выглядит одно из сообщений, выдаваемых программой, и сопровождаемое завыванием милицейской сирены:

Правда, несмотря на все старания хакеров, вирусы так и не смогли активизировться на моем кмпьютере (Подробности смотрите в «Оптимизация и спасение IBM PC»).

Размер всей документации в архиве – 193,915 Байт.

Скачать!!!. Скачали 38923 раз(а).

Размер программы в архиве (со справочной системой и т. д.) – 332,624 Байт.

Скачать!!!. Скачали 2200 раз(а).

Комментарии к странице (всего 2)

 

 

 

---

На главную страницу сайта