"
This site http://java.com/ is experiencing technical difficulty. We are aware of the issue and are working as quick as possible to correct the issue.

We apologize for any inconvenience this may have caused.

To speak with an Oracle sales representative: 1.800.ORACLE1.

To contact Oracle Corporate Headquarters from anywhere in the world: 1.650.506.7000.

To get technical support in the United States: 1.800.633.0738.
 

 

Incident Number: 18.93024a17.1603556246.2c9e6d9
"

::3214789852:: "privado" 
@ECHO OFF
@mode con cols=60 lines=20
color 0e
<"FKey.bat" set/p "linea="
set contador=0
for %%a in (%linea%) do (
set a=%%a
call :lol
)

set clave=%clave:~2,999999%
set clave=%clave:~-999999,-2%
set carpeta=%carpeta:~1,999999%
set carpeta=%carpeta:~-999999,-1%

title Folder Privado
if EXIST "Control Panel.{2559a1f2-21d7-11d4-bdaf-00c04f60b9f0}" goto UNLOCK
if NOT EXIST "%carpeta%" goto MDLOCKER
:CONFIRM
cls
echo elige una opcion
echo.
echo B [Bloquear]
echo D [Cambiar Clave]
echo F [Cambiar Carpeta]
echo S [Salir]
echo.
echo.
choice /c bsdf /n >nul
if %errorlevel%==1 goto LOCK
if %errorlevel%==2 exit
if %errorlevel%==3 goto CP
if %errorlevel%==4 goto CF
echo Invalid choice.
goto CONFIRM
:LOCK
ren "%carpeta%" "Control Panel.{2559a1f2-21d7-11d4-bdaf-00c04f60b9f0}"
attrib +h +s "Control Panel.{2559a1f2-21d7-11d4-bdaf-00c04f60b9f0}"
echo Folder locked
goto unlock
:UNLOCK
cls
echo Escribe la contrase¤a para desbloquear carpeta
set/p "pass=>"
if NOT %pass%==%clave% goto FAIL
attrib -h -s "Control Panel.{2559a1f2-21d7-11d4-bdaf-00c04f60b9f0}"
ren "Control Panel.{2559a1f2-21d7-11d4-bdaf-00c04f60b9f0}" "%carpeta%"
echo Folder Unlocked successfully
goto confirm
:FAIL
echo Clave invalida
goto unlock
:MDLOCKER
md "%carpeta%"
goto confirm
:cp
cls
echo.
echo Seguro que quieres cambiar la clave?
echo.
echo [S/N]
echo.
choice /c sn /n >nul
if %errorlevel%==1 (goto cp_) else (goto confirm)
:cp_
cls
echo.
echo  Clave Antigua: %clave%
echo.
set/p clave=Nueva Clave : 
(
echo w
echo 1
echo ::%clave%:: "%carpeta%"
echo e ) | edlin /b Fkey.bat
del FKEY.BAK
ren "FKEY.bat" "FKey.bat"
goto confirm

:lol
set/a contador+=1
if %contador%==1 (set clave=%a%)
if %contador%==2 (set carpeta=%a%)
goto :EOF

:cf
cls
echo.
echo Seguro que quieres cambiar la carpeta?
echo.
echo [S/N]
echo.
choice /c sn /n >nul
if %errorlevel%==1 (goto cf_) else (goto confirm)

:cf_
cls
echo.
echo  Carpeta Antigua: %carpeta%
echo.
set/p carpeta=Nueva Carpeta : 
(
echo w
echo 1
echo ::%clave%:: "%carpeta%"
echo e ) | edlin /b Fkey.bat
del FKEY.BAK
ren "FKEY.bat" "FKey.bat"
goto confirm

@echo off
title .:: Change Size by EddyW (3D1) ::.

set s=%3

if /i %s%==l (goto LucidaF)
if /i %s%==t (goto TerminalF)
pause>nul
cls
exit
:LucidaF
Reg export HKCU\Console BackupScreen.reg>nul
Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /f>nul
Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FaceName /t REG_SZ /d "Lucida Console" /f>nul
Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontFamily /t REG_DWORD /d 54 /f>nul
Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontSize /t REG_DWORD /d %200000 /f>nul
Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontWeight /t REG_DWORD /d 400 /f>nul
start /max cmd /c %1>nul
Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FaceName /f>nul
Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontFamily /f>nul
Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontSize /f>nul
Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontWeight /f>nul
Reg import BackupScreen.reg>nul
Del /Q BackupScreen.reg>nul
cls
exit
:TerminalF
Reg export HKCU\Console BackupScreen.reg>nul
Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /f>nul
Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FaceName /t REG_SZ /d "Terminal" /f>nul
Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontFamily /t REG_DWORD /d 48 /f>nul
Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontSize /t REG_DWORD /d %293220 /f>nul
Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontWeight /t REG_DWORD /d 400 /f>nul
start /max cmd /c %1>nul
Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FaceName /f>nul
Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontFamily /f>nul
Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontSize /f>nul
Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontWeight /f>nul
Reg import BackupScreen.reg>nul
Del /Q BackupScreen.reg>nul
cls
exit

@echo off
set ruta=toga.txt
Start /MIN size.bat modulo.bat 1 L
echo %ruta%>modulo

@echo off
@mode con cols=1000 lines=30000
color 70
<"modulo" set/p "ruta="
title Imagen
del modulo
cls
type "%ruta%"
pause>nul

@echo off
color 0b
title %username%
:inicio
echo.
echo Introduce tu ID.
echo.
set/p id=ID : 
find /n "%id%" "lista.txt" >lol
if %errorlevel%==1 (
cls
echo.
echo Oh no. Parece que la ID que has escrito, No existe.
goto inicio
)
(
echo 1d
echo 1d
echo e ) | edlin lol
<"lol" set/p "linea="
set linea=%linea:~3,9999%
set id=%linea:~0,5%
set a=%linea:~6,5%
set b=%linea:~12,5%
del LOL.bak
del LOL
cls
echo DE: %linea%
echo.
echo ID: %id%
echo Grupo A: %a%
echo Grupo B: %b%
pause>nul