VB加密开关程序的实现与应用.pdfVIP

电脑编程技巧与维护 VB 加密开关程序的实现与应用 林帮云 （浙江省台州市玉环县教育局教研室，台州 317600） 摘 要： 本文提供一种加密开关，用同一段程序语言代码来实现各种加解密功能，方便用于程序的加解密 。 关键词： 开关程序；加密 Realization and Application of Encryption Switch Procedures LIN Bangyun （Yuhuan County, Taizhou City, Zhejiang Province Education Department，Taizhou 317600） Abstract: This article gives an encrypt switch, which using the same code to implement kinds of encrypt and decrypt func－ tion. Key words: Switching procedures; Encryption VB 开发编程中，为了保护知识产权要进行加密处理，如 Next 文本加密 、程序段加密 、数据库加密 、文件加密 、 内存加密 End Sub 等措施 。 首先用户根据需要通过 Text2 自行设定密钥 （如图 1）， 加密开关程序与一般的开关程序有实质性的区别，一般 可设简单或复杂的，任何英文字符 、数字 、其他符号，目前 开关程序是符合条件后进行跳转去执行另一段程序 。加密开 尚不支持中文 。原文可以是中文 、英文 、数字 、 其他符号等 关程序则不同，无须条件，不会跳转，自身带有加解密功能 。 皆可混合，通过 Text1 接收至数组，然后逐个取出元素并备 加密程序和解密程序是同一段代码，原文执行后的结果是密 份，进行 ASC 码转换，与转成 ASC 码的密钥进行位异或运算 文，密文执行后的结果是原文 。无加密状态下运行一次是加 后重新写入数组，再通过 Text3 接口输出密文 。如果将密文复 密，再运行一次是解密，遵循日常生活中的电灯开关原理， 制粘贴作为原文输入，则输出的密文就是此前的原文，达到 达到即开即关的目的 。 即开即关的功能 。 1 开关程序的 VB 源码 Private Sub Command1_Click () Dim jm () miy = Text2 密钥， Text2 作为设定接口 miylen = Len (miy)