{:4_255:}{:4_255:}{:4_255:}{:4_255:}{:4_255:}{:4_255:}{:4_255:}{:4_255:}{:4_255:}{:4_255:}{:4_255:}{:4_255:}{:4_255:}{:4_255:}{:4_255:}{:4_255:}{:4_255:}{:4_255:}{:4_255:}{:4_255:}{:4_255:}{:4_255:}{:4_255:}{:4_255:}{:4_255:}{:4_255:}{:4_255:}{:4_255:}{:4_255:}{:4_255:}

就！一！点！问！题！也！没！有！

学习了。我也改成取数据摘要去

顶一下 希望大家多多支持

看了下源码，每步失败都会释放句柄，应该是不存在句柄泄漏，同样在win7 X64位 静态编译运行20万次内存也未有明显增加

1. .版本 2
   
2. 
   
3. .子程序 MD过程, 文本型
   
4. .参数 x, 字节集
   
5. .参数 种类, 整数型
   
6. .参数 长度, 整数型
   
7. .局部变量 hCryptProv, 整数型
   
8. .局部变量 hKey, 整数型
   
9. .局部变量 hHash, 整数型
   
10. .局部变量 pbBuffer, 字节集
    
11. .局部变量 cbHash, 整数型
    
12. .局部变量 rgbHash, 字节集
    
13. .局部变量 rgbDigits, 字节集
    
14. .局部变量 局_MD5, 字节集
    
15. .局部变量 b, 整数型
    
16. .局部变量 i, 整数型
    
17. .局部变量 len, 整数型
    
18. 
    
19. .如果真 (CryptAcquireContextA (hCryptProv, “”, “”, 1, -268435456) ＝ 0)
    
20.     .如果真 (CryptAcquireContextA (hCryptProv, “”, “”, 1, 0) ＝ 0)
    
21.         返回 (“”)
    
22.     .如果真结束
    
23. 
    
24. .如果真结束
    
25. 
    
26. .如果 (CryptCreateHash (hCryptProv, 种类, hKey, 0, hHash) ＝ 0)
    
27.     CryptReleaseContext (hCryptProv, 0)
    
28.     返回 (“”)
    
29. .否则
    
30.     pbBuffer ＝ x
    
31.     len ＝ 取字节集长度 (x)
    
32.     .如果 (CryptHashData (hHash, pbBuffer, len, 0) ＝ 0)
    
33.         CryptDestroyHash (hHash)
    
34.         CryptReleaseContext (hCryptProv, 0)
    
35.         返回 (“”)
    
36. 
    
37.     .否则
    
38.         rgbHash ＝ 取空白字节集 (长度)
    
39.         cbHash ＝ 长度
    
40.         .如果 (CryptGetHashParam (hHash, 2, rgbHash, cbHash, 0) ＝ 0)
    
41.             CryptDestroyHash (hHash)
    
42.             CryptReleaseContext (hCryptProv, 0)
    
43.             返回 (“”)
    
44. 
    
45.         .否则
    
46.             rgbDigits ＝ 到字节集 (“0123456789ABCDEF”)
    
47.             局_MD5 ＝ 取空白字节集 (长度 × 2)
    
48.             .变量循环首 (0, cbHash － 1, 1, i)
    
49.                 b ＝ rgbHash [i ＋ 1]
    
50.                 局_MD5 [i × 2 ＋ 1] ＝ rgbDigits [右移 (b, 4) ＋ 1]
    
51.                 局_MD5 [i × 2 ＋ 2] ＝ rgbDigits [位与 (b, 15) ＋ 1]
    
52.             .变量循环尾 ()
    
53.             CryptDestroyHash (hHash)
    
54.             CryptReleaseContext (hCryptProv, 0)
    
55.         .如果结束
    
56. 
    
57.     .如果结束
    
58. 
    
59. .如果结束
    
60. 返回 (到文本 (局_MD5))
    

复制代码

冰点 发表于 2016-10-25 19:32
可。。 需要带个库。。找找其他解决方案赛~

  那就这样咯。 ——来自那啥网的api

1. 
   
2. .子程序 文本_加密1, 文本型, 公开, 失败返回空文本
   
3. .参数 参数_待加密文本, 文本型, , 待加密文本
   
4. .参数 参数_加密的密码, 文本型, , 加密的密码<建议5位以上的数字>
   
5. .局部变量 局_计次, 整数型
   
6. .局部变量 局_过度字节集, 字节集
   
7. .局部变量 局_待加密文本, 字节集
   
8. 
   
9. 局_待加密文本 ＝ 到字节集 (参数_待加密文本)
   
10. .计次循环首 (取字节集长度 (局_待加密文本), 局_计次)
    
11.     局_过度字节集 ＝ 局_过度字节集 ＋ 到字节集 (到字节 (位异或 (局_待加密文本 [局_计次], 3600)))
    
12. .计次循环尾 ()
    
13. 返回 (字节集_到十六进制 (局_过度字节集) ＋ 取文本中间 (md5 (到字节集 (参数_加密的密码)), 3, 9))
    
14. 
    
15. .子程序 文本_解密1, 文本型, 公开, 失败返回空文本
    
16. .参数 参数_待解密文本, 文本型, , 待加密文本
    
17. .参数 参数_解密的密码, 文本型, , 解密的密码<建议5位以上的数字>
    
18. .局部变量 局_计次, 整数型
    
19. .局部变量 局_过度字节集, 字节集
    
20. .局部变量 局_待加密文本, 字节集
    
21. 
    
22. .如果真 (取文本右边 (参数_待解密文本, 9) ≠ 取文本中间 (md5 (到字节集 (参数_解密的密码)), 3, 9))
    
23.     返回 (“”)
    
24. .如果真结束
    
25. 局_待加密文本 ＝ 字节集_还原 (取文本左边 (参数_待解密文本, 取文本长度 (参数_待解密文本) － 9))
    
26. .计次循环首 (取字节集长度 (局_待加密文本), 局_计次)
    
27.     局_过度字节集 ＝ 局_过度字节集 ＋ 到字节集 (到字节 (位异或 (局_待加密文本 [局_计次], 3600)))
    
28. .计次循环尾 ()
    
29. 返回 (到文本 (局_过度字节集))
    
30. 
    
31. .子程序 md5, 文本型
    
32. .参数 数据, 字节集
    
33. .局部变量 stcContext, MD5_CTX
    
34. .局部变量 temptext, 文本型
    
35. .局部变量 tempint, 整数型
    
36. .局部变量 结果, 文本型
    
37. .局部变量 i, 整数型
    
38. 
    
39. .如果真 (MD5Init (stcContext) ≠ 0)
    
40.     MD5Update (stcContext, 数据, 取字节集长度 (数据))
    
41.     MD5Final (stcContext)
    
42.     temptext ＝ “0123456789ABCDEF”
    
43.     .计次循环首 (16, i)
    
44.         tempint ＝ stcContext.cDig
    
45.         结果 ＝ 结果 ＋ 取文本中间 (temptext, tempint ÷ 16 ＋ 1, 1) ＋ 取文本中间 (temptext, tempint ％ 16 ＋ 1, 1)
    
46.     .计次循环尾 ()
    
47. .如果真结束
    
48. 返回 (结果)
    
49. 
    
50. 
    
51. .版本 2
    
52. 
    
53. .数据类型 MD5_CTX
    
54.     .成员 dwNUMa, 整数型
    
55.     .成员 dwNUMb, 整数型
    
56.     .成员 Buffer, 字节型, , "16"
    
57.     .成员 cIN, 字节型, , "64"
    
58.     .成员 cDig, 字节型, , "16"
    
59. 
    
60. .版本 2
    
61. 
    
62. .DLL命令 MD5Init, 整数型, "advapi32"
    
63.     .参数 lpContext, MD5_CTX
    
64. 
    
65. .DLL命令 MD5Final, 整数型, "advapi32"
    
66.     .参数 lpContext, MD5_CTX
    
67. 
    
68. .DLL命令 MD5Update, 整数型, "advapi32"
    
69.     .参数 lpContext, MD5_CTX
    
70.     .参数 lpBuffer, 字节集, 传址
    
71.     .参数 BufSize, 整数型

复制代码

冰点 发表于 2016-10-25 19:32
可。。 需要带个库。。找找其他解决方案赛~

  那就这样咯。 ——来自那啥网的api

  

子程序名	返回值类型	公开	备 注
文本_加密1	文本型		失败返回空文本
参数名	类 型	参考	可空	数组	备 注
参数_待加密文本	文本型				待加密文本
参数_加密的密码	文本型				加密的密码<建议5位以上的数字>

变量名	类 型	静态	数组	备 注
局_计次	整数型
局_过度字节集	字节集
局_待加密文本	字节集

局_待加密文本 ＝ 到字节集 (参数_待加密文本)
计次循环首 (取字节集长度 (局_待加密文本), 局_计次)
局_过度字节集 ＝ 局_过度字节集 ＋ 到字节集 (到字节 (位异或 (局_待加密文本 [局_计次], 3600)))
计次循环尾 ()
返回 (字节集_到十六进制 (局_过度字节集) ＋ 取文本中间 (md5 (到字节集 (参数_加密的密码)), 3, 9))

子程序名	返回值类型	公开	备 注
文本_解密1	文本型		失败返回空文本
参数名	类 型	参考	可空	数组	备 注
参数_待解密文本	文本型				待加密文本
参数_解密的密码	文本型				解密的密码<建议5位以上的数字>

变量名	类 型	静态	数组	备 注
局_计次	整数型
局_过度字节集	字节集
局_待加密文本	字节集

如果真 (取文本右边 (参数_待解密文本, 9) ≠ 取文本中间 (md5 (到字节集 (参数_解密的密码)), 3, 9))
返回 (“”)
局_待加密文本 ＝ 字节集_还原 (取文本左边 (参数_待解密文本, 取文本长度 (参数_待解密文本) － 9))
计次循环首 (取字节集长度 (局_待加密文本), 局_计次)
局_过度字节集 ＝ 局_过度字节集 ＋ 到字节集 (到字节 (位异或 (局_待加密文本 [局_计次], 3600)))
计次循环尾 ()
返回 (到文本 (局_过度字节集))

子程序名	返回值类型	公开	备 注
md5	文本型
参数名	类 型	参考	可空	数组	备 注
数据	字节集

变量名	类 型	静态	数组	备 注
stcContext	MD5_CTX
temptext	文本型
tempint	整数型
结果	文本型
i	整数型

如果真 (MD5Init (stcContext) ≠ 0)
MD5Update (stcContext, 数据, 取字节集长度 (数据))
MD5Final (stcContext)
temptext ＝ “0123456789ABCDEF”
计次循环首 (16, i)
tempint ＝ stcContext.cDig [i]
结果 ＝ 结果 ＋ 取文本中间 (temptext, tempint ÷ 16 ＋ 1, 1) ＋ 取文本中间 (temptext, tempint ％ 16 ＋ 1, 1)
计次循环尾 ()
返回 (结果)

数据类型名	公开	备 注
MD5_CTX
成员名	类 型	传址	数组	备 注
dwNUMa	整数型
dwNUMb	整数型
Buffer	字节型		16
cIN	字节型		64
cDig	字节型		16

DLL命令名	返回值类型	公开	备 注
MD5Init	整数型
DLL库文件名:
advapi32
在DLL库中对应命令名:
MD5Init
参数名	类 型	传址	数组	备 注
lpContext	MD5_CTX

DLL命令名	返回值类型	公开	备 注
MD5Final	整数型
DLL库文件名:
advapi32
在DLL库中对应命令名:
MD5Final
参数名	类 型	传址	数组	备 注
lpContext	MD5_CTX

DLL命令名	返回值类型	公开	备 注
MD5Update	整数型
DLL库文件名:
advapi32
在DLL库中对应命令名:
MD5Update
参数名	类 型	传址	数组	备 注
lpContext	MD5_CTX
lpBuffer	字节集
BufSize	整数型

.版本 2<br /> <br /> .子程序 文本_加密1, 文本型, 公开, 失败返回空文本<br /> .参数 参数_待加密文本, 文本型, , 待加密文本<br /> .参数 参数_加密的密码, 文本型, , 加密的密码<建议5位以上的数字><br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_过度字节集, 字节集<br /> .局部变量 局_待加密文本, 字节集<br /> <br /> 局_待加密文本 ＝ 到字节集 (参数_待加密文本)<br /> .计次循环首 (取字节集长度 (局_待加密文本), 局_计次)<br />     局_过度字节集 ＝ 局_过度字节集 ＋ 到字节集 (到字节 (位异或 (局_待加密文本 [局_计次], 3600)))<br /> .计次循环尾 ()<br /> 返回 (字节集_到十六进制 (局_过度字节集) ＋ 取文本中间 (md5 (到字节集 (参数_加密的密码)), 3, 9))<br /> <br /> .子程序 文本_解密1, 文本型, 公开, 失败返回空文本<br /> .参数 参数_待解密文本, 文本型, , 待加密文本<br /> .参数 参数_解密的密码, 文本型, , 解密的密码<建议5位以上的数字><br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_过度字节集, 字节集<br /> .局部变量 局_待加密文本, 字节集<br /> <br /> .如果真 (取文本右边 (参数_待解密文本, 9) ≠ 取文本中间 (md5 (到字节集 (参数_解密的密码)), 3, 9))<br />     返回 (“”)<br /> .如果真结束<br /> 局_待加密文本 ＝ 字节集_还原 (取文本左边 (参数_待解密文本, 取文本长度 (参数_待解密文本) － 9))<br /> .计次循环首 (取字节集长度 (局_待加密文本), 局_计次)<br />     局_过度字节集 ＝ 局_过度字节集 ＋ 到字节集 (到字节 (位异或 (局_待加密文本 [局_计次], 3600)))<br /> .计次循环尾 ()<br /> 返回 (到文本 (局_过度字节集))<br /> <br /> .子程序 md5, 文本型<br /> .参数 数据, 字节集<br /> .局部变量 stcContext, MD5_CTX<br /> .局部变量 temptext, 文本型<br /> .局部变量 tempint, 整数型<br /> .局部变量 结果, 文本型<br /> .局部变量 i, 整数型<br /> <br /> .如果真 (MD5Init (stcContext) ≠ 0)<br />     MD5Update (stcContext, 数据, 取字节集长度 (数据))<br />     MD5Final (stcContext)<br />     temptext ＝ “0123456789ABCDEF”<br />     .计次循环首 (16, i)<br />         tempint ＝ stcContext.cDig <i><br />         结果 ＝ 结果 ＋ 取文本中间 (temptext, tempint ÷ 16 ＋ 1, 1) ＋ 取文本中间 (temptext, tempint ％ 16 ＋ 1, 1)<br />     .计次循环尾 ()<br /> .如果真结束<br /> 返回 (结果)<br /> <br /> <br /> .版本 2<br /> <br /> .数据类型 MD5_CTX<br />     .成员 dwNUMa, 整数型<br />     .成员 dwNUMb, 整数型<br />     .成员 Buffer, 字节型, , "16"<br />     .成员 cIN, 字节型, , "64"<br />     .成员 cDig, 字节型, , "16"<br /> <br /> .版本 2<br /> <br /> .DLL命令 MD5Init, 整数型, "advapi32"<br />     .参数 lpContext, MD5_CTX<br /> <br /> .DLL命令 MD5Final, 整数型, "advapi32"<br />     .参数 lpContext, MD5_CTX<br /> <br /> .DLL命令 MD5Update, 整数型, "advapi32"<br />     .参数 lpContext, MD5_CTX<br />     .参数 lpBuffer, 字节集, 传址<br />     .参数 BufSize, 整数型

冰点 发表于 2016-10-25 19:32
可。。 需要带个库。。找找其他解决方案赛~

  那就这样咯。 ——来自那啥网的api 取md5   一样不会出现内存泄漏。

  

子程序名	返回值类型	公开	备 注
文本_加密1	文本型		失败返回空文本
参数名	类 型	参考	可空	数组	备 注
参数_待加密文本	文本型				待加密文本
参数_加密的密码	文本型				加密的密码<建议5位以上的数字>

变量名	类 型	静态	数组	备 注
局_计次	整数型
局_过度字节集	字节集
局_待加密文本	字节集

局_待加密文本 ＝ 到字节集 (参数_待加密文本)
计次循环首 (取字节集长度 (局_待加密文本), 局_计次)
局_过度字节集 ＝ 局_过度字节集 ＋ 到字节集 (到字节 (位异或 (局_待加密文本 [局_计次], 3600)))
计次循环尾 ()
返回 (字节集_到十六进制 (局_过度字节集) ＋ 取文本中间 (md5 (到字节集 (参数_加密的密码)), 3, 9))

子程序名	返回值类型	公开	备 注
文本_解密1	文本型		失败返回空文本
参数名	类 型	参考	可空	数组	备 注
参数_待解密文本	文本型				待加密文本
参数_解密的密码	文本型				解密的密码<建议5位以上的数字>

变量名	类 型	静态	数组	备 注
局_计次	整数型
局_过度字节集	字节集
局_待加密文本	字节集

如果真 (取文本右边 (参数_待解密文本, 9) ≠ 取文本中间 (md5 (到字节集 (参数_解密的密码)), 3, 9))
返回 (“”)
局_待加密文本 ＝ 字节集_还原 (取文本左边 (参数_待解密文本, 取文本长度 (参数_待解密文本) － 9))
计次循环首 (取字节集长度 (局_待加密文本), 局_计次)
局_过度字节集 ＝ 局_过度字节集 ＋ 到字节集 (到字节 (位异或 (局_待加密文本 [局_计次], 3600)))
计次循环尾 ()
返回 (到文本 (局_过度字节集))

子程序名	返回值类型	公开	备 注
md5	文本型
参数名	类 型	参考	可空	数组	备 注
数据	字节集

变量名	类 型	静态	数组	备 注
stcContext	MD5_CTX
temptext	文本型
tempint	整数型
结果	文本型
i	整数型

如果真 (MD5Init (stcContext) ≠ 0)
MD5Update (stcContext, 数据, 取字节集长度 (数据))
MD5Final (stcContext)
temptext ＝ “0123456789ABCDEF”
计次循环首 (16, i)
tempint ＝ stcContext.cDig [i]
结果 ＝ 结果 ＋ 取文本中间 (temptext, tempint ÷ 16 ＋ 1, 1) ＋ 取文本中间 (temptext, tempint ％ 16 ＋ 1, 1)
计次循环尾 ()
返回 (结果)

数据类型名	公开	备 注
MD5_CTX
成员名	类 型	传址	数组	备 注
dwNUMa	整数型
dwNUMb	整数型
Buffer	字节型		16
cIN	字节型		64
cDig	字节型		16

DLL命令名	返回值类型	公开	备 注
MD5Init	整数型
DLL库文件名:
advapi32
在DLL库中对应命令名:
MD5Init
参数名	类 型	传址	数组	备 注
lpContext	MD5_CTX

DLL命令名	返回值类型	公开	备 注
MD5Final	整数型
DLL库文件名:
advapi32
在DLL库中对应命令名:
MD5Final
参数名	类 型	传址	数组	备 注
lpContext	MD5_CTX

DLL命令名	返回值类型	公开	备 注
MD5Update	整数型
DLL库文件名:
advapi32
在DLL库中对应命令名:
MD5Update
参数名	类 型	传址	数组	备 注
lpContext	MD5_CTX
lpBuffer	字节集
BufSize	整数型

.版本 2<br /> <br /> .子程序 文本_加密1, 文本型, 公开, 失败返回空文本<br /> .参数 参数_待加密文本, 文本型, , 待加密文本<br /> .参数 参数_加密的密码, 文本型, , 加密的密码<建议5位以上的数字><br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_过度字节集, 字节集<br /> .局部变量 局_待加密文本, 字节集<br /> <br /> 局_待加密文本 ＝ 到字节集 (参数_待加密文本)<br /> .计次循环首 (取字节集长度 (局_待加密文本), 局_计次)<br />     局_过度字节集 ＝ 局_过度字节集 ＋ 到字节集 (到字节 (位异或 (局_待加密文本 [局_计次], 3600)))<br /> .计次循环尾 ()<br /> 返回 (字节集_到十六进制 (局_过度字节集) ＋ 取文本中间 (md5 (到字节集 (参数_加密的密码)), 3, 9))<br /> <br /> .子程序 文本_解密1, 文本型, 公开, 失败返回空文本<br /> .参数 参数_待解密文本, 文本型, , 待加密文本<br /> .参数 参数_解密的密码, 文本型, , 解密的密码<建议5位以上的数字><br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_过度字节集, 字节集<br /> .局部变量 局_待加密文本, 字节集<br /> <br /> .如果真 (取文本右边 (参数_待解密文本, 9) ≠ 取文本中间 (md5 (到字节集 (参数_解密的密码)), 3, 9))<br />     返回 (“”)<br /> .如果真结束<br /> 局_待加密文本 ＝ 字节集_还原 (取文本左边 (参数_待解密文本, 取文本长度 (参数_待解密文本) － 9))<br /> .计次循环首 (取字节集长度 (局_待加密文本), 局_计次)<br />     局_过度字节集 ＝ 局_过度字节集 ＋ 到字节集 (到字节 (位异或 (局_待加密文本 [局_计次], 3600)))<br /> .计次循环尾 ()<br /> 返回 (到文本 (局_过度字节集))<br /> <br /> .子程序 md5, 文本型<br /> .参数 数据, 字节集<br /> .局部变量 stcContext, MD5_CTX<br /> .局部变量 temptext, 文本型<br /> .局部变量 tempint, 整数型<br /> .局部变量 结果, 文本型<br /> .局部变量 i, 整数型<br /> <br /> .如果真 (MD5Init (stcContext) ≠ 0)<br />     MD5Update (stcContext, 数据, 取字节集长度 (数据))<br />     MD5Final (stcContext)<br />     temptext ＝ “0123456789ABCDEF”<br />     .计次循环首 (16, i)<br />         tempint ＝ stcContext.cDig <i><br />         结果 ＝ 结果 ＋ 取文本中间 (temptext, tempint ÷ 16 ＋ 1, 1) ＋ 取文本中间 (temptext, tempint ％ 16 ＋ 1, 1)<br />     .计次循环尾 ()<br /> .如果真结束<br /> 返回 (结果)<br /> <br /> <br /> .版本 2<br /> <br /> .数据类型 MD5_CTX<br />     .成员 dwNUMa, 整数型<br />     .成员 dwNUMb, 整数型<br />     .成员 Buffer, 字节型, , "16"<br />     .成员 cIN, 字节型, , "64"<br />     .成员 cDig, 字节型, , "16"<br /> <br /> .版本 2<br /> <br /> .DLL命令 MD5Init, 整数型, "advapi32"<br />     .参数 lpContext, MD5_CTX<br /> <br /> .DLL命令 MD5Final, 整数型, "advapi32"<br />     .参数 lpContext, MD5_CTX<br /> <br /> .DLL命令 MD5Update, 整数型, "advapi32"<br />     .参数 lpContext, MD5_CTX<br />     .参数 lpBuffer, 字节集, 传址<br />     .参数 BufSize, 整数型

可。。 需要带个库。。找找其他解决方案赛~