AYUDA CON ESTE CODIGO

[jonathan7]

hola soy nuevo en este foro pero eh tenido algo de practica con autoit pueden verlo en este post que yo mismo cree
http://www.**********.html

les pido ayuda por que estoy estancado en un proyecto y quisiera que alguin con mas practica me eche una mano.

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

este es el codigo fuente la funcion principal es ejecutar un exe que genera un txt y con el hacer comparaciones pero solo eh logrado hacer que funcione en el mismo lugar que este el exe no se como redirigir cualquier direccion a este codigo

Les adjunto el exe para que puedan hacer pruebas y me puedan ayudar

[Chefito]

Bienvenido al foro.
Antes de nada te recomiendo que leas las normas de este foro. En estas normas se especifica claramente que no se ayudará con temas dañinos, hacking, cracking, pirateo y otras formas de malware . No queremos que este gran lenguaje quede vinculado a este tipo de métodos y programas .
También leete en este mismo post como se debe exponer el asunto para que sea más claro para todos.
http://www.emesn.com/autoitforum/viewtopic.php?f=1&t=8

Espero que te animes y te veamos por aquí haciendo otro tipo de scripts.

Este tema queda cerrado.

Saludos.