借个地方提问题，这里人气望

[youxihaha]

谁能帮忙下面的函数转成pascal代码,谢谢
unsigned int hashpjw(char *arKey, unsigned int nKeyLength)
{
unsigned int h = 0, g;
char *arEnd=arKey+nKeyLength;
while (arKey < arEnd) {
h = (h << 4) + *arKey++;
if ((g = (h & 0xF0000000))) {
h = h ^ (g >> 24);
h = h ^ g;
}
}
return h;
}