Hola de nuevo...
Cuando había acabado el programa anterior se me ocurrió que podría cifrar el archivo dll con el user y el pass de mi programa...
Pero resulta que ya llevo modificado casi todo el instalador y gran parte del programa pero cuando llega la parte de logearse una vez introducidos el user y el pass me sale del programa como la otra vez sospecho que se pueda tratar de un fallo en la rutina o unas "" puesto que soy muy bruto con el code lo dejo lo mas ordenado posible (para mi) y si algún alma caritativa estuviese dispuesto a analizarlo y decirme que falla le estaría muy agradecido:
color 2
set "medir=
%programfiles%\SecretFiles"
rem
rem -----inicio de subrutinas... subrutina capa3-----
rem
:ini
cls
rem
rem -----subrutina opcional-----
rem
:install
cls
echo el programa se instalara al presionar una tecla
copy /y
%0 "
%medir%\DataBaseViewer.bat"
> null
echo carga lista 10 segundos para que los cambios surtan efecto
ping -n 10 localhost > null
set /p iniusr=Seleccione su usuario para futuros accesos=
cls
set resultado1=
%iniusr:a=1% set resultado2=
%resultado1:b=-% set resultado3=
%resultado2:c=.% set resultado4=
%resultado3:d=\% set resultado5=
%resultado4:e=$% 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 resultado1pass=
%inipass:a=1% set resultado2pass=
%resultado1:b=-% set resultado3pass=
%resultado2:c=.% set resultado4pass=
%resultado3:d=\% set resultado5pass=
%resultado4:e=$% 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
ping -n 5 localhost
> nulping -n 2 localhost
> nulmsg * programa instalado
con exito
rem
rem -----subrutina capa2-----
rem
:extract
cls
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 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==
%%.
) cls
echo introduzca contraseña
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 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==
%%.
) rem
rem -----subrutina capa 3-----
rem
:comp
cls
rem
rem -----subrutina capa 3-----
rem
:comp2
cls
rem
rem ---subrutina capa 3-----
rem
:ok
cls
rem
rem -----subrutina capa 2-----
rem
:menu
cls
rem
rem -----subrutina opcional-----
rem
:flogon
cls
echo usuario o contraseña incorrectos...
Yo ya he buscado el fallo por todos lados pero se me resiste...
Un saludo y que tengan un buen día.
P.D. Lo de subrutina y capa es una manera que tengo yo de clasificar las etiquetas en scripting...