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

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

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

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

                рекурсия?
                Ответить
    • Какого хуя массив из 8 элементов передаётся как открытый?
      Ответить
      • >Какого хуя
        толстого... Такого толстого тролля я ещё не видел...
        Ответить
        • вы так говорите "хуй" как будто это что-то плохое
          Ответить
        • Тебя смутило слово "хуй", но при этом абсолютно не смущает то, что массив, в котором должно быть ровно 8 элементов, передаётся, как открытый и не проверяется внутри?!
          Ответить
        • он просто голоден. сегодня особенно заметно
          Ответить
        • > Такого толстого тролля я ещё не видел...
          ну вы прям как
          http://tinyurl.com/632vnx7 "кака баса!"
          Ответить
          • Как мечтательная девушка?
            Ответить
          • Я думаю так:
            http://gorod.tomsk.ru/i/a/june/mexican1.jpg
            Ответить
          • Хоте нет. Идеально подходит под описание:
            http://www.youtube.com/watch?v=j8FdAcBeb3g
            http://www.youtube.com/watch?v=QwC4BaIX93c&playnext=1&list=PL483FA6D75E4AF63D
            Ответить
      • а какие нахуй преимущества?
        Ответить
        • Да бля, я ебу?
          У автора спроси, хули.
          Мог бы хотя бы проверку впендюрить.
          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;
          Ответить
          • вписду, это говнокод нахуй ваще
            поэтому хуй проверки будут
            Ответить
            • Да пиздец, братан, совсем, бля, ахуели.
              Ответить
              • >пиздец, братан, совсем, бля, ахуели
                Не стыдно?
                Ответить
                • Да... Крепкий нонче самогон гонють...
                  Ответить
                  • Да чё, подсаживайся, попиздим за жисть.
                    Ответить
                    • Я ж Вас уважал, а Вы так опускаетесь в моих глазах...
                      Ответить
                • и не говорите.
                  вхуй заебали пиздеть матом
                  Ответить
              • Я вас узнал! Компренда, перелогинтесь!
                Ответить
                • он не может, логин забанен )))
                  Ответить
                • Вы забываетесь! Не смейте меня путать с этой недостойной личностью!
                  Ответить
                  • подлинность можно проверить вбрасыванием про дельфи =)
                    Ответить

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