DES_LONG DES_quad_cksum(const unsigned char *input, DES_cblock output[],
	     long length, int out_count, DES_cblock *seed)
	{
	DES_LONG z0,z1,t0,t1;
	int i;
	long l;
	const unsigned char *cp;
	DES_LONG *lp;
	if (out_count < 1) out_count=1;
	lp = (DES_LONG *) &(output[0])[0];
	z0=Q_B0((*seed)[0])|Q_B1((*seed)[1])|Q_B2((*seed)[2])|Q_B3((*seed)[3]);
	z1=Q_B0((*seed)[4])|Q_B1((*seed)[5])|Q_B2((*seed)[6])|Q_B3((*seed)[7]);
	for (i=0; ((i<4)&&(i<out_count)); i++)
		{
		cp=input;
		l=length;
		while (l > 0)
			{
			if (l > 1)
				{
				t0= (DES_LONG)(*(cp++));
				t0|=(DES_LONG)Q_B1(*(cp++));
				l--;
				}
			else
				t0= (DES_LONG)(*(cp++));
			l--;
			t0+=z0;
			t0&=0xffffffffL;
			t1=z1;
			z0=((((t0*t0)&0xffffffffL)+((t1*t1)&0xffffffffL))
				&0xffffffffL)%0x7fffffffL;
			z1=((t0*((t1+NOISE)&0xffffffffL))&0xffffffffL)%0x7fffffffL;
			}
		if (lp != NULL)
			{
			*lp++ = z0;
			*lp++ = z1;
			}
		}
	return(z0);
	}
['DES_LONG DES_quad_cksum(const unsigned char *input, DES_cblock output[],\n\t     long length, int out_count, DES_cblock *seed)\n\t{\n\tDES_LONG z0,z1,t0,t1;\n\tint i;\n\tlong l;\n\tconst unsigned char *cp;\n\tDES_LONG *lp;\n\tif (out_count < 1) out_count=1;\n\tlp = (DES_LONG *) &(output[0])[0];\n\tz0=Q_B0((*seed)[0])|Q_B1((*seed)[1])|Q_B2((*seed)[2])|Q_B3((*seed)[3]);\n\tz1=Q_B0((*seed)[4])|Q_B1((*seed)[5])|Q_B2((*seed)[6])|Q_B3((*seed)[7]);\n\tfor (i=0; ((i<4)&&(i<out_count)); i++)\n\t\t{\n\t\tcp=input;\n\t\tl=length;\n\t\twhile (l > 0)\n\t\t\t{\n\t\t\tif (l > 1)\n\t\t\t\t{\n\t\t\t\tt0= (DES_LONG)(*(cp++));\n\t\t\t\tt0|=(DES_LONG)Q_B1(*(cp++));\n\t\t\t\tl--;\n\t\t\t\t}\n\t\t\telse\n\t\t\t\tt0= (DES_LONG)(*(cp++));\n\t\t\tl--;\n\t\t\tt0+=z0;\n\t\t\tt0&=0xffffffffL;\n\t\t\tt1=z1;\n\t\t\tz0=((((t0*t0)&0xffffffffL)+((t1*t1)&0xffffffffL))\n\t\t\t\t&0xffffffffL)%0x7fffffffL;\n\t\t\tz1=((t0*((t1+NOISE)&0xffffffffL))&0xffffffffL)%0x7fffffffL;\n\t\t\t}\n\t\tif (lp != NULL)\n\t\t\t{\n\t\t\t*lp++ = z0;\n\t\t\t*lp++ = z1;\n\t\t\t}\n\t\t}\n\treturn(z0);\n\t}']