🚀 go-pugleaf

Ok the pascal test code I supplied had a little error shr instead of shl but
that dont work

I made this c code to see what is going on:

It appears c is the one at fault not delphi... at least from a programmer
point of view...

You algorithm people better go check your source code...

BECAUSE:    YOUR SOURCE CODE IS DOING SOMETHING ELSE WHICH YOU PROBABLY
THINK !!! DOH.

That's why I dont programmer in c.

It's a bad buggy language :)

I code slow but good.

Not fast and crap. Like most commercial software hahahahahahahaha.

void test2()
{
 unsigned long y, z, k[4], _sum, delta, temp1, temp2, temp3, temp4, temp5,
temp6;

 y = 435643;
 z = 235346;

 k[0] = 32453;
 k[1] = 346576;
 k[2] = 45765;
 k[3] = 6435234;

 _sum = 0;

 delta = 0x9E3779B9;

 temp1 = z << 4;

 temp2 = z >> 5;

 temp3 = temp1 ^ temp2;

 temp4 = z ^ _sum;

 temp5 = k[ _sum & 3 ];

 temp6 = y + temp3 + temp4 + temp5;

 printf("%lu\n", temp6 );


 y = y + (z << 4 ^ z >> 5) + z ^ _sum + k[ _sum & 3 ];

 _sum = _sum + delta;

 z = z + (y << 4 ^ y >> 5) + y ^ _sum + k[ _sum >> 11 & 3];

 printf("%lu\n", y );
 printf("%lu\n", z );
}








<disastry@saiknes.lv.NO.SPaM.NET> wrote in message
news:3D69F6F6.E43591E6@saiknes.lv.NO.SPaM.NET...
> -----BEGIN PGP SIGNED MESSAGE-----
> Hash: RIPEMD160
>
> skybuck wrote:
> > The problems are probably with these lines of code:
> >
> > c version:
> >
> > y += (z<<4)+a ^ z+sum ^ (z>>5)+b;
> > z += (y<<4)+c ^ y+sum ^ (y>>5)+d;
> >
> > pascal version:
> >
> > y := y + (z shl 4) + a xor z + _sum xor (z shr 5) + b;
> > z := z + (y shl 4) + c xor y + _sum xor (y shr 5) + d;
>
> 1) try:
>   y := y + ((z shl 4) + a xor z + _sum xor (z shr 5) + b);
> or even
>   y := y + (((z shl 4) + a) xor (z + _sum) xor ((z shr 5) + b));
>
> 2) better use XTEA (aka (TEAN)
>
> __
> Disastry  http://disastry.dhs.org/
> http://disastry.dhs.org/pgp <----PGP plugins for Netscape and MDaemon
>  ^----PGP 2.6.3ia-multi06 (supports IDEA, CAST5, BLOWFISH, TWOFISH,
>       AES, 3DES ciphers and MD5, SHA1, RIPEMD160, SHA2 hashes)
> -----BEGIN PGP SIGNATURE-----
> Version: Netscape PGP half-Plugin 0.15 by Disastry / PGPsdk v1.7.1
>
> iQA/AwUBPWnayDBaTVEuJQxkEQMpGACfZIT4l3qmDgc6vFEefc8IaltkSfAAoLXz
> hQBQJElRGLhZ0OyB59/rQvpn
> =ouN1
> -----END PGP SIGNATURE-----