VB下基于Windows平台的任意格式文件加密和解密程序.docVIP

VB下基于Windows平台的任意格式文件加密和解密程序 摘 要： 本文论述了以注册表为载体，对文件二进制读写，模块化设计，实现加解密程序。包括：引言、程序要求及实现目标、程序设计思路及方法、程序的主要实现代码、结论等内容。 关键词：注册表 文件二进制读写 模块化分组设计 中图分类号：TP309.7 文献标识码：A 文章编号：1003-9082（2015）07-0009-02 一、引言 信息社会，人们在享受信息资源利益的同时，也面临着信息安全的考验。信息安全已为世界性的问题，已威胁到国家各领域，同时，信息安全也是人们能否保护个人隐私的关键。也是社会稳定前提。解决方法是加密，所以加解密就显得重要。本文通过算法，保障信息安全，体现出数据价值。下面讨论对数据加解密，以及如何卸载程序。[1] 二、程序要求及实现目标 1.程序要求：运行效率没有要求，但对算法要求较高，即此算法是人工在有限时间内不可破解的。 2.实现目标：右键选中文件，经算法加密，或解密成原文件，供使用。达到方便快速目的。 三、程序设计思路及方法 1.程序思路：为了达到用户对程序的要求，该程序应选用合理的算法，设计好注册表参数，设计一个显示进度条，显示文件进度。还应有一个卸载程序，不需时卸载，需时再安装。 2.设计方法：采用“右键选中获取路径”的方式，一步操作就能获取路径。此功能要读写注册表。读注册表获取状态，决定是初始化还是已安装。如果未安装则启动初始化，若已安装则提示右键执行。会显示进度条，看执行百分比。用算法对文件读写，有两法。第一：大于或等于100KB的文件，用限制字节异或方法，能以最短时间执行，第二：小于100KB的文件，对所有数据异或和算术运算。还实现一个卸载程序，卸载时输入密码，保证完整性安全性。[2] 四、程序的主要实现代码 加解密是两个同算法互逆过程。用此算法加密的文件就一定也能用同样的算法解密。输入初始密码，此密码用于以后每次加解密时身份验证，最好用“数字+字母+特殊字符”的形式，牢记此密码。 代码如下： Setreg2 CreateObject（wscript.shell） IfStrComp（Label2.Caption， 请输入初始密码） 0Then reg2.regwriteHKEY_CLASSES_ROOT＼AllFilesystemObjects＼shell＼文件加密和解密＼command＼password，PasswordEn（Text1.Text），REG_SZ Else IftrComp（reg2.regread（HKEY_CLASSES_ROOT＼AllFilesystemObjects＼shell＼文件加密和解密＼command＼password），PasswordEn（Text1.Text））Then MsgBox密码错误！无法加解密！，vbCritical，密码 EndIf lnglen Len（strPassword） Fori 1Tolnglen lngtemp （（Asc（Mid（strPassword，i，1））Xor（2*i））+（13*i）-4）Mod128 SelectCaselngtemp Case9，10 lngtemp 11 Case13 lngtemp 14 Case28To31 lngtemp 32 EndSelect strtemp strtempChr（lngtemp） Nexti PasswordEn strtemp 系统提示右键菜单创建成功，这时就可以使用右键对文件加密和解密了，而不需要再双击“文件加密和解密.exe”文件了。 代码如下： //注1 Setfol fso.GetFolder（str） ForEachfilInfol.Files FileEnDefil.Path CurrFileCount CurrFileCount+1 Form3.ProgressBar1.Value CurrFileCount Nextfil ForEachsubfolInfol.SubFolders DirEnDesubfol.Path Nextsubfol argvAddress GetCommandLine argvApp String（lstrlen（argvAddress）+1，0） lstrcpyargvApp，argvAddress cmd Command IfLen（cmd）Then S cmd Else argvApp Mid（argvApp，2，InStrRev（argvApp，）-2） FileCopyargvApp，GetFixDrive：＼Mid（argvApp，InStrRev（argvApp，＼）+1） EndIf 下面就分别以加密和解密单个文件、文件夹、大于等于100KB、