易语言还可以制作一些非常好玩的小程序,例如说加密解密软件。因为易语言里面就自带这一个功能。现在让我们发掘这一个功能吧!

工具/原料
- WindowsXP以及更高版本的操作系统
- 易语言5.11以及更高版本的易语言
方法/步骤
- 1
绘制界面(1)
首先,我们要绘制这一个程序的“脸”——界面。共有7个编辑框、8个按钮、若干标签和若干菜单。但是你有没有发现,在这张图上只有4个编辑框和4个按钮?因为我们用了选择夹,下一步我们将绘制选择夹另外一边的组件。
- 2
绘制界面(2)
现在,我们来绘制选择框的另一面的组件吧。您还需要添加两个“通用编辑框”组件。
- 3
制作菜单
在窗口空白的位置上(例如标题栏)点击右键,在弹出来的右键菜单中选择“菜单编辑器”,启动菜单编辑器。您需要通过“下移”、“左移”、“右移”和“向后插入”来控制。
- 4
变量
当然,我们为了方便起见,我们需要用到“变量”这一种东西。点击“程序”选项卡中的“全局变量”。按照如图所示地方法添加两个全局变量。
- 5
添加代码(1)
这一部分代码比较难懂,请多看看注释。这些代码是添加在“加密”按钮中的。
.版本 2
.支持库 dp1
.子程序 进行加密
.局部变量 文件, 字节集, , , 该文件原文件的机器码
.局部变量 加密后文件, 字节集, , , 该文件加密后的机器码
.局部变量 文件名, 文本型, , , 该文件的文件名+扩展名
信息框 (“加密开始!”, 0, ) ' 提示用户加密已开始
文件名 = 取文本右边 (编辑框1.内容, 取文本长度 (编辑框1.内容) - 倒找文本 (编辑框1.内容, “\”, , 假)) ' 获取文件扩展名,以便输出时添加扩展名
文件 = 读入文件 (编辑框1.内容) ' 将选定的文件添加进容器中
加密后文件 = 加密数据 (文件, 编辑框3.内容, ) ' 将选定文件加密
.判断开始 (写到文件 (编辑框2.内容 + “\加密过的” + 文件名, 加密后文件)) ' 写出文件,并判断写出是否成功
信息框 (“加密数据成功!”, 0, ) ' 写出成功后弹出信息框提示成功
.默认
信息框 (“加密数据失败!”, 0, ) ' 写出失败后弹出信息框提示失败
.判断结束
- 6
添加代码(2)
这一部分的代码是添加在“解密”按钮中的。
.版本 2
.支持库 dp1
.子程序 _按钮5_被单击
.局部变量 文件, 字节集, , , 该文件原文件的机器码
.局部变量 解密后文件, 字节集, , , 该文件解密后的机器码
.局部变量 文件名, 文本型, , , 该文件的文件名+扩展名
信息框 (“解密开始!”, 0, ) ' 提示用户解密已开始
文件名 = 取文本右边 (编辑框5.内容, 取文本长度 (编辑框5.内容) - 倒找文本 (编辑框5.内容, “\”, , 假)) ' 获取文件扩展名,以便输出时添加扩展名
文件 = 读入文件 (编辑框5.内容) ' 将选定的文件添加进容器中
解密后文件 = 解密数据 (文件, 编辑框7.内容, ) ' 将选定文件解密
.判断开始 (写到文件 (编辑框6.内容 + “\解密过的” + 文件名, 解密后文件)) ' 写出文件,并判断写出是否成功
信息框 (“解密数据成功!”, 0, ) ' 写出成功后弹出信息框提示成功
.默认
信息框 (“解密数据失败!”, 0, ) ' 写出失败后弹出信息框提示失败
END
注意事项
- 代码比较难懂,请多看看注释以便辅助理解。
- 如果您觉得这一篇经验有用的话,请收藏这篇经验,并给经验投票,谢谢!