用delphi写的加密解密算法,闲暇之余写的