Программа - шутка, демонстрация возможностей CMD скриптов.
Разработка - Математика и алгоритмы
Файлы
ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.
Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний
Оформите подписку на компанию для решения рабочих задач
Оформить подписку и скачать решение со скидкойВы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».
- 0% комиссии — оплата напрямую исполнителю;
- Исполнители любого масштаба — от отдельных специалистов до команд под проект;
- Прямой обмен контактами между заказчиком и исполнителем;
- Безопасная сделка — при необходимости;
- Рейтинги, кейсы и прозрачная система откликов.
Скрипт:
8<--------------------------------------------------------------------------------------------------------------------------------------------------
echo off
goto Self
a 100
mov cx,01C4
push cx
push cx
mov ah,0 ; з «® в ©¬Ґа
int 1A
mov bx,dx
add bx,0
int 1A
cmp dx,bx
jle 010E ; Є®Ґж в ©¬Ґа
pop cx
mov si,014D
sub cx,01C4
sub si,cx
mov di,400
mov cx,14
rep movsb
mov byte ptr [di],24
mov bh,0
mov dx,0c1f
mov ah,02
int 10
mov dx,400
mov ah,09
int 21
mov ah, 86
inc cx
inc cx
xor dx,dx
int 15
mov ah,01
int 16
pop cx
jnz 014C
loop 0103
jmp 0100
ret
db " __-~-_-~-_-~-_-~-_-~-_-~-_-~-_-~-_-~-"
db " ќв® ¤«ЁЁЁЁЁЁЁЁЁЁЁЁЁЁЁЁЁЁЁЁЁЁЁ п бва®Є . Њ®¦Ґв Ўлвм ¤®"
db " 64Є ¤«Ё®©. Ђ ҐйҐ вгв ¬®¦Ґв Ўлвм §«®ўаҐ¤л© Є®¤ Є®в"
db "®ал© § а §Ёв ўбҐ ‚ иЁ ¤®Єг¬Ґ¬вл Ё ЇҐаҐЇЁиҐв"
db " DBFлҐ д ©«ҐЈЁ!!!!!!! Ќ® ў®®ЎйҐ-в® нв® Їа®бв® ¤Ґ¬®б"
db "ва жЁп в®Ј®, зв® ¬®¦® § ЇЁе вм бᥬЎ«Ґал© «ЁбвЁ"
db "Ј ў CMDиЄг Ё бЄ®¬ЇЁ«Ёвм ҐЈ® бв ¤ авл¬Ё б।бвў ¬"
db "Ё Windows. ‚®®ЎйҐ ¬®¦® нв® § ЇЁе вм ў «оЎ®© бЄаЁЇв."
db " „ ¦Ґ ў 1‘л© ¬®¤г«м. C Ё«гзиЁ¬Ё Ї®¦Ґ« Ёп¬Ё MadDAD. $"
rcx
219
n r_string.com
w
q
If "%1"=="" goto self
:exit
exit
:self
debug < %0 > %~DPN0.log
cls
r_string.com
echo Y|del r_string.com
goto exit
8<--------------------------------------------------------------------------------------------------------------------------------------------------
Вступайте в нашу телеграмм-группу Инфостарт