php批量解密

Dim fso,app
Set fso=CreateObject("Scripting.FileSystemObject")
Set app=CreateObject("WScript.Shell")
dim cfld
set cfld=fso.getfolder(".\webroot")
crackit cfld
Sub crackit(fld)
Dim stime,f,afld
For Each f In fld.Files
If right(f.name,3)="php" and instr(f.name,"www.1v1.")=0 Then 
  stime=(f.size\10000+1)*1000
  app.Run "D:\app\Zend破解\DezenderGUI.exe  "&f.name,0,false  
      wscript.sleep(stime)   '延时
      app.SendKeys " " '自动按确定
  End If 
Next
 
For Each f In fld.Files
  If InStr(f.name,"www.1v1.name")=0 and right(f.name,3)="php" And f.DateLastModified<"2012-1-1" Then 
     fso.DeleteFile(f)  
  End If  
Next
For Each f In fld.Files
  If InStr(f.name,"www.1v1.name")>0  Then 
      fso.MoveFile f.path,Replace(f.path,"www.1v1.name.","")
  End If  
Next
For Each afld In fld.SubFolders
  Call crackit(afld)
next
End Sub