#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.2.4.3
 Author:         usmiv4o

 Script Function:
	AutoIt script to check if files in directory are changed. It is usefull for security contra-inteligense measures.

 Function Name:    LoadTripwireDB()
 Description:      Loads database (text file tripwire.txt) and compare files in /test folder for changes.
					compares Hash (MD5) checksums. If they are not the same starts Initial()
 Function Name:    Initial()
 Description:      Checks directory and makes index of files and their MD5 checksums in text file (tripwire.txt)

 Function Name:    Hush()
 Description:      Checks file and returns its MD5 checksum.

 Requirement(s):   Windows XP
 Return Value(s):  On Success - Returns true. Files are the same as before.
                   On Failure - return false.

  Example:
 LoadTripwireDB()


#ce ----------------------------------------------------------------------------#include <ExcelCOM_UDF.au3>
#include <Crypt.au3>
#include <File.au3>
#include <Array.au3>
;#include <ExcelCOM_UDF.au3>

$sDir = @ScriptDir & "\Test"
$sFilePath = @ScriptDir & "\tripwire.txt"

Func Hush(ByRef $sFile)
	$sRead = FileOpen( $sFile)
	$dHash = _Crypt_HashData($sRead, $CALG_MD5) ; Create a hash of the text entered.
	ConsoleWrite("Hash of file " & $sFile & "  is " & $dHash & @CRLF)
EndFunc


	;ConsoleWrite("Files in Dir are " & $aScriptDir[0] & @CRLF)
	;$sFilePath = @ScriptDir & "\Examples.txt"
	;_FileWriteFromArray($sFilePath, $aScriptDir, 1)
	;_ArrayDisplay($aScriptDir, "1D display")

Func Initial()
	$aScriptDir = _FileListToArray($sDir)
	for $i = 1 To UBound($aScriptDir) - 1
		$dHash = _Crypt_HashData($i, $CALG_MD5)
		;ConsoleWrite("File " & $aScriptDir[$i] & " is " & $dHash & @CRLF)
		ConsoleWrite($aScriptDir[$i] & ":" & $dHash & @CRLF)
		;Hush($aScriptDir[$i])

		;FileWrite

		$hFileOpen = FileOpen($sFilePath, $FO_APPEND)
		If $hFileOpen = -1 Then
			MsgBox($MB_SYSTEMMODAL, "", "An error occurred when reading the file.")
		EndIf
		FileWrite($hFileOpen, $aScriptDir[$i] & ":" & $dHash & @CRLF)
	Next
EndFunc

Func Monitor()
	$aScriptDir = _FileListToArray($sDir)
	for $i = 1 To UBound($aScriptDir) - 1

	Next
EndFunc

Func LoadTripwireDB()
	$comparison_ok = false
	$dArray = _FileListToArray($sDir)		;directory
	$dArray0 = UBound($dArray) - 1
	$fArray =  FileReadToArray($sFilePath)	;file
	$fArray0 = UBound($fArray)
	;_ArrayDisplay($dArray, "files array")
	if $dArray0 = $fArray0 Then		; are file same as recorded in txt file?
		;ConsoleWrite("files in monitoring dir: " & $dArray[0] & " = file recorded: " & $fArray0 & @CRLF & $fArray[0]& @CRLF)
		for $i = 1 To UBound($dArray) - 1
			;ConsoleWrite("i = " & $i & @CRLF)
			$dHash = _Crypt_HashData($i, $CALG_MD5) ;binary
			;$dHash = BinaryToString($dHash)
			$ffhash = StringSplit( $fArray[$i-1],":")
			$fhash = $ffhash[2]

			;ConsoleWrite("IsBinary $dHash " & IsBinary($dHash) & @CRLF)

			if  $dHash = $fhash  Then	;if compared hashes are equal
				;ConsoleWrite($fhash & ":" & $dHash & " equal" & @CRLF)
				;ConsoleWrite("File:      " & $fhash & @CRLF & "Directory: " & $dHash & @CRLF & "equal:     yes " & @CRLF)

			Else						;if compared hashes are not equal
				;ConsoleWrite("File:      " & $fhash & @CRLF & "Directory: " & $dHash & @CRLF & "equal:     not " & @CRLF)
				;MsgBox(0,"hash md5",$fhash & ":" & $dHash & " not equal")
			EndIf

		Next
		;ConsoleWrite("hashes are equal" & @CRLF)
		$comparison_ok = true
	Else
		ConsoleWrite("number of files in monitoring dir are not same as recorded" & @CRLF)
		ConsoleWrite("directory: " & $dArray[0] &":"& "files: " & UBound($fArray) - 1 & @CRLF)
	EndIf
	Return $comparison_ok
EndFunc

#main
if LoadTripwireDB() = true Then
	ConsoleWrite(" hashes are equal " & @CRLF)
ElseIf	LoadTripwireDB() <> true Then
	ConsoleWrite(" hashes are not equal " & @CRLF)
	ConsoleWrite(" hashes are not equal " & @CRLF)
	Initial()
EndIf