求高手解决下如何做验证

21186213

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
文件号	整数型
文件头	字节集
packd04	文本型
上级目录	文本型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

上级目录 ＝ 目录_取父路径 (取运行目录 ())
packd04 ＝ 取运行目录 () ＋ “\data\pack.d04”

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

加密文件头 (packd04, “123”, )

子程序名	返回值类型	公开	备 注
加密文件头	逻辑型
参数名	类 型	参考	可空	数组	备 注
文件路径	文本型
密码	文本型
欲加密文件头长度	整数型

文件号 ＝ 打开文件 (文件路径, #读写, )
如果真 (文件号 ＝ 0)
返回 (假)
如果真 (欲加密文件头长度 ≤ 0)
欲加密文件头长度 ＝ 1024
文件头 ＝ 读入字节集 (文件号, 欲加密文件头长度)
移到文件首 (文件号)
删除数据 (文件号, 欲加密文件头长度)
移到文件首 (文件号)
文件头 ＝ 加密数据 (文件头, 密码, #DES算法 )
插入字节集 (文件号, 到字节集 (取字节集长度 (文件头)) ＋ 文件头)
关闭文件 (文件号)
返回 (真)

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

解密文件头 (packd04, “123”)

子程序名	返回值类型	公开	备 注
解密文件头	逻辑型
参数名	类 型	参考	可空	数组	备 注
文件路径	文本型
密码	文本型

变量名	类 型	静态	数组	备 注
文件号	整数型
文件头	字节集
文件头长度	整数型

文件号 ＝ 打开文件 (文件路径, #读写, )
如果真 (文件号 ＝ 0)
返回 (假)
文件头长度 ＝ 取字节集数据 (读入字节集 (文件号, 4), #整数型, )
文件头 ＝ 读入字节集 (文件号, 文件头长度)
文件头 ＝ 解密数据 (文件头, 密码, #DES算法 )
' 进度条1.位置 ＝ 100
移到文件首 (文件号)
删除数据 (文件号, 文件头长度 ＋ 4)
移到文件首 (文件号)
插入字节集 (文件号, 文件头)
关闭文件 (文件号)
返回 (真)

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

.版本 2<br /> .支持库 dp1<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 文件号, 整数型<br /> .程序集变量 文件头, 字节集<br /> .程序集变量 packd04, 文本型<br /> .程序集变量 上级目录, 文本型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 上级目录 ＝ 目录_取父路径 (取运行目录 ())<br /> packd04 ＝ 取运行目录 () ＋ “\data\pack.d04”<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 加密文件头 (packd04, “123”, )<br /> <br /> <br /> .子程序 加密文件头, 逻辑型<br /> .参数 文件路径, 文本型<br /> .参数 密码, 文本型<br /> .参数 欲加密文件头长度, 整数型, 可空<br /> <br /> 文件号 ＝ 打开文件 (文件路径, #读写, )<br /> .如果真 (文件号 ＝ 0)<br />     返回 (假)<br /> .如果真结束<br /> .如果真 (欲加密文件头长度 ≤ 0)<br />     欲加密文件头长度 ＝ 1024<br /> .如果真结束<br /> 文件头 ＝ 读入字节集 (文件号, 欲加密文件头长度)<br /> 移到文件首 (文件号)<br /> 删除数据 (文件号, 欲加密文件头长度)<br /> 移到文件首 (文件号)<br /> 文件头 ＝ 加密数据 (文件头, 密码, #DES算法)<br /> 插入字节集 (文件号, 到字节集 (取字节集长度 (文件头)) ＋ 文件头)<br /> 关闭文件 (文件号)<br /> 返回 (真)<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 解密文件头 (packd04, “123”)<br /> <br /> .子程序 解密文件头, 逻辑型<br /> .参数 文件路径, 文本型<br /> .参数 密码, 文本型<br /> .局部变量 文件号, 整数型<br /> .局部变量 文件头, 字节集<br /> .局部变量 文件头长度, 整数型<br /> <br /> 文件号 ＝ 打开文件 (文件路径, #读写, )<br /> .如果真 (文件号 ＝ 0)<br />     返回 (假)<br /> .如果真结束<br /> 文件头长度 ＝ 取字节集数据 (读入字节集 (文件号, 4), #整数型, )<br /> 文件头 ＝ 读入字节集 (文件号, 文件头长度)<br /> 文件头 ＝ 解密数据 (文件头, 密码, #DES算法)<br /> ' 进度条1.位置 ＝ 100<br /> 移到文件首 (文件号)<br /> 删除数据 (文件号, 文件头长度 ＋ 4)<br /> 移到文件首 (文件号)<br /> 插入字节集 (文件号, 文件头)<br /> 关闭文件 (文件号)<br /> 返回 (真)

如何在解密的时候验证是否加密，如果加密了就解密，如果没有就继续运行，帮忙解决下 感谢！！！

走一回

万一未加密的文本跟加密后的文本一样，就不能判断了

补充内容 (2022-3-20 21:03):
加密后一般就是自己读取时解密，或是自己写的对应的软件来解密，别人写的，一般你也解密不了，所以你的问题没有意义。

147888123

论坛里这么多验证得，随便搞个，数据用AES加密再解密

鹏书

没有关键词可以判断就直接解，解完返回空就说明没有加密

21186213

走一回 发表于 2022-3-20 21:02
万一未加密的文本跟加密后的文本一样，就不能判断了

补充内容 (2022-3-20 21:03):

只是对文件头部的加密 相当于是对头部插入一列数据

21186213

nikezhi 发表于 2022-3-20 22:11
没有关键词可以判断就直接解，解完返回空就说明没有加密

我不知道如何写这个判断，能又列子嘛

2792605792

在加密后的数据前面加个自己的关键字 如果找到这个关键字就解密关键字后面的文本

cloudweb

论坛里有大量开源的验证端，可以下载来研究一下~