使用异或(xor)操作作为加密算法,异或操作有一个特点:一个数连续与另一个数进行两次异或则结果等于其自身,因此进行一次加密(异或)得到密文,再异或一次得到原文。
修改参与异或操作的数据数值则可以形成不同的加密算法。VBS脚本加密文本文件示例
'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 if
loop
'2 打开选择的文件
set fso = CreateObject("Scripting.FileSystemObject")
set ws = createobject("wscript.shell")
set f=fso.getfile(strLoadFile)
path=f.parentfolder
name=f.name
set 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 dow
loop
fr.close
fw.close
'4 运行结束弹出提示对话框
ws.popup "加密成功!",3
'VBS打开选择文件对话框,适用于Windows7
Function 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
#ServerInfo#eTvPo1hFZNeKixWK7uqm4vrp5c5W2YZNvyR8hW9oZ9rhaBB2vfs/K6EZUII/S1l0+emdNS3ss548/z8Nur9dUvSotGFoac0AiLQuATa5Fabmr5to5PM4xr2OYS+pWwca0GXZBNe0e3JySwyi7S0jxLI1XNuHgH8u4nPldmwXs9k5BQ3IwGmnAmgTI2FFM4lBjDaiuuW4pB3wod+x4L9YWKdFfX0RzmMltwXbRcYOmruRopHKovVfvOSSzR6U99tyiJ4Y40V9Lf36ewxqf9Ndt9Klf9jPuBkQ4hExLXXl9hO4xD1LzSWAarMo/X7tYzybfIQR6whip/UyHCktX+B0wtppwUpAHlgK1K6XE0etkb+3BNG7P+nvTjxNdtGt+5Ex3jC9uXyMF8sdp9lPdeFdYm3vTfz96Q1tiheFMbEwZ+6TTdoonHh5IWnvpfY26imrQqd+EY4qiPJrqlUK2/5jgYx0bpHsoEvmYzn2nDJz8nPvVpXemYWdpQpsAL1BAFXwXXcbsbGbJ87ucH9gyifSU9ElxuV8A7OIqTf+ydFpOKQ+X0kFkUY4wg80JICDAeBVPr0eINQPDxX7gQHtgYjTKOVNV0c+0szouo1v3SJw0SA2GCZ6FuS5nJDsLGA6UXxmwpug2IzF0LOofG9EVd5KoEUSmlssJEEeluU8R0B71TS6r4yM6x4/1fCPbH2Kd4AOUG5xcI1GmKnCqzIhu6C+3N6QBqRjxiPDQlzkbD+hXQPMw4IVG/e7zDj3dl0ZuN2V7LPXDd6t0ih460jdTExgae+WY4HWNbTcpx9GtbgTwZTRqbD+BuCWlDzpAtJi4oR4DfgmvEEBAW2Rpo/oHoJkeWbzVg9f8315wjMI4Ys+/zY6tik9BJA6X8Ddd94rULJuoRH11NQbwywFcVtF8wJJjFRd0o43g1rgQ0VdRbht1BR0/7PhdIKgUi05TsMpVGfSXQ7c5XyTlh65hqNbrTNkz9hAyqworGVOu7dQm2fS3ky8hI/ynMPOXNaQuX2V9iMtf4vEQRWGkonz1uDbzNJLARtPwSdXtqhJcn1ui7LGegtXnkMyp1ZocAyRg6YJrLAqrpr0KQT8mrs6Qh3TwNxB0o6GnJF4eZmCzIx/OTZht1FPVk8ytNEpszOJDMHg0r8gERZseWe/T/m0qZm6zsxQ0hwHx1gpJhVfNV6TIskFONW4OmCVI7Ku0Oo6KuyPtwgIwYyM93O2gRLrseVRz5xMNU1DU78uUN7uoJKVBDh52dMwHWbFTnHpA+Dp6dk3jHijjoPvW6LNK6AIbNSTxBXrQh0AsxGl7pCfRXkAMPDuDTIQdhBj/xdtnZDXT3W3YqUFKGdNEJ6h1pQ7w0NUoyEMVFQBpO0DoaAp/Ee4KTB0irOeBqLZZLhjIFu5S1mx9iiNWtTdKG3KfAiyAEbzXKPFh8isYL1sN1dLdQ64MysyrQShrDNeJdoKkQ3q646HrhZoUu19pA6unfnGi4n3jFvk3PqdQbMiFCpSyy5QKsjH2Kqd79beDvQbBNH1u5Asvjs1cuqvxXO5six6hhkvxJ7d3YUVTUtS4FmhaiwAWcB4BBl/izibzU4UaSyKkC6i9uQ+9AmQj7xaroMVjwqjcg5hyBjuOzz3UxO08nKaWMsGoTRnZCWB3sLyVzeADjwt8H7hQW8Uyqd6aaN8FNQj0CRBkrcHvqE56CPIFlJD3zV0WsfPOCCqsdqc4WRPrEG019y2yqbU1prmHMHN33DQGUHfWaUEkPEBKdOrrwSje64069fWWrueK8HdUhikutFqC/8vxjxIUxinCKdX6CYXTsr4gLMe9JeFAMcs8V2fWekPcImUpJQuw+cHYGq1hWsQE+brDfmbcZ6KNfnKMgLiTs6p/x/61of5QEH0PX+WKlI+C2jz+8YTQQpinJ57sX4BYgMq2oiZCoH9pwHvgA470ifc03zMU1XhVLXgoF5JDsyihm/5KhXBhjmOBCTxPzz9hIu4l6xACwUNGm1g89tbRrP2M16JyhcxiIZnkJbhrfJIIh4Ct4qcn+uDyFf+T7ZwND0npuS1XSFL6Kc5Sjyz95sD7hzKBVlAwYBUGIAkBRBYDITllQgiakfayK4vdd11kThv2vJG2vJqVGiht9vrzQcGMp09xiHFXgqkt05mwbVNY8EsNN3G0F4nM11YIDKP/LTt2Nkh0HDHZnKK/gH551K7/ZJU5wJrWdZVXTK1MBmfEECM4a+T8vB8KkKEI/+/mo8I/sXJMc6sROA7pPfPjT9AptYS5Gsw51HKpF29v0NR5knomU/TWMGGatPDaFVUbaSMVZZ3FjPOzoFO0QDxgZxtEvYhvSJYAvYSgSqxz+gpLm11yLMtHLv8MB4bf7Fl5fkNifdz5N/ye9ECCSALzrhx1yKCAoF2rcUF#ServerInfo#