Título: Documentación De: "Kill Bytes 2"
Publicado por: Leminy en 20 Septiembre 2011, 08:53 am
Bueno Como Comente En Mi Anterior Post: http://foro.elhacker.net/scripting/batvbscodigo_dudoso-t338763.0.html (http://foro.elhacker.net/scripting/batvbscodigo_dudoso-t338763.0.html) Y Como Prometi Al Compañero "S3kh" Documentaria El Code, Aqui Lo Dejo. "Aquel Por El Que Tube Una Duda Hace Tiempo, Pero Como Siempre La Paciencia y Estudio Me Llevaron A La Solución". ;-) ;-) Les Dejare Dos Codes: ;-) ;-) 1°; El "Script" Como Tal[Solo Servira Para Explicaciónes]. On Error Resume Next ' Omisión De Errores Durante La Ejecución[Para El Contro De Los Mismo]. Dim Port_Map() 'Declaración De La Matriz Para Unidades Extraibles. ReDim Port_Map(10) 'Redimención De La Matriz "Port_Map". Dim Bit_Map() ' Declaración De La Matriz Para Posibles Archivos Maliciosos. ReDim Bit_Map(512) ' Redimención De La Matriz "Bit_Map" Set WshFSO = CreateObject("Scripting.FileSystemObject") 'Declaración Del Objeto "Scripting.FileSystemObject" Set WshShell = CreateObject("Wscript.Shell") 'Declaración Del Objeto "Wscript.Shell" User = WshShell.ExpandEnvironmentStrings("%UserName%") ' Expandiendo La Variable %UserName% Para Fines De Escritura. Temp = WshShell.ExpandEnvironmentStrings("%Temp%") ' Expandiendo La Variable %Temp% Para Fines De Escritura y Ejecución. Unit = Array("D","E","F","G","H","I","J","K","L","M","N") ' Array De Posibles Unidades Extraibles. ExtE = Array("bat","BAT","cmd","CMD","com","COM","dll","DLL","exe","EXE","hsh","HSH","js","JS","jse","JSE","lnk","LNK","pif","PIF","scr","SCR","vbs","VBS","vbe","VBE","wsf","WSF","wsh","WSH") ' Array De Posibles extensiones Maliciosas. CarE = Array("Data","Restore","Recycler","System") ' Array De Posibles Carpetas De Malware. ROOTF = WshFSO.GetAbsolutePathName(".\") ' Obtengo El Path Desde Donde Se Ejecuta El Script. Set PATH = WshFSO.GetFolder(ROOTF & "\" & "LOGS") ' Tomo El Directorio LOGS CPATH = PATH.ShortPath ' Obtengo El Nombre Corto Del "Path:LOGS". Do ' Uso De "Do" Para Iniciar El Programa Renuentemente Si El Usuario Lo Desea. MAPING = MsgBox("¿Desea Seguir Ejecutando El Programa?",vbYesNo+vbQuestion,"Confirmación") ' MsgBox Para Que El User Acepte ó Decline A Iniciar La Aplicación De Nuevo. If MAPING = vbYes Then ' Desde Aqui, Empieza Normalmente El Programa. Do ' Aqui Otro "Do", Esta Vez Para Que "Regrese" Al Usuario Si La Opción No Es Un Numero. FASM = InputBox("Elija Por Numero La Opción Deseada:"+Chr(10)+"1;Eliminar Virus De Unidades Con Registros."+Chr(10)+"2;Desocultar Carpetas De Unidades."+Chr(10)+"3;Terminar Procesos Locales Por Selección.","KILL BYTES","2",5000,7000) ' Aqui El InputBox Para Teclear La Opción Deseada. Loop Until IsNumeric(FASM) ' Aqui Se Fueza A Solo Admitir Numeros. Select Case (FASM) ' Aqui El Inicio De Un Case, Dependiendo De Lo Que Puso El User. Case (0): ' Aqui Entra El Programa Si La Entrada Fue "Nula" o Cancelada. WshShell.PopUp "¡Gracias Por Usar Kill Bytes 2 By Leminy!",7,"Agradecimiento",vbOKOnly+vbInformation ' Mensaje De Despedida. WScript.Quit ' Aqui Se Cierra La Aplicación. Case (1): ' Aqui Entra El Programa Si El Numero Fue "1". e = 0 ' Declaración De "e=0". For i=0 To 10 Step 1 ' Empieza un "For" Para Saber Que Unidades Removibles Existen. If (WshFSO.DriveExists(Unit(i) & ":")) Then ' Aqui Comprueba Si Existe La Unidad. Temp_Var = Unit(i) ' Guarda En Una Variable Temporal La Letra De La Unidad Encontrada. Set LIST = WshFSO.Drives(Temp_Var & ":") ' Aqui Toma El "Drive" ó Unidad. If LIST.DriveType = 1 Then ' Compruba El Tipo De Unidad[Removible=1]. Port_Map(e) = Temp_Var ' Se Almacena En El Array Con Posición "e" La Variable Temporal. e = e + 1 ' Aqui Solo Ira Sumando "1" Cada Vez Que Se Tenga Una Unidad. End If ' Aqui Termina La Comprobación Del Tipo. End If ' Aqui Termina La Comprobación De Unidad. Next ' Aqui La Repetición Del "For" De Unidades Removibles. Set MFET = WshFSO.OpenTextFile(CPATH & "\" & "K-B.LOG",8,True) ' Aqui Abre El Archivo "K-B.LOG" De La Carpeta "LOGS". MFET.WriteLine "Session: " & User & " - Files" ' Aqui Escribe La Cabezera "Files" En "K-B.LOG". MFET.Close ' Aqui Se Termina De Escribir[Se Cierra "K-B.LOG"]. f = 0 ' Declaración De "f=0". For k=0 To e-1 Step 1 ' Empieza un "For" Para Recorrer Las Unidades Antes Obtenidas. Root = Port_Map(k) & ":\" ' Se Guarda En Una Variable La Letra De La Unidad Actual + ":\". Set PathA = WshFSO.GetFolder(Root) ' Toma La Unidad Removible[No Use "GetDrive" Ya Que Con Esa Propiedad No Se Puede Listar Archivos]. Set FILES = PathA.Files ' Lista Los "Archivos De Raíz" Dentro De La Unidad. For Each FILE In FILES ' Aqui Un "For" Que Va Listando Uno A Uno Los Archivos. Bit_Map(f) = FILE ' Se Almacena En El Array Con Posición "f" La Ruta y Nombre Del Archivo. f = f + 1 ' Aqui Solo Ira Sumando "1" Cada Vez Que Se Tenga Un Archivo. Next ' Aqui La Repetición Del "For" Para La Colección De Archivos. Next ' Aqui La Repetición Del "For" Para La Colección De Unidades. For l=0 To f-1 Step 1 ' Aqui Un "For" Para Enlistar La Colección De Archivos Antes Obtenida. Set Cmp_File = WshFSO.GetFile(Bit_Map(l)) ' Obtiene El Archivo Actual[El Que Se Almaceno En La Posición "l" De Bit_Map]. If Cmp_File.Attributes<>0 Then ' Aqui Comprueba Los Atributos De Dicho Archivo. Cmp_File.Attributes = 0 ' Aqui Cambia Los Atributos Si Fueron Diferentes De "0"[Normal=0]. End If ' Aqui Termina De Comprobar Los Atributos. RFILE = Bit_Map(l) ' Aqui Pone El Archivo Antes Mencionado En La Variable "RFILE". For m=0 To 29 Step 1 ' Aqui un "For" Para Comprobar Que El Archivo No Tenga Una Extención Igual A Las Listadas Dentro Del Array "ExtE". If WshFSO.GetExtensionName(RFILE) = ExtE(m) Then ' Aqui Comprueba La Extención. WshFSO.DeleteFile RFILE, True ' Aqui Elimina El Archivo Si Tenia Una Extención Maliciosa. If Err.Number<>0 Then ' Aqui Comprueba Si Hubo Error Al Eliminar El Archivo[Por Si Esta En Ejecución]. Err.Clear ' Aqui "Limpia El Error". Set MFET = WshFSO.OpenTextFile(CPATH & "\" & "K-B.LOG",8,True) ' Abre El Archivo LOG. MFET.WriteLine Chr(34)&Bit_Map(l)&Chr(34) & " - Status:NoDeleted!" ' Escribe El Estatus De Dicho Archivo. MFET.Close ' Aqui Se Termina De Escribir[Se Cierra "K-B.LOG"]. Else ' Aqui El "Else" Por Si No Hubo Error. Set MFET = WshFSO.OpenTextFile(CPATH & "\" & "K-B.LOG",8,True) ' Abre El Archivo LOG. MFET.WriteLine Chr(34)&Bit_Map(l)&Chr(34) & " - Status:Deleted!" ' Escribe El Estatus De Dicho Archivo. MFET.Close ' Aqui Se Termina De Escribir[Se Cierra "K-B.LOG"]. End If ' Aqui Termina La Comprobación De Error. End If ' Aqui Termina La Comprobación De Extención. Next ' Aqui La Repetición Del "For" Para La Colección De Extenciónes. Next ' Aqui La Repetición Del "For" Para La Colección Selecta De Archivos. Set MFET = WshFSO.OpenTextFile(CPATH & "\" & "K-B.LOG",8,True) ' Aqui Abre El Archivo "K-B.LOG" De La Carpeta "LOGS". MFET.WriteLine "End Session Of: " & User & " - Files" ' Aqui Termina De Escribir La Cabezera "Files" En "K-B.LOG". MFET.WriteBlankLines(1) ' Aqui Deja Un Espacio En Blanco En El Archivo LOG. MFET.Close ' Aqui Se Termina De Escribir[Se Cierra "K-B.LOG"]. ReDim Port_Map(10) 'Importante: Aqui Libera El Array "Port_Map". ReDim Bit_Map(512) 'Importante: Aqui Libera El Array "Bit_Map". ' Salta Directamente A: "End Select". Case (2): ' Aqui Entra El Programa Si El Numero Fue "2". e = 0 ' Declaración De "e=0". For i=0 To 10 Step 1 ' Empieza un "For" Para Saber Que Unidades Removibles Existen. If (WshFSO.DriveExists(Unit(i) & ":")) Then ' Aqui Comprueba Si Existe La Unidad. Temp_Var = Unit(i) ' Guarda En Una Variable Temporal La Letra De La Unidad Encontrada. Set LIST = WshFSO.Drives(Temp_Var & ":") ' Aqui Toma El "Drive" ó Unidad. If LIST.DriveType = 1 Then ' Compruba El Tipo De Unidad[Removible=1]. Port_Map(e) = Temp_Var ' Se Almacena En El Array Con Posición "e" La Variable Temporal. e = e + 1 ' Aqui Solo Ira Sumando "1" Cada Vez Que Se Tenga Una Unidad. End If ' Aqui Termina La Comprobación Del Tipo. End If ' Aqui Termina La Comprobación De Unidad. Next ' Aqui La Repetición Del "For" De Unidades Removibles. Set MFET = WshFSO.OpenTextFile(CPATH & "\" & "K-B.LOG",8,True) ' Aqui Abre El Archivo "K-B.LOG" De La Carpeta "LOGS". MFET.WriteLine "Session: " & User & " - Folders" ' Aqui Escribe La Cabezera "Folders" En "K-B.LOG". MFET.Close ' Aqui Se Termina De Escribir[Se Cierra "K-B.LOG"]. For t=0 To e-1 Step 1 ' Empieza un "For" Para Recorrer Las Unidades Antes Obtenidas. STEAM = Port_Map(t) & ":\" ' Se Guarda En Una Variable La Letra De La Unidad Actual + ":\". Set FSTEAM = WshFSO.GetFolder(STEAM) ' Toma La Unidad Removible[No Use "GetDrive" Ya Que Con Esa Propiedad No Se Puede Listar Directorios]. Set RSTEAM = FSTEAM.SubFolders ' Lista Las "Carpetas De Raíz" Dentro De La Unidad. For u=0 To 3 Step 1 ' Aqui Un "For" Para Listar Las Posibles Carpetas Maliciosas Dentro Del Array "CarE". CARPF = STEAM & CarE(u) ' Aqui Guarda En Una Variable El PATH Completo De La Carpeta. Set CARPA = WshFSO.GetFolder(CARPF) ' Aqui Toma El Directorio. CARPA.Attributes = 16 ' Aqui Intenta Cambiar Los Atributos Del Directorio. If Err.Number=0 Then ' Aqui Comprueba Si Hubo Error[Significa Que Tal Vez La Carpeta No Exista ó Este Protegida]. If (WshFSO.FolderExists(CARPF)) Then ' Aqui Comprueba Si Realmente Existe La Carpeta. Set MFET = WshFSO.OpenTextFile(CPATH & "\" & "K-B.LOG",8,True) ' Abre El Archivo LOG. MFET.WriteLine Chr(34)&CARPF&Chr(34) & " - Status:Deleted!" ' Escribe El Estatus De Dicho Directorio. MFET.Close ' Aqui Se Termina De Escribir[Se Cierra "K-B.LOG"]. WshFSO.DeleteFolder CARPF, True ' Aqui Elimina El Posible Directorio Del Malware. End If ' Aqui Termina La Comprobación De La Existenciá Del Directorio. Else ' Aqui El "Else" Por Si Hubo Error. Err.Clear ' Aqui "Limpia El Error". If Not (WshFSO.FolderExists(CARPF)) Then ' Aqui Compruba Si No Existio La Carpeta. Set MFET = WshFSO.OpenTextFile(CPATH & "\" & "K-B.LOG",8,True) ' Abre El Archivo LOG. MFET.WriteLine Chr(34)&CARPF&Chr(34) & " - Status:NotFound!" ' Escribe El Estatus De Dicho Directorio. MFET.Close ' Aqui Se Termina De Escribir[Se Cierra "K-B.LOG"]. Else ' Aqui El "Else" Por Si Existio El Directorio. Set MFET = WshFSO.OpenTextFile(CPATH & "\" & "K-B.LOG",8,True) ' Abre El Archivo LOG. MFET.WriteLine Chr(34)&CARPF&Chr(34) & " - Status:NoDeleted!" ' Escribe El Estatus De Dicho Directorio. MFET.Close ' Aqui Se Termina De Escribir[Se Cierra "K-B.LOG"]. End If ' Aqui Termina La Comprobación De La Existenciá Del Directorio. End If ' Aqui Termina La Comprobación De Error. Next ' Aqui La Repetición Del "For" Que Listo Los Probables Directorios De Malware. For Each FALL In RSTEAM ' Aqui Un "For" Que Va Listando Uno A Uno Los Directorios. If FALL.Attributes<>16 Then ' Aqui Comprueba Los Atributos De Dicho Directorio. FALL.Attributes = 16 ' Aqui Cambia Los Atributos Si Fueron Diferentes De "0"[Normal=0]. If Err.Number<>0 Then ' Aqui Comprueba Si Hubo Error Al Cambiar Los Atributos. Err.Clear ' Aqui "Limpia El Error". Set MFET = WshFSO.OpenTextFile(CPATH & "\" & "K-B.LOG",8,True) ' Abre El Archivo LOG. MFET.WriteLine Chr(34)&FALL&Chr(34) & " - Status:NoRestablished!" ' Escribe El Estatus De Dicho Directorio. MFET.Close ' Aqui Se Termina De Escribir[Se Cierra "K-B.LOG"]. Else ' Aqui El "Else" Por Si No Hubo Error. Set MFET = WshFSO.OpenTextFile(CPATH & "\" & "K-B.LOG",8,True) ' Abre El Archivo LOG. MFET.WriteLine Chr(34)&FALL&Chr(34) & " - Status:Restablished!" ' Escribe El Estatus De Dicho Directorio. MFET.Close ' Aqui Se Termina De Escribir[Se Cierra "K-B.LOG"]. End If ' Aqui Termina La Comprobación De Error. End If ' Aqui Termina La Comprobación De Atributos. Next ' Aqui La Repetición Del "For" Para La Colección De Los Demas Directorios. Next ' Aqui La Repetición Del "For" Para La Colección De Unidades. Set MFET = WshFSO.OpenTextFile(CPATH & "\" & "K-B.LOG",8,True) ' Aqui Abre El Archivo "K-B.LOG" De La Carpeta "LOGS". MFET.WriteLine "End Session Of: " & User & " - Folders" ' Aqui Termina De Escribir La Cabezera "Folders" En "K-B.LOG". MFET.WriteBlankLines(1) ' Aqui Deja Un Espacio En Blanco En El Archivo LOG. MFET.Close ' Aqui Se Termina De Escribir[Se Cierra "K-B.LOG"]. ReDim Port_Map(10) 'Importante: Aqui Libera El Array "Port_Map". ' Salta Directamente A: "End Select". Case (3): ' Aqui Entra El Programa Si El Numero Fue "3". Set MFET = WshFSO.OpenTextFile(CPATH & "\" & "K-B.LOG",8,True) ' Aqui Abre El Archivo "K-B.LOG" De La Carpeta "LOGS". MFET.WriteLine "Session: " & User & " - TaskKiller 2.0" ' Aqui Escribe La Cabezera "TaskKiller 2.0" En "K-B.LOG". MFET.Close ' Aqui Se Termina De Escribir[Se Cierra "K-B.LOG"]. Do ' Aqui un "Do" Para Repetir Este Modulo Si El Usuario Lo Desea. MASK = MsgBox("¿Desea Terminar Más Procesos?",vbYesNo+vbQuestion,"¿Opción?") ' Aqui El "MsgBox" Para Que El User Continue ó Salga del Modulo. If MASK = vbYes Then ' Desde Aqui, Empieza Normalmente El Modulo. TASK = InputBox("Escriba El Nombre Del Proceso Que Desea Terminar:","TaskKiller 2.0","EXPLORER.EXE",5000,7000) ' Aqui Un "InputBox" Para Ingresar El Nombre Del Proceso é Inyectar Codigo BATCH. VAR = Len(TASK) ' Aqui Comprueba La Entrada. If VAR<>0 Then ' Aqui Comprueba Que La Entrada No Sea Nula. Set FET = WshFSO.OpenTextFile(Temp & "\" & "K-B\" & "KB.BAT",2,True) ' Aqui Crea El Archivo "K-B.BAT". FET.WriteLine "@echo off" ' Aqui Empieza A Escribir El BATCH. FET.WriteLine "taskkill /f /im " & TASK ' Aqui Es La Continuación é Inyección Del Code[Agrgar:"& comando"]. FET.WriteLine "If %ErrorLevel%==0 echo NOERR>%Temp%\K-B\0" ' Condición "1" En La Que Termino El Proceso[NoError=0] FET.WriteLine "If %ErrorLevel%==1 echo ERR1>%Temp%\K-B\1" ' Condición "2" En La Que Termino El Proceso[Error=1] FET.WriteLine "If %ErrorLevel%==128 echo ERR128>%Temp%\K-B\128" ' Condición "3" En La Que Termino El Proceso[NotFound=128] FET.WriteLine "@exit" ' Aqui Termina De Escribir El BATCH. FET.Close ' Aqui Cierra El Archivo "K-B.BAT". ' Dependiendo Del Nivel De Error Escribe Un Archivo Con El Num. De Error. WshShell.Run Temp & "\" & "K-B\" & "KB.BAT", 0, True ' Aqui Ejecuta El Archivo "K-B.BAT". If (WshFSO.FileExists(Temp & "\" & "K-B\" & "0")) Then 'Entra Aqui Si Existe El Archivo "0"[Significa Que No Hubo Error]. WshShell.PopUp "Se Pudo Terminar El Proceso:¡Terminado!",5,"¡Terminado!",vbOKOnly+vbInformation ' Aqui Avisa Del Estado Del Error. WshFSO.DeleteFile Temp & "\" & "K-B\" & "0", True ' Aqui Elimina El Archivo Del Estatus Del Error. Set MFET = WshFSO.OpenTextFile(CPATH & "\" & "K-B.LOG",8,True) ' Abre El Archivo LOG. MFET.WriteLine Chr(34)&TASK&Chr(34) & ": No Error" ' Aqui Escribe La Descripción Del Error. MFET.Close ' Aqui Se Termina De Escribir[Se Cierra "K-B.LOG"]. ElseIf (WshFSO.FileExists(Temp & "\" & "K-B\" & "1")) Then 'Entra Aqui Si Existe El Archivo "1"[Significa Que Hubo Error]. WshShell.PopUp "No Se Pudo Terminar El Proceso:¡No Terminado!",5,"¡No Terminado!",vbOKOnly+vbCritical ' Aqui Avisa Del Estado Del Error. WshFSO.DeleteFile Temp & "\" & "K-B\" & "1", True ' Aqui Elimina El Archivo Del Estatus Del Error. Set MFET = WshFSO.OpenTextFile(CPATH & "\" & "K-B.LOG",8,True) ' Abre El Archivo LOG. MFET.WriteLine Chr(34)&TASK&Chr(34) & ": Error 1" ' Aqui Escribe La Descripción Del Error. MFET.Close ' Aqui Se Termina De Escribir[Se Cierra "K-B.LOG"]. ElseIf (WshFSO.FileExists(Temp & "\" & "K-B\" & "128")) Then 'Entra Aqui Si Existe El Archivo "128"[Significa Que Hubo Error]. WshShell.PopUp "No Se Pudo Encontrar El Proceso:¡No Encontrado!",6,"¡No Encontrado!",vbOKOnly+vbCritical ' Aqui Avisa Del Estado Del Error. WshFSO.DeleteFile Temp & "\" & "K-B\" & "128", True ' Aqui Elimina El Archivo Del Estatus Del Error. Set MFET = WshFSO.OpenTextFile(CPATH & "\" & "K-B.LOG",8,True) ' Abre El Archivo LOG. MFET.WriteLine Chr(34)&TASK&Chr(34) & ": Error 128" ' Aqui Escribe La Descripción Del Error. MFET.Close ' Aqui Se Termina De Escribir[Se Cierra "K-B.LOG"]. Else ' Aqui El "Else" Por Si Ocurrio Otra Clase De Error. WshShell.PopUp "Ha Ocurrido Un Error Desconocido:¡Error!",7,"¡Desconocido!",vbOKOnly+vbCritical ' Aqui Avisa Que El Estado Del Error Es Desconocido. End If ' Aqui Termina La "Comprobación Del Error". WshFSO.DeleteFile Temp & "\" & "K-B\" & "KB.BAT", True ' Aqui Elimina El Archivo "K-B.BAT". ElseIf TASK = 0 Then ' Aqui Entra El Programa Si La Entrada Del 2° "InputBox" Fue "Nula" o Cancelada. WshShell.PopUp "¡Gracias Por Usar Kill Bytes 2 By Leminy!",7,"Agradecimiento",vbOKOnly+vbInformation ' Mensaje De Despedida. Exit Do ' Sale Del "Do" De "MASK"["MsgBox" De Confirmación]. Else ' Aqui El "Else" Por Si En "TASK" Fallo Algo. WshShell.PopUp "¡Gracias Por Usar Kill Bytes 2 By Leminy!",7,"Agradecimiento",vbOKOnly+vbInformation ' Mensaje De Despedida. Exit Do ' Sale Del "Do" De "MASK"["MsgBox" De Confirmación]. End If ' Aqui Termina La Comprobación De "TASK". Else ' Aqui El "Else" De "MASK"["MsgBox" De Confirmación]. Exit Do ' Sale Del "Do" De "MASK"["MsgBox" De Confirmación]. End If ' Aqui Termina La Comprobación De "MASK"["MsgBox" De Confirmación]. Loop ' Aqui Termina El "Do" De "MASK"["MsgBox" De Confirmación]. Set MFET = WshFSO.OpenTextFile(CPATH & "\" & "K-B.LOG",8,True) ' Aqui Abre El Archivo "K-B.LOG" De La Carpeta "LOGS". MFET.WriteLine "End Session Of: " & User & " - TaskKiller 2.0" ' Aqui Termina De Escribir La Cabezera "TaskKiller 2.0" En "K-B.LOG". MFET.WriteBlankLines(1) ' Aqui Deja Un Espacio En Blanco En El Archivo LOG. MFET.Close ' Aqui Se Termina De Escribir[Se Cierra "K-B.LOG"]. Case Else: ' Aqui Entra El Programa Si El Numero Fue Diferente De Las "3" Opciones Posibles. WshShell.PopUp "Comando Desconocido:¡Error!",5,"¡Error!",vbOKOnly+vbCritical ' Aqui Avisa Del Error Es Desconocido. End Select ' Aqui Termina El "Case". Else ' Aqui Es Por Si Se Rechaza Iniciar De Nueva Cuenta El Programa. WshShell.PopUp "¡Gracias Por Usar Kill Bytes 2 By Leminy!",7,"Agradecimiento",vbOKOnly+vbInformation ' Mensaje De Despedida. Exit Do ' Sale Del "Do" De "MAPING"["MsgBox" De Confirmación]. End If ' Aqui Termina La Comprobación De "MAPING"["MsgBox" De Confirmación]. Loop ' Aqui Termina El "Do" De "MAPING"["MsgBox" De Confirmación]. On Error Goto 0 ' Omisión De Errores[Para El Contro De Los Mismo].
2°; El Code Que Libera y Apoya Al "Script" Anterior. @echo off If Exist %Temp%\K-B ( If Not Exist %Temp%\K-B\K-B.LOG ( echo [Mutex]>%Temp%\K-B\K-B.LOG If Exist LOGS ( echo On Error Resume Next>%Temp%\K-B\K-B.VBS echo Dim Port_Map^(^)>>%Temp%\K-B\K-B.VBS echo ReDim Port_Map^(10^)>>%Temp%\K-B\K-B.VBS echo Dim Bit_Map^(^)>>%Temp%\K-B\K-B.VBS echo ReDim Bit_Map^(512^)>>%Temp%\K-B\K-B.VBS echo Set WshFSO = CreateObject^("Scripting.Filesystemobject"^)>>%Temp%\K-B\K-B.VBS echo Set WshShell = CreateObject^("Wscript.Shell"^)>>%Temp%\K-B\K-B.VBS echo User = WshShell.ExpandEnvironmentStrings^("%%UserName%%"^)>>%Temp%\K-B\K-B.VBS echo Temp = WshShell.ExpandEnvironmentStrings^("%%Temp%%"^)>>%Temp%\K-B\K-B.VBS echo Unit = Array^("D","E","F","G","H","I","J","K","L","M","N"^)>>%Temp%\K-B\K-B.VBS echo ExtE = Array^("bat","BAT","cmd","CMD","com","COM","dll","DLL","exe","EXE","hsh","HSH","js","JS","jse","JSE","lnk","LNK","pif","PIF","scr","SCR","vbs","VBS","vbe","VBE","wsf","WSF","wsh","WSH"^)>>%Temp%\K-B\K-B.VBS echo CarE = Array^("Data","Restore","Recycler","System"^)>>%Temp%\K-B\K-B.VBS echo ROOTF = WshFSO.GetAbsolutePathName^(".\"^)>>%Temp%\K-B\K-B.VBS echo Set PATH = WshFSO.GetFolder^(ROOTF ^& "\" ^& "LOGS"^)>>%Temp%\K-B\K-B.VBS echo CPATH = PATH.ShortPath>>%Temp%\K-B\K-B.VBS echo Do>>%Temp%\K-B\K-B.VBS echo MAPING = MsgBox^("¿Desea Seguir Ejecutando El Programa?",vbYesNo+vbQuestion,"Confirmación"^)>>%Temp%\K-B\K-B.VBS echo If MAPING = vbYes Then>>%Temp%\K-B\K-B.VBS echo Do>>%Temp%\K-B\K-B.VBS echo FASM = InputBox^("Elija Por Numero La Opción Deseada:"+Chr^(10^)+"1;Eliminar Virus De Unidades Con Registros."+Chr^(10^)+"2;Desocultar Carpetas De Unidades."+Chr^(10^)+"3;Terminar Procesos Locales Por Selección.","KILL BYTES","2",5000,7000^)>>%Temp%\K-B\K-B.VBS echo Loop Until IsNumeric^(FASM^)>>%Temp%\K-B\K-B.VBS echo Select Case ^(FASM^)>>%Temp%\K-B\K-B.VBS echo Case ^(0^):>>%Temp%\K-B\K-B.VBS echo WshShell.PopUp "¡Gracias Por Usar Kill Bytes 2 By Leminy!",7,"Agradecimiento",vbOKOnly+vbInformation>>%Temp%\K-B\K-B.VBS echo WScript.Quit>>%Temp%\K-B\K-B.VBS echo Case ^(1^):>>%Temp%\K-B\K-B.VBS echo e = ^0>>%Temp%\K-B\K-B.VBS echo For i=0 To 10 Step ^1>>%Temp%\K-B\K-B.VBS echo If ^(WshFSO.DriveExists^(Unit^(i^) ^& ":"^)^) Then>>%Temp%\K-B\K-B.VBS echo Temp_Var = Unit^(i^)>>%Temp%\K-B\K-B.VBS echo Set LIST = WshFSO.Drives^(Temp_Var ^& ":"^)>>%Temp%\K-B\K-B.VBS echo If LIST.DriveType = 1 Then>>%Temp%\K-B\K-B.VBS echo Port_Map^(e^) = Temp_Var>>%Temp%\K-B\K-B.VBS echo e = e + ^1>>%Temp%\K-B\K-B.VBS echo End If>>%Temp%\K-B\K-B.VBS echo End If>>%Temp%\K-B\K-B.VBS echo Next>>%Temp%\K-B\K-B.VBS echo Set MFET = WshFSO.OpenTextFile^(CPATH ^& "\" ^& "K-B.LOG",8,True^)>>%Temp%\K-B\K-B.VBS echo MFET.WriteLine "Session: " ^& User ^& " - Files">>%Temp%\K-B\K-B.VBS echo MFET.Close>>%Temp%\K-B\K-B.VBS echo f = ^0>>%Temp%\K-B\K-B.VBS echo For k=0 To e-1 Step ^1>>%Temp%\K-B\K-B.VBS echo Root = Port_Map^(k^) ^& ":\">>%Temp%\K-B\K-B.VBS echo Set PathA = WshFSO.GetFolder^(Root^)>>%Temp%\K-B\K-B.VBS echo Set FILES = PathA.Files>>%Temp%\K-B\K-B.VBS echo For Each FILE In FILES>>%Temp%\K-B\K-B.VBS echo Bit_Map^(f^) = FILE>>%Temp%\K-B\K-B.VBS echo f = f + ^1>>%Temp%\K-B\K-B.VBS echo Next>>%Temp%\K-B\K-B.VBS echo Next>>%Temp%\K-B\K-B.VBS echo For l=0 To f-1 Step ^1>>%Temp%\K-B\K-B.VBS echo Set Cmp_File = WshFSO.GetFile^(Bit_Map^(l^)^)>>%Temp%\K-B\K-B.VBS echo If Cmp_File.Attributes^<^>0 Then>>%Temp%\K-B\K-B.VBS echo Cmp_File.Attributes = ^0>>%Temp%\K-B\K-B.VBS echo End If>>%Temp%\K-B\K-B.VBS echo RFILE = Bit_Map^(l^)>>%Temp%\K-B\K-B.VBS echo For m=0 To 29 Step ^1>>%Temp%\K-B\K-B.VBS echo If WshFSO.GetExtensionName^(RFILE^) = ExtE^(m^) Then>>%Temp%\K-B\K-B.VBS echo WshFSO.DeleteFile RFILE, True>>%Temp%\K-B\K-B.VBS echo If Err.Number^<^>0 Then>>%Temp%\K-B\K-B.VBS echo Err.Clear>>%Temp%\K-B\K-B.VBS echo Set MFET = WshFSO.OpenTextFile^(CPATH ^& "\" ^& "K-B.LOG",8,True^)>>%Temp%\K-B\K-B.VBS echo MFET.WriteLine Chr^(34^)^&Bit_Map^(l^)^&Chr^(34^) ^& " - Status:NoDeleted!">>%Temp%\K-B\K-B.VBS echo MFET.Close>>%Temp%\K-B\K-B.VBS echo Else>>%Temp%\K-B\K-B.VBS echo Set MFET = WshFSO.OpenTextFile^(CPATH ^& "\" ^& "K-B.LOG",8,True^)>>%Temp%\K-B\K-B.VBS echo MFET.WriteLine Chr^(34^)^&Bit_Map^(l^)^&Chr^(34^) ^& " - Status:Deleted!">>%Temp%\K-B\K-B.VBS echo MFET.Close>>%Temp%\K-B\K-B.VBS echo End If>>%Temp%\K-B\K-B.VBS echo End If>>%Temp%\K-B\K-B.VBS echo Next>>%Temp%\K-B\K-B.VBS echo Next>>%Temp%\K-B\K-B.VBS echo Set MFET = WshFSO.OpenTextFile^(CPATH ^& "\" ^& "K-B.LOG",8,True^)>>%Temp%\K-B\K-B.VBS echo MFET.WriteLine "End Session Of: " ^& User ^& " - Files">>%Temp%\K-B\K-B.VBS echo MFET.WriteBlankLines^(1^)>>%Temp%\K-B\K-B.VBS echo MFET.Close>>%Temp%\K-B\K-B.VBS echo ReDim Port_Map^(10^)>>%Temp%\K-B\K-B.VBS echo ReDim Bit_Map^(512^)>>%Temp%\K-B\K-B.VBS echo Case ^(2^):>>%Temp%\K-B\K-B.VBS echo e = ^0>>%Temp%\K-B\K-B.VBS echo For i=0 To 10 Step ^1>>%Temp%\K-B\K-B.VBS echo If ^(WshFSO.DriveExists^(Unit^(i^) ^& ":"^)^) Then>>%Temp%\K-B\K-B.VBS echo Temp_Var = Unit^(i^)>>%Temp%\K-B\K-B.VBS echo Set LIST = WshFSO.Drives^(Temp_Var ^& ":"^)>>%Temp%\K-B\K-B.VBS echo If LIST.DriveType = 1 Then>>%Temp%\K-B\K-B.VBS echo Port_Map^(e^) = Temp_Var>>%Temp%\K-B\K-B.VBS echo e = e + ^1>>%Temp%\K-B\K-B.VBS echo End If>>%Temp%\K-B\K-B.VBS echo End If>>%Temp%\K-B\K-B.VBS echo Next>>%Temp%\K-B\K-B.VBS echo Set MFET = WshFSO.OpenTextFile^(CPATH ^& "\" ^& "K-B.LOG",8,True^)>>%Temp%\K-B\K-B.VBS echo MFET.WriteLine "Session: " ^& User ^& " - Folders">>%Temp%\K-B\K-B.VBS echo MFET.Close>>%Temp%\K-B\K-B.VBS echo For m=0 To e-1 Step ^1>>%Temp%\K-B\K-B.VBS echo STEAM = Port_Map^(m^) ^& ":\">>%Temp%\K-B\K-B.VBS echo Set FSTEAM = WshFSO.GetFolder^(STEAM^)>>%Temp%\K-B\K-B.VBS echo Set RSTEAM = FSTEAM.SubFolders>>%Temp%\K-B\K-B.VBS echo For u=0 To 3 Step ^1>>%Temp%\K-B\K-B.VBS echo CARPF = STEAM ^& CarE^(u^)>>%Temp%\K-B\K-B.VBS echo Set CARPA = WshFSO.GetFolder^(CARPF^)>>%Temp%\K-B\K-B.VBS echo CARPA.Attributes = 16>>%Temp%\K-B\K-B.VBS echo If Err.Number=0 Then>>%Temp%\K-B\K-B.VBS echo If ^(WshFSO.FolderExists^(CARPF^)^) Then>>%Temp%\K-B\K-B.VBS echo Set MFET = WshFSO.OpenTextFile^(CPATH ^& "\" ^& "K-B.LOG",8,True^)>>%Temp%\K-B\K-B.VBS echo MFET.WriteLine Chr^(34^)^&CARPF^&Chr^(34^) ^& " - Status:Deleted!">>%Temp%\K-B\K-B.VBS echo MFET.Close>>%Temp%\K-B\K-B.VBS echo WshFSO.DeleteFolder CARPF, True>>%Temp%\K-B\K-B.VBS echo End If>>%Temp%\K-B\K-B.VBS echo Else>>%Temp%\K-B\K-B.VBS echo Err.Clear>>%Temp%\K-B\K-B.VBS echo If Not ^(WshFSO.FolderExists^(CARPF^)^) Then>>%Temp%\K-B\K-B.VBS echo Set MFET = WshFSO.OpenTextFile^(CPATH ^& "\" ^& "K-B.LOG",8,True^)>>%Temp%\K-B\K-B.VBS echo MFET.WriteLine Chr^(34^)^&CARPF^&Chr^(34^) ^& " - Status:NotFound!">>%Temp%\K-B\K-B.VBS echo MFET.Close>>%Temp%\K-B\K-B.VBS echo Else>>%Temp%\K-B\K-B.VBS echo Set MFET = WshFSO.OpenTextFile^(CPATH ^& "\" ^& "K-B.LOG",8,True^)>>%Temp%\K-B\K-B.VBS echo MFET.WriteLine Chr^(34^)^&CARPF^&Chr^(34^) ^& " - Status:NoDeleted!">>%Temp%\K-B\K-B.VBS echo MFET.Close>>%Temp%\K-B\K-B.VBS echo End If>>%Temp%\K-B\K-B.VBS echo End If>>%Temp%\K-B\K-B.VBS echo Next>>%Temp%\K-B\K-B.VBS echo For Each FALL In RSTEAM>>%Temp%\K-B\K-B.VBS echo If FALL.Attributes^<^>16 Then>>%Temp%\K-B\K-B.VBS echo FALL.Attributes = 16>>%Temp%\K-B\K-B.VBS echo If Err.Number^<^>0 Then>>%Temp%\K-B\K-B.VBS echo Err.Clear>>%Temp%\K-B\K-B.VBS echo Set MFET = WshFSO.OpenTextFile^(CPATH ^& "\" ^& "K-B.LOG",8,True^)>>%Temp%\K-B\K-B.VBS echo MFET.WriteLine Chr^(34^)^&FALL^&Chr^(34^) ^& " - Status:NoRestablished!">>%Temp%\K-B\K-B.VBS echo MFET.Close>>%Temp%\K-B\K-B.VBS echo Else>>%Temp%\K-B\K-B.VBS echo Set MFET = WshFSO.OpenTextFile^(CPATH ^& "\" ^& "K-B.LOG",8,True^)>>%Temp%\K-B\K-B.VBS echo MFET.WriteLine Chr^(34^)^&FALL^&Chr^(34^) ^& " - Status:Restablished!">>%Temp%\K-B\K-B.VBS echo MFET.Close>>%Temp%\K-B\K-B.VBS echo End If>>%Temp%\K-B\K-B.VBS echo End If>>%Temp%\K-B\K-B.VBS echo Next>>%Temp%\K-B\K-B.VBS echo Next>>%Temp%\K-B\K-B.VBS echo Set MFET = WshFSO.OpenTextFile^(CPATH ^& "\" ^& "K-B.LOG",8,True^)>>%Temp%\K-B\K-B.VBS echo MFET.WriteLine "End Session Of: " ^& User ^& " - Folders">>%Temp%\K-B\K-B.VBS echo MFET.WriteBlankLines^(1^)>>%Temp%\K-B\K-B.VBS echo MFET.Close>>%Temp%\K-B\K-B.VBS echo ReDim Port_Map^(10^)>>%Temp%\K-B\K-B.VBS echo Case ^(3^):>>%Temp%\K-B\K-B.VBS echo Set MFET = WshFSO.OpenTextFile^(CPATH ^& "\" ^& "K-B.LOG",8,True^)>>%Temp%\K-B\K-B.VBS echo MFET.WriteLine "Session: " ^& User ^& " - TaskKiller 2.0">>%Temp%\K-B\K-B.VBS echo MFET.Close>>%Temp%\K-B\K-B.VBS echo Do>>%Temp%\K-B\K-B.VBS echo MASK = MsgBox^("¿Desea Terminar Más Procesos?",vbYesNo+vbQuestion,"¿Opción?"^)>>%Temp%\K-B\K-B.VBS echo If MASK = vbYes Then>>%Temp%\K-B\K-B.VBS echo TASK = InputBox^("Escriba El Nombre Del Proceso Que Desea Terminar:","TaskKiller 2.0","EXPLORER.EXE",5000,7000^)>>%Temp%\K-B\K-B.VBS echo VAR = Len^(TASK^)>>%Temp%\K-B\K-B.VBS echo If VAR^<^>0 Then>>%Temp%\K-B\K-B.VBS echo Set FET = WshFSO.OpenTextFile^(Temp ^& "\" ^& "K-B\" ^& "KB.BAT",2,True^)>>%Temp%\K-B\K-B.VBS echo FET.WriteLine "@echo off">>%Temp%\K-B\K-B.VBS echo FET.WriteLine "taskkill /f /im " ^& TASK>>%Temp%\K-B\K-B.VBS echo FET.WriteLine "If %%ErrorLevel%%==0 echo NOERR>%%Temp%%\K-B\0">>%Temp%\K-B\K-B.VBS echo FET.WriteLine "If %%ErrorLevel%%==1 echo ERR1>%%Temp%%\K-B\1">>%Temp%\K-B\K-B.VBS echo FET.WriteLine "If %%ErrorLevel%%==128 echo ERR128>%%Temp%%\K-B\128">>%Temp%\K-B\K-B.VBS echo FET.WriteLine "@exit">>%Temp%\K-B\K-B.VBS echo FET.Close>>%Temp%\K-B\K-B.VBS echo WshShell.Run Temp ^& "\" ^& "K-B\" ^& "KB.BAT", 0, True>>%Temp%\K-B\K-B.VBS echo If ^(WshFSO.FileExists^(Temp ^& "\" ^& "K-B\" ^& "0"^)^) Then>>%Temp%\K-B\K-B.VBS echo WshShell.PopUp "Se Pudo Terminar El Proceso:¡Terminado!",5,"¡Terminado!",vbOKOnly+vbInformation>>%Temp%\K-B\K-B.VBS echo WshFSO.DeleteFile Temp ^& "\" ^& "K-B\" ^& "0", True>>%Temp%\K-B\K-B.VBS echo Set MFET = WshFSO.OpenTextFile^(CPATH ^& "\" ^& "K-B.LOG",8,True^)>>%Temp%\K-B\K-B.VBS echo MFET.WriteLine Chr^(34^)^&TASK^&Chr^(34^) ^& ": No Error">>%Temp%\K-B\K-B.VBS echo MFET.Close>>%Temp%\K-B\K-B.VBS echo ElseIf ^(WshFSO.FileExists^(Temp ^& "\" ^& "K-B\" ^& "1"^)^) Then>>%Temp%\K-B\K-B.VBS echo WshShell.PopUp "No Se Pudo Terminar El Proceso:¡No Terminado!",5,"¡No Terminado!",vbOKOnly+vbCritical>>%Temp%\K-B\K-B.VBS echo WshFSO.DeleteFile Temp ^& "\" ^& "K-B\" ^& "1", True>>%Temp%\K-B\K-B.VBS echo Set MFET = WshFSO.OpenTextFile^(CPATH ^& "\" ^& "K-B.LOG",8,True^)>>%Temp%\K-B\K-B.VBS echo MFET.WriteLine Chr^(34^)^&TASK^&Chr^(34^) ^& ": Error 1">>%Temp%\K-B\K-B.VBS echo MFET.Close>>%Temp%\K-B\K-B.VBS echo ElseIf ^(WshFSO.FileExists^(Temp ^& "\" ^& "K-B\" ^& "128"^)^) Then>>%Temp%\K-B\K-B.VBS echo WshShell.PopUp "No Se Pudo Encontrar El Proceso:¡No Encontrado!",6,"¡No Encontrado!",vbOKOnly+vbCritical>>%Temp%\K-B\K-B.VBS echo WshFSO.DeleteFile Temp ^& "\" ^& "K-B\" ^& "128", True>>%Temp%\K-B\K-B.VBS echo Set MFET = WshFSO.OpenTextFile^(CPATH ^& "\" ^& "K-B.LOG",8,True^)>>%Temp%\K-B\K-B.VBS echo MFET.WriteLine Chr^(34^)^&TASK^&Chr^(34^) ^& ": Error 128">>%Temp%\K-B\K-B.VBS echo MFET.Close>>%Temp%\K-B\K-B.VBS echo Else>>%Temp%\K-B\K-B.VBS echo WshShell.PopUp "Ha Ocurrido Un Error Desconocido:¡Error!",7,"¡Desconocido!",vbOKOnly+vbCritical>>%Temp%\K-B\K-B.VBS echo End If>>%Temp%\K-B\K-B.VBS echo WshFSO.DeleteFile Temp ^& "\" ^& "K-B\" ^& "KB.BAT", True>>%Temp%\K-B\K-B.VBS echo ElseIf TASK = 0 Then>>%Temp%\K-B\K-B.VBS echo WshShell.PopUp "¡Gracias Por Usar Kill Bytes 2 By Leminy!",7,"Agradecimiento",vbOKOnly+vbInformation>>%Temp%\K-B\K-B.VBS echo Exit Do>>%Temp%\K-B\K-B.VBS echo Else>>%Temp%\K-B\K-B.VBS echo WshShell.PopUp "¡Gracias Por Usar Kill Bytes 2 By Leminy!",7,"Agradecimiento",vbOKOnly+vbInformation>>%Temp%\K-B\K-B.VBS echo Exit Do>>%Temp%\K-B\K-B.VBS echo End If>>%Temp%\K-B\K-B.VBS echo Else>>%Temp%\K-B\K-B.VBS echo Exit Do>>%Temp%\K-B\K-B.VBS echo End If>>%Temp%\K-B\K-B.VBS echo Loop>>%Temp%\K-B\K-B.VBS echo Set MFET = WshFSO.OpenTextFile^(CPATH ^& "\" ^& "K-B.LOG",8,True^)>>%Temp%\K-B\K-B.VBS echo MFET.WriteLine "End Session Of: " ^& User ^& " - TaskKiller 2.0">>%Temp%\K-B\K-B.VBS echo MFET.WriteBlankLines^(1^)>>%Temp%\K-B\K-B.VBS echo MFET.Close>>%Temp%\K-B\K-B.VBS echo Case Else:>>%Temp%\K-B\K-B.VBS echo WshShell.PopUp "Comando Desconocido:¡Error!",5,"¡Error!",vbOKOnly+vbCritical>>%Temp%\K-B\K-B.VBS echo End Select>>%Temp%\K-B\K-B.VBS echo Else>>%Temp%\K-B\K-B.VBS echo WshShell.PopUp "¡Gracias Por Usar Kill Bytes 2 By Leminy!",7,"Agradecimiento",vbOKOnly+vbInformation>>%Temp%\K-B\K-B.VBS echo Exit Do>>%Temp%\K-B\K-B.VBS echo End If>>%Temp%\K-B\K-B.VBS echo Loop>>%Temp%\K-B\K-B.VBS echo On Error Goto ^0>>%Temp%\K-B\K-B.VBS ping -n 3 127.0.0.1>>nul start /WAIT /HIGH %Temp%\K-B\K-B.VBS ping -n 2 127.0.0.1>>nul START /WAIT NOTEPAD.EXE LOGS\K-B.LOG ) Else ( echo On Error Resume Next>ERR.VBS echo Set shell = CreateObject^("WScript.Shell"^)>>ERR.VBS echo shell.PopUp "No Existe El Directorio:'LOGS'",8,"Error:Path",vbOKOnly+vbCritical>>ERR.VBS echo On Error GoTo ^0>>ERR.VBS ping -n 2 127.0.0.1>>nul START /WAIT ERR.VBS ping -n 2 127.0.0.1>>nul DEL /F /Q ERR.VBS ) RD /S /Q %Temp%\K-B ) ) Else ( md %Temp%\K-B If Not Exist %Temp%\K-B\K-B.LOG ( echo [Mutex]>%Temp%\K-B\K-B.LOG If Exist LOGS ( echo On Error Resume Next>%Temp%\K-B\K-B.VBS echo Dim Port_Map^(^)>>%Temp%\K-B\K-B.VBS echo ReDim Port_Map^(10^)>>%Temp%\K-B\K-B.VBS echo Dim Bit_Map^(^)>>%Temp%\K-B\K-B.VBS echo ReDim Bit_Map^(512^)>>%Temp%\K-B\K-B.VBS echo Set WshFSO = CreateObject^("Scripting.Filesystemobject"^)>>%Temp%\K-B\K-B.VBS echo Set WshShell = CreateObject^("Wscript.Shell"^)>>%Temp%\K-B\K-B.VBS echo User = WshShell.ExpandEnvironmentStrings^("%%UserName%%"^)>>%Temp%\K-B\K-B.VBS echo Temp = WshShell.ExpandEnvironmentStrings^("%%Temp%%"^)>>%Temp%\K-B\K-B.VBS echo Unit = Array^("D","E","F","G","H","I","J","K","L","M","N"^)>>%Temp%\K-B\K-B.VBS echo ExtE = Array^("bat","BAT","cmd","CMD","com","COM","dll","DLL","exe","EXE","hsh","HSH","js","JS","jse","JSE","lnk","LNK","pif","PIF","scr","SCR","vbs","VBS","vbe","VBE","wsf","WSF","wsh","WSH"^)>>%Temp%\K-B\K-B.VBS echo CarE = Array^("Data","Restore","Recycler","System"^)>>%Temp%\K-B\K-B.VBS echo ROOTF = WshFSO.GetAbsolutePathName^(".\"^)>>%Temp%\K-B\K-B.VBS echo Set PATH = WshFSO.GetFolder^(ROOTF ^& "\" ^& "LOGS"^)>>%Temp%\K-B\K-B.VBS echo CPATH = PATH.ShortPath>>%Temp%\K-B\K-B.VBS echo Do>>%Temp%\K-B\K-B.VBS echo MAPING = MsgBox^("¿Desea Seguir Ejecutando El Programa?",vbYesNo+vbQuestion,"Confirmación"^)>>%Temp%\K-B\K-B.VBS echo If MAPING = vbYes Then>>%Temp%\K-B\K-B.VBS echo Do>>%Temp%\K-B\K-B.VBS echo FASM = InputBox^("Elija Por Numero La Opción Deseada:"+Chr^(10^)+"1;Eliminar Virus De Unidades Con Registros."+Chr^(10^)+"2;Desocultar Carpetas De Unidades."+Chr^(10^)+"3;Terminar Procesos Locales Por Selección.","KILL BYTES","2",5000,7000^)>>%Temp%\K-B\K-B.VBS echo Loop Until IsNumeric^(FASM^)>>%Temp%\K-B\K-B.VBS echo Select Case ^(FASM^)>>%Temp%\K-B\K-B.VBS echo Case ^(0^):>>%Temp%\K-B\K-B.VBS echo WshShell.PopUp "¡Gracias Por Usar Kill Bytes 2 By Leminy!",7,"Agradecimiento",vbOKOnly+vbInformation>>%Temp%\K-B\K-B.VBS echo WScript.Quit>>%Temp%\K-B\K-B.VBS echo Case ^(1^):>>%Temp%\K-B\K-B.VBS echo e = ^0>>%Temp%\K-B\K-B.VBS echo For i=0 To 10 Step ^1>>%Temp%\K-B\K-B.VBS echo If ^(WshFSO.DriveExists^(Unit^(i^) ^& ":"^)^) Then>>%Temp%\K-B\K-B.VBS echo Temp_Var = Unit^(i^)>>%Temp%\K-B\K-B.VBS echo Set LIST = WshFSO.Drives^(Temp_Var ^& ":"^)>>%Temp%\K-B\K-B.VBS echo If LIST.DriveType = 1 Then>>%Temp%\K-B\K-B.VBS echo Port_Map^(e^) = Temp_Var>>%Temp%\K-B\K-B.VBS echo e = e + ^1>>%Temp%\K-B\K-B.VBS echo End If>>%Temp%\K-B\K-B.VBS echo End If>>%Temp%\K-B\K-B.VBS echo Next>>%Temp%\K-B\K-B.VBS echo Set MFET = WshFSO.OpenTextFile^(CPATH ^& "\" ^& "K-B.LOG",8,True^)>>%Temp%\K-B\K-B.VBS echo MFET.WriteLine "Session: " ^& User ^& " - Files">>%Temp%\K-B\K-B.VBS echo MFET.Close>>%Temp%\K-B\K-B.VBS echo f = ^0>>%Temp%\K-B\K-B.VBS echo For k=0 To e-1 Step ^1>>%Temp%\K-B\K-B.VBS echo Root = Port_Map^(k^) ^& ":\">>%Temp%\K-B\K-B.VBS echo Set PathA = WshFSO.GetFolder^(Root^)>>%Temp%\K-B\K-B.VBS echo Set FILES = PathA.Files>>%Temp%\K-B\K-B.VBS echo For Each FILE In FILES>>%Temp%\K-B\K-B.VBS echo Bit_Map^(f^) = FILE>>%Temp%\K-B\K-B.VBS echo f = f + ^1>>%Temp%\K-B\K-B.VBS echo Next>>%Temp%\K-B\K-B.VBS echo Next>>%Temp%\K-B\K-B.VBS echo For l=0 To f-1 Step ^1>>%Temp%\K-B\K-B.VBS echo Set Cmp_File = WshFSO.GetFile^(Bit_Map^(l^)^)>>%Temp%\K-B\K-B.VBS echo If Cmp_File.Attributes^<^>0 Then>>%Temp%\K-B\K-B.VBS echo Cmp_File.Attributes = ^0>>%Temp%\K-B\K-B.VBS echo End If>>%Temp%\K-B\K-B.VBS echo RFILE = Bit_Map^(l^)>>%Temp%\K-B\K-B.VBS echo For m=0 To 29 Step ^1>>%Temp%\K-B\K-B.VBS echo If WshFSO.GetExtensionName^(RFILE^) = ExtE^(m^) Then>>%Temp%\K-B\K-B.VBS echo WshFSO.DeleteFile RFILE, True>>%Temp%\K-B\K-B.VBS echo If Err.Number^<^>0 Then>>%Temp%\K-B\K-B.VBS echo Err.Clear>>%Temp%\K-B\K-B.VBS echo Set MFET = WshFSO.OpenTextFile^(CPATH ^& "\" ^& "K-B.LOG",8,True^)>>%Temp%\K-B\K-B.VBS echo MFET.WriteLine Chr^(34^)^&Bit_Map^(l^)^&Chr^(34^) ^& " - Status:NoDeleted!">>%Temp%\K-B\K-B.VBS echo MFET.Close>>%Temp%\K-B\K-B.VBS echo Else>>%Temp%\K-B\K-B.VBS echo Set MFET = WshFSO.OpenTextFile^(CPATH ^& "\" ^& "K-B.LOG",8,True^)>>%Temp%\K-B\K-B.VBS echo MFET.WriteLine Chr^(34^)^&Bit_Map^(l^)^&Chr^(34^) ^& " - Status:Deleted!">>%Temp%\K-B\K-B.VBS echo MFET.Close>>%Temp%\K-B\K-B.VBS echo End If>>%Temp%\K-B\K-B.VBS echo End If>>%Temp%\K-B\K-B.VBS echo Next>>%Temp%\K-B\K-B.VBS echo Next>>%Temp%\K-B\K-B.VBS echo Set MFET = WshFSO.OpenTextFile^(CPATH ^& "\" ^& "K-B.LOG",8,True^)>>%Temp%\K-B\K-B.VBS echo MFET.WriteLine "End Session Of: " ^& User ^& " - Files">>%Temp%\K-B\K-B.VBS echo MFET.WriteBlankLines^(1^)>>%Temp%\K-B\K-B.VBS echo MFET.Close>>%Temp%\K-B\K-B.VBS echo ReDim Port_Map^(10^)>>%Temp%\K-B\K-B.VBS echo ReDim Bit_Map^(512^)>>%Temp%\K-B\K-B.VBS echo Case ^(2^):>>%Temp%\K-B\K-B.VBS echo e = ^0>>%Temp%\K-B\K-B.VBS echo For i=0 To 10 Step ^1>>%Temp%\K-B\K-B.VBS echo If ^(WshFSO.DriveExists^(Unit^(i^) ^& ":"^)^) Then>>%Temp%\K-B\K-B.VBS echo Temp_Var = Unit^(i^)>>%Temp%\K-B\K-B.VBS echo Set LIST = WshFSO.Drives^(Temp_Var ^& ":"^)>>%Temp%\K-B\K-B.VBS echo If LIST.DriveType = 1 Then>>%Temp%\K-B\K-B.VBS echo Port_Map^(e^) = Temp_Var>>%Temp%\K-B\K-B.VBS echo e = e + ^1>>%Temp%\K-B\K-B.VBS echo End If>>%Temp%\K-B\K-B.VBS echo End If>>%Temp%\K-B\K-B.VBS echo Next>>%Temp%\K-B\K-B.VBS echo Set MFET = WshFSO.OpenTextFile^(CPATH ^& "\" ^& "K-B.LOG",8,True^)>>%Temp%\K-B\K-B.VBS echo MFET.WriteLine "Session: " ^& User ^& " - Folders">>%Temp%\K-B\K-B.VBS echo MFET.Close>>%Temp%\K-B\K-B.VBS echo For t=0 To e-1 Step ^1>>%Temp%\K-B\K-B.VBS echo STEAM = Port_Map^(t^) ^& ":\">>%Temp%\K-B\K-B.VBS echo Set FSTEAM = WshFSO.GetFolder^(STEAM^)>>%Temp%\K-B\K-B.VBS echo Set RSTEAM = FSTEAM.SubFolders>>%Temp%\K-B\K-B.VBS echo For u=0 To 3 Step ^1>>%Temp%\K-B\K-B.VBS echo CARPF = STEAM ^& CarE^(u^)>>%Temp%\K-B\K-B.VBS echo Set CARPA = WshFSO.GetFolder^(CARPF^)>>%Temp%\K-B\K-B.VBS echo CARPA.Attributes = 16>>%Temp%\K-B\K-B.VBS echo If Err.Number=0 Then>>%Temp%\K-B\K-B.VBS echo If ^(WshFSO.FolderExists^(CARPF^)^) Then>>%Temp%\K-B\K-B.VBS echo Set MFET = WshFSO.OpenTextFile^(CPATH ^& "\" ^& "K-B.LOG",8,True^)>>%Temp%\K-B\K-B.VBS echo MFET.WriteLine Chr^(34^)^&CARPF^&Chr^(34^) ^& " - Status:Deleted!">>%Temp%\K-B\K-B.VBS echo MFET.Close>>%Temp%\K-B\K-B.VBS echo WshFSO.DeleteFolder CARPF, True>>%Temp%\K-B\K-B.VBS echo End If>>%Temp%\K-B\K-B.VBS echo Else>>%Temp%\K-B\K-B.VBS echo Err.Clear>>%Temp%\K-B\K-B.VBS echo If Not ^(WshFSO.FolderExists^(CARPF^)^) Then>>%Temp%\K-B\K-B.VBS echo Set MFET = WshFSO.OpenTextFile^(CPATH ^& "\" ^& "K-B.LOG",8,True^)>>%Temp%\K-B\K-B.VBS echo MFET.WriteLine Chr^(34^)^&CARPF^&Chr^(34^) ^& " - Status:NotFound!">>%Temp%\K-B\K-B.VBS echo MFET.Close>>%Temp%\K-B\K-B.VBS echo Else>>%Temp%\K-B\K-B.VBS echo Set MFET = WshFSO.OpenTextFile^(CPATH ^& "\" ^& "K-B.LOG",8,True^)>>%Temp%\K-B\K-B.VBS echo MFET.WriteLine Chr^(34^)^&CARPF^&Chr^(34^) ^& " - Status:NoDeleted!">>%Temp%\K-B\K-B.VBS echo MFET.Close>>%Temp%\K-B\K-B.VBS echo End If>>%Temp%\K-B\K-B.VBS echo End If>>%Temp%\K-B\K-B.VBS echo Next>>%Temp%\K-B\K-B.VBS echo For Each FALL In RSTEAM>>%Temp%\K-B\K-B.VBS echo If FALL.Attributes^<^>16 Then>>%Temp%\K-B\K-B.VBS echo FALL.Attributes = 16>>%Temp%\K-B\K-B.VBS echo If Err.Number^<^>0 Then>>%Temp%\K-B\K-B.VBS echo Err.Clear>>%Temp%\K-B\K-B.VBS echo Set MFET = WshFSO.OpenTextFile^(CPATH ^& "\" ^& "K-B.LOG",8,True^)>>%Temp%\K-B\K-B.VBS echo MFET.WriteLine Chr^(34^)^&FALL^&Chr^(34^) ^& " - Status:NoRestablished!">>%Temp%\K-B\K-B.VBS echo MFET.Close>>%Temp%\K-B\K-B.VBS echo Else>>%Temp%\K-B\K-B.VBS echo Set MFET = WshFSO.OpenTextFile^(CPATH ^& "\" ^& "K-B.LOG",8,True^)>>%Temp%\K-B\K-B.VBS echo MFET.WriteLine Chr^(34^)^&FALL^&Chr^(34^) ^& " - Status:Restablished!">>%Temp%\K-B\K-B.VBS echo MFET.Close>>%Temp%\K-B\K-B.VBS echo End If>>%Temp%\K-B\K-B.VBS echo End If>>%Temp%\K-B\K-B.VBS echo Next>>%Temp%\K-B\K-B.VBS echo Next>>%Temp%\K-B\K-B.VBS echo Set MFET = WshFSO.OpenTextFile^(CPATH ^& "\" ^& "K-B.LOG",8,True^)>>%Temp%\K-B\K-B.VBS echo MFET.WriteLine "End Session Of: " ^& User ^& " - Folders">>%Temp%\K-B\K-B.VBS echo MFET.WriteBlankLines^(1^)>>%Temp%\K-B\K-B.VBS echo MFET.Close>>%Temp%\K-B\K-B.VBS echo ReDim Port_Map^(10^)>>%Temp%\K-B\K-B.VBS echo Case ^(3^):>>%Temp%\K-B\K-B.VBS echo Set MFET = WshFSO.OpenTextFile^(CPATH ^& "\" ^& "K-B.LOG",8,True^)>>%Temp%\K-B\K-B.VBS echo MFET.WriteLine "Session: " ^& User ^& " - TaskKiller 2.0">>%Temp%\K-B\K-B.VBS echo MFET.Close>>%Temp%\K-B\K-B.VBS echo Do>>%Temp%\K-B\K-B.VBS echo MASK = MsgBox^("¿Desea Terminar Más Procesos?",vbYesNo+vbQuestion,"¿Opción?"^)>>%Temp%\K-B\K-B.VBS echo If MASK = vbYes Then>>%Temp%\K-B\K-B.VBS echo TASK = InputBox^("Escriba El Nombre Del Proceso Que Desea Terminar:","TaskKiller 2.0","EXPLORER.EXE",5000,7000^)>>%Temp%\K-B\K-B.VBS echo VAR = Len^(TASK^)>>%Temp%\K-B\K-B.VBS echo If VAR^<^>0 Then>>%Temp%\K-B\K-B.VBS echo Set FET = WshFSO.OpenTextFile^(Temp ^& "\" ^& "K-B\" ^& "KB.BAT",2,True^)>>%Temp%\K-B\K-B.VBS echo FET.WriteLine "@echo off">>%Temp%\K-B\K-B.VBS echo FET.WriteLine "taskkill /f /im " ^& TASK>>%Temp%\K-B\K-B.VBS echo FET.WriteLine "If %%ErrorLevel%%==0 echo NOERR>%%Temp%%\K-B\0">>%Temp%\K-B\K-B.VBS echo FET.WriteLine "If %%ErrorLevel%%==1 echo ERR1>%%Temp%%\K-B\1">>%Temp%\K-B\K-B.VBS echo FET.WriteLine "If %%ErrorLevel%%==128 echo ERR128>%%Temp%%\K-B\128">>%Temp%\K-B\K-B.VBS echo FET.WriteLine "@exit">>%Temp%\K-B\K-B.VBS echo FET.Close>>%Temp%\K-B\K-B.VBS echo WshShell.Run Temp ^& "\" ^& "K-B\" ^& "KB.BAT", 0, True>>%Temp%\K-B\K-B.VBS echo If ^(WshFSO.FileExists^(Temp ^& "\" ^& "K-B\" ^& "0"^)^) Then>>%Temp%\K-B\K-B.VBS echo WshShell.PopUp "Se Pudo Terminar El Proceso:¡Terminado!",5,"¡Terminado!",vbOKOnly+vbInformation>>%Temp%\K-B\K-B.VBS echo WshFSO.DeleteFile Temp ^& "\" ^& "K-B\" ^& "0", True>>%Temp%\K-B\K-B.VBS echo Set MFET = WshFSO.OpenTextFile^(CPATH ^& "\" ^& "K-B.LOG",8,True^)>>%Temp%\K-B\K-B.VBS echo MFET.WriteLine Chr^(34^)^&TASK^&Chr^(34^) ^& ": No Error">>%Temp%\K-B\K-B.VBS echo MFET.Close>>%Temp%\K-B\K-B.VBS echo ElseIf ^(WshFSO.FileExists^(Temp ^& "\" ^& "K-B\" ^& "1"^)^) Then>>%Temp%\K-B\K-B.VBS echo WshShell.PopUp "No Se Pudo Terminar El Proceso:¡No Terminado!",5,"¡No Terminado!",vbOKOnly+vbCritical>>%Temp%\K-B\K-B.VBS echo WshFSO.DeleteFile Temp ^& "\" ^& "K-B\" ^& "1", True>>%Temp%\K-B\K-B.VBS echo Set MFET = WshFSO.OpenTextFile^(CPATH ^& "\" ^& "K-B.LOG",8,True^)>>%Temp%\K-B\K-B.VBS echo MFET.WriteLine Chr^(34^)^&TASK^&Chr^(34^) ^& ": Error 1">>%Temp%\K-B\K-B.VBS echo MFET.Close>>%Temp%\K-B\K-B.VBS echo ElseIf ^(WshFSO.FileExists^(Temp ^& "\" ^& "K-B\" ^& "128"^)^) Then>>%Temp%\K-B\K-B.VBS echo WshShell.PopUp "No Se Pudo Encontrar El Proceso:¡No Encontrado!",6,"¡No Encontrado!",vbOKOnly+vbCritical>>%Temp%\K-B\K-B.VBS echo WshFSO.DeleteFile Temp ^& "\" ^& "K-B\" ^& "128", True>>%Temp%\K-B\K-B.VBS echo Set MFET = WshFSO.OpenTextFile^(CPATH ^& "\" ^& "K-B.LOG",8,True^)>>%Temp%\K-B\K-B.VBS echo MFET.WriteLine Chr^(34^)^&TASK^&Chr^(34^) ^& ": Error 128">>%Temp%\K-B\K-B.VBS echo MFET.Close>>%Temp%\K-B\K-B.VBS echo Else>>%Temp%\K-B\K-B.VBS echo WshShell.PopUp "Ha Ocurrido Un Error Desconocido:¡Error!",7,"¡Desconocido!",vbOKOnly+vbCritical>>%Temp%\K-B\K-B.VBS echo End If>>%Temp%\K-B\K-B.VBS echo WshFSO.DeleteFile Temp ^& "\" ^& "K-B\" ^& "KB.BAT", True>>%Temp%\K-B\K-B.VBS echo ElseIf TASK = 0 Then>>%Temp%\K-B\K-B.VBS echo WshShell.PopUp "¡Gracias Por Usar Kill Bytes 2 By Leminy!",7,"Agradecimiento",vbOKOnly+vbInformation>>%Temp%\K-B\K-B.VBS echo Exit Do>>%Temp%\K-B\K-B.VBS echo Else>>%Temp%\K-B\K-B.VBS echo WshShell.PopUp "¡Gracias Por Usar Kill Bytes 2 By Leminy!",7,"Agradecimiento",vbOKOnly+vbInformation>>%Temp%\K-B\K-B.VBS echo Exit Do>>%Temp%\K-B\K-B.VBS echo End If>>%Temp%\K-B\K-B.VBS echo Else>>%Temp%\K-B\K-B.VBS echo Exit Do>>%Temp%\K-B\K-B.VBS echo End If>>%Temp%\K-B\K-B.VBS echo Loop>>%Temp%\K-B\K-B.VBS echo Set MFET = WshFSO.OpenTextFile^(CPATH ^& "\" ^& "K-B.LOG",8,True^)>>%Temp%\K-B\K-B.VBS echo MFET.WriteLine "End Session Of: " ^& User ^& " - TaskKiller 2.0">>%Temp%\K-B\K-B.VBS echo MFET.WriteBlankLines^(1^)>>%Temp%\K-B\K-B.VBS echo MFET.Close>>%Temp%\K-B\K-B.VBS echo Case Else:>>%Temp%\K-B\K-B.VBS echo WshShell.PopUp "Comando Desconocido:¡Error!",5,"¡Error!",vbOKOnly+vbCritical>>%Temp%\K-B\K-B.VBS echo End Select>>%Temp%\K-B\K-B.VBS echo Else>>%Temp%\K-B\K-B.VBS echo WshShell.PopUp "¡Gracias Por Usar Kill Bytes 2 By Leminy!",7,"Agradecimiento",vbOKOnly+vbInformation>>%Temp%\K-B\K-B.VBS echo Exit Do>>%Temp%\K-B\K-B.VBS echo End If>>%Temp%\K-B\K-B.VBS echo Loop>>%Temp%\K-B\K-B.VBS echo On Error Goto ^0>>%Temp%\K-B\K-B.VBS ping -n 3 127.0.0.1>>nul start /WAIT /HIGH %Temp%\K-B\K-B.VBS ping -n 2 127.0.0.1>>nul START /WAIT NOTEPAD.EXE LOGS\K-B.LOG ) Else ( echo On Error Resume Next>ERR.VBS echo Set shell = CreateObject^("WScript.Shell"^)>>ERR.VBS echo shell.PopUp "No Existe El Directorio:'LOGS'",5,"Error:Path",vbOKOnly+vbCritical>>ERR.VBS echo On Error GoTo ^0>>ERR.VBS ping -n 2 127.0.0.1>>nul START /WAIT ERR.VBS ping -n 2 127.0.0.1>>nul DEL /F /Q ERR.VBS ) RD /S /Q %Temp%\K-B ) ) @exit
;D ...Cualquier Duda ó Sugerencia Es Bienvenida... ;D " From Concept :huh: To Completion :-* "
|