- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 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;
warider 31.01.2011 17:59 # 0
artureg 31.01.2011 18:39 # +2
Lure Of Chaos 31.01.2011 19:01 # −1
artureg 31.01.2011 19:02 # +1
Lure Of Chaos 31.01.2011 19:10 # −1
даже паскаль во всех его вариациях (включая дельфи) курит в сторонке
что касается пхп, то даже в них нет такого разброда, как в пхп.
artureg 31.01.2011 19:14 # 0
Lure Of Chaos 31.01.2011 19:17 # −2
мыши плакали, кололись, но продолжали жрать кактус (ц)
зато поддержка обходилась дорого
artureg 31.01.2011 19:21 # −1
борланд просрал все полимеры
Lure Of Chaos 31.01.2011 19:25 # −1
может быть, я предвзято отношусь к дельфи.
но какой-то он негибкий еще с паскалевских времен.
StriderMan 10.02.2011 10:52 # 0
рекурсия?
Lure Of Chaos 10.02.2011 13:56 # 0
bugmenot 10.02.2011 14:01 # +1
не в курсе я
TarasB 01.02.2011 13:00 # −4
guest 01.02.2011 13:51 # +4
толстого... Такого толстого тролля я ещё не видел...
bugmenot 01.02.2011 14:10 # +2
TarasB 01.02.2011 14:31 # −3
Lure Of Chaos 01.02.2011 14:36 # +3
Lure Of Chaos 01.02.2011 14:57 # −1
ну вы прям как
http://tinyurl.com/632vnx7 "кака баса!"
guest 02.02.2011 01:37 # +1
Lure Of Chaos 02.02.2011 12:35 # −1
guest 02.02.2011 01:38 # 0
http://gorod.tomsk.ru/i/a/june/mexican1.jpg
Говногость 02.02.2011 03:13 # +2
Теперь мы знаем, как вы думаете. :D
guest 02.02.2011 02:03 # 0
Lure Of Chaos 01.02.2011 14:36 # −1
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;
Lure Of Chaos 01.02.2011 14:45 # −1
поэтому хуй проверки будут
TarasB 01.02.2011 14:46 # −4
guest 01.02.2011 16:01 # +2
Не стыдно?
istem 01.02.2011 16:05 # +1
TarasB 01.02.2011 16:21 # −4
guest 01.02.2011 17:15 # +4
Lure Of Chaos 01.02.2011 16:16 # 0
вхуй заебали пиздеть матом
Govnocoder#0xFF 01.02.2011 19:56 # +4
Lure Of Chaos 01.02.2011 23:12 # +3
TarasB 02.02.2011 10:43 # 0
bugmenot 02.02.2011 10:47 # +3