学习笔记之文本加密

最新推荐文章于 2022-07-10 23:02:16 发布

qq_15994977

最新推荐文章于 2022-07-10 23:02:16 发布

阅读量524

点赞数

分类专栏：学习笔记

学习笔记专栏收录该内容

1 篇文章 0 订阅

订阅专栏

使用异或(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#

qq_15994977

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
学习笔记之文本加密

使用异或(xor)操作作为加密算法，异或操作有一个特点：一个数连续与另一个数进行两次异或则结果等于其自身，因此进行一次加密(异或)得到密文，再异或一次得到原文。修改参与异或操作的数据数值则可以形成不同的加密算法。VBS脚本加密文本文件示例 'On Error Resume Next'1打开文件do strLoadFile = Brows
复制链接

扫一扫