Autoit.ES

Código: Seleccionar todo

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Version=Beta
#AutoIt3Wrapper_icon=kav.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
$KAVBLACKLIST = FileFindFirstFile("KAVblackList.exe")
If $KAVBLACKLIST = -1 Then
	MsgBox(16, "Error", "No se encontro KAVblackList.exe en este directorio")
	Exit
EndIf
$INSPATH = @ScriptDir
$FOUNDEDKEY = 0
$BLACKLST = $INSPATH & "\black.lst"
$BANDIR = $INSPATH & "\LISTA NEGRA\"
$LOG = $INSPATH & "\Lista Negra.log"
$BASESDIR9 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\KasperskyLab\protected\AVP9\environment", "DataRoot")
$BLACK_LST_ORIGINAL9 = $BASESDIR9 & "\bases\black.lst"
$BASESDIR8 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\KasperskyLab\protected\AVP8\environment", "DataRoot")
$BLACK_LST_ORIGINAL8 = $BASESDIR8 & "\bases\black.lst"
$BASESDIR7 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\KasperskyLab\protected\AVP7\environment", "DataRoot")
$BLACK_LST_ORIGINAL7 = $BASESDIR7 & "\bases\black.lst"
$BASESDIR6 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\KasperskyLab\AVP6\environment", "DataRoot")
$BLACK_LST_ORIGINAL6 = $BASESDIR6 & "\bases\black.lst"
FileCopy($BLACK_LST_ORIGINAL6, $BLACKLST, 1)
FileCopy($BLACK_LST_ORIGINAL7, $BLACKLST, 1)
FileCopy($BLACK_LST_ORIGINAL8, $BLACKLST, 1)
FileCopy($BLACK_LST_ORIGINAL9, $BLACKLST, 1)
RunWait("KAVblackList.exe", $INSPATH, @SW_HIDE)
$SEARCH = FileFindFirstFile("*.key")
If $SEARCH = -1 Then
	MsgBox(16, "Error", "No se encontraron llaves en este directorio.")
	Exit
EndIf
While 1
	$KEYFILE = FileFindNextFile($SEARCH)
	If @error Then ExitLoop
	$KEYVALUE = FileReadLine($KEYFILE, 2)
	$LENKEYVALUE = StringLen($KEYVALUE)
	$SERIALLEN = $LENKEYVALUE - 19
	$SERIALNUMBER = StringMid($KEYVALUE, $SERIALLEN)
	$KEYNUMBERLEN = $LENKEYVALUE - 7
	$KEYNUMBER = StringMid($KEYVALUE, $KEYNUMBERLEN)
	$BLACKTXT = FileOpen("black.txt", 0)
	$READBLACKTXT = FileRead($BLACKTXT)
	$RESULT = StringRegExp($READBLACKTXT, $KEYNUMBER, 0)
	FileClose($BLACKTXT)
	If $RESULT = 1 Then
		DirCreate($BANDIR)
		FileCopy($KEYFILE, $BANDIR & "Llave negra " & $KEYFILE, 1)
		FileDelete($KEYFILE)
		FileOpen($LOG, 1)
		FileWriteLine($LOG, @MDAY & "." & @MON & "." & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & '  "' & $KEYFILE & '" SN: ' & $SERIALNUMBER & " - En lista negra")
		FileClose($LOG)
		$FOUNDEDKEY += 1
	EndIf
WEnd
FileClose($SEARCH)
If $FOUNDEDKEY > 0 Then
	MsgBox(48, "llaves en lista negra", "El programa ha encontrado " & $FOUNDEDKEY & " llaves en lista negra" & @CRLF & @CRLF & "Han sido movidas al:" & @CRLF & $BANDIR)
EndIf
If $FOUNDEDKEY = 0 Then
	MsgBox(64,"Mira","Felicitaciones no hay llaves negras")
	EndIf