为了保护个人信息安全，对数据进行加密是一个重要手段，如果自己能够编写一个加解密算法，那么其安全性无疑更具诱惑力。此处使用VBS编程语言制作和使用一个简单的对txt文件进行加解密的小程序，不过改程序需要运行在Windows7操作系统中。
工具/原料
Windows7操作系统
加密脚本的制作与使用
1、一般编写一个软件需要特定的编程和编译运行环境，此处使用VBS(Microsoft Visual Basic Script Edition)，微软可视化Basic编程语言脚本版，Windows支持该脚本，因此可以使用VBS编写一个脚本程序直接在Windows上运行(这与Linux环境下编写和运行shell脚本类似)。
2、使用Windows自带的“记事本”编辑如下程序代码(可以直接拷贝粘贴，也可以在网盘中下载已经编辑好的vbs脚本：http://pan.baidu.com/s/1i39WUrz)：'On Error Resume Next'1打开文件do strLoadFile = BrowseForFile() if strLoadFile <> "" then WScript.Echo strLoadFile exit do else k=msgbox("您未选中任何文件，重新选择吗？",vbYesNo,"vbs代码加密工具") if k=vbno then wscript.quit end ifloop'2 打开选择的文件set fso = CreateObject("Scripting.FileSystemObject")set ws = createobject("wscript.shell")set f=fso.getfile(strLoadFile)path=f.parentfoldername=f.nameset fr=fso.opentextfile(strLoadFile)set fw=fso.createtextfile("加密" +name,2)'3 加密过程do while fr.atendofstream=false line=fr.readline dow="" for i=1 to len(line) achar=mid(line,i,1) '----------------加密算法，可以修改------------------------- '--将下面的123换成0~255的任何值，则对应不同的加密算法----- bchar=chr(asc(achar) Xor 123) dow=dow & (bchar) 'dow=dow & (achar) next fw.write dowloopfr.closefw.close'4 运行结束弹出提示对话框ws.popup "加密成功！",3'VBS打开选择文件对话框，适用于Windows7Function BrowseForFile() Dim shell : Set shell = CreateObject("WScript.Shell") Dim fso : Set fso = CreateObject("Scripting.FileSystemObject") Dim tempFolder : Set tempFolder = fso.GetSpecialFolder(2) Dim tempName : tempName = fso.GetTempName() Dim tempFile : Set tempFile = tempFolder.CreateTextFile(tempName & ".hta") tempFile.Write _ "<html>" & _ "<head>" & _ "<title>Browse</title>" & _ "</head>" & _ "<body>" & _ "<input type='file' id='f' />" & _ "<script type='text/javascript'>" & _ "var f = document.getElementById('f');" & _ "f.click();" & _ "var shell = new ActiveXObject('WScript.Shell');" & _ "shell.RegWrite('HKEY_CURRENT_USER\\Volatile Environment\\MsgResp', f.value);" & _ "window.close();" & _ "</script>" & _ "</body>" & _ "</html>" tempFile.Close shell.Run tempFolder & "\" & tempName & ".hta", 0, True BrowseForFile = shell.RegRead("HKEY_CURRENT_USER\Volatile Environment\MsgResp") shell.RegDelete "HKEY_CURRENT_USER\Volatile Environment\MsgResp"End Function
3、将文件保存为vbs类型，即在记事本另存为时，在“保存类型”中选择“所有文件”，将文件名写为“filename.vbs”
4、双击运行vbs文件，弹出文件选择对话框，选择需要加密的txt文件，打开，确定之后弹出加密成功对话框，在同一文件夹下出现加密后的文件，文件名为“加密filename.txt”
5、加密后的文件内容如下所示
6、重复上述步骤，使用vbs脚本对加密后的文件再一次加密则重现原文件内容(两次加密相当于解密)。加密后的文件名总是为“加密”+原文件名，这个可以在加密脚本中修改
加密原理
1、该加密程序使用异或(xor)操作作为加密算法，异或操作有一个特点：一个数连续与另一个数进行两次异或则结果等于其自身，因此进行一次加密(异或)得到密文，再异或一次得到原文。修改参与异或操作的数据数值则可以形成不同的加密算法。
