文本加密方式

ZJL520

比如 原始数据123456  加密后 DSFGSSFGGGERT652345567HDGFH4567

DSFGSSFGGGERT652345567HDGFH4568 替换后


测试发现R4C  DES    都能根据替换后的数据解密  实际解密出来虽然不对 但是也会导致有时候需要额外去判断

有没有什么加密方式  只要字符被修改任意一个 解密都直接失败那种

qq73s5456

加密算法.e (967.82 KB, 下载次数: 15)

2024-10-25 16:46 上传

点击文件名下载附件

加强版

补充内容 (2024-10-25 16:50):
这样， 就算他改任意一个字符， 较验不成功， 就不给他解密，

夜凄清

要不要试试精易模块的？
文本_加密_优化 ( )
文本_解密_优化 ( )

qq73s5456

把加密后的结果进行 打乱， 比如 分割成三个字符一组， 然后按规则进行打乱，重排，

紫苏7798

  

子程序名	返回值类型	公开	备 注
紫苏加密w	文本型		RC4文本加解密
参数名	类 型	参考	可空	数组	备 注
参_加密内容	文本型
参_加密密码	文本型

变量名	类 型	静态	数组	备 注
局md5	文本型

局md5 ＝ 取数据摘要 (到字节集 (参_加密密码))
返回 (编码_BASE64编码 (加密数据 (到字节集 (参_加密内容), 局md5, #RC4算法 )) ＋ 取文本右边 (局md5, 3))

子程序名	返回值类型	公开	备 注
紫苏解密w	文本型		密码不对返回"" RC4文本加解密
参数名	类 型	参考	可空	数组	备 注
参_加密内容	文本型
参_解密密码	文本型

变量名	类 型	静态	数组	备 注
局md5	文本型

局md5 ＝ 取数据摘要 (到字节集 (参_解密密码))
如果真 (取文本右边 (局md5, 3) ≠ 取文本右边 (参_加密内容, 3))
返回 (“”)
参_加密内容 ＝ 文本替换 (参_加密内容, 取文本长度 (参_加密内容) － 2, 3, )
返回 (到文本 (解密数据 (编码_BASE64解码 (参_加密内容, ), 局md5, #RC4算法 )))

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

.版本 2<br /> .支持库 dp1<br /> <br /> .子程序 紫苏加密w, 文本型, 公开, RC4文本加解密<br /> .参数 参_加密内容, 文本型<br /> .参数 参_加密密码, 文本型, 可空<br /> .局部变量 局md5, 文本型<br /> <br /> 局md5 ＝ 取数据摘要 (到字节集 (参_加密密码))<br /> 返回 (编码_BASE64编码 (加密数据 (到字节集 (参_加密内容), 局md5, #RC4算法)) ＋ 取文本右边 (局md5, 3))<br /> <br /> .子程序 紫苏解密w, 文本型, 公开, 密码不对返回"" RC4文本加解密<br /> .参数 参_加密内容, 文本型<br /> .参数 参_解密密码, 文本型, 可空<br /> .局部变量 局md5, 文本型<br /> <br /> 局md5 ＝ 取数据摘要 (到字节集 (参_解密密码))<br /> .如果真 (取文本右边 (局md5, 3) ≠ 取文本右边 (参_加密内容, 3))<br />     返回 (“”)<br /> .如果真结束<br /> 参_加密内容 ＝ 文本替换 (参_加密内容, 取文本长度 (参_加密内容) － 2, 3, )<br /> 返回 (到文本 (解密数据 (编码_BASE64解码 (参_加密内容, ), 局md5, #RC4算法)))

ZJL520

紫苏7798 发表于 2024-10-25 11:05
[e=0].版本 2
.支持库 dp1

你这个测试还是会出现我说的问题

ZJL520

qq73s5456 发表于 2024-10-25 09:26
把加密后的结果进行 打乱， 比如 分割成三个字符一组， 然后按规则进行打乱，重排， ...

有详细代码吗  你说的这个方式我也测试了几个简单的方式  还测试过很多种加密   还是会哦

DFSGF365G5678431E213263RTY4   正常加密结果
DFSGF365G5678431E213363RTY4   修改加密结果
用这个修改过的去解密还是会解密出来数据 虽然不对 但是我想要的是 只要被改过任何一个字符 都是直接解密失败这种

qq73s5456

ZJL520 发表于 2024-10-25 15:16
有详细代码吗  你说的这个方式我也测试了几个简单的方式  还测试过很多种加密   还是会哦

DFSGF365G5678 ...

那你就做个数据较验嘛， 把明文的MD5值附加在 结果后面， 解密时， 把数据分成两段， 后32位是前面数据的较验值， 较验不对 ，接就不解密了。，

qq73s5456

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
加密后	文本型
MD5	文本型
解密	文本型

加密后 ＝ “DSFGSSFGGGERT652345567HDGFH4567”  ' 比如 原始数据123456  加密后  DSFGSSFGGGERT652345567HDGFH4567
' //目的： 数据防止窜改
' //修改明文任一个字符后， 解密失败
MD5 ＝ 校验_取md5 (到字节集 (加密后), 真, )
加密后 ＝ 加密后 ＋ MD5
调试输出 (“最终结果”, 加密后)
' //DSFGSSFGGGERT652345567HDGFH4567C6E21EE7C7829726FD618C271E67324F
' //最后得到的加密结果=   DSFGSSFGGGERT652345567HDGFH4567C6E21EE7C7829726FD618C271E67324F
' //解密： 取数据后面 32位 与前面数据进行较验 数据不对， 解密失败
解密 ＝ 解密 (加密后)

子程序名	返回值类型	公开	备 注
解密	文本型
参数名	类 型	参考	可空	数组	备 注
解密数据	文本型

变量名	类 型	静态	数组	备 注
slen	整数型
MD5	文本型
加密后	文本型

slen ＝ 取文本长度 (解密数据)
判断 (slen ≤ 32)
返回 (“”)


MD5 ＝ 取文本右边 (解密数据, 32)
加密后 ＝ 取文本左边 (解密数据, slen － 32)
判断 (校验_取md5 (到字节集 (加密后), 真, ) ≠ MD5)
返回 (“”)


' //MD5相同， 说明没有被改过 返回 加密数据 给原来的加密进行解密
返回 (加密后)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 加密后, 文本型<br /> .局部变量 MD5, 文本型<br /> .局部变量 解密, 文本型<br /> <br /> 加密后 ＝ “DSFGSSFGGGERT652345567HDGFH4567”  ' 比如 原始数据123456  加密后  DSFGSSFGGGERT652345567HDGFH4567<br /> ' //目的： 数据防止窜改<br /> ' //修改明文任一个字符后， 解密失败<br /> MD5 ＝ 校验_取md5 (到字节集 (加密后), 真, )<br /> 加密后 ＝ 加密后 ＋ MD5<br /> 调试输出 (“最终结果”, 加密后)<br /> ' //DSFGSSFGGGERT652345567HDGFH4567C6E21EE7C7829726FD618C271E67324F<br /> ' //最后得到的加密结果=   DSFGSSFGGGERT652345567HDGFH4567C6E21EE7C7829726FD618C271E67324F<br /> ' //解密： 取数据后面 32位 与前面数据进行较验 数据不对， 解密失败<br /> <br /> 解密 ＝ 解密 (加密后)<br /> <br /> <br /> .子程序 解密, 文本型<br /> .参数 解密数据, 文本型<br /> .局部变量 slen, 整数型<br /> .局部变量 MD5, 文本型<br /> .局部变量 加密后, 文本型<br /> <br /> slen ＝ 取文本长度 (解密数据)<br /> .判断开始 (slen ≤ 32)<br />     返回 (“”)<br /> .默认<br /> <br /> .判断结束<br /> MD5 ＝ 取文本右边 (解密数据, 32)<br /> 加密后 ＝ 取文本左边 (解密数据, slen － 32)<br /> .判断开始 (校验_取md5 (到字节集 (加密后), 真, ) ≠ MD5)<br />     返回 (“”)<br /> .默认<br /> <br /> .判断结束<br /> ' //MD5相同， 说明没有被改过 返回 加密数据 给原来的加密进行解密<br /> <br /> 返回 (加密后)

补充内容 (2024-10-25 16:08):
这个只是 简单的较验， 如果不要别人知道， 你可以做更复杂点， 比如把 MD5 较验数据， 穿插在 结果里面，那样别人就很难发现

qq73s5456

加密算法.e (962.65 KB, 下载次数: 2)

2024-10-25 16:07 上传

点击文件名下载附件