【文本文件类加密】ANSI文本干扰

鲁凯啸

上图为使用此源码写的一个例程    可模块化编辑bat文件并生成加密文件。

本源码可简单加密文本类文件。
说实在的其实不是加密，而是直接干扰notpad程序，导致编码分析失误，
致使使用notpad程序打开文件显示乱码而已，使用其他程序仍可正常打开查看文件。
但对于简单的程序配置文件的保存，应该足够了吧？


直接甩源码：
===================================================================
[e]
.版本 2

.子程序 加密_ANSI文本干扰, 逻辑型, 公开, 文本文件类加密；加密级别最低，建议多次加密
.参数 源文件, 文本型
.参数 加扰, 逻辑型, 可空, 加扰为真，除扰为假
.参数 目标文件, 文本型, 可空, 如果要写回到原文件请留空
.局部变量 id, 整数型
.局部变量 干扰码, 字节集


干扰码 ＝ { 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 37, 37, 97, 32, 13, 10 }
.如果 (是否为空 (目标文件))
目标文件 ＝ 源文件
.否则
复制文件 (源文件, 目标文件)
.如果结束

id ＝ 打开文件 (目标文件, 6, )
.如果真 (id ＝ 0)
关闭文件 (id)
返回 (假)
.如果真结束
移到文件首 (id)
.如果 (加扰)
.如果真 (插入字节集 (id, 干扰码))
移到文件尾 (id)
.如果真 (取读写位置 (id) ％ 2 ＝ 1)
.如果真 (写出字节集 (id, { 0 }))
关闭文件 (id)
返回 (真)
.如果真结束

.如果真结束

.如果真结束

.否则
.如果 (读入字节集 (id, 518) ＝ 干扰码)
.如果真 (移到文件首 (id))
.如果真 (删除数据 (id, 518))
关闭文件 (id)
返回 (真)
.如果真结束

.如果真结束

.否则
关闭文件 (id)
返回 (真)
.如果结束

.如果结束
关闭文件 (id)
返回 (假)

[/e]

补充内容 (2013-12-18 15:48):
将 0.txt 进行处理生成 1.txt 文件，调用方式：加密_ANSI文本干扰("c:\0.txt",真,"c:\1.txt")
大家有什么地方不懂，请提出来，我做个解释！
原理演示：在记事本中输入“联通”二字保存后重新打开便显示为乱码~

Violation

沙发 谢谢分享。

Hoibben

哇，支持下！

无＼月

支持！

小熊君

很高级的样子。。。。

音速

看不懂 - -

Cand

太牛逼了.    就是厉害

提拉米苏god

支持原创啊

鲁凯啸

qq4297270 发表于 2013-12-10 20:10
看不懂 - -

哪里不懂  我做个说明~

冬天风雪来

哥也来帮忙赞一个