我在本站下载并使用红尘如烟老师关于【加密模块VBA版本源码(MD5、SHA1、DES3)】文章中的 mdlEncrypt_DES3 模块时发现,当8个倍数的字符串用3DES加密算法加密后,再用其解密时会出现如【EDS3字符串加密,加密16位的字符串后,解密不能还原】文章中提到的问题。
我在网上搜索其解决方案,但遗憾没有找到。于是我经过半个多小时对其代码进行反复调试,终于发现并解决了此问题。不敢独享,现将已修改后的模块分享给大家,也希望各位测试纠错。谢谢!
注:
关于怎么使用此模块的问题:首先将此模块导入到Access模块中,至于代码怎么写,在模块中自有描述,在此不再说明。
附 件:
点击下载此附件