como dije aun estoy muy verde.
Muchas gracias
Tema cerrado
Muchas gracias

Tema cerrado
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú<table>
con un link por cada uno que encontrara.@echo off
title Secret Files 2.0
color 2
set "medir=%programfiles%\SecretFiles"
goto ini
rem
rem -----inicio de subrutinas... subrutina capa3-----
rem
:ini
cls
if exist "%programfiles%\SecretFiles" (goto extract) else (goto install)
rem
rem -----subrutina opcional-----
rem
:install
cls
echo el programa se instalara al presionar una tecla
pause > null
echo instalando...
md "%medir%" > null
md "%medir%\Temp" > null
md "%medir%\Data" > null
copy /y %0 "%medir%\DataBaseViewer.bat" > null
echo carga lista 10 segundos para que los cambios surtan efecto
ping -n 10 localhost > null
pause
cd %medir%\Data
set /p iniusr=Seleccione su usuario para futuros accesos=
cls
cd "%medir%\Temp"
set proceso=%iniusr%
set resultado1=%iniusr:a=1%
set resultado2=%resultado1:b=-%
set resultado3=%resultado2:c=.%
set resultado4=%resultado3:d=\%
set resultado5=%resultado4:e=$%
set resultado6=%resultado5:f=;%
set resultado7=%resultado6:g=?%
set resultado8=%resultado7:h=[%
set resultado9=%resultado8:i=+%
set resultado10=%resultado9:j=)%
set resultado11=%resultado10:k=]%
set resultado12=%resultado11:l=!%
set resultado13=%resultado12:m=(%
set resultado14=%resultado13:n=@%
set resultado15=%resultado14:ñ=¿%
set resultado16=%resultado15:o=,%
set resultado17=%resultado16:p=4%
set resultado18=%resultado17:q=/%
set resultado19=%resultado18:r=_%
set resultado20=%resultado19:s={%
set resultado21=%resultado20:t=#%
set resultado22=%resultado21:u=¡%
set resultado23=%resultado22:v=}%
set resultado24=%resultado23:w=:%
set resultado25=%resultado24:x=2%
set resultado26=%resultado25:y=6%
set resultado27=%resultado26:z=9%
echo %resultado27% > userENC.dll
cls
set /p inipass=Seleccione su contraseña para futuros accesos=
cls
set proceso=%inipass%
set resultado1pass=%inipass:a=1%
set resultado2pass=%resultado1:b=-%
set resultado3pass=%resultado2:c=.%
set resultado4pass=%resultado3:d=\%
set resultado5pass=%resultado4:e=$%
set resultado6pass=%resultado5:f=;%
set resultado7pass=%resultado6:g=?%
set resultado8pass=%resultado7:h=[%
set resultado9pass=%resultado8:i=+%
set resultado10pass=%resultado9:j=)%
set resultado11pass=%resultado10:k=]%
set resultado12pass=%resultado11:l=!%
set resultado13pass=%resultado12:m=(%
set resultado14pass=%resultado13:n=@%
set resultado15pass=%resultado14:ñ=¿%
set resultado16pass=%resultado15:o=,%
set resultado17pass=%resultado16:p=4%
set resultado18pass=%resultado17:q=/%
set resultado19pass=%resultado18:r=_%
set resultado20pass=%resultado19:s={%
set resultado21pass=%resultado20:t=#%
set resultado22pass=%resultado21:u=¡%
set resultado23pass=%resultado22:v=}%
set resultado24pass=%resultado23:w=:%
set resultado25pass=%resultado24:x=2%
set resultado26pass=%resultado25:y=6%
set resultado27pass=%resultado26:z=9%
echo %resultado27pass% > passENC.dll
cls
echo procesando...
ping -n 5 localhost > nul
echo finalizando...
ping -n 2 localhost > nul
msg * programa instalado con exito
goto ini
rem
rem -----subrutina capa2-----
rem
:extract
cls
cd %medir%\Temp
echo seleccione usuario
set /p usr=
for /f "tokens=*" %%. in (userENC.dll) do (set db_userENC=%%.)
cls
set resultado1bUSR=%db_userENC:1=a%
set resultado2bUSR=%resultado1b:-=b%
set resultado3bUSR=%resultado2b:.=c%
set resultado4bUSR=%resultado3b:\=d%
set resultado5bUSR=%resultado4b:$=e%
set resultado6bUSR=%resultado5b:;=f%
set resultado7bUSR=%resultado6b:?=g%
set resultado8bUSR=%resultado7b:[=h%
set resultado9bUSR=%resultado8b:+=i%
set resultado10bUSR=%resultado9b:)=j%
set resultado11bUSR=%resultado10b:]=k%
set resultado12bUSR=%resultado11b:!=l%
set resultado13bUSR=%resultado12b:(=m%
set resultado14bUSR=%resultado13b:@=n%
set resultado15bUSR=%resultado14b:¿=ñ%
set resultado16bUSR=%resultado15b:,=o%
set resultado17bUSR=%resultado16b:4=p%
set resultado18bUSR=%resultado17b:/=q%
set resultado19bUSR=%resultado18b:_=r%
set resultado20bUSR=%resultado19b:{=s%
set resultado21bUSR=%resultado20b:#=t%
set resultado22bUSR=%resultado21b:¡=u%
set resultado23bUSR=%resultado22b:}=v%
set resultado24bUSR=%resultado23b::=w%
set resultado25bUSR=%resultado24b:2=x%
set resultado26bUSR=%resultado25b:6=y%
set resultado27bUSR=%resultado26b:9=z%
echo %resultado27bUSR% > user.dll
for /f "tokens=*" %%. in (user.dll) do (set db_user==%%.)
del user.dll
cls
echo introduzca contraseña
set /p pass=
for /f "tokens=*" %%. in (passENC.dll) do (set db_passENC==%%.)
cls
set resultado1bPASS=%db_passENC:1=a%
set resultado2bPASS=%resultado1b:-=b%
set resultado3bPASS=%resultado2b:.=c%
set resultado4bPASS=%resultado3b:\=d%
set resultado5bPASS=%resultado4b:$=e%
set resultado6bPASS=%resultado5b:;=f%
set resultado7bPASS=%resultado6b:?=g%
set resultado8bPASS=%resultado7b:[=h%
set resultado9bPASS=%resultado8b:+=i%
set resultado10bPASS=%resultado9b:)=j%
set resultado11bPASS=%resultado10b:]=k%
set resultado12bPASS=%resultado11b:!=l%
set resultado13bPASS=%resultado12b:(=m%
set resultado14bPASS=%resultado13b:@=n%
set resultado15bPASS=%resultado14b:¿=ñ%
set resultado16bPASS=%resultado15b:,=o%
set resultado17bPASS=%resultado16b:4=p%
set resultado18bPASS=%resultado17b:/=q%
set resultado19bPASS=%resultado18b:_=r%
set resultado20bPASS=%resultado19b:{=s%
set resultado21bPASS=%resultado20b:#=t%
set resultado22bPASS=%resultado21b:¡=u%
set resultado23bPASS=%resultado22b:}=v%
set resultado24bPASS=%resultado23b::=w%
set resultado25bPASS=%resultado24b:2=x%
set resultado26bPASS=%resultado25b:6=y%
set resultado27bPASS=%resultado26b:9=z%
echo %resultado27bPASS > pass.dll
for /f "tokens=*" %%. in (pass.dll) do (set db_pass==%%.)
del pass.dll
goto comp
rem
rem -----subrutina capa 3-----
rem
:comp
cls
if %db_user%==%usr% (goto comp2) else (goto flogon)
rem
rem -----subrutina capa 3-----
rem
:comp2
cls
if %db_pass%==%pass% (goto ok) else (goto flogon)
rem
rem ---subrutina capa 3-----
rem
:ok
cls
goto menu
rem
rem -----subrutina capa 2-----
rem
:menu
cls
echo.
echo MENU INTERACTIVO
echo.
pause
exit
rem
rem -----subrutina opcional-----
rem
:flogon
cls
echo usuario o contraseña incorrectos...
pause
goto ini
@echo off
title DataBase reader
color 2
set medir = %programfiles%\DBView
goto ini
:ini
if exist %programfiles%\DBView (goto comp) else (goto install)
:install
echo el programa se instalara al presionar una tecla
pause > null
echo instalando...
md %programfiles%\DBView > null
md %programfiles%\DBView\Temp > null
md %programfiles%\DBView\Data > null
copy %0 %medir%\DataBaseViewer.bat > null
cls
echo carga casi lista...
ping -n 4 localhost > null
echo carga lista
pause
set /p iniusr=Seleccione su usuario para futuros accesos=
echo %iniusr% > %medir%\Temp\Usr.dll
cls
ping -n 4 localhost > null
set /p inipass=Seleccione su contraseña para futuros accesos=
echo %inipass% > %medir%\Temp\Pass.dll
msg * Instalacion completa
goto ini
:comp
echo introduzca su usuario...
set /p usr=usuario=
cls
echo introduzca su contraseña...
set /p pass=contraseña=
pause
echo procesando solicitud...
for /f "tokens=*" %%. in (%medir%\Temp\Usr.dll) do (if %usr%==%% goto (compusrsi) else (goto compusrno))
:compusrsi
for /f "tokens=*" %%. in (%medir%\Temp\Pass.dll) do (if %pass%==%% goto (comppasssi) else (goto comppassno))
:comppasssi
goto main
:compusrno
usuario desconocido
pause
goto ini
:comppassno
echo contraseña incorrecta
pause
goto ini
:menu
msg * logeado como %usr%
pause
exit