• 作者:SuperPaxxs扶摇直上九万里,绝云气,负青天,不知图哪了,正在努力搜索中..
    • 请在Chrome、Firefox等现代浏览器浏览本站。 有事 点击这里 联系博主
    • 想在魔帆博客投稿? 点击这里 联系博主
    • [ 既然来了就多看两篇文章嘛,你好意思走么? ]
    • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏魔帆博客吧

加密解密:教你加密自己写的VBS代码

目录
[隐藏]

今天在删自己的黑历史时,突然发现了几个VBS文件。。发现了以前写的vbs代码加密器。

[mb_view]手机上就别玩了 :shock: 至于为什么你懂的[/mb_view]
首先,我们都知道,VBS代码可以直接被看到的,

:shock: 不知道VBS的是什么,度娘会告诉你的。

下面这个程序可以对VBS代码进行简单的加密,原理灰常简单,

  • 1.读取源文件的所有代码
  • 1.读取源文件的所有代码
  • 2.计算Asc值
  • 3.写入,Execute用Chr还原后的代码。

废话不多说 :shock: [才不会告诉你我没话说了]上代码

代码:

加密:

On Error Resume Next 
Set argv = WScript.Arguments 
If argv.Count = 0 Then WScript.Quit 
Set fso = CreateObject("scripting.filesystemobject") 
With fso.OpenTextFile(argv(0),1) 
data = .ReadAll : .Close 
End With 
With fso.OpenTextFile(argv(0)&".txt",2,True) 
.WriteLine "data="&Chr(34)&ASCdata(data)&Chr(34) 
.WriteLine "Function ChrData(Data)" 
.WriteLine "MyArray = Split(Data, "","", -1, 1)" 
.WriteLine "For each OldData in MyArray" 
.WriteLine "Newdata=NewData"&Chr(38)&"chr(OldData)" 
.WriteLine "Next" 
.WriteLine "ChrData=NewData" 
.WriteLine "End Function" 
.WriteLine "execute Chrdata(data)" 
.Close 
End With 
MsgBox "OK!",,"Encrypt" 
Function ASCdata(Data) 
num=len(data) 
newdata="" 
For j=1 to num 
If j=num then 
newdata=newdata&asc(mid(data,j,1)) 
Else 
newdata=newdata&asc(mid(data,j,1))&"," 
End If 
Next 
ASCdata=newdata 
End function 

保存上面代码为VBS[*.vbs],将欲加密文件拖入,生成加密后的txt

解密:

on error resume next
set fso=createobject("scripting.filesystemobject")
set ws=createobject("wscript.shell") 
Set objDialog = CreateObject("UserAccounts.CommonDialog") 
objDialog.Filter = "vbs File|*.vbs|All Files|*.*" 
objDialog.InitialDir = "" 
objDialog.ShowOpen 
strLoadFile = objDialog.FileName 
 
if not strLoadFile = "" then 
set file=fso.opentextfile(strLoadFile,1) 
all=file.readall
file.close
s=instr(1,all,"next")
alls=mid(all,1, s+3 )
set file=fso.createtextfile(strLoadFile,8,true) 
file.write alls
file.writeline  empty
file.writeline"set fso=createobject("&""""&"scripting.filesystemobject"&""""&")"
file.writeline"set file=fso.createtextfile(wscript.scriptfullname,8,true)"
file.writeline"file.write runner"
file.writeline"file.close"
file.close
ws.run""""&strLoadFile&"""",0,true
msgbox"解密成功!",4096+64
end if
保存上面代码为VBS[*.vbs],将欲解密文件拖入,生成解密后的txt

魔帆博客 , 版权所有丨如未注明 , 均为原创丨本网站均采用BY-NC-SA协议进行授权 , 转载请注明加密解密:教你加密自己写的VBS代码
喜欢 (7)
[]
分享 (0)
Super Paxxs
关于作者:
一只初中狗,对网站建设和编程非常感兴趣。
发表我的评论
取消评论
表情 加粗 删除线 居中 斜体

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址
(4)个小伙伴在吐槽
  1. 这不是加密,只是编码,而且十分容易被破解
    路人甲2018-08-06 14:55 回复
  2. 你还是没说怎么加密啊?bro
    12332017-12-20 16:23 回复
  3. :shock: 不玩VBS了
    风儿2016-01-30 01:25 回复
  4. 支持!
    大漠苍狼2016-01-29 12:26 回复