MD5_效验 内部函数MD过程 存在内存泄露风险

咏恒ぃ☆吣

https://bbs.125.la/thread-13950841-1-1.html
这个帖子出现的内存泄露我觉的是这里出现问题了

  

[e=2].版本 2

子程序名	返回值类型	公开	备 注
MD过程	文本型
参数名	类 型	参考	可空	数组	备 注
校验数据	字节集
种类	整数型
长度	整数型

变量名	类 型	静态	数组	备 注
hCryptProv	整数型
hKey	整数型
hHash	整数型
pbBuffer	字节集
cbHash	整数型
rgbHash	字节集
rgbDigits	字节集
局_MD5	字节集
b	整数型
i	整数型
len	整数型

如果真 (CryptAcquireContextA (hCryptProv, “”, “”, 1, -268435456) ＝ 0)
如果真 (CryptAcquireContextA (hCryptProv, “”, “”, 1, 0) ＝ 0)
CryptReleaseContext (hCryptProv, 0)  ' 这里源代码没用处里释放
返回 (“”)


如果 (CryptCreateHash (hCryptProv, 种类, hKey, 0, hHash) ＝ 0)
CryptDestroyKey (hKey)  ' 这里源代码没用处里释放
CryptReleaseContext (hCryptProv, 0)
返回 (“”)
pbBuffer ＝ 校验数据
len ＝ 取字节集长度 (校验数据)
如果 (CryptHashData (hHash, pbBuffer, len, 0) ＝ 0)
CryptDestroyKey (hKey)  ' 这里源代码没用处里释放
CryptDestroyHash (hHash)
CryptReleaseContext (hCryptProv, 0)
返回 (“”)

rgbHash ＝ 取空白字节集 (长度)
cbHash ＝ 长度
如果 (CryptGetHashParam (hHash, 2, rgbHash, cbHash, 0) ＝ 0)
CryptDestroyKey (hKey);
CryptDestroyHash (hHash)
CryptReleaseContext (hCryptProv, 0)
返回 (“”)

rgbDigits ＝ 到字节集 (“0123456789ABCDEF”)
局_MD5 ＝ 取空白字节集 (长度 × 2)
变量循环首 (0, cbHash － 1, 1, i)
b ＝ rgbHash [i ＋ 1]
局_MD5 [i × 2 ＋ 1] ＝ rgbDigits [右移 (b, 4) ＋ 1]
局_MD5 [i × 2 ＋ 2] ＝ rgbDigits [位与 (b, 15) ＋ 1]
变量循环尾 ()
CryptDestroyKey (hKey)  ' 这里源代码没用处里释放
CryptDestroyHash (hHash)
CryptReleaseContext (hCryptProv, 0)


返回 (到文本 (局_MD5))

.版本 2<br /> <br /> [e=2].版本 2<br /> <br /> .子程序 MD过程, 文本型<br /> .参数 校验数据, 字节集<br /> .参数 种类, 整数型<br /> .参数 长度, 整数型<br /> .局部变量 hCryptProv, 整数型<br /> .局部变量 hKey, 整数型<br /> .局部变量 hHash, 整数型<br /> .局部变量 pbBuffer, 字节集<br /> .局部变量 cbHash, 整数型<br /> .局部变量 rgbHash, 字节集<br /> .局部变量 rgbDigits, 字节集<br /> .局部变量 局_MD5, 字节集<br /> .局部变量 b, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 len, 整数型<br /> <br /> .如果真 (CryptAcquireContextA (hCryptProv, “”, “”, 1, -268435456) ＝ 0)<br />     .如果真 (CryptAcquireContextA (hCryptProv, “”, “”, 1, 0) ＝ 0)<br />         CryptReleaseContext (hCryptProv, 0)  ' 这里源代码没用处里释放<br />         返回 (“”)<br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> .如果 (CryptCreateHash (hCryptProv, 种类, hKey, 0, hHash) ＝ 0)<br />     CryptDestroyKey (hKey)  ' 这里源代码没用处里释放<br />     CryptReleaseContext (hCryptProv, 0)<br />     返回 (“”)<br /> .否则<br />     pbBuffer ＝ 校验数据<br />     len ＝ 取字节集长度 (校验数据)<br />     .如果 (CryptHashData (hHash, pbBuffer, len, 0) ＝ 0)<br />         CryptDestroyKey (hKey)  ' 这里源代码没用处里释放<br />         CryptDestroyHash (hHash)<br />         CryptReleaseContext (hCryptProv, 0)<br />         返回 (“”)<br /> <br />     .否则<br />         rgbHash ＝ 取空白字节集 (长度)<br />         cbHash ＝ 长度<br />         .如果 (CryptGetHashParam (hHash, 2, rgbHash, cbHash, 0) ＝ 0)<br />             CryptDestroyKey(hKey);<br />             CryptDestroyHash (hHash)<br />             CryptReleaseContext (hCryptProv, 0)<br />             返回 (“”)<br /> <br />         .否则<br />             rgbDigits ＝ 到字节集 (“0123456789ABCDEF”)<br />             局_MD5 ＝ 取空白字节集 (长度 × 2)<br />             .变量循环首 (0, cbHash － 1, 1, i)<br />                 b ＝ rgbHash [i ＋ 1]<br />                 局_MD5 [i × 2 ＋ 1] ＝ rgbDigits [右移 (b, 4) ＋ 1]<br />                 局_MD5 [i × 2 ＋ 2] ＝ rgbDigits [位与 (b, 15) ＋ 1]<br />             .变量循环尾 ()<br />             CryptDestroyKey (hKey)  ' 这里源代码没用处里释放<br />             CryptDestroyHash (hHash)<br />             CryptReleaseContext (hCryptProv, 0)<br />         .如果结束<br /> <br />     .如果结束<br /> <br /> .如果结束<br /> 返回 (到文本 (局_MD5))

heting0

看看不错的啊

guanjingla

看看吧看看啊叩叩叩

myunco

项目部002 发表于 2017-11-1 14:28
在新版中并未存在楼主截图注释的代码，如果方便的话请楼主发下当前使用的是什么版本的精易模块

注释应该是楼主加上去的 ，用来释放 ，意思就是你们没加注释的那行代码

love886

截图注释的代码

林下慕客

桐人dx

项目部002

在新版中并未存在楼主截图注释的代码，如果方便的话请楼主发下当前使用的是什么版本的精易模块

咏恒ぃ☆吣

镇坛道德标杆 发表于 2017-10-30 00:21
然后呢?  阅读/修改/维护源码的人呢?   再去查一遍 MSDN 吗? （所以维护力度这么弱，祖传代码谁有那时间 ...

是的 易模块很乱到 bug 很多~~~

镇坛道德标杆

咏恒ぃ☆吣 发表于 2017-10-30 00:15
CRYPT_VERIFYCONTEXT 这个啊  他这个易语言是这样写的~~

然后呢?  阅读/修改/维护源码的人呢?   再去查一遍 MSDN 吗? （所以维护力度这么弱，祖传代码谁有那时间一点点去猜）

我日常针对模块，并非针对你。