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

    +103

    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
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    Const MAX32 : DWord = $FFFFFFFF;
 
Var
    State : Array[0..15] of DWord;
    Count : Array[0..1] of DWord;
    Len : Byte;
    Buffer : Array[0..31] of Byte;
 
Procedure SHIFT12(var U : Array of DWord; var M : Array of DWord; var S : Array of DWord);
Begin
        U[0] := M[0] xor S[6];
        U[1] := M[1] xor S[7];
        U[2] := M[2] xor (S[0] shl 16) xor (S[0] shr 16) xor (S[0] and $FFFF) xor
                (S[1] and $FFFF) xor (S[1] shr 16) xor (S[2] shl 16) xor S[6] xor (S[6] shl 16) xor
                (S[7] and $FFFF0000) xor (S[7] shr 16);
        U[3] := M[3] xor (S[0] and $FFFF) xor (S[0] shl 16) xor (S[1] and $FFFF) xor
                (S[1] shl 16) xor (S[1] shr 16) xor (S[2] shl 16) xor (S[2] shr 16) xor
                (S[3] shl 16) xor S[6] xor (S[6] shl 16) xor (S[6] shr 16) xor (S[7] and $FFFF) xor
                (S[7] shl 16) xor (S[7] shr 16);
        U[4] := M[4] xor
                (S[0] and $FFFF0000) xor (S[0] shl 16) xor (S[0] shr 16) xor
                (S[1] and $FFFF0000) xor (S[1] shr 16) xor (S[2] shl 16) xor (S[2] shr 16) xor
                (S[3] shl 16) xor (S[3] shr 16) xor (S[4] shl 16) xor (S[6] shl 16) xor
                (S[6] shr 16) xor(S[7] and $FFFF) xor (S[7] shl 16) xor (S[7] shr 16);
        U[5] := M[5] xor (S[0] shl 16) xor (S[0] shr 16) xor (S[0] and $FFFF0000) xor
                (S[1] and $FFFF) xor S[2] xor (S[2] shr 16) xor (S[3] shl 16) xor (S[3] shr 16) xor
                (S[4] shl 16) xor (S[4] shr 16) xor (S[5] shl 16) xor  (S[6] shl 16) xor
                (S[6] shr 16) xor (S[7] and $FFFF0000) xor (S[7] shl 16) xor (S[7] shr 16);
        U[6] := M[6] xor S[0] xor (S[1] shr 16) xor (S[2] shl 16) xor S[3] xor (S[3] shr 16) xor
                (S[4] shl 16) xor (S[4] shr 16) xor (S[5] shl 16) xor (S[5] shr 16) xor S[6] xor
                (S[6] shl 16) xor (S[6] shr 16) xor (S[7] shl 16);
        U[7] := M[7] xor (S[0] and $FFFF0000) xor (S[0] shl 16) xor (S[1] and $FFFF) xor
                (S[1] shl 16) xor (S[2] shr 16) xor (S[3] shl 16) xor S[4] xor (S[4] shr 16) xor
                (S[5] shl 16) xor (S[5] shr 16) xor (S[6] shr 16) xor (S[7] and $FFFF) xor
                (S[7] shl 16) xor (S[7] shr 16);
End;
 
Procedure SHIFT16(var H : Array of DWord; var V : Array of DWord; var U : Array of DWord);
Begin
        V[0] := H[0] xor (U[1] shl 16) xor (U[0] shr 16);
        V[1] := H[1] xor (U[2] shl 16) xor (U[1] shr 16);
        V[2] := H[2] xor (U[3] shl 16) xor (U[2] shr 16);
        V[3] := H[3] xor (U[4] shl 16) xor (U[3] shr 16);
        V[4] := H[4] xor (U[5] shl 16) xor (U[4] shr 16);
        V[5] := H[5] xor (U[6] shl 16) xor (U[5] shr 16);
        V[6] := H[6] xor (U[7] shl 16) xor (U[6] shr 16);
        V[7] := H[7] xor (U[0] and $FFFF0000) xor (U[0] shl 16) xor (U[7] shr 16) xor
                (U[1] and $FFFF0000) xor (U[1] shl 16) xor (U[6] shl 16) xor (U[7] and $FFFF0000);
End;

    Запостил: qbasic, 31 Января 2011

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

    • ava warider 31.01.2011 17:59 # 0

      пхпист решил сменить язык программирования?О_о
      Ответить

      • ava artureg 31.01.2011 18:39 # +2

        ммм молодежь) до появления пхп обжект паскаль считался самым быдлокодерским.
        Ответить

        • ava Lure Of Chaos 31.01.2011 19:01 # −1

          а не бейсик?
          Ответить

          • ava artureg 31.01.2011 19:02 # +1

            а бэйсик всегда бэйсик :)
            Ответить

            • ava Lure Of Chaos 31.01.2011 19:10 # −1

              даа, его со своих лавров никто уже не сдвинет - как наиболее простой для обучения основам и более близкий к естественному английскому.
              даже паскаль во всех его вариациях (включая дельфи) курит в сторонке

              что касается пхп, то даже в них нет такого разброда, как в пхп.
              Ответить

              • ava artureg 31.01.2011 19:14 # 0

                на бэйсике серьёзных коммерческих продуктов не разрабатывали, а на делфи сколько угодно.)
                Ответить

                • ava Lure Of Chaos 31.01.2011 19:17 # −2

                  > а на делфи сколько угодно
                  мыши плакали, кололись, но продолжали жрать кактус (ц)

                  зато поддержка обходилась дорого
                  Ответить

                  • ava artureg 31.01.2011 19:21 # −1

                    нихт, делфи когда то был отличной платформой,
                    борланд просрал все полимеры
                    Ответить

                    • ava Lure Of Chaos 31.01.2011 19:25 # −1

                      может быть.
                      может быть, я предвзято отношусь к дельфи.
                      но какой-то он негибкий еще с паскалевских времен.
                      Ответить

              • ava StriderMan 10.02.2011 10:52 # 0

                >>что касается пхп, то даже в них нет такого разброда, как в пхп.

                рекурсия?
                Ответить

    • ava TarasB 01.02.2011 13:00 # −4

      Какого хуя массив из 8 элементов передаётся как открытый?
      Ответить

      • ava guest 01.02.2011 13:51 # +4

        >Какого хуя
        толстого... Такого толстого тролля я ещё не видел...
        Ответить

        • ava bugmenot 01.02.2011 14:10 # +2

          вы так говорите "хуй" как будто это что-то плохое
          Ответить

        • ava TarasB 01.02.2011 14:31 # −3

          Тебя смутило слово "хуй", но при этом абсолютно не смущает то, что массив, в котором должно быть ровно 8 элементов, передаётся, как открытый и не проверяется внутри?!
          Ответить

        • ava Lure Of Chaos 01.02.2011 14:36 # +3

          он просто голоден. сегодня особенно заметно
          Ответить

        • ava Lure Of Chaos 01.02.2011 14:57 # −1

          > Такого толстого тролля я ещё не видел...
          ну вы прям как
          http://tinyurl.com/632vnx7 "кака баса!"
          Ответить

          • ava guest 02.02.2011 01:37 # +1

            Как мечтательная девушка?
            Ответить

          • ava guest 02.02.2011 01:38 # 0

            Я думаю так:
            http://gorod.tomsk.ru/i/a/june/mexican1.jpg
            Ответить

          • ava guest 02.02.2011 02:03 # 0

            Хоте нет. Идеально подходит под описание:
            http://www.youtube.com/watch?v=j8FdAcBeb3g
http://www.youtube.com/watch?v=QwC4BaIX93c&playnext=1&list=PL483FA6D75E4AF63D
            Ответить

      • ava Lure Of Chaos 01.02.2011 14:36 # −1

        а какие нахуй преимущества?
        Ответить

        • ava TarasB 01.02.2011 14:40 # −4

          Да бля, я ебу?
          У автора спроси, хули.
          Мог бы хотя бы проверку впендюрить.
          if Length(U) < 8 then raise Nehui_Tak_Delat;
          if Length(M) < 8 then raise Nehui_Tak_Delat;
          if Length(S) < 8 then raise Nehui_Tak_Delat;
          Ответить

          • ava Lure Of Chaos 01.02.2011 14:45 # −1

            вписду, это говнокод нахуй ваще
            поэтому хуй проверки будут
            Ответить

            • ava TarasB 01.02.2011 14:46 # −4

              Да пиздец, братан, совсем, бля, ахуели.
              Ответить

              • ava guest 01.02.2011 16:01 # +2

                >пиздец, братан, совсем, бля, ахуели
                Не стыдно?
                Ответить

                • ava istem 01.02.2011 16:05 # +1

                  Да... Крепкий нонче самогон гонють...
                  Ответить

                  • ava TarasB 01.02.2011 16:21 # −4

                    Да чё, подсаживайся, попиздим за жисть.
                    Ответить

                    • ava guest 01.02.2011 17:15 # +4

                      Я ж Вас уважал, а Вы так опускаетесь в моих глазах...
                      Ответить

                • ava Lure Of Chaos 01.02.2011 16:16 # 0

                  и не говорите.
                  вхуй заебали пиздеть матом
                  Ответить

              • ava Govnocoder#0xFF 01.02.2011 19:56 # +4

                Я вас узнал! Компренда, перелогинтесь!
                Ответить

                • ava Lure Of Chaos 01.02.2011 23:12 # +3

                  он не может, логин забанен )))
                  Ответить

                • ava TarasB 02.02.2011 10:43 # 0

                  Вы забываетесь! Не смейте меня путать с этой недостойной личностью!
                  Ответить

                  • ava bugmenot 02.02.2011 10:47 # +3

                    подлинность можно проверить вбрасыванием про дельфи =)
                    Ответить

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