MD5_效验内部函数MD过程存在内存泄露风险 - 精易论坛

[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))