-HGP- Encripta contraseñas V1.0

Pronto la vercion 2.0 jejeje, esq estoy liandome un poco.
Espero les sea de utilidad, es un encripta contraseñas, en el cual pueden poner sus claves, las cuales se encriptaran como numeros que solo se puede desifrar sabiendo el numero de seguridad o haciendo brute force como lo hizo smart. sabiendo algo de matematicas la encriptacion es asi
ej:

xyz=xy+No.letra*xyz

donde xyz son los 3 numeros de seguridad y no letra en el numero asignado a cada letra.
para los que tienen en sus contraseñas numeros como ej: pass123
deben de poner sus numero y al final de cad numero un punto.
ej:

pass1.2.3.

esto no intervenira a la hora de ver el mensaje ya que sera eliminado el"." solo es para no inteferir con las operaciones de calculo. las contraseñas seran guardadas en un archivo de texto llamado hgp.txt
en el veran solo numeros. nada de letras jejejeje.


aca el code (recuerden guardarlo .bat):

@echo off
title [ -HGP- Encripta Contrase¤as V1.0 ] -By Guerrerohgp-
setlocal enabledelayedexpansion
mode con cols=55 lines=20
color a
:ini
cls
echo.&echo.S o l o    N £ m e r o s    D e  3    D ¡ g i t o s.&echo.
set /p nums=N£mero De Seguridad:
if not defined nums goto ini
if %nums% lss 100 goto ini
if %nums% gtr 999 goto ini
set aa=%nums:~0,2%
set prr=
set zz=
cls
echo.&echo Si deceas desifrar el mensaje escribe desifrar.&echo.&echo.Para informacion escribe info&echo.
set /p "contr=T£ Mensaje: "
set contr=!contr: =_!
if /i %contr%==desifrar goto numlet
if /i %contr%==info goto infohgp
goto mn
:nm
set /a aa=%aa%+1
set /a nnn=%aa%+%nums%
set "sm=%nnn% "
set contr=!contr:%let%=%sm%!
goto:eof
:mn
for %%a in (a b c d e f g h  i  j  k  l  m  n  o  p  q  r  s  t  u  v  w  x  y  z _ 1. 2. 3. 4. 5. 6. 7. 8. 9. 0.) do (
set let=%%a
call:nm)
echo Cierrame en 10 segundos
ping -n 2 0.0.0.0 >nul
call:archivohgp %contr%
:archivohgp
echo.%1>>hgp.txt
set hpgg=!hpg!%1>nul
set "ggph=%*">nul
if "%hpgg%"=="%ggph%" (exit)
shift>nul
goto archivohgp
:nms
set /a ah+=1
set ab=%ah%
set %ab%=%letr%
goto:eof
:numlet
set ah=%nums:~0,2%
for %%d in (a b c d e f g h  i  j  k  l  m  n  o  p  q  r  s  t  u  v  w  x  y  z _ 1. 2. 3. 4. 5. 6. 7. 8. 9. 0.) do (
set letr=%%d
call:nms)
for /f "delims= " %%c in (hgp.txt) do (set ver=%%c
call:vver)
set pass=%pass:_= %
set pass=%pass:.=%
echo %pass%
pause>nul
:vver
set /a nnn=%ver%-%nums%
set nf=!nnn!
set pass=%pass%!%nf%!
goto:eof
:infohgp
cls
echo.Este scrip esta hecho con la inteci¢n de&echo.guardar tus contrase¤as&echo.para que si no las recuerdas
echo.solo las guardes encriptadas y no tengas&echo.que recordar mas que el n£mero de seguridad.
echo.&echo.ejemplo: foro.portalhacker.net   contrase¤a
echo.&echo                Created By Guerrerohgp.
echo.&echo.PD:Guarda bien el archivo hgp.txt, Hay se&echo.guardar n las contrase¤as.
echo.&echo.PD2: A los n£mero ponle al final un punto
echo. para no confundir al script.
echo.&echo.ejemplo: foro.portalhacker.net   pass1.2.3.
Pause>nul
cls&goto ini


Algun dia la 2.0