MD5加密是出现"integer voerflow"

Question

部分代码如下：function F(x, y, z: DWORD): DWORD;
begin
Result := (x and y) or ((not x) and z);
end;procedure FF(var a: DWORD; b, c, d, x: DWORD; s: BYTE; ac: DWORD);
begin
[color=#FF0000]inc(a, F(b, c, d) + x + ac);[/color]
rot(a, s);
inc(a, b);
end;在执行inc()出现错误

Answer 1

这段代码在程序里会溢出，单独拿出来处理相同的字符又不会溢出。。很纠结

Answer 2

“单独拿出来处理相同的字符又不会溢出”
如何单独拿出？

Answer 3

就在新建一个程序，吧这个函数单元文件引用过来，调用相同函数，传递相同参数，不会出现错误！@#￥￥%%

Answer 4

溢出这类问题实时查看一下变量值。

Answer 5

自己郁闷了好多天，总算是想办法解决了。