K k2536 Unregistered / Unconfirmed GUEST, unregistred user! 2007-09-16 #1 我有一个MD5加密函数,定义是这样的,不知道如何得到转换后的字符串 function MD5String(M: string): MD5Digest;
K k2536 Unregistered / Unconfirmed GUEST, unregistred user! 2007-09-16 #2 定义如下 type MD5Count = array[0..1] of DWORD; MD5State = array[0..3] of DWORD; MD5Block = array[0..15] of DWORD; MD5CBits = array[0..7] of byte; MD5Digest = array[0..15] of byte; MD5Buffer = array[0..63] of byte; MD5Context = record State: MD5State; Count: MD5Count; Buffer: MD5Buffer; end;
定义如下 type MD5Count = array[0..1] of DWORD; MD5State = array[0..3] of DWORD; MD5Block = array[0..15] of DWORD; MD5CBits = array[0..7] of byte; MD5Digest = array[0..15] of byte; MD5Buffer = array[0..63] of byte; MD5Context = record State: MD5State; Count: MD5Count; Buffer: MD5Buffer; end;
Q qn-wl Unregistered / Unconfirmed GUEST, unregistred user! 2007-09-16 #3 edit1.text:= MD5pring(MD5String('abcgdd'));