.版本 2
.支持库 edroptarget
.程序集 窗口程序集1
.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型
编辑框1.内容 ＝ 接收到的文件路径
.子程序 __启动窗口_创建完毕
加载皮肤 (33)
拖放对象1.注册拖放控件 (编辑框1.取窗口句柄 ())
.子程序 _按钮1_被单击
.局部变量 ear, EAR类
.局部变量 a, 整数型
.如果真 (编辑框1.内容 ＝ “”)
信息框 (“请先将文件拖入上方编辑框中！”, 0, )
返回 ()
.如果真结束
ear.打开 (取运行目录 () ＋ “\temp2.ear”)
ear.加入内存数据 (“加密数据”, 读入文件 (编辑框1.内容))
.如果真 (编辑框2.内容 ≠ “”)
ear.加入内存数据 (“密码”, 到字节集 (编辑框2.内容))
.如果真结束
ear.关闭 ()
写到文件 (取运行目录 () ＋ “\加密后.exe”, #外壳)
插入附加数据 (取运行目录 () ＋ “\加密后.exe”, 读入文件 (取运行目录 () ＋ “\temp2.ear”))
删除文件 (取运行目录 () ＋ “\temp2.ear”)
