haval.pas

来自「用于开发税务票据管理的软件」· PAS 代码 · 共 549 行 · 第 1/3 页

  Temp:= (t7 and (t0 and (not t4) xor t5 and t6 xor t2 xor t1) xor t5 and (t0 xor t6) xor t4 and t6 xor t1);
  t3:= ((temp shr 7) or (temp shl 25)) + ((t3 shr 11) or (t3 shl 21)) + w[17] + $0801F2E2;
  Temp:= (t6 and (t7 and (not t3) xor t4 and t5 xor t1 xor t0) xor t4 and (t7 xor t5) xor t3 and t5 xor t0);
  t2:= ((temp shr 7) or (temp shl 25)) + ((t2 shr 11) or (t2 shl 21)) + w[24] + $858EFC16;
  Temp:= (t5 and (t6 and (not t2) xor t3 and t4 xor t0 xor t7) xor t3 and (t6 xor t4) xor t2 and t4 xor t7);
  t1:= ((temp shr 7) or (temp shl 25)) + ((t1 shr 11) or (t1 shl 21)) + w[29] + $636920D8;
  Temp:= (t4 and (t5 and (not t1) xor t2 and t3 xor t7 xor t6) xor t2 and (t5 xor t3) xor t1 and t3 xor t6);
  t0:= ((temp shr 7) or (temp shl 25)) + ((t0 shr 11) or (t0 shl 21)) + w[ 6] + $71574E69;

  Temp:= (t3 and (t4 and (not t0) xor t1 and t2 xor t6 xor t5) xor t1 and (t4 xor t2) xor t0 and t2 xor t5);
  t7:= ((temp shr 7) or (temp shl 25)) + ((t7 shr 11) or (t7 shl 21)) + w[19] + $A458FEA3;
  Temp:= (t2 and (t3 and (not t7) xor t0 and t1 xor t5 xor t4) xor t0 and (t3 xor t1) xor t7 and t1 xor t4);
  t6:= ((temp shr 7) or (temp shl 25)) + ((t6 shr 11) or (t6 shl 21)) + w[12] + $F4933D7E;
  Temp:= (t1 and (t2 and (not t6) xor t7 and t0 xor t4 xor t3) xor t7 and (t2 xor t0) xor t6 and t0 xor t3);
  t5:= ((temp shr 7) or (temp shl 25)) + ((t5 shr 11) or (t5 shl 21)) + w[15] + $0D95748F;
  Temp:= (t0 and (t1 and (not t5) xor t6 and t7 xor t3 xor t2) xor t6 and (t1 xor t7) xor t5 and t7 xor t2);
  t4:= ((temp shr 7) or (temp shl 25)) + ((t4 shr 11) or (t4 shl 21)) + w[13] + $728EB658;
  Temp:= (t7 and (t0 and (not t4) xor t5 and t6 xor t2 xor t1) xor t5 and (t0 xor t6) xor t4 and t6 xor t1);
  t3:= ((temp shr 7) or (temp shl 25)) + ((t3 shr 11) or (t3 shl 21)) + w[ 2] + $718BCD58;
  Temp:= (t6 and (t7 and (not t3) xor t4 and t5 xor t1 xor t0) xor t4 and (t7 xor t5) xor t3 and t5 xor t0);
  t2:= ((temp shr 7) or (temp shl 25)) + ((t2 shr 11) or (t2 shl 21)) + w[25] + $82154AEE;
  Temp:= (t5 and (t6 and (not t2) xor t3 and t4 xor t0 xor t7) xor t3 and (t6 xor t4) xor t2 and t4 xor t7);
  t1:= ((temp shr 7) or (temp shl 25)) + ((t1 shr 11) or (t1 shl 21)) + w[31] + $7B54A41D;
  Temp:= (t4 and (t5 and (not t1) xor t2 and t3 xor t7 xor t6) xor t2 and (t5 xor t3) xor t1 and t3 xor t6);
  t0:= ((temp shr 7) or (temp shl 25)) + ((t0 shr 11) or (t0 shl 21)) + w[27] + $C25A59B5;

  Temp:= ((t4) and ((t1) and (t3) xor (t2) xor (t5)) xor (t1) and (t0) xor (t3) and (t6) xor (t5));
  t7:= ((temp shr 7) or (temp shl 25)) + ((t7 shr 11) or (t7 shl 21)) + w[19] + $9C30D539;
  Temp:= ((t3) and ((t0) and (t2) xor (t1) xor (t4)) xor (t0) and (t7) xor (t2) and (t5) xor (t4));
  t6:= ((temp shr 7) or (temp shl 25)) + ((t6 shr 11) or (t6 shl 21)) + w[ 9] + $2AF26013;
  Temp:= ((t2) and ((t7) and (t1) xor (t0) xor (t3)) xor (t7) and (t6) xor (t1) and (t4) xor (t3));
  t5:= ((temp shr 7) or (temp shl 25)) + ((t5 shr 11) or (t5 shl 21)) + w[ 4] + $C5D1B023;
  Temp:= ((t1) and ((t6) and (t0) xor (t7) xor (t2)) xor (t6) and (t5) xor (t0) and (t3) xor (t2));
  t4:= ((temp shr 7) or (temp shl 25)) + ((t4 shr 11) or (t4 shl 21)) + w[20] + $286085F0;
  Temp:= ((t0) and ((t5) and (t7) xor (t6) xor (t1)) xor (t5) and (t4) xor (t7) and (t2) xor (t1));
  t3:= ((temp shr 7) or (temp shl 25)) + ((t3 shr 11) or (t3 shl 21)) + w[28] + $CA417918;
  Temp:= ((t7) and ((t4) and (t6) xor (t5) xor (t0)) xor (t4) and (t3) xor (t6) and (t1) xor (t0));
  t2:= ((temp shr 7) or (temp shl 25)) + ((t2 shr 11) or (t2 shl 21)) + w[17] + $B8DB38EF;
  Temp:= ((t6) and ((t3) and (t5) xor (t4) xor (t7)) xor (t3) and (t2) xor (t5) and (t0) xor (t7));
  t1:= ((temp shr 7) or (temp shl 25)) + ((t1 shr 11) or (t1 shl 21)) + w[ 8] + $8E79DCB0;
  Temp:= ((t5) and ((t2) and (t4) xor (t3) xor (t6)) xor (t2) and (t1) xor (t4) and (t7) xor (t6));
  t0:= ((temp shr 7) or (temp shl 25)) + ((t0 shr 11) or (t0 shl 21)) + w[22] + $603A180E;

  Temp:= ((t4) and ((t1) and (t3) xor (t2) xor (t5)) xor (t1) and (t0) xor (t3) and (t6) xor (t5));
  t7:= ((temp shr 7) or (temp shl 25)) + ((t7 shr 11) or (t7 shl 21)) + w[29] + $6C9E0E8B;
  Temp:= ((t3) and ((t0) and (t2) xor (t1) xor (t4)) xor (t0) and (t7) xor (t2) and (t5) xor (t4));
  t6:= ((temp shr 7) or (temp shl 25)) + ((t6 shr 11) or (t6 shl 21)) + w[14] + $B01E8A3E;
  Temp:= ((t2) and ((t7) and (t1) xor (t0) xor (t3)) xor (t7) and (t6) xor (t1) and (t4) xor (t3));
  t5:= ((temp shr 7) or (temp shl 25)) + ((t5 shr 11) or (t5 shl 21)) + w[25] + $D71577C1;
  Temp:= ((t1) and ((t6) and (t0) xor (t7) xor (t2)) xor (t6) and (t5) xor (t0) and (t3) xor (t2));
  t4:= ((temp shr 7) or (temp shl 25)) + ((t4 shr 11) or (t4 shl 21)) + w[12] + $BD314B27;
  Temp:= ((t0) and ((t5) and (t7) xor (t6) xor (t1)) xor (t5) and (t4) xor (t7) and (t2) xor (t1));
  t3:= ((temp shr 7) or (temp shl 25)) + ((t3 shr 11) or (t3 shl 21)) + w[24] + $78AF2FDA;
  Temp:= ((t7) and ((t4) and (t6) xor (t5) xor (t0)) xor (t4) and (t3) xor (t6) and (t1) xor (t0));
  t2:= ((temp shr 7) or (temp shl 25)) + ((t2 shr 11) or (t2 shl 21)) + w[30] + $55605C60;
  Temp:= ((t6) and ((t3) and (t5) xor (t4) xor (t7)) xor (t3) and (t2) xor (t5) and (t0) xor (t7));
  t1:= ((temp shr 7) or (temp shl 25)) + ((t1 shr 11) or (t1 shl 21)) + w[16] + $E65525F3;
  Temp:= ((t5) and ((t2) and (t4) xor (t3) xor (t6)) xor (t2) and (t1) xor (t4) and (t7) xor (t6));
  t0:= ((temp shr 7) or (temp shl 25)) + ((t0 shr 11) or (t0 shl 21)) + w[26] + $AA55AB94;

  Temp:= ((t4) and ((t1) and (t3) xor (t2) xor (t5)) xor (t1) and (t0) xor (t3) and (t6) xor (t5));
  t7:= ((temp shr 7) or (temp shl 25)) + ((t7 shr 11) or (t7 shl 21)) + w[31] + $57489862;
  Temp:= ((t3) and ((t0) and (t2) xor (t1) xor (t4)) xor (t0) and (t7) xor (t2) and (t5) xor (t4));
  t6:= ((temp shr 7) or (temp shl 25)) + ((t6 shr 11) or (t6 shl 21)) + w[15] + $63E81440;
  Temp:= ((t2) and ((t7) and (t1) xor (t0) xor (t3)) xor (t7) and (t6) xor (t1) and (t4) xor (t3));
  t5:= ((temp shr 7) or (temp shl 25)) + ((t5 shr 11) or (t5 shl 21)) + w[ 7] + $55CA396A;
  Temp:= ((t1) and ((t6) and (t0) xor (t7) xor (t2)) xor (t6) and (t5) xor (t0) and (t3) xor (t2));
  t4:= ((temp shr 7) or (temp shl 25)) + ((t4 shr 11) or (t4 shl 21)) + w[ 3] + $2AAB10B6;
  Temp:= ((t0) and ((t5) and (t7) xor (t6) xor (t1)) xor (t5) and (t4) xor (t7) and (t2) xor (t1));
  t3:= ((temp shr 7) or (temp shl 25)) + ((t3 shr 11) or (t3 shl 21)) + w[ 1] + $B4CC5C34;
  Temp:= ((t7) and ((t4) and (t6) xor (t5) xor (t0)) xor (t4) and (t3) xor (t6) and (t1) xor (t0));
  t2:= ((temp shr 7) or (temp shl 25)) + ((t2 shr 11) or (t2 shl 21)) + w[ 0] + $1141E8CE;
  Temp:= ((t6) and ((t3) and (t5) xor (t4) xor (t7)) xor (t3) and (t2) xor (t5) and (t0) xor (t7));
  t1:= ((temp shr 7) or (temp shl 25)) + ((t1 shr 11) or (t1 shl 21)) + w[18] + $A15486AF;
  Temp:= ((t5) and ((t2) and (t4) xor (t3) xor (t6)) xor (t2) and (t1) xor (t4) and (t7) xor (t6));
  t0:= ((temp shr 7) or (temp shl 25)) + ((t0 shr 11) or (t0 shl 21)) + w[27] + $7C72E993;

  Temp:= ((t4) and ((t1) and (t3) xor (t2) xor (t5)) xor (t1) and (t0) xor (t3) and (t6) xor (t5));
  t7:= ((temp shr 7) or (temp shl 25)) + ((t7 shr 11) or (t7 shl 21)) + w[13] + $B3EE1411;
  Temp:= ((t3) and ((t0) and (t2) xor (t1) xor (t4)) xor (t0) and (t7) xor (t2) and (t5) xor (t4));
  t6:= ((temp shr 7) or (temp shl 25)) + ((t6 shr 11) or (t6 shl 21)) + w[ 6] + $636FBC2A;
  Temp:= ((t2) and ((t7) and (t1) xor (t0) xor (t3)) xor (t7) and (t6) xor (t1) and (t4) xor (t3));
  t5:= ((temp shr 7) or (temp shl 25)) + ((t5 shr 11) or (t5 shl 21)) + w[21] + $2BA9C55D;
  Temp:= ((t1) and ((t6) and (t0) xor (t7) xor (t2)) xor (t6) and (t5) xor (t0) and (t3) xor (t2));
  t4:= ((temp shr 7) or (temp shl 25)) + ((t4 shr 11) or (t4 shl 21)) + w[10] + $741831F6;
  Temp:= ((t0) and ((t5) and (t7) xor (t6) xor (t1)) xor (t5) and (t4) xor (t7) and (t2) xor (t1));
  t3:= ((temp shr 7) or (temp shl 25)) + ((t3 shr 11) or (t3 shl 21)) + w[23] + $CE5C3E16;
  Temp:= ((t7) and ((t4) and (t6) xor (t5) xor (t0)) xor (t4) and (t3) xor (t6) and (t1) xor (t0));
  t2:= ((temp shr 7) or (temp shl 25)) + ((t2 shr 11) or (t2 shl 21)) + w[11] + $9B87931E;
  Temp:= ((t6) and ((t3) and (t5) xor (t4) xor (t7)) xor (t3) and (t2) xor (t5) and (t0) xor (t7));
  t1:= ((temp shr 7) or (temp shl 25)) + ((t1 shr 11) or (t1 shl 21)) + w[ 5] + $AFD6BA33;
  Temp:= ((t5) and ((t2) and (t4) xor (t3) xor (t6)) xor (t2) and (t1) xor (t4) and (t7) xor (t6));
  t0:= ((temp shr 7) or (temp shl 25)) + ((t0 shr 11) or (t0 shl 21)) + w[ 2] + $6C24CF5C;

  Temp:= (t3 and (t5 and (not t0) xor t2 and (not t1) xor t4 xor t1 xor t6) xor t2 and (t4 and t0 xor t5 xor t1) xor t0
    and t1 xor t6); t7:= ((temp shr 7) or (temp shl 25)) + ((t7 shr 11) or (t7 shl 21)) + w[24] + $7A325381;
  Temp:= (t2 and (t4 and (not t7) xor t1 and (not t0) xor t3 xor t0 xor t5) xor t1 and (t3 and t7 xor t4 xor t0) xor t7
    and t0 xor t5); t6:= ((temp shr 7) or (temp shl 25)) + ((t6 shr 11) or (t6 shl 21)) + w[ 4] + $28958677;
  Temp:= (t1 and (t3 and (not t6) xor t0 and (not t7) xor t2 xor t7 xor t4) xor t0 and (t2 and t6 xor t3 xor t7) xor t6
    and t7 xor t4); t5:= ((temp shr 7) or (temp shl 25)) + ((t5 shr 11) or (t5 shl 21)) + w[ 0] + $3B8F4898;
  Temp:= (t0 and (t2 and (not t5) xor t7 and (not t6) xor t1 xor t6 xor t3) xor t7 and (t1 and t5 xor t2 xor t6) xor t5
    and t6 xor t3); t4:= ((temp shr 7) or (temp shl 25)) + ((t4 shr 11) or (t4 shl 21)) + w[14] + $6B4BB9AF;
  Temp:= (t7 and (t1 and (not t4) xor t6 and (not t5) xor t0 xor t5 xor t2) xor t6 and (t0 and t4 xor t1 xor t5) xor t4
    and t5 xor t2); t3:= ((temp shr 7) or (temp shl 25)) + ((t3 shr 11) or (t3 shl 21)) + w[ 2] + $C4BFE81B;
  Temp:= (t6 and (t0 and (not t3) xor t5 and (not t4) xor t7 xor t4 xor t1) xor t5 and (t7 and t3 xor t0 xor t4) xor t3
    and t4 xor t1); t2:= ((temp shr 7) or (temp shl 25)) + ((t2 shr 11) or (t2 shl 21)) + w[ 7] + $66282193;
  Temp:= (t5 and (t7 and (not t2) xor t4 and (not t3) xor t6 xor t3 xor t0) xor t4 and (t6 and t2 xor t7 xor t3) xor t2
    and t3 xor t0); t1:= ((temp shr 7) or (temp shl 25)) + ((t1 shr 11) or (t1 shl 21)) + w[28] + $61D809CC;
  Temp:= (t4 and (t6 and (not t1) xor t3 and (not t2) xor t5 xor t2 xor t7) xor t3 and (t5 and t1 xor t6 xor t2) xor t1
    and t2 xor t7); t0:= ((temp shr 7) or (temp shl 25)) + ((t0 shr 11) or (t0 shl 21)) + w[23] + $FB21A991;

  Temp:= (t3 and (t5 and (not t0) xor t2 and (not t1) xor t4 xor t1 xor t6) xor t2 and (t4 and t0 xor t5 xor t1) xor t0
    and t1 xor t6); t7:= ((temp shr 7) or (temp shl 25)) + ((t7 shr 11) or (t7 shl 21)) + w[26] + $487CAC60;
  Temp:= (t2 and (t4 and (not t7) xor t1 and (not t0) xor t3 xor t0 xor t5) xor t1 and (t3 and t7 xor t4 xor t0) xor t7
    and t0 xor t5); t6:= ((temp shr 7) or (temp shl 25)) + ((t6 shr 11) or (t6 shl 21)) + w[ 6] + $5DEC8032;
  Temp:= (t1 and (t3 and (not t6) xor t0 and (not t7) xor t2 xor t7 xor t4) xor t0 and (t2 and t6 xor t3 xor t7) xor t6
    and t7 xor t4); t5:= ((temp shr 7) or (temp shl 25)) + ((t5 shr 11) or (t5 shl 21)) + w[30] + $EF845D5D;
  Temp:= (t0 and (t2 and (not t5) xor t7 and (not t6) xor t1 xor t6 xor t3) xor t7 and (t1 and t5 xor t2 xor t6) xor t5
    and t6 xor t3); t4:= ((temp shr 7) or (temp shl 25)) + ((t4 shr 11) or (t4 shl 21)) + w[20] + $E98575B1;
  Temp:= (t7 and (t1 and (not t4) xor t6 and (not t5) xor t0 xor t5 xor t2) xor t6 and (t0 and t4 xor t1 xor t5) xor t4
    and t5 xor t2); t3:= ((temp shr 7) or (temp shl 25)) + ((t3 shr 11) or (t3 shl 21)) + w[18] + $DC262302;
  Temp:= (t6 and (t0 and (not t3) xor t5 and (not t4) xor t7 xor t4 xor t1) xor t5 and (t7 and t3 xor t0 xor t4) xor t3
    and t4 xor t1); t2:= ((temp shr 7) or (temp shl 25)) + ((t2 shr 11) or (t2 shl 21)) + w[25] + $EB651B88;
  Temp:= (t5 and (t7 and (not t2) xor t4 and (not t3) xor t6 xor t3 xor t0) xor t4 and (t6 and t2 xor t7 xor t3) xor t2
    and t3 xor t0); t1:= ((temp shr 7) or (temp shl 25)) + ((t1 shr 11) or (t1 shl 21)) + w[19] + $23893E81;
  Temp:= (t4 and (t6 and (not t1) xor t3 and (not t2) xor t5 xor t2 xor t7) xor t3 and (t5 and t1 xor t6 xor t2) xor t1
    and t2 xor t7); t0:= ((temp shr 7) or (temp shl 25)) + ((t0 shr 11) or (t0 shl 21)) + w[ 3] + $D396ACC5;

  Temp:= (t3 and (t5 and (not t0) xor t2 and (not t1) xor t4 xor t1 xor t6) xor t2 and (t4 and t0 xor t5 xor t1) xor t0
    and t1 xor t6); t7:= ((temp shr 7) or (temp shl 25)) + ((t7 shr 11) or (t7 shl 21)) + w[22] + $0F6D6FF3;
  Temp:= (t2 and (t4 and (not t7) xor t1 and (not t0) xor t3 xor t0 xor t5) xor t1 and (t3 and t7 xor t4 xor t0) xor t7
    and t0 xor t5); t6:= ((temp shr 7) or (temp shl 25)) + ((t6 shr 11) or (t6 shl 21)) + w[11] + $83F44239;
  Temp:= (t1 and (t3 and (not t6) xor t0 and (not t7) xor t2 xor t7 xor t4) xor t0 and (t2 and t6 xor t3 xor t7) xor t6
    and t7 xor t4); t5:= ((temp shr 7) or (temp shl 25)) + ((t5 shr 11) or (t5 shl 21)) + w[31] + $2E0B4482;
  Temp:= (t0 and (t2 and (not t5) xor t7 and (not t6) xor t1 xor t6 xor t3) xor t7 and (t1 and t5 xor t2 xor t6) xor t5
    and t6 xor t3); t4:= ((temp shr 7) or (temp shl 25)) + ((t4 shr 11) or (t4 shl 21)) + w[21] + $A4842004;
  Temp:= (t7 and (t1 and (not t4) xor t6 and (not t5) xor t0 xor t5 xor t2) xor t6 and (t0 and t4 xor t1 xor t5) xor t4
    and t5 xor t2); t3:= ((temp shr 7) or (temp shl 25)) + ((t3 shr 11) or (t3 shl 21)) + w[ 8] + $69C8F04A;
  Temp:= (t6 and (t0 and (not t3) xor t5 and (not t4) xor t7 xor t4 xor t1) xor t5 and (t7 and t3 xor t0 xor t4) xor t3
    and t4 xor t1); t2:= ((temp shr 7) or (temp shl 25)) + ((t2 shr 11) or (t2 shl 21)) + w[27] + $9E1F9B5E;
  Temp:= (t5 and (t7 and (not t2) xor t4 and (not t3) xor t6 xor t3 xor t0) xor t4 and (t6 and t2 xor t7 xor t3) xor t2
    and t3 xor t0); t1:= ((temp shr 7) or (temp shl 25)) + ((t1 shr 11) or (t1 shl 21)) + w[12] + $21C66842;
  Temp:= (t4 and (t6 and (not t1) xor t3 and (not t2) xor t5 xor t2 xor t7) xor t3 and (t5 and t1 xor t6 xor t2) xor t1
    and t2 xor t7); t0:= ((temp shr 7) or (temp shl 25)) + ((t0 shr 11) or (t0 shl 21)) + w[ 9] + $F6E96C9A;

  Temp:= (t3 and (t5 and (not t0) xor t2 and (not t1) xor t4 xor t1 xor t6) xor t2 and (t4 and t0 xor t5 xor t1) xor t0
    and t1 xor t6); t7:= ((temp shr 7) or (temp shl 25)) + ((t7 shr 11) or (t7 shl 21)) + w[ 1] + $670C9C61;
  Temp:= (t2 and (t4 and (not t7) xor t1 and (not t0) xor t3 xor t0 xor t5) xor t1 and (t3 and t7 xor t4 xor t0) xor t7
    and t0 xor t5); t6:= ((temp shr 7) or (temp shl 25)) + ((t6 shr 11) or (t6 shl 21)) + w[29] + $ABD388F0;
  Temp:= (t1 and (t3 and (not t6) xor t0 and (not t7) xor t2 xor t7 xor t4) xor t0 and (t2 and t6 xor t3 xor t7) xor t6
    and t7 xor t4); t5:= ((temp shr 7) or (temp shl 25)) + ((t5 shr 11) or (t5 shl 21)) + w[ 5] + $6A51A0D2;
  Temp:= (t0 and (t2 and (not t5) xor t7 and (not t6) xor t1 xor t6 xor t3) xor t7 and (t1 and t5 xor t2 xor t6) xor t5
    and t6 xor t3); t4:= ((temp shr 7) or (temp shl 25)) + ((t4 shr 11) or (t4 shl 21)) + w[15] + $D8542F68;
  Temp:= (t7 and (t1 and (not t4) xor t6 and (not t5) xor t0 xor t5 xor t2) xor t6 and (t0 and t4 xor t1 xor t5) xor t4
    and t5 xor t2); t3:= ((temp shr 7) or (temp shl 25)) + ((t3 shr 11) or (t3 shl 21)) + w[17] + $960FA728;
  Temp:= (t6 and (t0 and (not t3) xor t5 and (not t4) xor t7 xor t4 xor t1) xor t5 and (t7 and t3 xor t0 xor t4) xor t3
    and t4 xor t1); t2:= ((temp shr 7) or (temp shl 25)) + ((t2 shr 11) or (t2 shl 21)) + w[10] + $AB5133A3;
  Temp:= (t5 and (t7 and (not t2) xor t4 and (not t3) xor t6 xor t3 xor t0) xor t4 and (t6 and t2 xor t7 xor t3) xor t2
    and t3 xor t0); t1:= ((temp shr 7) or (temp shl 25)) + ((t1 shr 11) or (t1 shl 21)) + w[16] + $6EEF0B6C;
  Temp:= (t4 and (t6 and (not t1) xor t3 and (not t2) xor t5 xor t2 xor t7) xor t3 and (t5 and t1 xor t6 xor t2) xor t1
    and t2 xor t7); t0:= ((temp shr 7) or (temp shl 25)) + ((t0 shr 11) or (t0 shl 21)) + w[13] + $137A3BE4;

  Temp:= (t1 and (t3 and t4 and t6 xor (not t5)) xor t3 and t0 xor t4 and t5 xor t6 and t2);
  t7:= ((temp shr 7) or (temp shl 25)) + ((t7 shr 11) or (t7 shl 21)) + w[27] + $BA3BF050;
  Temp:= (t0 and (t2 and t3 and t5 xor (not t4)) xor t2 and t7 xor t3 and t4 xor t5 and t1);
  t6:= ((temp shr 7) or (temp shl 25)) + ((t6 shr 11) or (t6 shl 21)) + w[ 3] + $7EFB2A98;
  Temp:= (t7 and (t1 and t2 and t4 xor (not t3)) xor t1 and t6 xor t2 and t3 xor t4 and t0);
  t5:= ((temp shr 7) or (temp shl 25)) + ((t5 shr 11) or (t5 shl 21)) + w[21] + $A1F1651D;
  Temp:= (t6 and (t0 and t1 and t3 xor (not t2)) xor t0 and t5 xor t1 and t2 xor t3 and t7);
  t4:= ((temp shr 7) or (temp shl 25)) + ((t4 shr 11) or (t4 shl 21)) + w[26] + $39AF0176;
  Temp:= (t5 and (t7 and t0 and t2 xor (not t1)) xor t7 and t4 xor t0 and t1 xor t2 and t6);
  t3:= ((temp shr 7) or (temp shl 25)) + ((t3 shr 11) or (t3 shl 21)) + w[17] + $66CA593E;
  Temp:= (t4 and (t6 and t7 and t1 xor (not t0)) xor t6 and t3 xor t7 and t0 xor t1 and t5);
  t2:= ((temp shr 7) or (temp shl 25)) + ((t2 shr 11) or (t2 shl 21)) + w[11] + $82430E88;
  Temp:= (t3 and (t5 and t6 and t0 xor (not t7)) xor t5 and t2 xor t6 and t7 xor t0 and t4);
  t1:= ((temp shr 7) or (temp shl 25)) + ((t1 shr 11) or (t1 shl 21)) + w[20] + $8CEE8619;
  Temp:= (t2 and (t4 and t5 and t7 xor (not t6)) xor t4 and t1 xor t5 and t6 xor t7 and t3);
  t0:= ((temp shr 7) or (temp shl 25)) + ((t0 shr 11) or (t0 shl 21)) + w[29] + $456F9FB4;

  Temp:= (t1 and (t3 and t4 and t6 xor (not t5)) xor t3 and t0 xor t4 and t5 xor t6 and t2);
  t7:= ((temp shr 7) or (temp shl 25)) + ((t7 shr 11) or (t7 shl 21)) + w[19] + $7D84A5C3;
  Temp:= (t0 and (t2 and t3 and t5 xor (not t4)) xor t2 and t7 xor t3 and t4 xor t5 and t1);
  t6:= ((temp shr 7) or (temp shl 25)) + ((t6 shr 11) or (t6 shl 21)) + w[ 0] + $3B8B5EBE;