Новый алгоритмический язык «Москаль»
Хочу сразу оговориться: НИКАКОГО!!! ОТНОШЕНИЯ К ПОЛИТИКЕ ЭТОТ ТЕКСТ НЕ ИМЕЕТ!!!
Просто шутка, выловленная в сети. Мне понравилась, хочу Вам рассказать)))
(бывшая секретная разработка отдела честных цифровых технологий при ФСБ РФ)
Краткое описание по понятиям
КАКБЫ — обозначение процедуры, процедуры-функции;
ВОБЩЕМ — блок описания переменных;
ТИПА — оператор описания переменных;
ТИПАБУКВА — описание текстовой переменной;
ТИПАЧИСЛО — описание вещественной переменной;
ТИПАПРАВДА — описание логической переменной;
ТИПАЛАПША — описание логической переменной с лёгкими повреждениями исходного кода;
ТИПАЛАЖА — описание логической переменной с тяжкими повреждениями исходного кода;
ТИПАМАТРИЦА — описание массива переменных;
ВТЮХАТЬ — в некотором роде, описание нестандартных текстовых переменных;
ВТЕРЕТЬ — повторить операцию с маркером позиции;
ВПАРИТЬ — открыть справку;
ПРИКИНУТЬ — условный оператор;
НАГЛАЗОК — считывание файла;
НАГЛАЗОКЧАСТЯМИ — считывание текстового файла построчно;
ИДИТЫНА — безусловный переход НА;
ИДИТЫВ — безусловный переход В;
ЗАПУПЫРИТЬ — начало логического блока;
ЗАБИТЬ — конец логического блока;
СКОЗЛИТЬ — копировать текстовую переменную из подстроки в новую строку;
ФЕНЕЧКА, ФЕНЯ — переменная в виде слова;
ЗАСЛАТЬВ — записать в файл или ещё куда-нибудь:
ЗАМАСТЫРИТЬ — создать файл;
ЗАБУБЕНИТЬПОБАРАБАНУ — начало цикла, БАРАБАН желательно описать, как массив;
КАНАТЬНАНАЧАЛО — закрытие цикла;
ПОХЕРИТЬСТИЛИ — перекодировать;
ПОКАНАИЗМЕНЕ — условный оператор;
КРАЙНЯК — метка конца файла;
Вот, примерно, такой язык программирования. Значит, написал я на нём исходный текст своей шифровальной программы, и вкладку "Забубенить действия" открыл. Выбрал режим "Замутить ЭХЕ код". "Москаль" спросил меня ненавязчиво в виде оконца с тремя кнопками:
СЕЙЧАС БУДУ МУТИТЬ ЭХЕ КОД, ЧЕГО ИЗВОЛИТЕ?
ЗАПАРИТЬ НЕМЕДЛЕННО/МУХОЙ?
ОБОЖДАТЬ/ПОГОДИТЬ?
СВАЛИТЬ/ОТВАЛИТЬ?
Я ответил "да" на первый вопрос и получил исполняемый файл, которым, и по сей день, пользуются все наши, разведшколовские. Да и дипломаты, порой, не пренебрегают. Кстати, для самых любознательных и пытливых я приведу ниже исходный текст моей программы, вдруг, когда пригодится на чужбине.
ВОБЩЕМ
ИНПУТФАЙЛ,АУТПУТФАЙЛ:ТИПАТЕКСТ;
ФЕНЕЧКА, ИНПУТСТР, АУТПУТСТР:ТИПАСТРОКА;
ВТЮХАТЬПОЗ:ФЕНЯ;
КАКБЫ ПОЛУЧИТЬПОФЕНЕ(СТР:ТИПАСТРОКА;ВОБЩЕМ ВТЮХАТЬПОЗ:ФЕНЯ):ТИПАСТРОКА;
ВОБЩЕМ
ВТЮХАТЬОТСТОЙПОЗ:ФЕНЯ;
ЗАПУПЫРИТЬ
ОТСТОЙПОЗ:=ПОЗ;
ВТЕРЕТЬ
ОТСТОЙПОЗ:= ОТСТОЙПОЗ+1;
ПРИКИНУТЬ ОТСТОЙПОЗ>ДЛИНА(СТР) ТОГДА
ЗАПУПЫРИТЬ
ПОЛУЧИТЬ ПО ФЕНЕ:=СКОЗЛИТЬ(СТР,ПОЗ,ОТСТОЙПОЗ-ПОЗ);
ПОЗ:=0;
ОТВАЛИТЬ;
ЗАБИТЬ;
ПОКУДА СКОЗЛИТЬ(СТР,ОТСТОЙПОЗ,1)= ' ';
ПОЛУЧИТЬ ПО ФЕНЕ:=СКОЗЛИТЬ(СТР,ПОЗ,ОТСТОЙПОЗ-ПОЗ);
ПОЗ:=ОТСТОЙПОЗ+1;
ЗАБИТЬСМАЛЕНЬКИМПРИБОРОМ;
ЗАПУПЫРИТЬ
ЗАМАСТЫРИТЬ(ИНПУТФАЙЛ, 'input.txt');
ЗАМАСТЫРИТЬ(АУТПУТФАЙЛ, 'output.txt');
ПОХЕРИТЬ(ИНПУТФАЙЛ);
ЗАСЛАТЬВ(АУТПУТФАЙЛ);
ПОКАНАИЗМЕНЕ НЕ КРАЙНЯК(ИНПУТФАЙЛ) ПОРА
ЗАПУПЫРИТЬ
НАГЛАЗОКЧАСТЯМИ(ИНПУТФАЙЛ,ИНПУТСТР);
ПОЗ:=1;
АУТПУТСТР:= '';
ВТУЛИТЬПОНОВОЙ
ТЕКФЕНЯ:= ПОЛУЧИТЬ ПО ФЕНЕ(ИНПУТСТР,ПОЗ);
ПРИКИНУТЬ ДЛИНА(ТЕКФЕНЯ) <3
ТОГДА АУТПУТСТР:=АУТПУТСТР+ ТЕКФЕНЯ+' ';
ПРИКИНУТЬ ДЛИНА(ТЕКФЕНЯ) =3
ТОГДА АУТПУТСТР:=АУТПУТСТР+ 'быр ';
ПРИКИНУТЬ ДЛИНА(ТЕКФЕНЯ) =4
ТОГДА АУТПУТСТР:=АУТПУТСТР+ 'быр ' +СКОЗЛИТЬ(ТЕКФЕНЯ,4,1)+' ';
ПРИКИНУТЬ ДЛИНА(ТЕКФЕНЯ) =5
ТОГДА АУТПУТСТР:=АУТПУТСТР+ 'ындыр';
ПРИКИНУТЬ (ДЛИНА(ТЕКФЕНЯ) >5) И (ДЛИНА(ТЕКФЕНЯ) <8)
ТОГДА АУТПУТСТР:=АУТПУТСТР+ 'ындыр'+СКОЗЛИТЬ(ТЕКФЕНЯ,6,ДЛИНА(ТЕКФЕНЯ)-5)+ ' ';
ПРИКИНУТЬ ДЛИНА(ТЕКФЕНЯ) =8
ТОГДА АУТПУТСТР:=АУТПУТСТР+ 'ындырбыр';
ПРИКИНУТЬ ДЛИНА(ТЕКФЕНЯ) >8
ТОГДА АУТПУТСТР:=АУТПУТСТР+ 'ындырбыр'+СКОЗЛИТЬ(ТЕКФЕНЯ,9,ДЛИНА(ТЕКФЕНЯ)-8)+ ' ';
ПОКУДА ПОЗ=0;
ЗАСЛАТЬЧАСТЯМИ(АУТПУТФАЙЛ,АУТПУТСТР);
ЗАБИТЬСМАЛЕНЬКИМПРИБОРОМ;
ЗАКРЫТЬПРИБОР(ИНПУТФАЙЛ);
ЗАКРЫТЬПРИБОР(АУТПУТФАЙЛ);
ЗАБИТЬСБОЛЬШИМПРИБОРОМ.