开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步，快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

精易论坛»论坛 › 技术专区 › 精易产品中心 › 文本_加密/解密 内存泄漏
12下一页
返回列表 发新帖
查看: 5416|回复: 13
收起左侧

[已回应] 文本_加密/解密 内存泄漏

[复制链接]
喵娘

结帖率：100% (20/20)
发表于 2016-10-25 18:31:40 | 显示全部楼层 |阅读模式   四川省绵阳市
本帖最后由 萧阳天 于 2016-10-27 22:12 编辑

QQ图片20161025182008.jpg   服务端有部分通信用了这个作为底层加密来着  然后吧 运行了那么几天 一看内存 几百MB.... 我就挨吧挨个的找是哪里在堆积
                   然后就发现是文本_加/解密 这里在堆积。


然后又挨吧挨个的找 发现均是在
  1. 取文本中间 (校验_取md5 (到字节集 (参数_加密的密码)), 3, 9)
复制代码
这一步造成的内存泄漏
  然后吧校验_取md5 替换成 取数据摘要  就！一！点！问！题！也！没！有！




  
子程序名返回值类型公开备 注
文本_加密1文本型 失败返回空文本
参数名类 型参考可空数组备 注
参数_待加密文本文本型待加密文本
参数_加密的密码文本型加密的密码<建议5位以上的数字>
变量名类 型静态数组备 注
局_计次整数型 
局_过度字节集字节集 
局_待加密文本字节集 
局_待加密文本 ＝ 到字节集 (参数_待加密文本)
计次循环首 (取字节集长度 (局_待加密文本), 局_计次)
局_过度字节集 ＝ 局_过度字节集 ＋ 到字节集 (到字节 (位异或 (局_待加密文本 [局_计次], 3600)))
计次循环尾 ()
返回 (字节集_到十六进制 (局_过度字节集) ＋ 到大写 (取文本中间 (取数据摘要 (到字节集 (参数_加密的密码)), 3, 9)))
子程序名返回值类型公开备 注
文本_解密1文本型 失败返回空文本
参数名类 型参考可空数组备 注
参数_待解密文本文本型待加密文本
参数_解密的密码文本型解密的密码<建议5位以上的数字>
变量名类 型静态数组备 注
局_计次整数型 
局_过度字节集字节集 
局_待加密文本字节集 
如果真 (取文本右边 (参数_待解密文本, 9) ≠ 到大写 (取文本中间 (取数据摘要 (到字节集 (参数_解密的密码)), 3, 9)))
返回 (“”)
局_待加密文本 ＝ 字节集_还原 (取文本左边 (参数_待解密文本, 取文本长度 (参数_待解密文本) － 9))
计次循环首 (取字节集长度 (局_待加密文本), 局_计次)
局_过度字节集 ＝ 局_过度字节集 ＋ 到字节集 (到字节 (位异或 (局_待加密文本 [局_计次], 3600)))
计次循环尾 ()
返回 (到文本 (局_过度字节集))


i支持库列表   支持库注释   
dp1数据操作支持库一



然后仔细看了看 加解密......
服务端, 密码, 加密

评分

参与人数 2好评 +2 精币 +5 收起 理由
yelaizuozuo + 1 + 3 MD5算法到处都是，老司机给翻译成易源码可好
三咲阳光 + 1 + 2 不明真相的吃瓜群众路过~\赶紧买个瓜围观

查看全部评分

回复

使用道具 举报

a310359823
结帖率：50% (1/2)
发表于 2016-11-28 20:41:28 | 显示全部楼层   浙江省温州市
{: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:}
回复 支持 反对

使用道具 举报

andylaudj
发表于 2016-11-18 19:07:26 | 显示全部楼层   广东省深圳市
就！一！点！问！题！也！没！有！
回复 支持 反对

使用道具 举报

meimch0351
发表于 2016-11-6 17:35:32 | 显示全部楼层   河南省商丘市
学习了。我也改成取数据摘要去
回复 支持 反对

使用道具 举报

奈奈子
结帖率：0% (0/1)
发表于 2016-11-4 20:19:50 | 显示全部楼层   江西省宜春市
顶一下 希望大家多多支持
回复 支持 反对

使用道具 举报

萧阳天
结帖率：100% (9/9)
发表于 2016-10-27 22:11:21 | 显示全部楼层   广东省东莞市
本帖最后由 萧阳天 于 2016-10-27 22:13 编辑

看了下源码，每步失败都会释放句柄，应该是不存在句柄泄漏，同样在win7 X64位 静态编译运行20万次内存也未有明显增加
  1. .版本 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, 整数型

  19. .如果真 (CryptAcquireContextA (hCryptProv, “”, “”, 1, -268435456) ＝ 0)
  20.     .如果真 (CryptAcquireContextA (hCryptProv, “”, “”, 1, 0) ＝ 0)
  21.         返回 (“”)
  22.     .如果真结束

  24. .如果真结束

  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.         返回 (“”)

  37.     .否则
  38.         rgbHash ＝ 取空白字节集 (长度)
  39.         cbHash ＝ 长度
  40.         .如果 (CryptGetHashParam (hHash, 2, rgbHash, cbHash, 0) ＝ 0)
  41.             CryptDestroyHash (hHash)
  42.             CryptReleaseContext (hCryptProv, 0)
  43.             返回 (“”)

  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.         .如果结束

  57.     .如果结束

  59. .如果结束
  60. 返回 (到文本 (局_MD5))
复制代码
回复 支持 反对

使用道具 举报

喵娘

结帖率：100% (20/20)
 楼主| 发表于 2016-10-25 19:44:38 | 显示全部楼层   四川省绵阳市
冰点 发表于 2016-10-25 19:32
可。。 需要带个库。。找找其他解决方案赛~

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


  2. .子程序 文本_加密1, 文本型, 公开, 失败返回空文本
  3. .参数 参数_待加密文本, 文本型, , 待加密文本
  4. .参数 参数_加密的密码, 文本型, , 加密的密码<建议5位以上的数字>
  5. .局部变量 局_计次, 整数型
  6. .局部变量 局_过度字节集, 字节集
  7. .局部变量 局_待加密文本, 字节集

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

  15. .子程序 文本_解密1, 文本型, 公开, 失败返回空文本
  16. .参数 参数_待解密文本, 文本型, , 待加密文本
  17. .参数 参数_解密的密码, 文本型, , 解密的密码<建议5位以上的数字>
  18. .局部变量 局_计次, 整数型
  19. .局部变量 局_过度字节集, 字节集
  20. .局部变量 局_待加密文本, 字节集

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

  31. .子程序 md5, 文本型
  32. .参数 数据, 字节集
  33. .局部变量 stcContext, MD5_CTX
  34. .局部变量 temptext, 文本型
  35. .局部变量 tempint, 整数型
  36. .局部变量 结果, 文本型
  37. .局部变量 i, 整数型

  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. 返回 (结果)


  51. .版本 2

  53. .数据类型 MD5_CTX
  54.     .成员 dwNUMa, 整数型
  55.     .成员 dwNUMb, 整数型
  56.     .成员 Buffer, 字节型, , "16"
  57.     .成员 cIN, 字节型, , "64"
  58.     .成员 cDig, 字节型, , "16"

  60. .版本 2

  62. .DLL命令 MD5Init, 整数型, "advapi32"
  63.     .参数 lpContext, MD5_CTX

  65. .DLL命令 MD5Final, 整数型, "advapi32"
  66.     .参数 lpContext, MD5_CTX

  68. .DLL命令 MD5Update, 整数型, "advapi32"
  69.     .参数 lpContext, MD5_CTX
  70.     .参数 lpBuffer, 字节集, 传址
  71.     .参数 BufSize, 整数型
复制代码

点评

喵娘
什么鬼 _(┐「ε:)_ 提示我 网页无反应两次 刷新也没看到回复 以为卡了 发了三次...   四川省绵阳市  发表于 2016-10-25 19:53
回复 支持 反对

使用道具 举报

喵娘

结帖率：100% (20/20)
 楼主| 发表于 2016-10-25 19:43:50 | 显示全部楼层   四川省绵阳市
冰点 发表于 2016-10-25 19:32
可。。 需要带个库。。找找其他解决方案赛~

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

  
子程序名返回值类型公开备 注
文本_加密1文本型 失败返回空文本
参数名类 型参考可空数组备 注
参数_待加密文本文本型待加密文本
参数_加密的密码文本型加密的密码<建议5位以上的数字>
变量名类 型静态数组备 注
局_计次整数型 
局_过度字节集字节集 
局_待加密文本字节集 
局_待加密文本 ＝ 到字节集 (参数_待加密文本)
计次循环首 (取字节集长度 (局_待加密文本), 局_计次)
局_过度字节集 ＝ 局_过度字节集 ＋ 到字节集 (到字节 (位异或 (局_待加密文本 [局_计次], 3600)))
计次循环尾 ()
返回 (字节集_到十六进制 (局_过度字节集) ＋ 取文本中间 (md5 (到字节集 (参数_加密的密码)), 3, 9))
子程序名返回值类型公开备 注
文本_解密1文本型 失败返回空文本
参数名类 型参考可空数组备 注
参数_待解密文本文本型待加密文本
参数_解密的密码文本型解密的密码<建议5位以上的数字>
变量名类 型静态数组备 注
局_计次整数型 
局_过度字节集字节集 
局_待加密文本字节集 
如果真 (取文本右边 (参数_待解密文本, 9) ≠ 取文本中间 (md5 (到字节集 (参数_解密的密码)), 3, 9))
返回 (“”)
局_待加密文本 ＝ 字节集_还原 (取文本左边 (参数_待解密文本, 取文本长度 (参数_待解密文本) － 9))
计次循环首 (取字节集长度 (局_待加密文本), 局_计次)
局_过度字节集 ＝ 局_过度字节集 ＋ 到字节集 (到字节 (位异或 (局_待加密文本 [局_计次], 3600)))
计次循环尾 ()
返回 (到文本 (局_过度字节集))
子程序名返回值类型公开备 注
md5文本型 
参数名类 型参考可空数组备 注
数据字节集
变量名类 型静态数组备 注
stcContextMD5_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
参数名类 型传址数组备 注
lpContextMD5_CTX
DLL命令名返回值类型公开备 注
MD5Final整数型 
DLL库文件名:
advapi32
在DLL库中对应命令名:
MD5Final
参数名类 型传址数组备 注
lpContextMD5_CTX
DLL命令名返回值类型公开备 注
MD5Update整数型 
DLL库文件名:
advapi32
在DLL库中对应命令名:
MD5Update
参数名类 型传址数组备 注
lpContextMD5_CTX
lpBuffer字节集
BufSize整数型


点评

喵娘
什么鬼 _(┐「ε:)_ 提示我 网页无反应两次 刷新也没看到回复 以为卡了 发了三次...   四川省绵阳市  发表于 2016-10-25 19:47
回复 支持 反对

使用道具 举报

喵娘

结帖率：100% (20/20)
 楼主| 发表于 2016-10-25 19:43:22 | 显示全部楼层   四川省绵阳市
冰点 发表于 2016-10-25 19:32
可。。 需要带个库。。找找其他解决方案赛~

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

  
子程序名返回值类型公开备 注
文本_加密1文本型 失败返回空文本
参数名类 型参考可空数组备 注
参数_待加密文本文本型待加密文本
参数_加密的密码文本型加密的密码<建议5位以上的数字>
变量名类 型静态数组备 注
局_计次整数型 
局_过度字节集字节集 
局_待加密文本字节集 
局_待加密文本 ＝ 到字节集 (参数_待加密文本)
计次循环首 (取字节集长度 (局_待加密文本), 局_计次)
局_过度字节集 ＝ 局_过度字节集 ＋ 到字节集 (到字节 (位异或 (局_待加密文本 [局_计次], 3600)))
计次循环尾 ()
返回 (字节集_到十六进制 (局_过度字节集) ＋ 取文本中间 (md5 (到字节集 (参数_加密的密码)), 3, 9))
子程序名返回值类型公开备 注
文本_解密1文本型 失败返回空文本
参数名类 型参考可空数组备 注
参数_待解密文本文本型待加密文本
参数_解密的密码文本型解密的密码<建议5位以上的数字>
变量名类 型静态数组备 注
局_计次整数型 
局_过度字节集字节集 
局_待加密文本字节集 
如果真 (取文本右边 (参数_待解密文本, 9) ≠ 取文本中间 (md5 (到字节集 (参数_解密的密码)), 3, 9))
返回 (“”)
局_待加密文本 ＝ 字节集_还原 (取文本左边 (参数_待解密文本, 取文本长度 (参数_待解密文本) － 9))
计次循环首 (取字节集长度 (局_待加密文本), 局_计次)
局_过度字节集 ＝ 局_过度字节集 ＋ 到字节集 (到字节 (位异或 (局_待加密文本 [局_计次], 3600)))
计次循环尾 ()
返回 (到文本 (局_过度字节集))
子程序名返回值类型公开备 注
md5文本型 
参数名类 型参考可空数组备 注
数据字节集
变量名类 型静态数组备 注
stcContextMD5_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
参数名类 型传址数组备 注
lpContextMD5_CTX
DLL命令名返回值类型公开备 注
MD5Final整数型 
DLL库文件名:
advapi32
在DLL库中对应命令名:
MD5Final
参数名类 型传址数组备 注
lpContextMD5_CTX
DLL命令名返回值类型公开备 注
MD5Update整数型 
DLL库文件名:
advapi32
在DLL库中对应命令名:
MD5Update
参数名类 型传址数组备 注
lpContextMD5_CTX
lpBuffer字节集
BufSize整数型


回复 支持 反对

使用道具 举报

冰点
结帖率：100% (3/3)

签到天数: 17 天
发表于 2016-10-25 19:32:42 | 显示全部楼层   广东省揭阳市
可。。 需要带个库。。找找其他解决方案赛~
回复 支持 反对

使用道具 举报

12下一页
返回列表 发新帖
  高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论，本站内容均为会员发表，并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的，严禁用于非法目的，否则造成一切后果自负！如帖子内容侵害到你的权益，请联系我们！
防范网络诈骗，远离网络犯罪 违法和不良信息举报电话0663-3422125，QQ： 793400750，邮箱：wp@125.la
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125　增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表