易语言还可以制作一些非常好玩的小程序，例如说加密解密软件。因为易语言里面就自带这一个功能。现在让我们发掘这一个功能吧！工具/原料moreWindowsXP以及更高版本的操作系统易语言5.11以及更高版本的易语言方法/步骤1/6分步阅读

绘制界面（1）

首先，我们要绘制这一个程序的“脸”——界面。共有7个编辑框、8个按钮、若干标签和若干菜单。但是你有没有发现，在这张图上只有4个编辑框和4个按钮？因为我们用了选择夹，下一步我们将绘制选择夹另外一边的组件。

2/6

绘制界面（2）

现在，我们来绘制选择框的另一面的组件吧。您还需要添加两个“通用编辑框”组件。

3/6

制作菜单

在窗口空白的位置上（例如标题栏）点击右键，在弹出来的右键菜单中选择“菜单编辑器”，启动菜单编辑器。您需要通过“下移”、“左移”、“右移”和“向后插入”来控制。

4/6

变量

当然，我们为了方便起见，我们需要用到“变量”这一种东西。点击“程序”选项卡中的“全局变量”。按照如图所示地方法添加两个全局变量。

5/6

添加代码（1）

这一部分代码比较难懂，请多看看注释。这些代码是添加在“加密”按钮中的。

.版本 2

.支持库 dp1

.子程序 进行加密

.局部变量 文件, 字节集, , , 该文件原文件的机器码

.局部变量 加密后文件, 字节集, , , 该文件加密后的机器码

.局部变量 文件名, 文本型, , , 该文件的文件名+扩展名

信息框 (“加密开始！”, 0, ) 提示用户加密已开始

文件名 ＝ 取文本右边 (编辑框1.内容, 取文本长度 (编辑框1.内容) － 倒找文本 (编辑框1.内容, “\”, , 假)) 获取文件扩展名，以便输出时添加扩展名

文件 ＝ 读入文件 (编辑框1.内容) 将选定的文件添加进容器中

加密后文件 ＝ 加密数据 (文件, 编辑框3.内容, ) 将选定文件加密

.判断开始 (写到文件 (编辑框2.内容 ＋ “\加密过的” ＋ 文件名, 加密后文件)) 写出文件，并判断写出是否成功

信息框 (“加密数据成功！”, 0, ) 写出成功后弹出信息框提示成功

.默认

信息框 (“加密数据失败！”, 0, ) 写出失败后弹出信息框提示失败

.判断结束

6/6

添加代码（2）

这一部分的代码是添加在“解密”按钮中的。

.版本 2

.支持库 dp1

.子程序 _按钮5_被单击

.局部变量 文件, 字节集, , , 该文件原文件的机器码

.局部变量 解密后文件, 字节集, , , 该文件解密后的机器码

.局部变量 文件名, 文本型, , , 该文件的文件名+扩展名

信息框 (“解密开始！”, 0, ) 提示用户解密已开始

文件名 ＝ 取文本右边 (编辑框5.内容, 取文本长度 (编辑框5.内容) － 倒找文本 (编辑框5.内容, “\”, , 假)) 获取文件扩展名，以便输出时添加扩展名

文件 ＝ 读入文件 (编辑框5.内容) 将选定的文件添加进容器中

解密后文件 ＝ 解密数据 (文件, 编辑框7.内容, ) 将选定文件解密

.判断开始 (写到文件 (编辑框6.内容 ＋ “\解密过的” ＋ 文件名, 解密后文件)) 写出文件，并判断写出是否成功

信息框 (“解密数据成功！”, 0, ) 写出成功后弹出信息框提示成功

.默认

信息框 (“解密数据失败！”, 0, ) 写出失败后弹出信息框提示失败

注意事项

代码比较难懂，请多看看注释以便辅助理解。

如果您觉得这一篇经验有用的话，请收藏这篇经验，并给经验投票，谢谢！

易语言加密解密文件加密器