group.dat解密思路

.版本 2 .子程序 Group .参数 文件名, 文本型 .参数 保存文件, 文本型 .局部变量 文件号1, 整数型 .局部变量 文件号2, 整数型 .局部变量 字节, 字节型 .局部变量 字节集, 字节集 文件号1 ＝ 打开文件 (文件名, , ) 文件号2 ＝ 打开文件 (保存文件, 4, ) 移到文件首 (文件号1) 移到文件首 (文件号2) .判断循环首 (是否在文件尾 (文件号1, ) ＝ 假) 读入数据 (文件号1, 字节) .如果 (位与 (字节, 1) ＝ 1) 字节 ＝ 字节 － 1 .否则 字节 ＝ 字节 ＋ 1 .如果结束 写出数据 (文件号2, 字节) .判断循环尾 () 关闭文件 (文件号1) 关闭文件 (文件号2) 信息框 (“完成”, 0, )