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~z与A~Z之间。比较时可以先将字符转换为ASCII值，变换后再转换回字符。

 专家指点

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

上一页  [1] [2] [3] 下一页