MD5加密问题 求高手啊

Sven

怎么能读出MD5加密过的字符串啊

tlwangxd

什么也没发出来

qq351317878

md5加密字符串  

1. unit ToMd5;
   
2. 
   
3. interface
   
4. uses
   
5. IdHashMessageDigest, IdHash, IdGlobal;
   
6. 
   
7. type
   
8. TMD5 = class(TIdHashMessageDigest5);
   
9. 
   
10. function StrToMD5(S: String): String; overload;
    
11. function StrToMD516(S: String; L: integer): String; overload; //返加16位MD5值
    
12. function StrToMD532(S: String; L: integer): String; overload; //返回32位MD5值
    
13. 
    
14. implementation
    
15. function StrToMD5(S: String): String;
    
16. var
    
17. Md5Encode: TMD5;
    
18. begin
    
19. Md5Encode:= TMD5.Create;
    
20. result:= Md5Encode.AsHex(Md5Encode.HashValue(S));
    
21. Md5Encode.Free;
    
22. end;
    
23. 
    
24. function StrToMD516(S: String; L: integer): String;
    
25. begin
    
26. result:= copy(StrToMD5(S),9,L);
    
27. end;
    
28. 
    
29. function StrToMD532(S: String; L: integer): String; overload;
    
30. begin
    
31. result:= copy(StrToMD5(S),1,L);
    
32. end;
    
33. end.

复制代码