首页 > 代码库 > lazarus:将字符串加密生成md5码

lazarus:将字符串加密生成md5码

var  sSrc, sDst: string;begin  sSrc := EditSrc.Text;  sDst := MD5Print(MD5String(sSrc));  EditDest.Text := sDst;