哪位高手帮忙把C翻译成delphi，多谢
static void encipher(unsigned int *const v, const unsigned int *const k, unsigned int *const w)
{
register unsigned int
y = ntohl(v[0]),
z = ntohl(v[1]),
a = ntohl(k[0]),
b = ntohl(k[1]),
c = ntohl(k[2]),
d = ntohl(k[3]),
n = 0x10, /* do encrypt 16 (0x10) times */
sum = 0,
delta = 0x9E3779B9; /* 0x9E3779B9 - 0x100000000 = -0x61C88647 */
while (n-- > 0) {
sum += delta;
y += ((z < < 4) + a) ^ (z + sum) ^ ((z >> 5) + b);
z += ((y < < 4) + c) ^ (y + sum) ^ ((y >> 5) + d);
}
w[0] = htonl(y); w[1] = htonl(z);
}
static void decipher(unsigned int *const v, const unsigned int *const k, unsigned int *const w)
{
register unsigned int
y = ntohl(v[0]),
z = ntohl(v[1]),
a = ntohl(k[0]),
b = ntohl(k[1]),
c = ntohl(k[2]),
d = ntohl(k[3]),
n = 0x10,
sum = 0xE3779B90,
/* why this ? must be related with n value*/
delta = 0x9E3779B9;
/* sum = delta < <5, in general sum = delta *
大家好，这是一个主要面向c/c++/mfc的群，最近进行了一次大清理，欢迎各位高手加入，好学爱问的新手，也可以申请的，申请格式 职业（c/c++/mfc 任选一或者多） 工作年限（学生直接写大几）就行了，入群的要求就是要� ......
大家好，这是一个主要面向c/c++/mfc的群，最近进行了一次大清理，欢迎各位高手加入，好学爱问的新手，也可以申请的，申请格式 职业（c/c++/mfc 任选一或者多） 工作年限（学生直接写大几）就行了，入群的要求就是要� ......
