鸿 网 互 联 www.68idc.cn

当前位置 : 服务器租用 > 网站安全 > 加密解密 > >

Authorware中如何进行文本加密和解密?

来源:互联网 作者:佚名 时间:2015-10-09 06:17
问题 很多程序都需要调用外部文本文件,有时不想让用户可以随便查看文本文件的内容,这时就需要对文本进行处理,比如加密,在调用文本时就需要对文本进行解密。那么在程序中如何对文本文件进行加密和解密呢? 解决思路 对文本进行加密有很多办法,最简单的办
问题

很多程序都需要调用外部文本文件,有时不想让用户可以随便查看文本文件的内容,这时就需要对文本进行处理,比如加密,在调用文本时就需要对文本进行解密。那么在程序中如何对文本文件进行加密和解密呢?

 解决思路

对文本进行加密有很多办法,最简单的办法是将修改文本文件的后缀名,更改它与编辑程序的关联,比如取消后缀名或改成其它程序没有关联的程序名(可以随便取一个),也可以更改为其它不能与那些直接打开文本的程序相关的后缀名,比如改为*.mdb格式,双击该文件就会自动调用Microsoft Access来打开文件。但这样的文件还是可以进行编辑的,方法中打开文本编辑程序(比如记事本、写字板等)再打开该文本文件。

其它的办法就是对文本本身进行处理,按一定规律将其转换成密码,在读取时再按约定的规律将其译回原文。比如,可以按以下规律将文本变成密码:将字母A变成字母Ea变成e,即变成其后的第4介字母,W变成AX变成BY变成CZ变成D。字母按以上规律转换,非字符字符不变。如“Xiaodeng!”转换为“Bmeshirk!”。解密的过程正好反过来。

具体的做法是,从文本文件中读取其中的内容,再逐个字符进行变换,先判定它是否大写字母或小写字母,如果是,则将它的ASCII值加4,如果结果超过了Zz,则把它的ASCII减去26

 具体步骤

1.读取文本

假定要加密的文本文件保存在程序所在目录下,文件名为“dianwen.txt

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

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

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

wen:=ReadExtFile(FileLocation^"dianwen.txt")

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

{wen}

由于读取的内容可能比较多,所以在显示时要加上滚动条,方法是在选中文字或输入文字时,选中菜单命令Text|Scrolling(【文本】|【卷帘文本】),给文本加上Authorware自带的滚动条,如图7.15所示。

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

2.加密

⑴创建一个按钮响应,按钮名字为“加密”,响应图标为【群组】图标,在其中包括一个【计算】图标和一个【显示】图标。

⑵把该【计算】图标命名为“变换”,在其中输入以下代码:

--统计总长度

chang:=CharCount(wen)

--清空

wen1:=""

--依次转换

repeat with i:=1 to chang

    --取出对应位置上的字符

    cha:=SubStr(wen,i,i)

    --转换为ASCII

    cod:=Code(cha)

    --设定小写字母条件

    con1:=(cod>=Code("a")&cod<=Code("z"))

    --设定大写字母条件

    con2:=cod>=Code("A")&cod<=Code("Z")

    --判断是否是字母

    if con1 | con2 then

        --如果是,将其ASCII值加4

        cod:=cod+4

        --判断是否超出字母范围

        if (cod>Code("Z") & cod<=Code("Z")+4) | cod>Code("z") then

            --如果超出则将值减去26

            cod:=cod-26

        end if

        --将数字转换为字符

        cha:=Char(cod)

    end if

    --将转换后的字符添加到wen1

    wen1:=wen1^cha

end repeat

⑶将【显示】图标命名为“显示加密后文本”,在其中输入以下内容:

{wen1}

为了对照,可以将该【显示】图标中的内容与前面的【显示】图标“显示读取的文本”中的内容放置在左右对称的位置。

3.运行程序

运行程序,单击“加密”按钮后,就可以在右边看到加密后的文本,如图7.16所示。

7.16 加密效果演示

程序流程图如图7.17所示。

7.17 程序流程图

      试一试:读者可以试试把按上述方法加密的文本进行解密。

 专家说明

判断一个字符是否是字母,可以看它的ASCII值是否在a~zA~Z之间。比较时可以先将字符转换为ASCII值,变换后再转换回字符。

 专家指点

如果只有对字母进行加密,判断是否是字母的条件可以利用字符进行比较。判断一个字符是否是小写字母可以用以下条件:

cha>="a"&cha<="z"

判断一个字符是否是大写字母可以用以下条件:

cha>="A"&cha<="Z"

但对字符进行变换就只有转换为ASCII值来进行。

 相关问题

对文本进行加密的方法有很多,比如还可以将文本内容全部反向存储(即第一个存储为最后一个,第二个存储为倒数第二个,依次类推)或者将其中的每个单词反向存储。

网友评论
<