admin管理员组

文章数量:1530359

2024年5月16日发(作者：)

如何进行文本加密和解密

问题

很多程序都需要调用外部文本文件，有时不想让用户可以随便查看文本文件的内

容，这时就需要对文本进行处理，比如加密，在调用文本时就需要对文本进行解密。

那么在程序中如何对文本文件进行加密和解密呢？

解决思路

对文本进行加密有很多办法，最简单的办法是将修改文本文件的后缀名，更改它

与编辑程序的关联，比如取消后缀名或改成其它程序没有关联的程序名（可以随便取

一个），也可以更改为其它不能与那些直接打开文本的程序相关的后缀名，比如改为

*.mdb格式，双击该文件就会自动调用Microsoft Access来打开文件。但这样的文件

还是可以进行编辑的，方法中打开文本编辑程序（比如记事本、写字板等）再打开该

文本文件。

其它的办法就是对文本本身进行处理，按一定规律将其转换成密码，在读取时再

按约定的规律将其译回原文。比如，可以按以下规律将文本变成密码：将字母A变

成字母E，a变成e,即变成其后的第4介字母，W变成A，X变成B，Y变成C，Z

变成D。字母按以上规律转换，非字符字符不变。如“Xiaodeng!”转换为“Bmeshirk!”。

解密的过程正好反过来。

具体的做法是，从文本文件中读取其中的内容，再逐个字符进行变换，先判定它

是否大写字母或小写字母，如果是，则将它的ASCII值加4，如果结果超过了Z或z，

则把它的ASCII减去26。

具体步骤

1．读取文本

假定要加密的文本文件保存在程序所在目录下，文件名为“”

运行Authorware，新建一个文件，保存为“文本加密.a7p”。

⑴加入一个【计算】图标，命名为“读取文本”，在其中输入以下内容：

--读取指定文件中的内容

wen:=ReadExtFile(FileLocation^"")

⑵加入一个【显示】图标，命名为“显示读取的文本”。在其中显示读取的内容，

输入以下内容：

{wen}

由于读取的内容可能比较多，所以在显示时要加上滚动条，方法是在选中文字或

输入文字时，选中菜单命令Text|Scrolling（【文本】|【卷帘文本】），给文本加上

Authorware自带的滚动条，如图7.15所示。

图7.15 给文本加上Authorware自带的滚动条

2．加密

⑴创建一个按钮响应，按钮名字为“加密”，响应图标为【群组】图标，在其中

包括一个【计算】图标和一个【显示】图标。

本文标签： 文本程序加密进行文本文件

版权声明：本文标题：如何进行文本加密和解密 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://m.elefans.com/dianzi/1715851531a473517.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。