1. Pascal / Говнокод #6200

    +100

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    Procedure TForm1.Button1Click(Sender: TObject);
Const
  NormText : string = 'АБВГДЕЁЖЗЫИЙКЛМНОПРСТУФХЦЧШЩЬЪЭЮЯ ';
  ObeznogText : string = 'А6ВrДЕЁЖ3ЫNµКЛМН0ПРС†YФXЦ4ШЩЬЪЗЮR ';
Var
  sText, sBeznogText : String;
  i : Integer;
BEGIN
 sText := Memo1.Text;
 sText := AnsiUpperCase(sText);
 sBeznogText := '';
 For i := 1 to Length(sText) do
  Begin
   sBeznogText := sBeznogText + (Copy(ObeznogText, Pos(sText[i], NormText), 1));
   If sText[i] = ' ' then
    bEgin
     Randomize;
     Case Random(5) of
      1: begin
          sBeznogText := sBeznogText + 'ДОСМОТ? ';
         End;
      3: begin
          sBeznogText := sBeznogText + 'РYКN ';
         end;
      5: begin
          sBeznogText := sBeznogText + 'БЕЗНОГ? ';
         end;
     End;
    eNd;
  End;
 Memo1.Text := sBeznogText;
END;

    Автоматическое обезноживание текста. Сплойлер: БЕ3НОГNМ

    Запостил: Govnocoder#0xFF, 03 Апреля 2011

    Комментарии (38) RSS

    • ava Govnocoder#0xFF 03.04.2011 19:34 # +5

      После просмотра вы
      почувствуете радость, и в
      дальнейшем всё в вашей жизни
      будет хорошо!
      Ваш друг.
      Ответить

    • ava bugmenot 03.04.2011 19:40 # 0 

      BEGIN
  Begin
    bEgin
      { O_o }
    eNd;
  End;
END;
      Ответить

      • ava Govnocoder#0xFF 03.04.2011 19:55 # +1

        Похоже, что программу применили для её же исходного кода.
        Ответить

    • ava Lure Of Chaos 03.04.2011 19:52 # 0

      bezMOSK
      Ответить

    • ava ReL 03.04.2011 20:19 # −7

      показать все, что скрытопаскаль - гавно кстати)
      Ответить

    • ava TarasB 04.04.2011 09:17 # +2

      (Copy(ObeznogText, Pos(sText[i], NormText), 1))

      Автор пересел с чего-то другого, где нет оператора взятия символа по индексу?
      Ответить

      • ava Govnocoder#0xFF 04.04.2011 16:35 # 0

        Я конечно не автор, но не понимаю о чем вы говорите. Ваш вариант в студию.
        Ответить

        • ava TarasB 04.04.2011 16:40 # +2

          ObeznogText[Pos(sText[i], NormText)]
          Ответить

          • ava Govnocoder#0xFF 04.04.2011 16:42 # 0

            СПАСN60, YС0ВЕРШЕНС†В0ВАЛ.
            Ответить

            • ava TarasB 04.04.2011 17:00 # +1

              ВСЕrДА РYКN П0ЖАЛYµС†АА ЕСЛN 4†0А 06РАЩАµ†ЕСЬ К0 МНЕ ДОСМОТ? 3А ДОСМОТ? П0М0ЩЬЮА
              Ответить

          • ava inkanus-gray 05.04.2011 17:52 # +2

            Сюрприз будет, когда Pos не найдёт символ в строке.

            Pos на самом деле — тоже говно. Если букву Ё обрабатывать отдельно, то
            ObeznogText[ord(sText[i])-ord('А')+1]
            Ответить

            • ava Govnocoder#0xFF 05.04.2011 17:59 # 0

              Сразу видно, что вы не компилировали код. Если функция не находит символ, то она вставляет в строку "А". Профит налицо.
              ЗЫ А зачем Ё отдельно обрабатывать?
              Ответить

    • ava inkanus-gray 10.04.2011 23:22 # +2

      [mode off-topic="on"]
      Вспомнил, как на одном сайте из-за опечатки появилось слово ГЛАВАРN, которое потом трансформировалось в LV∀B∀bN, а затем в ЛВАБАБНЫ.
      Make yourself unseen this. КТО ДОСМОТ? ТОТ С УМА СОЙДЁТ. Не пытайтесь понять увиденное.
      [/mode]
      Ответить

    • ava KATAJIU3ATOP 01.05.2011 21:15 # 0

      Многие так называемы файлы смерти я смотрел, тестил и прочие. Кстате, недавно тестил barelybreathing.exe - кроме неприятной мелодии при запуске ОС и одноглазой еблони на фон.рис ничего ни именилось.
      Ответить

    Добавить комментарий