delphi:

for a:=0 to 31 do
begin
dec(z,((y shl 4)+key[2]) xor (y+sum) xor ((y shr 5)+key[3]));
dec(y,((z shl 4)+key[0]) xor (z+sum) xor ((z shr 5)+key[1]));
dec(sum,Delta);
end;

其中有 <<,>>,^,+ 运算
其顺序为先 <<,>>,在做^运算,最后为+运算
========
这里应该是个笔误， 因为本来就是错误的。
假设这里不是错误， 那么网上所有其他tea都是错误

Symbol Name or Meaning Associativity
Highest Precedence  
++ Post-increment Left to right
-- Post-decrement  
( ) Function call  
[ ] Array element  
-> Pointer to structure member  
. Structure or union member  
++ Pre-increment Right to left
-- Pre-decrement  
! Logical NOT  
~ Bitwise NOT  
- Unary minus  
+ Unary plus  
& Address  
* Indirection  
sizeof Size in bytes  
new Allocate program memory  
delete Deallocate program memory  
(type) Type cast [for example, (float) i]  
.* Pointer to member (objects) Left to right
->* Pointer to member (pointers)  
* Multiply Left to right
/ Divide  
% Remainder  
+ Add Left to right
- Subtract  
<< Left shift Left to right
>> Right shift  
< Less than Left to right
<= Less than or equal to  
> Greater than  
>= Greater than or equal to  
== Equal Left to right
!= Not equal  
& Bitwise AND Left to right
^ Bitwise exclusive OR Left to right
| Bitwise OR Left to right
&& Logical AND Left to right
|| Logical OR Left to right
? : Conditional Right to left
= Assignment Right to left
*=, /=, %=, +=, -=, <<=, >>=, &=, ^=, |= Compound assignment  
, Comma Left to right
Lowest Precedence

C中的优先级不是根据算法来决定的

谢谢各位了～！ 那么书上肯定是叙述错误的了

QQ的协议好像就用了这种算法。。。。

这里有一个我写的,不过是128轮的.要32轮的把TEALIMIT改一下
cbData要求是8的整数倍

TEADELTA equ 09E3779B9h ;(sqrt(5)-1)*2^31
TEALIMIT equ 01BBCDC80h ;DELTA * 128

TEAEncrypt proc uses ebx esi edi lpData:DWORD,cbData:DWORD,lpKey:DWORD
        .if cbData==0
                ret
        .endif
        push ebp
        ;sub esp,8
       
        mov eax,cbData
        .if eax & 7
                or eax,7
                inc eax
        .endif
        add eax,lpData
        push eax
        push lpData
        mov ebx,lpKey
        .while TRUE
                mov ecx,[esp]
                .break .if ecx==[esp+4]
                add DWORD ptr [esp],8
                mov esi,[ecx]
                mov edi,[ecx+4]
                push ecx
                xor edx,edx
                .while edx!=TEALIMIT
                        mov eax,edi
                        shl eax,4
                        mov ecx,edi
                        shr ecx,5
                        xor eax,ecx
                        mov ebp,eax
                        mov eax,edi
                        xor eax,edx
                        add ebp,eax
                        mov eax,edx
                        and eax,3
                        add ebp,[ebx+4*eax]
                        add esi,ebp
                       
                        add edx,TEADELTA
                       
                        mov eax,esi
                        shl eax,4
                        mov ecx,esi
                        shr ecx,5
                        xor eax,ecx
                        mov ebp,eax
                        mov eax,esi
                        xor eax,edx
                        add ebp,eax
                        mov eax,edx
                        shr eax,11
                        and eax,3
                        add ebp,[ebx+4*eax]
                        add edi,ebp
                .endw
                pop ecx
                mov [ecx],esi
                mov [ecx+4],edi
        .endw
        add esp,8
        pop ebp
        ret
TEAEncrypt endp

TEADecrypt proc uses ebx esi edi lpData:DWORD,cbData:DWORD,lpKey:DWORD
        .if cbData==0
                ret
        .endif
        push ebp
        ;sub esp,8
       
        mov eax,cbData
        .if eax & 7
                or eax,7
                inc eax
        .endif
        add eax,lpData
        push eax
        push lpData
        mov ebx,lpKey
        .while TRUE
                mov ecx,[esp]
                .break .if ecx==[esp+4]
                add DWORD ptr [esp],8
                mov esi,[ecx]
                mov edi,[ecx+4]
                push ecx
                mov edx,TEALIMIT
                .while edx
                        mov eax,esi
                        shl eax,4
                        mov ecx,esi
                        shr ecx,5
                        xor eax,ecx
                        mov ebp,eax
                        mov eax,esi
                        xor eax,edx
                        add ebp,eax
                        mov eax,edx
                        shr eax,11
                        and eax,3
                        add ebp,[ebx+4*eax]
                        sub edi,ebp
                       
                        sub edx,TEADELTA
                       
                        mov eax,edi
                        shl eax,4
                        mov ecx,edi
                        shr ecx,5
                        xor eax,ecx
                        mov ebp,eax
                        mov eax,edi
                        xor eax,edx
                        add ebp,eax
                        mov eax,edx
                        and eax,3
                        add ebp,[ebx+4*eax]
                        sub esi,ebp
                .endw
                pop ecx
                mov [ecx],esi
                mov [ecx+4],edi
        .endw
        add esp,8
        pop ebp
        ret
TEADecrypt endp

很多时候，碰到这种问题，就显示出标准文档的重要性了
在TEA标准文档中，加密过程是这样的：
void code(long* v, long* k) {
unsigned long y=v[0],z=v[1], sum=0, /* set up */
delta=0x9e3779b9, /* a key schedule constant */
n=32 ;
while (n-->0) { /* basic cycle start */
sum += delta ;
y += ((z<<4)+k[0]) ^ (z+sum) ^ ((z>>5)+k[1]) ;
z += ((y<<4)+k[2]) ^ (y+sum) ^ ((y>>5)+k[3]) ;
} /* end cycle */
v[0]=y ; v[1]=z ; }

谢谢 各位的指教，我去查阅了 标准文档，确实书上的叙述有误

自己实践写了一个Tea算法文件加密程序,下载地址见1楼最后
:P