在csdn社区里，答案是：

1.先打开wor  
2."工具"->"工具管理器"  
3.添加"Mapx   Geoset   Utility"  
4.然后使用它的时候，会有“Save   Mapx   Geoset..."

Private Function AddLong(lX As Long, lY As Long) As Long                        '长整数加法函数
    Dim lX4 As Long
    Dim lY4 As Long
    Dim lX8 As Long
    Dim lY8 As Long
    Dim lResult As Long
    lX8 = lX And &H80000000
    lY8 = lY And &H80000000
    lX4 = lX And &H40000000
    lY4 = lY And &H40000000
    lResult = (lX And &H3FFFFFFF) + (lY And &H3FFFFFFF)
    If lX4 And lY4 Then
        lResult = lResult Xor &H80000000 Xor lX8 Xor lY8
    ElseIf lX4 Or lY4 Then
        If lResult And &H40000000 Then
            lResult = lResult Xor &HC0000000 Xor lX8 Xor lY8
        Else
            lResult = lResult Xor &H40000000 Xor lX8 Xor lY8
        End If
    Else
        lResult = lResult Xor lX8 Xor lY8
    End If
    AddLong = lResult
End Function
                                                                   
Private Function SubtractLong(lX As Long, lY As Long) As Long                   '长整数减法函数
    Dim lX8 As Long
    Dim lY8 As Long
    Dim mX As Double
    Dim mY As Double
    Dim mResult As Double
    Dim lResult As Long
    lX8 = lX And &H80000000
    lY8 = lY And &H80000000
    mX = lX And &H7FFFFFFF
    mY = lY And &H7FFFFFFF
    If lX8 Then
        If lY8 Then
            mResult = mX - mY
        Else
            mX = mX + Bit_32
            mResult = mX - mY
        End If
    Else
        If lY8 Then
            mY = lY
            mResult = mX - mY
        Else
            mResult = mX - mY
        End If
    End If
    If mResult < 0 Then
        lResult = ((Bit_32 + mResult) Or &H80000000) And &HFFFFFFFF
    ElseIf mResult > MAXINT_4 Then
        lResult = ((mResult - Bit_32) Or &H80000000) And &HFFFFFFFF
    Else
        lResult = mResult And &HFFFFFFFF
    End If
    SubtractLong = lResult
End Function
                                                                   
Private Function LeftRotateLong(lValue As Long, lBits As Integer) As Long       '按位左移函数
    Dim lngSign As Long, intI As Integer
    Dim mValue As Long
    lBits = lBits Mod 32
    mValue = lValue
    If lBits = 0 Then LeftRotateLong = mValue: Exit Function
    For intI = 1 To lBits
        lngSign = mValue And &H40000000
        mValue = (mValue And &H3FFFFFFF) * 2
        If lngSign And &H40000000 Then
            mValue = mValue Or &H80000000
        End If
    Next
    LeftRotateLong = mValue
End Function
                                                                   
Private Function RightRotateLong(lValue As Long, lBits As Integer) As Long      '按位右移函数
    Dim lngSign As Long, intI As Integer
    Dim mValue As Long
    mValue = lValue
    lBits = lBits Mod 32
    If lBits = 0 Then RightRotateLong = mValue: Exit Function
    For intI = 1 To lBits
        lngSign = mValue And &H80000000
        mValue = (mValue And &H7FFFFFFF) \ 2
        If lngSign Then
            mValue = mValue Or &H40000000
        End If
    Next
    RightRotateLong = mValue
End Function
                                                                   
Public Sub TeaEncode(v() As Long, k() As Long, lType As Integer)                '标准的TEA加密过程,参数lType 为1时表示16轮迭代(QQ使用的就是16轮迭代),否则为32轮迭代
    Dim Y As Long, Z As Long
    Dim K1 As Long, K2 As Long, K3 As Long, K4 As Long
    Dim L1 As Long, L2 As Long, L3 As Long, L4 As Long
    Dim Sum As Long
    Dim i As Integer, Rounds As Integer
    Dim mResult(0 To 1) As Long
    Y = v(0)
    Z = v(1)
    K1 = k(0)
    K2 = k(1)
    K3 = k(2)
    K4 = k(3)
    If lType = 1 Then
        Rounds = 16
    Else
        Rounds = 32
    End If
    For i = 1 To Rounds
        'sum += delta ;
        Sum = AddLong(Sum, DELTA)
        'y += (z<<4)+k[0] ^ z+sum ^ (z>>5)+k[1]
        L1 = LeftRotateLong(Z, 4)
        L1 = AddLong(L1, K1)
        L2 = AddLong(Z, Sum)
        L3 = RightRotateLong(Z, 5)
        L3 = AddLong(L3, K2)
        L4 = L1 Xor L2 Xor L3
        Y = AddLong(Y, L4)
        'z += (y<<4)+k[2] ^ y+sum ^ (y>>5)+k[3]
        L1 = LeftRotateLong(Y, 4)
        L1 = AddLong(L1, K3)
        L2 = AddLong(Y, Sum)
        L3 = RightRotateLong(Y, 5)
        L3 = AddLong(L3, K4)
        L4 = L1 Xor L2 Xor L3
        Z = AddLong(Z, L4)
    Next
    v(0) = Y
    v(1) = Z
End Sub
                                                                        
Public Sub TeaDecode(v() As Long, k() As Long, lType As Integer)                '标准TEA解密过程,参数lType 为1时表示16轮迭代(QQ使用的就是16轮迭代),否则为32轮迭代
    Dim Y As Long, Z As Long
    Dim K1 As Long, K2 As Long, K3 As Long, K4 As Long
    Dim L1 As Long, L2 As Long, L3 As Long, L4 As Long
    Dim Sum As Long
    Dim i As Integer, Rounds As Integer
    Dim mResult(0 To 1) As Long
    Y = v(0)
    Z = v(1)
    K1 = k(0)
    K2 = k(1)
    K3 = k(2)
    K4 = k(3)
    If lType = 1 Then
        Rounds = 16
        Sum = LeftRotateLong(DELTA, 4)
    Else
        Rounds = 32
        Sum = LeftRotateLong(DELTA, 5)
    End If
    For i = 1 To Rounds
        L1 = LeftRotateLong(Y, 4)
        L1 = AddLong(L1, K3)
        L2 = AddLong(Y, Sum)
        L3 = RightRotateLong(Y, 5)
        L3 = AddLong(L3, K4)
        L4 = L1 Xor L2 Xor L3
        Z = SubtractLong(Z, L4)
        L1 = LeftRotateLong(Z, 4)
        L1 = AddLong(L1, K1)
        L2 = AddLong(Z, Sum)
        L3 = RightRotateLong(Z, 5)
        L3 = AddLong(L3, K2)
        L4 = L1 Xor L2 Xor L3
        Y = SubtractLong(Y, L4)
        Sum = SubtractLong(Sum, DELTA)
    Next
    v(0) = Y
    v(1) = Z
End Sub

------------------------------------------------------                                                                         
TEAEncode(V() as Long,K() as Long,lType As Integer)过程中,数组V既是提供明文的参数,也是返回加密后密文的参数
TEADecode(V() as Long,K() as Long,lType As Integer)过程中,数组V既是提供密文的参数,也是返回解密后明文的参数

具体范例如下:

Dim V(0 to 1) As Long
Dim K(0 to 3) As Long

'以下是试验用64位明文

V(0)=&H12345678
V(1)=&H87654321

'以下是试验用128位密匙

K(0)=&H11111111
K(1)=&H22222222
K(2)=&H33333333
K(3)=&H44444444

'显示输出明文
Print "明文:" & V(0) & " -- " & V(1)

'以下演示加密过程
Call TEAEncode(V,K,2) 'TEA算法 32轮加密
Print "加密结果:" & V(0) & " -- " & V(1)

'以下演示解密过程
Call TEADecode(V,K,2) 'TEA算法 32轮加密
Print "解密结果:" & V(0) & " -- " & V(1)

------------------------------------------------------
另外副上TEA算法描述中给出的C代码:

void decode(long* v,long* k) {
unsigned long n=32, sum, y=v[0], z=v[1],
delta=0x9e3779b9 ;
sum=delta<<5 ;
/* start cycle */
while (n-->0) {
z-= (y<<4)+k[2] ^ y+sum ^ (y>>5)+k[3] ;
y-= (z<<4)+k[0] ^ z+sum ^ (z>>5)+k[1] ;
sum-=delta ;
}
/* end cycle */
v[0]=y ; v[1]=z ; }


void code(long* v, long* k) {
unsigned long y=v[0],z=v[1], sum=0,delta=0x9e3779b9, n=32;
unsigned long m; /* a key schedule constant */
while (n-->0) { /* basic cycle start */
sum += delta ;
printf("%lu;%lu;%lu\n",sum,sum-delta,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 ;}