这个TEA算法的改写是否正确？
本帖最后由 republican 于 2011-6-11 10:23 编辑这个是C下的TEA算法：void encipher(unsigned long *const plain, const unsigned long *const key, unsigned long *const crypt)
//参数为8字节的明文输入和16字节的密钥，输出8字节密文
{
unsigned longleft=plain,right= plain,
a=key, b=key,
c=key, d=key,
n=32, sum = 0,
delta = 0x9E3779B9;
// 明文输入被分为左右两部分，密钥分为四部分存入寄存器，n表示加密轮数推荐32。Delta为一常数。
while (n-- > 0) {
sum += delta;
left += ((right << 4) + a) ^ (right + sum) ^ ((right >> 5) + b);
right += ((left << 4) + c) ^ (left + sum) ^ ((left >> 5) + d);
}
crypt =left ;
crypt =right ;
} 而我这样改写了（只进行16次迭代）：
_Encipher('afadadadadadadad',5'ef6236e060963c24d2c8531b7ce177f')
Func _Encipher($Text,$EnKey)
Local $Left = Number('0x' & StringLeft($Text,8))
Local $Right = Number('0x' & StringMid($Text,9,8))
;~ _Save($Left,'$Left')
;~ _Save($Right,'$Right')
Local $Key = [ Number('0x' & StringMid($EnKey,1,8)),Number('0x' & StringMid($EnKey,9,8)),Number('0x' & StringMid($EnKey,17,8)),Number('0x' & StringMid($EnKey,25,8))]
Local $PreLeft,$PreRight
Local $Sum = 0
Local $delta = 0x9E3779B9
For $i = 1 To 16
$Sum += $delta
$PreLeft = BitShift($Right,-4)+$Key
$PreLeft = $Right + $Sum
$PreLeft = BitShift($Right,5)+$Key
$PreLeft =BitXOR($PreLeft,$PreLeft,$PreLeft)
$Left += $PreLeft
$PreRight = BitShift($Left,-4)+$Key
$PreRight = $Left + $Sum
$PreRight = BitShift($Left,5)+$Key
$PreRight =BitXOR($PreRight,$PreRight,$PreRight)
$Right += $PreRight
Next
_Save($Sum,'$Sum')
;~ _Save($PreLeft,'$PreLeft')
;~ _Save($PreLeft,'$PreLeft')
;~ _Save($PreLeft,'$PreLeft')
;~ _Save($PreLeft,'$PreLeft')
_Save($Left,'$Left')
;~ _Save($PreRight,'$PreRight')
;~ _Save($PreRight,'$PreRight')
;~ _Save($PreRight,'$PreRight')
;~ _Save($PreRight,'$PreRight')
_Save($Right,'$Right')
Return ;$Left,$Right
EndFunc
Func _Save($Text,$Target = '',$Mode = 0)
If $Target <> '' Then ConsoleWrite('变量: '&$Target&@CRLF)
ConsoleWrite('字符：'&IsString($Text)&@CRLF)
ConsoleWrite('数字：'&IsNumber($Text)&@CRLF)
ConsoleWrite('字节：'&IsBinary($Text)&@CRLF)
ConsoleWrite('值：'&$Text&@CRLF)
ConsoleWrite('Hex：'&Hex($Text)&@CRLF)
ConsoleWrite('Byte：'&Binary($Text)&@CRLF)
ConsoleWrite('------'&@CRLF)
EndFunc
对于明文：afadadadadadadad ，密匙： ef6236e060963c24d2c8531b7ce177f，上述代码给出来的结果为 1E8A7F519F3D550B ，但教程中的结果为 D781D20379F279E0 ，不知道这样的改写是否有错误呢？ 先谢谢各位了！
PS：现在发现Autoit在4G内存03上调试非常不稳定，直接运行十几次就会蓝屏..呵呵..08 R2反而很稳定。 回复 1# republican
给你个函数,不过不清楚你这段代码是xtea,还是xxtea,看看吧
页:
[1]