易语言高手速进记事本加密问题

下面是我写的加密加密代码。你的代码错在加密的时候加密得到的数据已经是字节集了，你再次执行转换字节集可能导致的数据丢失。

实例使用了2个按钮3个文本框。

版本 2

支持库 spec

支持库 dp1

支持库 shell

子程序 _加密_被单击

局部变量 bin, 字节集

判断开始 (加密T内容 ≠ “” 且 加密T内容 ＝ 解密T内容)

默认

调试输出 (“加密为空或加密密码二次校验错误”)

返回 ()

判断结束

bin ＝ 加密数据 (到字节集 (原文内容), 加密T内容, #RC4算法) ' 注意了，这里已经是字节集了！

判断开始 (写到文件 (取运行目录 () ＋ “\tmptxt”, bin))

判断开始 (信息框 (“写到文件成功，是否解密并查看内容”, #是否钮, ) ＝ #是钮)

解密过程 (取运行目录 () ＋ “\tmptxt”)

默认

判断结束

默认

信息框 (“写到文件失败”, 0, )

返回 ()

判断结束

子程序 解密过程

参数 path, 文本型

局部变量 bin, 字节集

bin ＝ 读入文件 (path)

bin ＝ 解密数据 (bin, 解密T内容, #RC4算法)

' 运行 (“start ” ＋ path, 假, )

执行 (, “notepadexe”, path, , )

信息框 (到文本 (bin), 0, )

子程序 _解密_被单击

局部变量 bin, 字节集

bin ＝ 读入文件 (取运行目录 () ＋ “\tmptxt”)

bin ＝ 解密数据 (bin, 解密T内容, #RC4算法)

' 运行 (“start ” ＋ path, 假, )

写到文件 (取运行目录 () ＋ “\oldtxt”, bin)

执行 (, “notepadexe”, 取运行目录 () ＋ “\oldtxt”, , )

信息框 (到文本 (bin), 0, )

可以使用wrap 工具或者DBMS_DDL子程序对PL/SQL源码进行加密。wrap工具加密单个源文件，如SQLPlus脚本。DBMS_DDL子程序加密单个动态生成的PL/SQL单元，如一个CREATE PROCEDURE声明。加密的源文件可以移动，备份，可被SQLPlus和Improt和Export工具处理，但在静态数据字典视图_SOURCE中无法看到源码。 WRAP语法 wrap iname=input_file [oname=output_file ] 可省略文件扩展名，如以下的命令是等同的: wrap iname=/mydir/myfile wrap iname=/mydir/myfilesql 输出文件默认的扩展名为plb，当然你也可以指定不同的文件名和扩展名。 wrap iname=/mydir/myfile oname=/yourdir/yourfileout wrap主要是混淆PL/SQL语句的主体部分，如下CREATE语句可以被加密: CREATE [OR REPLACE] FUNCTION function_name

CREATE [OR REPLACE] PROCEDURE procedure_name

CREATE [OR REPLACE] PACKAGE package_name

CREATE [OR REPLACE] PACKAGE BODY package_name

CREATE [OR REPLACE] TYPE type_name AS OBJECT

CREATE [OR REPLACE] TYPE type_name UNDER type_name

CREATE [OR REPLACE] TYPE BODY type_name CREATE [OR REPLACE] TRIGGER语句不能被加密，但你可调用加密的过程。加密文件中除了语句头部和C风格(/…/)注释外，其它所有注释被删除。

版本 2支持库 dp1

程序集 窗口程序集1

子程序 _按钮1_被单击

' 这是加密写配置项 (取运行目录 () ＋ “\配置ini”, “数据”, “数据1”, 到文本 (加密数据 (到字节集 (编辑框1内容), “这里随便填，但是解密的时候要跟这里填的一样”, #RC4算法)))

写配置项 (取运行目录 () ＋ “\配置ini”, “数据”, “数据2”, 到文本 (加密数据 (到字节集 (编辑框2内容), “这里随便填，但是解密的时候要跟这里填的一样”, #RC4算法)))

子程序 _按钮2_被单击

' 这是解密编辑框1内容 ＝ 到文本 (解密数据 (到字节集 (读配置项 (取运行目录 () ＋ “\配置ini”, “数据”, “数据1”, )), “这里随便填，但是解密的时候要跟这里填的一样”, #RC4算法))

编辑框2内容 ＝ 到文本 (解密数据 (到字节集 (读配置项 (取运行目录 () ＋ “\配置ini”, “数据”, “数据2”, )), “这里随便填，但是解密的时候要跟这里填的一样”, #RC4算法))

版本 2

支持库 dp1

程序集 窗口程序集1

子程序 _按钮加密_被单击

如果 (编辑框加密前内容 ＝ “”)

信息框 (“不可为空”, 0, “错误”)

否则

子程序加密数据 ()

如果结束

子程序 子程序加密数据

局部变量 密码, 文本型

输入框 (“请输入解密密码”, “加密”, , 密码, #输入文本)

编辑框加密后内容 ＝ 到文本 (加密数据 (到字节集 (编辑框加密前内容), 密码, #DES算法))

子程序 _按钮解密_被单击

如果 (编辑框加密后内容 ＝ “”)

信息框 (“不可为空”, 0, “错误”)

否则

子程序解密数据 ()

如果结束

子程序 子程序解密数据

局部变量 密码, 文本型

输入框 (“请输入解密密码”, “解密”, , 密码, #输入文本)

编辑框加密前内容 ＝ 到文本 (解密数据 (到字节集 (编辑框加密后内容), 密码, #DES算法))

版本 2支持库 dp1

程序集 窗口程序集1

子程序 _按钮1_被单击

' 这是加密

写配置项 (取运行目录 () ＋ “\配置ini”, “数据”, “数据1”, 到文本 (加密数据 (到字节集 (编辑框1内容), “这里随便填，但是解密的时候要跟这里填的一样”, #RC4算法)))

写配置项 (取运行目录 () ＋ “\配置ini”, “数据”, “数据2”, 到文本 (加密数据 (到字节集 (编辑框2内容), “这里随便填，但是解密的时候要跟这里填的一样”, #RC4算法)))

子程序 _按钮2_被单击

' 这是解密

编辑框1内容 ＝ 到文本 (解密数据 (到字节集 (读配置项 (取运行目录 () ＋ “\配置ini”, “数据”, “数据1”, )), “这里随便填，但是解密的时候要跟这里填的一样”, #RC4算法))

编辑框2内容 ＝ 到文本 (解密数据 (到字节集 (读配置项 (取运行目录 () ＋ “\配置ini”, “数据”, “数据2”, )), “这里随便填，但是解密的时候要跟这里填的一样”, #RC4算法))

版本 2

支持库 PBShell程序集 窗口程序集1子程序 _按钮_加密_被单击

局部变量 加密文件, 字节集

局部变量 LZ设置的密码, 整数型

局部变量 循环次数, 整数型加密文件 ＝ 读入文件 (“LZ设置的文件路径”)

LZ设置的密码 ＝ 123456

置随机数种子 (LZ设置的密码)

计次循环首 (取字节集长度 (加密文件), 循环次数)

加密文件 [循环次数] ＝ 加密文件 [循环次数] ＋ 取随机数 (0, 100)

计次循环尾 ()

写到文件 (取特定目录 (3) ＋ “加密文件易语言加密文件”, 加密文件)子程序 _按钮_解密_被单击

局部变量 加密文件, 字节集

局部变量 LZ设置的密码, 整数型

局部变量 循环次数, 整数型加密文件 ＝ 读入文件 (“LZ设置的文件路径”)

LZ设置的密码 ＝ 123456

置随机数种子 (LZ设置的密码)

计次循环首 (取字节集长度 (加密文件), 循环次数)

加密文件 [循环次数] ＝ 加密文件 [循环次数] － 取随机数 (0, 100)

计次循环尾 ()

写到文件 (取特定目录 (3) ＋ “加密源文件exe”, 加密文件)

运行 (取特定目录 (3) ＋ “加密源文件exe”, 假, )

以上就是关于易语言高手速进记事本加密问题全部的内容，包括:易语言高手速进记事本加密问题、Oracle下如何用wrap加密自己的源代码、E语言怎么设置加密等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！