文件名称：超哥计事本-加密功能版
文件大小：253KB
文件格式：RAR
更新时间：2014-12-04 16:26:04
计事本
.版本 2 .支持库 dp1 .支持库 eAPI .程序集 窗口程序集1 .程序集变量 编辑框内容被改变, 整数型 .子程序 _关于_被选择 信息框 (“作者：贵州师范学院张超，版本：1.0”, 0, ) .子程序 __启动窗口_尺寸被改变 编辑框1.宽度 ＝ _启动窗口.宽度 编辑框1.高度 ＝ _启动窗口.高度 .子程序 _退出_被选择 _启动窗口.销毁 () .子程序 _新建_被选择 .局部变量 信息框按钮, 整数型 .如果 (编辑框内容被改变 ＝ 0) 编辑框1.内容 ＝ “” .否则 信息框按钮 ＝ 信息框 (“超哥提醒：内容被改变过，是否保存？”, 3, “超哥计事本”) .如果 (信息框按钮 ＝ #是钮) _保存_被选择 () .否则 .如果结束 .如果结束 .子程序 _编辑框1_内容被改变 编辑框内容被改变 ＝ 1 .子程序 _保存_被选择 通用对话框1.类型 ＝ 1 .如果 (通用对话框1.打开 ()) 写到文件 (通用对话框1.文件名, 到字节集 (编辑框1.内容)) 编辑框内容被改变 ＝ 0 .否则 .如果结束 .子程序 _打开_被选择 通用对话框1.类型 ＝ 0 .如果 (通用对话框1.打开 ()) 编辑框1.内容 ＝ 到文本 (读入文件 (通用对话框1.文件名)) .否则 .如果结束 .子程序 _另存为_被选择 通用对话框1.类型 ＝ 1 .如果 (通用对话框1.打开 ()) 写到文件 (通用对话框1.文件名, 到字节集 (编辑框1.内容)) 编辑框内容被改变 ＝ 0 .否则 .如果结束 .子程序 _加密存盘_被选择 .局部变量 拟保存的数据, 字节集 .局部变量 输入的密码, 文本型 .局部变量 i, 整数型 拟保存的数据 ＝ 到字节集 (编辑框1.内容) .如果 (输入框 (“请输入加密密码--务必记住自己设置的密码！”, “密码输入”, , 输入的密码, #输入密码)) 拟保存的数据 ＝ 加密数据 (拟保存的数据, 输入的密码, #RC4算法) .' 计次循环首 (取字节集长度 (拟保存的数据), i) ' 拟保存的数据 [i] ＝ 拟保存的数据 [i] ＋ 到数值 (输入的密码) .' 计次循环尾 () 通用对话框1.类型 ＝ 1 通用对话框1.打开 () 写到文件 (通用对话框1.文件名, 拟保存的数据) 信息框 (“你设置的密码为：” ＋ 输入的密码 ＋ “，” ＋ “请务必记住！”, 0, ) .否则 .如果结束 .子程序 _解密读入_被选择 .局部变量 拟读入的数据, 字节集 .局部变量 输入的密码, 文本型 .局部变量 i, 整数型 通用对话框1.类型 ＝ 0 通用对话框1.打开 () 拟读入的数据 ＝ 读入文件 (通用对话框1.文件名) .如果 (输入框 (“请输入加密密码”, “密码输入”, , 输入的密码, #输入密码)) 拟读入的数据 ＝ 解密数据 (拟读入的数据, 输入的密码, #RC4算法) .' 计次循环首 (取字节集长度 (拟读入的数据), i) ' 拟读入的数据 [i] ＝ 拟读入的数据 [i] － 到数值 (输入的密码) .' 计次循环尾 () 编辑框1.内容 ＝ 到文本 (拟读入的数据) .否则 .如果结束 .子程序 _复制_被选择 置剪辑板文本 (编辑框1.被选择文本) .子程序 _剪切_被选择 置剪辑板文本 (编辑框1.被选择文本) 编辑框1.被选择文本 ＝ “” .子程序 _粘贴_被选择 编辑框1.内容 ＝ 取剪辑板文本 () .子程序 _打印_被选择 .局部变量 打印信息变量, 打印信息 打印信息变量.纸张方向 ＝ #纵向 打印信息变量.纸张类型 ＝ -1 打印信息变量.纸张宽度 ＝ 2100 打印信息变量.纸张高度 ＝ 2970 打印信息变量.打印份数 ＝ 1 ' 打印信息变量.打印机名称=打印机列表框.取项目文本（打印机列表框.取现行选中项） 打开打印机对话框 (#接口常量.标准打印设置对话框, 打印信息变量) .子程序 __启动窗口_可否被关闭, 逻辑型 .局部变量 信息框按钮, 整数型 .如果 (编辑框内容被改变 ＝ 0) _启动窗口.销毁 () .否则 信息框按钮 ＝ 信息框 (“超哥提醒：内容被改变过，并且没有保存，是否保存？”, 3, “超哥计事本”) .判断开始 (信息框按钮 ＝ #是钮) _保存_被选择 () _启动窗口.销毁 () .判断 (信息框按钮 ＝ #否钮) _启动窗口.销毁 () .判断 (信息框按钮 ＝ #取消钮) 返回 (假) .默认 .判断结束 .如果结束
【文件预览】：
超哥记事本-加密功能版1.0.exe