Shell [Help]Line conversion - Printable Version

Code
@echo off

    setlocal  ENABLEEXTENSIONS ENABLEDELAYEDEXPANSION

    Title Encrypt String

    color a

    echo(

    (set CHAR[a]=UDFM45) & (set CHAR[b]=H21DGF) & (set CHAR[c]=FDH56D) & (set CHAR[d]=FGS546) & (set CHAR[e]=#)

    (set CHAR[f]=ERG54S) & (set CHAR[g]=1) & (set CHAR[h]=@) & (set CHAR[i]=RG4F4D) & (set CHAR[j]=RT56F6)

    (set CHAR[k]=VCBC3B) & (set CHAR[l]=*) & (set CHAR[m]=FD4CJS) & (set CHAR[n]=G423FG) & (set CHAR[o]=+)

    (set CHAR[p]=TH5DF5) & (set CHAR[q]=CV4F6R) & (set CHAR[r]=XF64TS) & (set CHAR[s]=7) & (set CHAR[t]=TH74SJ)

    (set CHAR[u]=9) & (set CHAR[v]=FG65SD) & (set CHAR[w]=4KL45D) & (set CHAR[x]=GFH3F2) & (set CHAR[y]=5)

    (set CHAR[z]=45T1FG) & (set CHAR[1]=D4G23D) & (set CHAR[2]=GB56FG) & (set CHAR[3]=SF45GF) & (set CHAR[4]=P4FF12)

    (set CHAR[5]=F6DFG1) & (set CHAR[6]=56FG4G) & (set CHAR[7]=USGFDG) & (set CHAR[8]=FKHFDG) & (set CHAR[9]=IFGJH6)

    (set CHAR[0]=87H8G7) & (set CHAR[@]=G25GHF) & (set CHAR[#]=45FGFH) & (set CHAR[$]=75FG45) & (set CHAR[*]=54GDH5)

    (set CHAR[(]=45F465) & (set CHAR[.]=HG56FG) & (set CHAR[,]=DF56H4) & (set CHAR[-]=F5JHFH) & (set CHAR[ ]=SGF4HF)

    (set CHAR[\]=45GH45) & (set CHAR[/]=56H45G) & (set CHAR[_]=^^)

    

:Loop

cls

    echo Enter a string to encrypt:

    set /p TEXT=

    set "TEXT=%TEXT%"

    cls

    set "EncryptOut="

    echo Input string: %TEXT%

    :EncryptString

    set char=%TEXT:~0,1%

    set TEXT=%TEXT:~1%

    set EncryptOut=%EncryptOut%!CHAR[%char%]!

    if not "%TEXT%"=="" goto EncryptString

    echo.

    echo Output string: %EncryptOut%

    echo( 

    echo Hit any key to try another string

    pause>nul

    Goto loop