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

工具/原料

  • WindowsXP以及更高版本的操作系统
  • 易语言5.11以及更高版本的易语言

方法/步骤

  1. 1

    绘制界面(1)

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

  2. 2

    绘制界面(2)

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

  3. 3

    制作菜单

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

  4. 4

    变量

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

  5. 5

    添加代码(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, )  ' 写出失败后弹出信息框提示失败

    END

注意事项

  • 代码比较难懂,请多看看注释以便辅助理解。
  • 如果您觉得这一篇经验有用的话,请收藏这篇经验,并给经验投票,谢谢!
经验内容仅供参考,如果您需解决具体问题(尤其法律、医学等领域),建议您详细咨询相关领域专业人士。