时间:2021-05-22
复制代码 代码如下:
If Not WScript.Arguments.Count=1 Then WScript.Echo "请将要转换的vbs文件托拽到我身上!":WScript.Quit
Set fso=CreateObject("Scripting.FileSystemObject")
Set self=fso.OpenTextFile(WScript.ScriptFullName)
Set vbs=fso.CreateTextFile(Left(WScript.Arguments(0),Len(WScript.Arguments(0))-4)+"_XorEncode.vbs")
Do Until self.AtEndOfStream
aline=self.ReadLine
If aline="Function Decode(s,n)" Then w=true
If w Then vbs.WriteLine aline
Loop
Set src=fso.OpenTextFile(WScript.Arguments(0))
Randomize:n=Int(255*Rnd+1)
vbs.WriteLine "Execute("&"Decode("""&Encode(src.Read(fso.GetFile(WScript.Arguments(0)).Size),n)&""","&n&"))"
src.Close:vbs.Close:self.Close
Set src=Nothing:Set vbs=Nothing:Set self=Nothing:Set fso=Nothing
WScript.Echo "Successful!"
Function Encode(s,n)
For i=1 To Len(s)
Encode=Encode&" "&(Asc(Mid(s,i,1)) Xor n)
Next
End Function
Function Decode(s,n)
ns=Split(Mid(s,2,Len(s)-1))
For i=0 To UBound(ns)
Decode=Decode&Chr(CInt(ns(i)) Xor n)
Next
End Function
声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。
复制代码代码如下:'执行方法:直接双击vbs文件或者通过cmd.exe下cscript.exe"指定脚本的路径"'利用Vbs脚本实现显示系统服务里表'Creat
java根据经纬度获取地址实现代码实现代码:publicclassGetLocation{publicstaticvoidmain(String[]args){
需要实现一个复制文件夹的功能,网上找到相关代码,并做了改进,vbs脚本如下复制代码代码如下:Dimfso,CopyCountSetfso=CreateObjec
偶尔想知道IUSR和IWAM账号的密码,但是经常忘记adsutil.vbs的用法,今天查了一下,发现代码其实很简单:(另存为.wsf文件双击运行即可。)复制代码
asp中includefile包含其他文件vbs中复制代码代码如下:OptionExplicitOnErrorResumeNextSubinclude(vbs)