[batch] [aporte] batch archive security v0.3

[**Aincrad**]

si quieren escuchar una musica de fondo --->> [youtube=40,40]https://www.youtube.com/watch?v=bM7SZ5SBzyY[/youtube]     Y   Para los amantes del anime les dejo el opening de Tokyo Ghoul --->>[youtube=40,40]https://www.youtube.com/watch?v=3Llu1qGJF1I[/youtube]

hola a todos acabo de terminar la versión 0.3 de mi Batch Archive Security  

bueno con esta nueva versión se puede cifrar cualquier tipo de archivo sin importar que sea. osea con esta herramienta pueden ponerle contraseña hasta a su porn....xxx jeje.

atención para cifrar varios archivos a la vez dentro de un batch solo metan los archivos a cifrar dentro de una carpeta y listo , al cifrar colocan el nombre de esa carpeta. y así cifran varios archivos en uno.

bueno he aquí el código fuente pero no les va a servir ya que necesita un complemento para funcionar por eso lo tienen que descargar:

link del programa completo:

https://mega.nz/#!Y4FTFTwS!hTwpRhg6F51Ie9aTefouTLVa9HyZlb2U1kYGsu_gYh4

CODE:

Código (bash) [Seleccionar] Expandir

@echo off
title Bienbenido %USERNAME%                                           --- Batch Archive Security ---
goto mksys
:menu & cls  
color a
echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  Realse
echo ³                                                               ³     Version
echo ³        Este Programa Portable sirve para poner                ³         (0.3)
echo ³             Contrase¤a a cualquier archivo.                   ³
echo ³                                                               ÀÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo ³      Creada especialmente para (Foro el Hacker.NET)           ³ BATCH       ³
echo ³                       De Parte de **Aincrad**                 ³   ARCHIVE   ³
echo ³                                                               ³     SECURITY³
echo ³                                                               ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo ³    PASOS A SEGUIR:                                            ³ Para:
echo ³                                                               ³    F  
echo ³    1) Escriba el nombre de el archivo a cifrar. y tambien     ³     o
echo ³        Su formato. Ej: (.txt , .exe , .rar , .jar) etc..      ³      r
echo ³                                                               ³       o
echo ³    2) Escriba el Pass (Contrase¤a). Todo menos simbolos.      ³   El    
echo ³                                                               ³ H
echo ³    3) Listo..... :v                                           ³  a
echo ³                                                               ³   c
echo ³    4) En caso de no entender nada de los pasos, escriba       ³    k
echo ³         help   y si no entiende Vayase a la mierrrrr...da     ³     e
echo ³                                                               ³      r
echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ       .NET
echo   26/09/20017   Caracas-Venezuela           Create BY **Aincrad**
set /p op= Escriba el nombre de el archivo a cifrar :
if not defined op (goto:menu) >NUL
If ["%op%"]==["help"] goto help >NUL
if not exist %op% (goto:err) >NUL
Ping -n 2 Localhost >NUL

set p=set
set t=var
set "resultado=%resultado:"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789%" "

:si
set /p ps= el archivo si existe escriba una contrase¤a :
if not defined ps goto :si >NUL
echo %ps%>>%temp%\pass1.txt
Ping -n 2 Localhost >NUL
set archivo=%temp%\pass1.txt

:::::::::::::::::
:Ofuscador
:::::::::::::::::

:Lineas
Set Linea=0
For /F "Tokens=*" %%a in ('Type %archivo% ^| Find /V /C ""') do (Set Total=%%a)

:Leer_Ofuscador
If "%linea%" EQU "%total%" (Goto :Fin_Ofuscador)

For /F "Tokens=*" %%a in ('Type %archivo% ^| MORE +%Linea%') do (
   Echo: Ofuscando: "%%a"
   Set /A Linea+=1
   Set "String=%%a"
   If not defined string (Goto :Leer_Ofuscador)
   Echo %%a>"%TEMP%\String.tmp"
   FOR %%? IN (%TEMP%\String.tmp) DO ( SET /A Longitud=%%~z? - 2 )
   Goto :Ofuscar
)


:Ofuscar


If "%Count%" EQU "%Longitud%" (
   call :Write_Ofuscador
   Goto :Leer_Ofuscador)

::Comilladoble
Set "String=%String:"=€%"& rem "

::Espacio
If "%String:~0,1%" EQU " " (Set "New_String=%New_String% ")

::Alpha
If "%String:~0,1%" EQU "a" (Set "New_String=%New_String%%%var:~27,1%%")
If "%String:~0,1%" EQU "b" (Set "New_String=%New_String%%%var:~28,1%%")
If "%String:~0,1%" EQU "c" (Set "New_String=%New_String%%%var:~29,1%%")
If "%String:~0,1%" EQU "d" (Set "New_String=%New_String%%%var:~30,1%%")
If "%String:~0,1%" EQU "e" (Set "New_String=%New_String%%%var:~31,1%%")
If "%String:~0,1%" EQU "f" (Set "New_String=%New_String%%%var:~32,1%%")
If "%String:~0,1%" EQU "g" (Set "New_String=%New_String%%%var:~33,1%%")
If "%String:~0,1%" EQU "h" (Set "New_String=%New_String%%%var:~34,1%%")
If "%String:~0,1%" EQU "i" (Set "New_String=%New_String%%%var:~35,1%%")
If "%String:~0,1%" EQU "j" (Set "New_String=%New_String%%%var:~36,1%%")
If "%String:~0,1%" EQU "k" (Set "New_String=%New_String%%%var:~37,1%%")
If "%String:~0,1%" EQU "l" (Set "New_String=%New_String%%%var:~38,1%%")
If "%String:~0,1%" EQU "m" (Set "New_String=%New_String%%%var:~39,1%%")
If "%String:~0,1%" EQU "n" (Set "New_String=%New_String%%%var:~40,1%%")
If "%String:~0,1%" EQU "o" (Set "New_String=%New_String%%%var:~41,1%%")
If "%String:~0,1%" EQU "p" (Set "New_String=%New_String%%%var:~42,1%%")
If "%String:~0,1%" EQU "q" (Set "New_String=%New_String%%%var:~43,1%%")
If "%String:~0,1%" EQU "r" (Set "New_String=%New_String%%%var:~44,1%%")
If "%String:~0,1%" EQU "s" (Set "New_String=%New_String%%%var:~45,1%%")
If "%String:~0,1%" EQU "t" (Set "New_String=%New_String%%%var:~46,1%%")
If "%String:~0,1%" EQU "u" (Set "New_String=%New_String%%%var:~47,1%%")
If "%String:~0,1%" EQU "v" (Set "New_String=%New_String%%%var:~48,1%%")
If "%String:~0,1%" EQU "w" (Set "New_String=%New_String%%%var:~49,1%%")
If "%String:~0,1%" EQU "x" (Set "New_String=%New_String%%%var:~50,1%%")
If "%String:~0,1%" EQU "y" (Set "New_String=%New_String%%%var:~51,1%%")
If "%String:~0,1%" EQU "z" (Set "New_String=%New_String%%%var:~52,1%%")
If "%String:~0,1%" EQU "A" (Set "New_String=%New_String%%%var:~1,1%%")
If "%String:~0,1%" EQU "B" (Set "New_String=%New_String%%%var:~2,1%%")
If "%String:~0,1%" EQU "C" (Set "New_String=%New_String%%%var:~3,1%%")
If "%String:~0,1%" EQU "D" (Set "New_String=%New_String%%%var:~4,1%%")
If "%String:~0,1%" EQU "E" (Set "New_String=%New_String%%%var:~5,1%%")
If "%String:~0,1%" EQU "F" (Set "New_String=%New_String%%%var:~6,1%%")
If "%String:~0,1%" EQU "G" (Set "New_String=%New_String%%%var:~7,1%%")
If "%String:~0,1%" EQU "H" (Set "New_String=%New_String%%%var:~8,1%%")
If "%String:~0,1%" EQU "I" (Set "New_String=%New_String%%%var:~9,1%%")
If "%String:~0,1%" EQU "J" (Set "New_String=%New_String%%%var:~10,1%%")
If "%String:~0,1%" EQU "K" (Set "New_String=%New_String%%%var:~11,1%%")
If "%String:~0,1%" EQU "L" (Set "New_String=%New_String%%%var:~12,1%%")
If "%String:~0,1%" EQU "M" (Set "New_String=%New_String%%%var:~13,1%%")
If "%String:~0,1%" EQU "N" (Set "New_String=%New_String%%%var:~14,1%%")
If "%String:~0,1%" EQU "O" (Set "New_String=%New_String%%%var:~15,1%%")
If "%String:~0,1%" EQU "P" (Set "New_String=%New_String%%%var:~16,1%%")
If "%String:~0,1%" EQU "Q" (Set "New_String=%New_String%%%var:~17,1%%")
If "%String:~0,1%" EQU "R" (Set "New_String=%New_String%%%var:~18,1%%")
If "%String:~0,1%" EQU "S" (Set "New_String=%New_String%%%var:~19,1%%")
If "%String:~0,1%" EQU "T" (Set "New_String=%New_String%%%var:~20,1%%")
If "%String:~0,1%" EQU "U" (Set "New_String=%New_String%%%var:~21,1%%")
If "%String:~0,1%" EQU "V" (Set "New_String=%New_String%%%var:~22,1%%")
If "%String:~0,1%" EQU "W" (Set "New_String=%New_String%%%var:~23,1%%")
If "%String:~0,1%" EQU "X" (Set "New_String=%New_String%%%var:~24,1%%")
If "%String:~0,1%" EQU "Y" (Set "New_String=%New_String%%%var:~25,1%%")
If "%String:~0,1%" EQU "Z" (Set "New_String=%New_String%%%var:~26,1%%")

::Numeric
If "%String:~0,1%" EQU "0" (Set "New_String=%New_String%%%var:~53,1%%")
If "%String:~0,1%" EQU "1" (Set "New_String=%New_String%%%var:~54,1%%")
If "%String:~0,1%" EQU "2" (Set "New_String=%New_String%%%var:~55,1%%")
If "%String:~0,1%" EQU "3" (Set "New_String=%New_String%%%var:~56,1%%")
If "%String:~0,1%" EQU "4" (Set "New_String=%New_String%%%var:~57,1%%")
If "%String:~0,1%" EQU "5" (Set "New_String=%New_String%%%var:~58,1%%")
If "%String:~0,1%" EQU "6" (Set "New_String=%New_String%%%var:~59,1%%")
If "%String:~0,1%" EQU "7" (Set "New_String=%New_String%%%var:~60,1%%")
If "%String:~0,1%" EQU "8" (Set "New_String=%New_String%%%var:~61,1%%")
If "%String:~0,1%" EQU "9" (Set "New_String=%New_String%%%var:~62,1%%")

Set "String=%String:~1%"
Set /A Count+=1
Goto :Ofuscar

:Write_Ofuscador
Set "New_String=%New_String:€="%"& rem "
Echo %New_String%>>%temp%\pass.txt
If NOT Errorlevel 0 (Echo ERROR & pause & Exit /B 1)
Set "New_String="
Set "Count="
Goto :EOF

:Fin_Ofuscador
Del /Q "%TEMP%\String.tmp"
Cls
echo ESPERE... | More
Ping -n 2 Localhost >NUL

for /f "tokens=*" %%x in (%temp%\pass.txt) do (set psw=%%x)

start %temp%\CSS.exe a "%temp%\ar1" "%op%"
Ping -n 2 Localhost >NUL
:hsss
(
echo @echo off
echo %p% %t%^=%resultado%
echo if exist %op%.dll copy /b ^"%op%.dll^" ^"^%%temp%%\CSS.exe^" ^>nul
echo if not exist %op%.dll goto aci ^>nul
echo if exist ^"^%%temp%%\ar1.rar^" del ^"^%%temp%%\ar1.rar^" ^>nul
echo goto sad
echo :aci
echo title Error en api . . . . . . .
echo MODE con:cols=66 lines=18
echo color c
echo echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo echo ³                                                               ³
echo echo ³                                                               ³
echo echo ³       ERROR  :                                                ³
echo echo ³                                                               ³
echo echo ³     Se necesita el Archivo .dll para descifrar                ³
echo echo ³                                                               ³
echo echo ³                                                               ³
echo echo ³                  ERROR CODE ^(2111996x32^)                      ³
echo echo ³                                                               ³
echo echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo pause
echo exit
echo :sad
echo MODE con:cols=80 lines=26
echo color a
echo echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  Realse
echo echo ³                                                               ³     Version
echo echo ³                                                               ³          0.3
echo echo ³                                                               ³
echo echo ³                                                               ÀÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo echo ³      Creada especialmente para *Foro el Hacker.NET*           ³ BATCH       ³
echo echo ³                       De Parte de **Aincrad**                 ³   ARCHIVE   ³
echo echo ³                                                               ³     SECURITY³
echo echo ³                                                               ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo echo ³    PASOS A SEGUIR:                                            ³ Para:
echo echo ³     1. Escriba el Pass *Contrase¤a*. Todo menos simbolos.     ³    F  
echo echo ³                                                               ³     o
echo echo ³     2. Listo..... :v                                          ³      r
echo echo ³                                                               ³       o
echo echo ³     4. En caso de no entender nada de los pasos a seguir      ³   El    
echo echo ³                     Vayase a la mierrrrr...da                 ³ H
echo echo ³                                                               ³  a
echo echo ³                                                               ³   c
echo echo ³                                                               ³    k
echo echo ³                                                               ³     e
echo echo ³                                                               ³      r
echo echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ       .NET
echo echo   26/09/20017   Caracas-Venezuela           Create BY **Aincrad**
echo set /p c= Escriba la contrase¤a del archivo cifrado :
echo if not defined c  ^exit  
echo If ^%%c%%^=^= %psw% goto d  
echo goto e
echo :e
echo title Error - contrase¤a Incorrecta.
echo MODE con:cols=66 lines=18
echo color c
echo echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo echo ³                                                               ³
echo echo ³                                                               ³
echo echo ³       ERROR  :                                                ³
echo echo ³                                                               ³
echo echo ³     Contrase¤a Incorrecta - Porfavor vuelva a intentar        ³
echo echo ³                                                               ³
echo echo ³                                                               ³
echo echo ³                  ERROR CODE ^(2111996x34^)                      ³
echo echo ³                                                               ³
echo echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo pause ^& goto sad
echo goto sad
echo :d
echo copy /b ^"%op% cifrado.bat^" ^"^%%temp%%\ar1.rar^"
echo start ^%%temp%%\CSS.exe e ^"^%%temp%%\ar1.rar^"
echo exit) > %temp%\bas.bat

:co
tasklist | find /i "rar.exe" && (
echo ESPERE PORFAVOR . . . .
) || (
Ping -n 4 Localhost >NUL
echo Proceso terminado.
copy /b "%temp%\bas.bat" + "%temp%\ar1.rar" "%op% cifrado.bat%
copy /b "apc.dll" "%op%.dll"
goto f
)
goto co

:f
echo Proceso terminado Gracias por usar Batch Archive Security
echo Salvador F. Krilewski.    **Aincrad**
pause & exit

::::::::::::::::::::::::::::
:err
::::::::::::::::::::::::::::
title Error . . . . . . .
MODE con:cols=66 lines=18
color c
echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo ³                                                               ³
echo ³                                                               ³
echo ³                                                               ³
echo ³                                                               ³
echo ³          no se ha Encontrado el Archivo Especificado.         ³
echo ³                                                               ³
echo ³                                                               ³
echo ³                  ERROR CODE (2111995x32)                      ³
echo ³                                                               ³
echo ³                                                               ³
echo ³                                                               ³
echo ³                                                               ³
echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo   26/09/20017   Caracas-Venezuela           Create BY **Aincrad**
echo/
pause & exit

:api
::::::::::::::::::::::::::::
title Error . . . . . . .
MODE con:cols=66 lines=18
color c
echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo ³                                                               ³
echo ³                                                               ³
echo ³       ERROR ENCONTRADO :                                      ³
echo ³                                                               ³
echo ³          no se ha Encontrado el Archivo api.dll .             ³
echo ³                                                               ³
echo ³                                                               ³
echo ³                  ERROR CODE (2111996x32)                      ³
echo ³                                                               ³
echo ³                                                               ³
echo ³                                                               ³
echo ³                                                               ³
echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo   26/09/20017   Caracas-Venezuela           Create BY **Aincrad**
echo/
pause & exit

::::::::::::::::::::::::::::
:help
::::::::::::::::::::::::::::
title help me . . .
MODE con:cols=66 lines=18
color a
echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo ³                                                               ³
echo ³                                                               ³
echo ³                                                               ³
echo ³                                                               ³
echo ³           Vallase a la *****. Bruto ignorante. :V JAJA       ³
echo ³                                                               ³
echo ³                                                               ³
echo ³                  ERROR CODE (Usted=BURRO)                     ³
echo ³                                                               ³
echo ³                                                               ³
echo ³                                              By S4Lsalsoft    ³
echo ³                                                               ³
echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo   26/09/20017   Caracas-Venezuela           Create BY **Aincrad**
echo/
pause & exit

:mksys
if exist apc.dll copy /b "apc.dll" "%temp%\CSS.exe" >nul
if not exist apc.dll goto api >nul
if exist %temp%\ar1.rar del %temp%\ar1.rar >nul
if exist %temp%\pass.txt del %temp%\pass.txt >nul
if exist %temp%\pass1.txt del %temp%\pass1.txt >nul
if exist %temp%\bas.bat del %temp%\bas.bat >nul
goto menu

Recuerden el batch solo no les va a funcionar, tienen que descargarla .

imagen del programa:



Y Para los desconfiados les dejo el reporte de virus-total :

https://www.virustotal.com/#/file/06df70be4d670fefdbdde4879513cb75aa5aac860b4023baf9ca1b5db3355f36/detection

                              comenten sus criticas y opiniones

[tincopasan]

¿con qué hiciste el exe?

[**Aincrad**]

converti el batch con bat to exe, y tambien esta vbs to exe para los vbscript.

                    COMENTEN SUS CRITICAS Y OPINIONES

[tincopasan]

disculpa, no me interezan ninguna de las dos, batch me parece muy improductivo, simplemente estoy analizando el exe y como tiene cadenas en alemán quiero ver de donde salen.

[**Aincrad**]

batch me parece muy improductivo

sii , tienes razón , pero esta herramienta la hice porque no tenia nada que hacer.  

PD: me podrías decir cuales son esos caracteres en aleman que dices?

           comenten sus criticas y opiniones

[tincopasan]

no caracteres, cadenas.
"deutsch"
"Fortfahren?"
"Einige Include Dateien konnten nicht erstellt werden."
"Falsches Passwort."
"existiert bereits im aktuellen A"
"Ein unbekannter Fehler ist aufgetreten. Das Programm wird beendet."

y varias más, no voy a ponerlas todas, en cualquier caso si debugueas con ollydbg o ida podrás verlas.

[didis]

Mirando este codigo me han surgido 3 preguntas: 
- Por que hay una zona donde pones dos veces echo?
- en las linias 71 asta la 145 estas declarando valores a cada numero y letra pero no
  entiendo exactamente como lo haces
-En el archivo .dll que contiene el codigo de cifrado o algo por el estilo??

PD: Me ha gustado mucho el programa. Soy novato perdon por la ignorancia

Gracias por el programa

[MCKSys Argentina]

-En el archivo .dll que contiene el codigo de cifrado o algo por el estilo??

La DLL en realidad es un exe. Es el ejecutable de RAR por linea de comandos. Osea, lo hecho no es diferente a crear un rar con password.



Aún así, se agradece el aporte!

Saludos!

[**Aincrad**]

Ahora es que se vienen a dar cuenta que la dll es un .exe :v,  XD. debieron darse cuenta desde hace mucho tiempo al ver la linea :

Código (bash) [Seleccionar] Expandir

:mksys
if exist apc.dll copy /b "apc.dll" "%temp%\CSS.exe" >nul

XD :V

[MCKSys Argentina]

Ahora es que se vienen a dar cuenta que la dll es un .exe :v,  XD. debieron darse cuenta desde hace mucho tiempo al ver la linea :

No ha sido ahora  . Sólo me limité a responderle al usuario que preguntó.

Saludos!