各位dfw,救救小弟（关于CRC）(0分)

哪一位能够把下面的程序该为FOXPRO阿？小弟送200分
谢谢！在线等待中，明天就要了
CRC算法
Delphi6代码：
var
CRC8: byte;
procedure DoCRC8(X: byte);
const
Table : array[0..255] of byte = (
0, 94,188,226, 97, 63,221,131,194,156,126, 32,163,253, 31, 65,
157,195, 33,127,252,162, 64, 30, 95, 1,227,189, 62, 96,130,220,
35,125,159,193, 66, 28,254,160,225,191, 93, 3,128,222, 60, 98,
190,224, 2, 92,223,129, 99, 61,124, 34,192,158, 29, 67,161,255,
70, 24,250,164, 39,121,155,197,132,218, 56,102,229,187, 89, 7,
219,133,103, 57,186,228, 6, 88, 25, 71,165,251,120, 38,196,154,
101, 59,217,135, 4, 90,184,230,167,249, 27, 69,198,152,122, 36,
248,166, 68, 26,153,199, 37,123, 58,100,134,216, 91, 5,231,185,
140,210, 48,110,237,179, 81, 15, 78, 16,242,172, 47,113,147,205,
17, 79,173,243,112, 46,204,146,211,141,111, 49,178,236, 14, 80,
175,241, 19, 77,206,144,114, 44,109, 51,209,143, 12, 82,176,238,
50,108,142,208, 83, 13,239,177,240,174, 76, 18,145,207, 45,115,
202,148,118, 40,171,245, 23, 73, 8, 86,180,234,105, 55,213,139,
87, 9,235,181, 54,104,138,212,149,203, 41,119,244,170, 72, 22,
233,183, 85, 11,136,214, 52,106, 43,117,151,201, 74, 20,246,168,
116, 42,200,150, 21, 75,169,247,182,232, 10, 84,215,137,107, 53);
begin
CRC8 := Table[CRC8 xor X];
end;

例子:
02H 1CH B8H 01H 00H 00H 00H -> A2H (Hex)

CRC8 := 00H -> DoCRC8(02H) -> BCH 188 (Dec)
CRC8 := BCH -> DoCRC8(1CH) -> AFH 175 (Dec)
CRC8 := AFH -> DoCRC8(B8H) -> 1EH 30 (Dec)
CRC8 := 1EH -> DoCRC8(01H) -> DCH 220 (Dec)
CRC8 := DCH -> DoCRC8(00H) -> F4H 244 (Dec)
CRC8 := F4H -> DoCRC8(00H) -> 15H 21 (Dec)
CRC8 := 15H -> DoCRC8(00H) -> A2H 162 (Dec)