Улыбнемся

Улыбнемся

Язык из спецсимволов

!            нет
&!           инет
!,!&!        нет, нет и нет!

.            точка.
!&.          нет и точка!
=            равно
*            всё
~*           не всё
*=           всё равно
~*=?         не всё ли равно?

*>&>         всё больше и больше
#            точно
!#           приблизительно
!#*          почти всё

$?           Деньги есть?
>!           Больше нет.
#!?          Точно нет?
!4u          Не для тебя
&?           И чо?
&!?          И ничо!

Новый алгоритмический язык «Москаль»

             (бывшая секретная разработка отдела честных цифровых технологий при ФСБ РФ)
       Краткое описание по понятиям
             КАКБЫ — обозначение процедуры, процедуры-функции;
             ВОБЩЕМ — блок описания переменных;
             ТИПА — оператор описания переменных;
             ТИПАБУКВА — описание текстовой переменной;
             ТИПАЧИСЛО — описание вещественной переменной;
             ТИПАПРАВДА — описание логической переменной;
             ТИПАЛАПША — описание логической переменной с лёгкими повреждениями исходного кода;
             ТИПАЛАЖА — описание логической переменной с тяжкими повреждениями исходного кода;
             ТИПАМАТРИЦА — описание массива переменных;
             ВТЮХАТЬ — в некотором роде, описание нестандартных текстовых переменных;
             ВТЕРЕТЬ — повторить операцию с маркером позиции;
             ВПАРИТЬ — открыть справку;

             ПРИКИНУТЬ — условный оператор;
             НАГЛАЗОК — считывание файла;
             НАГЛАЗОКЧАСТЯМИ — считывание текстового файла построчно;
             ИДИТЫНА — безусловный переход НА;
             ИДИТЫВ — безусловный переход В;
             ЗАПУПЫРИТЬ — начало логического блока;
             ЗАБИТЬ — конец логического блока;
             СКОЗЛИТЬ — копировать текстовую переменную из подстроки в новую строку;
             ФЕНЕЧКА, ФЕНЯ — переменная в виде слова;
             ЗАСЛАТЬВ — записать в файл или ещё куда-нибудь:
             ЗАМАСТЫРИТЬ — создать файл;
             ЗАБУБЕНИТЬПОБАРАБАНУ — начало цикла, БАРАБАН желательно описать, как массив;
             КАНАТЬНАНАЧАЛО — закрытие цикла;
             ПОХЕРИТЬСТИЛИ — перекодировать;
             ПОКАНАИЗМЕНЕ — условный оператор;
             КРАЙНЯК — метка конца файла;

             Вот, примерно, такой язык программирования. Значит, написал я на нём исходный текст своей шифровальной программы, и вкладку "Забубенить действия" открыл. Выбрал режим "Замутить ЭХЕ код". "Москаль" спросил меня ненавязчиво в виде оконца с тремя кнопками:

             СЕЙЧАС БУДУ МУТИТЬ ЭХЕ КОД, ЧЕГО ИЗВОЛИТЕ?

             ЗАПАРИТЬ НЕМЕДЛЕННО/МУХОЙ?
             ОБОЖДАТЬ/ПОГОДИТЬ?
             СВАЛИТЬ/ОТВАЛИТЬ?

             Я ответил "да" на первый вопрос и получил исполняемый файл, которым, и по сей день, пользуются все наши, разведшколовские. Да и дипломаты, порой, не пренебрегают. Кстати, для самых любознательных и пытливых я приведу ниже исходный текст моей программы, вдруг, когда пригодится на чужбине.

             ВОБЩЕМ
             ИНПУТФАЙЛ,АУТПУТФАЙЛ:ТИПАТЕКСТ;
             ФЕНЕЧКА, ИНПУТСТР, АУТПУТСТР:ТИПАСТРОКА;
             ВТЮХАТЬПОЗ:ФЕНЯ;
             КАКБЫ ПОЛУЧИТЬПОФЕНЕ(СТР:ТИПАСТРОКА;ВОБЩЕМ ВТЮХАТЬПОЗ:ФЕНЯ):ТИПАСТРОКА;
             ВОБЩЕМ
             ВТЮХАТЬОТСТОЙПОЗ:ФЕНЯ;
             ЗАПУПЫРИТЬ
             ОТСТОЙПОЗ:=ПОЗ;
             ВТЕРЕТЬ
             ОТСТОЙПОЗ:= ОТСТОЙПОЗ+1;
             ПРИКИНУТЬ ОТСТОЙПОЗ>ДЛИНА(СТР) ТОГДА
             ЗАПУПЫРИТЬ
             ПОЛУЧИТЬ ПО ФЕНЕ:=СКОЗЛИТЬ(СТР,ПОЗ,ОТСТОЙПОЗ-ПОЗ);
             ПОЗ:=0;
             ОТВАЛИТЬ;
             ЗАБИТЬ;
             ПОКУДА СКОЗЛИТЬ(СТР,ОТСТОЙПОЗ,1)= ' ';
             ПОЛУЧИТЬ ПО ФЕНЕ:=СКОЗЛИТЬ(СТР,ПОЗ,ОТСТОЙПОЗ-ПОЗ);
             ПОЗ:=ОТСТОЙПОЗ+1;
             ЗАБИТЬСМАЛЕНЬКИМПРИБОРОМ;
             ЗАПУПЫРИТЬ
             ЗАМАСТЫРИТЬ(ИНПУТФАЙЛ, 'input.txt');
             ЗАМАСТЫРИТЬ(АУТПУТФАЙЛ, 'output.txt');
             ПОХЕРИТЬ(ИНПУТФАЙЛ);
             ЗАСЛАТЬВ(АУТПУТФАЙЛ);
             ПОКАНАИЗМЕНЕ НЕ КРАЙНЯК(ИНПУТФАЙЛ) ПОРА
             ЗАПУПЫРИТЬ
             НАГЛАЗОКЧАСТЯМИ(ИНПУТФАЙЛ,ИНПУТСТР);
             ПОЗ:=1;
             АУТПУТСТР:= '';
             ВТУЛИТЬПОНОВОЙ
             ТЕКФЕНЯ:= ПОЛУЧИТЬ ПО ФЕНЕ(ИНПУТСТР,ПОЗ);
             ПРИКИНУТЬ ДЛИНА(ТЕКФЕНЯ) <3
                   ТОГДА АУТПУТСТР:=АУТПУТСТР+ ТЕКФЕНЯ+' ';
             ПРИКИНУТЬ ДЛИНА(ТЕКФЕНЯ) =3
                   ТОГДА АУТПУТСТР:=АУТПУТСТР+ 'быр ';
             ПРИКИНУТЬ ДЛИНА(ТЕКФЕНЯ) =4
                   ТОГДА АУТПУТСТР:=АУТПУТСТР+ 'быр ' +СКОЗЛИТЬ(ТЕКФЕНЯ,4,1)+' ';
             ПРИКИНУТЬ ДЛИНА(ТЕКФЕНЯ) =5
                   ТОГДА АУТПУТСТР:=АУТПУТСТР+ 'ындыр';
             ПРИКИНУТЬ (ДЛИНА(ТЕКФЕНЯ) >5) И (ДЛИНА(ТЕКФЕНЯ) <8)
                   ТОГДА АУТПУТСТР:=АУТПУТСТР+ 'ындыр'+СКОЗЛИТЬ(ТЕКФЕНЯ,6,ДЛИНА(ТЕКФЕНЯ)-5)+ ' ';
             ПРИКИНУТЬ ДЛИНА(ТЕКФЕНЯ) =8
                   ТОГДА АУТПУТСТР:=АУТПУТСТР+ 'ындырбыр';
             ПРИКИНУТЬ ДЛИНА(ТЕКФЕНЯ) >8
                   ТОГДА АУТПУТСТР:=АУТПУТСТР+ 'ындырбыр'+СКОЗЛИТЬ(ТЕКФЕНЯ,9,ДЛИНА(ТЕКФЕНЯ)-8)+ ' ';
             ПОКУДА ПОЗ=0;
             ЗАСЛАТЬЧАСТЯМИ(АУТПУТФАЙЛ,АУТПУТСТР);
             ЗАБИТЬСМАЛЕНЬКИМПРИБОРОМ;
             ЗАКРЫТЬПРИБОР(ИНПУТФАЙЛ);
             ЗАКРЫТЬПРИБОР(АУТПУТФАЙЛ);
             ЗАБИТЬСБОЛЬШИМПРИБОРОМ. 

А вам слабО?