Foro de elhacker.net

@echo off
rem borra las dos primeras lineas de texto1 y deja "el bueno" en primera linea.
(
ECHO 1d, 1d
ECHO E
) | EDLIN /B texto1.txt > nul 2>&1
Echo.
>Nul Ping -n 2 Localhost
rem borra las tres primeras lineas de texto2 y deja "el bueno2" en primera linea.
Echo.
(
ECHO 1d, 2d
ECHO E
) | EDLIN /B texto2.txt > nul 2>&1
goto datos
:datos
rem toman las primeras lineas de los textos para incluirlos en las variables.
<"texto1.txt" set /p "var1="
set "var1"
Echo.
<"texto2.txt" set /p "var1="
set "var2"

Md %var1%_%var2%

@echo off
(
echo 3,3,1M
echo e
) | edlin /b texto2.txt
(
echo 4,4,1M
echo e
) | edlin /b texto2.txt 

juan
antonio
el_bueno
el_bueno2
pedro

@echo off
TITLE Wellcome %USERNAME%
MODE con:cols=82 lines=40
if not exist %temp%\ttdje MD %temp%\ttdje
if not exist %TMP%\BMCTP\ MD %TMP%\BMCTP
if exist %temp%\ttdje\*.txt del %temp%\ttdje\*.txt >nul
Echo.
if exist %temp%\ttdje\*.bak del %temp%\ttdje\*.bak >nul
Echo.
if exist %temp%\ttdje\*.pna del %temp%\ttdje\*.pna >nul
if not exist files_zip MD files_zip >nul
if not exist compressed MD compressed
if exist "%TMP%\BMCTP" Del /Q "%TMP%\BMCTP" >nul
    >Nul Ping -n 2 Localhost
if not exist files_zip MD files_zip >nul
if not exist compressed MD compressed >nul
echo.
if exist 7z.dll move 7z.dll %temp%\ttdje\7z.dll >nul 
if exist 7z.exe move 7z.exe %temp%\ttdje\7z.exe >nul
if exist Rar.exe move Rar.exe %temp%\ttdje\Rar.exe >nul
echo.
goto pass1
:passno
color a
          (  cls
echo.
echo         ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo         º                                    º
echo         º        ..:: Attention ::..         º
echo         º        will not be echoed          º
echo         º                                    º
echo         ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
                 echo/
echo      ============================================
echo      =          ..:: ATTENTION ::..             =
echo      ============================================
echo      = Please, Enter the value for the password.=
echo      ============================================
                 echo/
                 echo/
                     pause
                       goto pass1
                                        )
 
:pass1

                 ( cls
echo.
echo         ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo         º                                    º
echo         º        ..:: Attention ::..         º
echo         º        will not be echoed          º
echo         º                                    º
echo         ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
                      echo/
      set /p "Pass=^> Enter the value for the password in all rar files:  "
                if not defined pass (goto:passno)
                                             goto continue
             )
 
:continue
cls
echo.
echo.
echo           Tu contraseña es %pass%
pause
:inicio
cls
echo         ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo         º                                    º
echo         º    ..:: Extract-zip massive ::..   º
echo         º              by Orni               º
echo         º                                    º
echo         ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo ----------------------------------------------------------------------------
echo  %DATE% ^| %TIME%
echo ----------------------------------------------------------------------------
if not exist *.zip goto salir
dir *.zip /B >%temp%\ttdje\temp.txt
    >Nul Ping -n 2 Localhost
setlocal enabledelayedexpansion
for /f "tokens=* delims=" %%x in ('type %temp%\ttdje\temp.txt') do (
set linea=%%x
set linea=!linea:.zip=!
call :show !linea!
)
Goto Busca
:Busca
    <"%temp%\ttdje\temp1.txt" set /p "file="
    set "file"
    echo Wait, extracting '%file%.zip' to %file% dir . . . . .
    Echo.
    if exist %file%.zip %temp%\ttdje\7z.exe x %file%.zip -aoa -o%file% >nul
Goto Busca_datos
:Busca_datos
    dir %file%\*.pna /S /B >%temp%\ttdje\temp2.txt
    >Nul Ping -n 2 Localhost
    <"%temp%\ttdje\temp2.txt" set /p "pna=" >nul
    set "pna" >nul
    copy "%pna%" "%temp%\ttdje" >Nul
    >Nul Ping -n 2 Localhost
    type "%pna%" > "%temp%\ttdje\temp3.txt"
    >Nul Ping -n 2 Localhost
    type "%pna%" > "%temp%\ttdje\temp4.txt"
    >Nul Ping -n 2 Localhost
Goto Serie
:Serie
setlocal enabledelayedexpansion
    for /f "tokens=* delims=" %%x in ('type %temp%\ttdje\temp3.txt') do (
    set linea=%%x
    set linea=!linea:fecha=!
    call :show1 !linea!
    )
Goto Version
:Version
    Set Ruta=%temp%\ttdje
    Set Archivo=temp5
If Not Exist "%temp%\ttdje\%Archivo%.txt" (
        cls
	Echo No se ha encontrado el archivo solicitado, intente nuevamente.
	Goto version
	) Else (

	Goto Backup
	)
:Backup
Copy /Y "%Ruta%\%Archivo%.txt" "%TMP%\BMCTP\%Archivo%_Backup.txt" >nul
If Exist "%TMP%\BMCTP\%Archivo%_Backup.txt" (
	Echo.
	>Nul Ping -n 3 Localhost & Goto Caracter
	) Else (

	Echo Error al hacer Backup del archivo.
	Pause >nul
	Exit
	)
:Caracter
Set Caracter=^=
If "%Caracter%" == "" Cls & Echo Por favor no intente ingresar valores nulos... & Echo. & Goto Caracter
>Nul Ping -n 1 Localhost
:Mod
Set PosX=0
For /F "Usebackq Tokens=*" %%a IN ("%Ruta%\%Archivo%.txt") Do (
	Set Linea=%%a
	Call:Buscador
	Set "LineaNueva="
	)

Goto Aprobacion
 
:Buscador
If Not "%Caracter%" == "!Linea:~%PosX%,1!" (
	If "!Linea:~%PosX%,1!" == "" (
		Set PosX=0
		Echo !LineaNueva!>>"%TMP%\BMCTP\Nuevo_%Archivo%.txt"
		Goto:Eof
		)
	Set "LineaNueva=%LineaNueva%!Linea:~%PosX%,1!"
	Set /A PosX+=1
	Goto Buscador
	) Else (
	If "!Linea:~%PosX%,1!" == "" (
		Set PosX=0
		Echo !LineaNueva!>>"%TMP%\BMCTP\Nuevo_%Archivo%.txt"
		Goto:Eof
		)
	Set /A PosX+=1
	Goto Buscador
	)
 
:Aprobacion
del /f /q %Ruta%\temp5.txt
Copy /Y "%TMP%\BMCTP\Nuevo_%Archivo%.txt" "%Ruta%\%Archivo%.txt" >nul
Copy /Y "%TMP%\BMCTP\Nuevo_%Archivo%.txt" "%Ruta%\TEMP6.txt" >nul

    >Nul Ping -n 1 Localhost
    Del /Q "%TMP%\BMCTP" >nul
    >Nul Ping -n 2 Localhost
Goto Datos
:Datos
 setlocal enabledelayedexpansion
    for /f "tokens=* delims=" %%x in ('type %temp%\ttdje\temp6.txt') do (
    set linea=%%x
    set linea=!linea:id=!
    set linea=!linea:.pna=!
    call :show2 !linea!
    )
Goto mod
:mod
    (
    echo 3,3,1M
    echo e	
    ) | edlin /b %temp%\ttdje\temp4.txt >nul
    >Nul Ping -n 2 Localhost
   >nul <"%temp%\ttdje\temp4.txt" set /p "serie=" >nul
    set "serie" >nul
>Nul Ping -n 2 Localhost
    (
    echo 4,4,1M
    echo e	
    ) | edlin /b %temp%\ttdje\temp5.txt >nul
    >Nul Ping -n 2 Localhost
   >nul <"%temp%\ttdje\temp5.txt" set /p "version=" >nul
    set "version" >nul
Goto comprime
:Comprime
  <"%temp%\ttdje\temp7.txt" set /p "nomb=" >nul
    set "nomb" >nul
    set mapn=%nomb%_%serie%_%version%
    rename "%file%"  "%mapn%"
if exist %mapn% %temp%\ttdje\rar a -r -rr -v116M -p%Pass% compressed\%mapn% %mapn%.rar %mapn%
             move "%file%.zip" "files_zip" >nul
if not exist compressed\%mapn%.rar goto rarerror   
if exist %temp%\ttdje\*.txt del %temp%\ttdje\*.txt
    if exist %temp%\ttdje\*.bak del %temp%\ttdje\*.bak
    if exist %temp%\ttdje\*.pna del %temp%\ttdje\*.pna
    rmdir /s /Q %mapn%
cls
Goto:inicio
:Rarerror
    echo No se ha podido crear el archivo comprimido.
    pause >nul
    @cls&exit
:Salir
    if exist %temp%\ttdje\*.txt del %temp%\ttdje\*.txt
    if exist %temp%\ttdje\*.bak del %temp%\ttdje\*.bak
    if exist %temp%\ttdje\*.pna del %temp%\ttdje\*.pna
    echo All zip files have been extracted.
    echo All zip have been moved to dir "files_zip"
    echo The .rar files have been created with the pass %Pass%
    echo Do you want to delete the directory
    rd /s files_zip
CLS
@EXIT
:show 
    echo %*>>%temp%\ttdje\temp1.txt
    goto:eof
:show1 
    echo %*>>%temp%\ttdje\temp5.txt
    goto:eof
:show2
    echo %*>>%temp%\ttdje\temp7.txt
    goto:eof

No se ha encontrado el archivo solicitado, intente nuevamente.