又来送钱了

斷續 · 发表于 2012-9-13 18:47:55

.版本 2

.程序集窗口程序集1
.程序集变量文件也改变, 逻辑型

.子程序 _退出_被选择

_启动窗口.销毁 ()

.子程序 _新建_被选择
.局部变量 a, 整数型

.如果 (文件也改变)
   a ＝信息框 (“你的文件也改变，是否保存？”, 3, )
   .如果 (a ＝ #是钮)
      _保存_被选择 ()
   .否则

   .如果结束

.否则
   编辑框1.内容＝ “”

.如果结束

.子程序 __启动窗口_尺寸被改变

编辑框1.宽度＝ _启动窗口.宽度－ 20
编辑框1.高度＝ _启动窗口.高度

.子程序 _保存_被选择

.如果 (通用对话框保存.打开 ())
   写到文件 (通用对话框保存.文件名, 到字节集 (编辑框1.内容))
   文件也改变＝假
.否则

.如果结束

.子程序 _打开_被选择

.如果 (通用对话框打开.打开 ())
   编辑框1.内容＝到文本 (读入文件 (通用对话框打开.文件名))
.否则

.如果结束

.子程序 _编辑框1_内容被改变

文件也改变＝真

.子程序 _加密文件_被选择
.参数预写入数据, 字节集
.参数 n1, 整数型

预写入数据＝到字节集 (编辑框1.内容)
.计次循环首 (取字节集长度 (预写入数据), n1)
   预写入数据【n1】＝预写入数据【n1】＋ 10
.计次循环尾 ()
写到文件 (“123.txt”, 预写入数据)

.子程序 _解密文件_被选择
.参数预显示的数据, 字节集
.参数 n1, 整数型

预显示的数据＝读入文件 (“123.txt”)
.计次循环首 (取字节集长度 (预显示的数据), n1)
   预显示的数据【n1】＝预显示的数据【n1】－ 10
.计次循环尾 ()
编辑框1.内容＝到文本 (预显示的数据)

不能解密，加密不能生成文件  ok