我有一段加密解密的算法，但不知如何在易语言中写出，请高手帮忙，在线等，我的财富不多了，多帮助吧

.版本 2
.支持库 dp1

.程序集 窗口程序集1

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

.如果 (编辑框加密前.内容 ＝ “”)
信息框 (“不可为空”, 0, “错误”)
.否则
子程序加密数据 ()
.如果结束

.子程序 子程序加密数据
.局部变量 密码, 文本型

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

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

.如果 (编辑框加密后.内容 ＝ “”)
信息框 (“不可为空”, 0, “错误”)
.否则
子程序解密数据 ()
.如果结束

.子程序 子程序解密数据
.局部变量 密码, 文本型

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

我去，这是VB还是什么东西啊？我貌似有点看懂了，但是要写很麻烦呀，你能等我写完吗？——怕我写完了，你已经把别人的回答采取了

这个不是易语言的代码吧？易语言里面有条命令是加密的，你用这条命令加密数据然后算法自己写