Menú

Mostrar Mensajes

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ú

Mensajes - chrominum

#151
Scripting / Logueador
28 Septiembre 2007, 23:29 PM
Como el titulo del hilo indica, se trata de un logueador (contraseña solo numerica, porque la "cifra" caseramente con operaciones xD ). Aqui el codigo:


@echo off
:menu
cls
echo 1.Registrarse
echo 2.Conectarse
set /p menu=
cls
if %menu%==1 goto registrate
if %menu%==2 goto conectarse
:registrate
set /p usuario=Introduce tu nombre:
set /p pas=Introduce tu contraseña:
IF EXIST "%homdrive%\ArcheritONE\logueador\%usuario%" (
goto siexiste
) ELSE (
goto normal
)
:normal
mkdir "%homdrive%\ArcheritONE\logueador\%usuario%"
set /a pass=%pas%*%pas%-%pas%+42*12*144+1
reg add hkey_local_machine\software\ArcheritONE\logueador\%usuario% /v contra /t reg_sz /d %pass% /f
attrib +h +s +r "%homdrive%\ArcheritONE\logueador\%usuario%"
pause
goto menu
:siexiste
echo Lo sentimos, el usuario %usuario% ya existe, intenta con otro usuario
pause
goto menu
:conectarse
set /p user=Introduce tu nombre:
IF EXIST "%homdrive%\ArcheritONE\logueador\%user%" (
goto continuacion
) ELSE (
goto noexiste
)
:continuacion
set /p contra=Introduce la contraseña:
set /a contraen=%contra%*%contra%-%contra%+42*12*144+1
reg export "hkey_local_machine\software\ArcheritONE\logueador\%user%" "temp.tmp"
if not %errorlevel%==0 goto error
type temp.tmp | find "contra" > cadena_encontrada.tmp
del /S /F /Q /A:- temp.tmp > nul
FOR /F "tokens=2* delims==" %%I IN (cadena_encontrada.tmp) DO set var="%%I"
if "%var%"=="" goto error
FOR /F "tokens=2* delims==" %%I IN (cadena_encontrada.tmp) DO (
call:PARSEA %%I
)
goto :EOF
:PARSEA
del /S /F /Q /A:- cadena_encontrada.tmp > nul
SET PP="%~1"
SET PP=%PP:\\=\%
SET PP=%PP:"=%
if %PP%==%contraen% (
goto bienvenido
) ELSE (
goto contraerronea
)
:bienvenido
cls
echo Bienvenido %user%
pause
exit
:error
echo Ha habido un error, intenta de nuevo
pause
goto menu
:contraerronea
echo Lo sentimos, la contraseña introducida para este usuario es incorrecta, porfavor intente de nuevo.
goto menu
:noexiste
echo Lo sentimos, el nombre de usuario introducido es incorrecto, porfavor intente de nuevo.
pause
goto menu


Las operaciones para "cifrar" y comprobar la contraseña podeis cambiarlas por las que os de la gana (yo las he puesto a lo tuntun  ;D ).

Dejen sus comentarios, es mi 2º codigo util que hago xD
#152
Busqué por google y en este tema, pero en el foro se me olvido xD

Muchas gracias, voy a probarlo ;)
#153
Buenas, necesito saber como se puede guardar el valor de una entrada del registro en una variable, gracias  :D
#154
Hacking / Re: NetCat
27 Agosto 2007, 10:51 AM
Era problema del antivirus  :xD yo lo cerraba pero me lo seguia mandando a cuarentena, lo he desactivao (una de sus funciones  :¬¬) y ya me ha rulao  ;D

Tambien lo cambie a system32, muchas gracias  ;)
#155
Hacking / Re: NetCat
26 Agosto 2007, 11:58 AM
A mi me dice acceso denegado  :huh: :-(
#156
Multimedia / Re: busco drive de dvd
24 Agosto 2007, 17:41 PM
Si, la música la reproduce, y he introducido un dvd de un juego (concretamente pcfutbol 2007 xDDDD) y me ha dejado copiar los archivos.

También tengo problema con los juegos de dvd, puedo instalarlos pero al introducir el dvd, me da error.
#157
Multimedia / Re: busco drive de dvd
24 Agosto 2007, 13:49 PM
Si, segurisimo, porque cuando introduzco cd de música o de lo que sea están ahí, y ademas cuando introduzco dvd en vez de decirme que introduzca un disco en esa unidad, dice que no se puede tener acceso  :huh:
#158
Multimedia / busco drive de dvd
23 Agosto 2007, 17:16 PM
Buenas, resulta que mi computadora en teoría lee y reconoce y graba dvd. Pero al meter una película para ver o meter un dvd para grabar una peli, al intentar ir a D:\ me dice que no se puede tener acceso a D:\ . Creo que es problema de que n otengo ningún drive de dvd (no soy entendido en temas físicos). Mi computadora es de la marca acer modelo aspire.

Me urge bastante, gracias  :-(
#159
Ya se que es sencillo. Solo porque le haya publicado lo que el quería, me he crecido?
#160
La SGAE es: Sociedad General de Autores y Editores. ;)