网上找了几个都不行,用其中一个修改的。可行。Delphi7测试md5加密的例子