Flex开发怎样实现多重保密

　　flex4开发实践在操作过程中会有一个对于开发内容多重加密的环节。大家在查看这个环节的内容的时候只要是能够注意好按照正确的操作方式以及运用合理的技术来完成flex开发实践的操作，其实就能够达到非常轻松的操作实践效果了。现在我们来看看具体的flex开发实践实现多重加密的操作过程。

　　RShift = (lValue And &H7FFFFFFE) MD5_m_l2Power(iShiftBits)

　　If (lValue And &H80000000) Then

　　RShift = (RShift or (&H40000000 MD5_m_l2Power(iShiftBits - 1)))

　　End If

　　End Function

　　'字符串偏移转换，通过左右移位函数实现

　　Private Function RotateLeft(byVal lValue,byVal iShiftBits)

　　RotateLeft = LShift(lValue,iShiftBits) or RShift(lValue,(32 - iShiftBits))

　　End Function

　　'追加无符号16进制编码

　　Private Function AddUnsigned(byVal lX,byVal lY)

　　Dim lX4

　　Dim lY4

　　Dim lX8

　　Dim lY8

　　Dim lResult

　　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

　　AddUnsigned = lResult

　　End Function

　　'MD5_FF,MD5_GG,MD5_HH,MD5_II MD5主编码函数

　　Private Sub MD5_FF(a,b,c,d,x,s,ac)

　　a = AddUnsigned(a,AddUnsigned(AddUnsigned(MD5_F(b,d),x),ac))

　　a = RotateLeft(a,s)

　　a = AddUnsigned(a,b)

　　End Sub

　　Private Sub MD5_GG(a,AddUnsigned(AddUnsigned(MD5_G(b,b)

　　End Sub

　　Private Sub MD5_HH(a,AddUnsigned(AddUnsigned(MD5_H(b,b)

　　End Sub

　　Private Sub MD5_II(a,AddUnsigned(AddUnsigned(MD5_I(b,b)

　　End Sub

　　'MD5_F,MD5_G,MD5_H,MD5_I MD5辅编码函数

　　Private Function MD5_F(x,y,z)

　　MD5_F = (x And y) or ((Not x) And z)

　　End Function

　　Private Function MD5_G(x,z)

　　MD5_G = (x And z) or (y And (Not z))

　　End Function

　　Private Function MD5_H(x,z)

　　MD5_H = (x Xor y Xor z)

　　End Function

　　Private Function MD5_I(x,z)

　　MD5_I = (y Xor (x or (Not z)))

　　End Function

　　'16进制编码转换

　　Private Function WordToHex(byVal lValue)

　　Dim lByte

　　Dim lCount

　　For lCount = 0 To 3

　　lByte = RShift(lValue,lCount * BITS_TO_A_BYTE) And MD5_m_lOnBits(BITS_TO_A_BYTE - 1)

　　WordToHex = WordToHex & Right("0" & Hex(lByte),2)

　　Next

　　End Function

　　flex开发实践如何实现多重加密操作只要是按照上述的介绍来完成就能够轻轻松松的达到自己的预期操作效果了。但是，在操作的时候还是要注意细节的操作问题，字符串以及相关的代码有遗漏最终就难以实现flex开发实践如何实现多重加密效果。