[batch] Sacando la letra del DNI

Buenas a todos.

Hoy me aburría un ratito y me he puesto hacer una aplicación sencillita, en este caso un script que te averigua la letra del DNI dándole el número.

Aquí os dejo el código.

Código

@echo off
 
cd \ & cls
color a
:: Por comtecknet
 
title Sacar letra de DNI basandose en el numero
 
 
setlocal enabledelayedexpansion
 
:inicio
 
rem ----------------------------
rem - Declaracion de variables -
rem ----------------------------
 
set valor=23
 
rem ---------------------------------------------
rem - Dividiendo el numero introducido entre 23 -
rem ---------------------------------------------
 
 
cls
set /p "numero=Introduce el numero de tu DNI (Sin letra): "
set /a "resultado=%numero%%%valor%"
 
rem ------------------------------------------------------------
rem - Comprobando que letra corresponde por cada resto posible -
rem ------------------------------------------------------------
 
 
if !resultado! EQU 0 (set resultado=T & call :resultado)
if !resultado! EQU 1 (set resultado=R & call :resultado)
if !resultado! EQU 2 (set resultado=W & call :resultado)
if !resultado! EQU 3 (set resultado=A & call :resultado)
if !resultado! EQU 4 (set resultado=G & call :resultado)
if !resultado! EQU 5 (set resultado=M & call :resultado)
if !resultado! EQU 6 (set resultado=Y & call :resultado)
if !resultado! EQU 7 (set resultado=F & call :resultado)
if !resultado! EQU 8 (set resultado=P & call :resultado)
if !resultado! EQU 9 (set resultado=D & call :resultado)
if !resultado! EQU 10 (set resultado=X & call :resultado)
if !resultado! EQU 11 (set resultado=B & call :resultado)
if !resultado! EQU 12 (set resultado=N & call :resultado)
if !resultado! EQU 13 (set resultado=J & call :resultado)
if !resultado! EQU 14 (set resultado=Z & call :resultado)
if !resultado! EQU 15 (set resultado=S & call :resultado)
if !resultado! EQU 16 (set resultado=Q & call :resultado)
if !resultado! EQU 17 (set resultado=V & call :resultado)
if !resultado! EQU 18 (set resultado=H & call :resultado)
if !resultado! EQU 19 (set resultado=L & call :resultado)
if !resultado! EQU 20 (set resultado=C & call :resultado)
if !resultado! EQU 21 (set resultado=K & call :resultado)
if !resultado! EQU 22 (set resultado=E & call :resultado)
 
rem --------------------------------------------------
rem - Mostrando el resultado: Numero y letra del DNI -
rem --------------------------------------------------
 
:resultado
 
cls
echo  ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo  º      Resumen        º
echo  ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
echo  ºNumero de DNI:       º  %numero%
echo  º                     º
echo  ºLetra de DNI         º  %resultado%
echo  ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
echo.
set /p otro="Quieres ver otro DNI [si/no]: "
 
if %otro% EQU si (goto inicio)
if %otro% EQU no (exit)

No creo que sea la forma más depurada de hacer este script, es de suponer que a través de un for pueda quitarme de encima todos los if.