用vb实现DES加解密算法(二)--加密(34) tempReturn(i) = tempReturn(i) + CodeIP(i * 8 + 1) * &H40 tempReturn(i) = tempReturn(i) + CodeIP(i * 8 + 2) * &H20 tempReturn(i) = tempReturn(i) + CodeIP(i * 8 + 3) * &H10 tempReturn(i) = tempReturn(i) + CodeIP(i * 8 + 4) * &H8 tempReturn(i) = tempReturn(i) + CodeIP(i * 8 + 5) * &H4 tempReturn(i) = tempReturn(i) + CodeIP(i * 8 + 6) * &H2 tempReturn(i) = tempReturn(i) + CodeIP(i * 8 + 7) * &H1 Next CopyMemory bReturn(j), tempReturn(0), 8NextEnd Sub