Buchstaben in Zahlen umwandeln

Wscript.Echo ASC("A")  

@echo off & setlocal ENABLEDELAYEDEXPANSION
REM Zeichen die kodiert werden sollen (das Leerzeichen hat hier den Wert 0)
set "CHARS= abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"  
REM Zeichenfolge abfragen
set /p string=Zeichen eingeben:
REM Länge des Strings ermitteln
call :strLength strLenString "%string%"  
REM Länge der Zeichenliste ermitteln
call :strLength strLenChars "%CHARS%"  
REM von den Längen der Strings für die Schleifen jeweils 1 abziehen
set /a strLenString-=1
set /a strLenChars-=1

echo Kodierung:
REM für jedes Zeichen im String ...
for /L %%a in (0,1,!strLenString!) do (
REM für jedes Zeichen finde den Offset in CHARS und gebe den Offset aus (das Leerzeichen hat hier den Offset 0)
	for /L %%b in (0,1,!strLenChars!) do (
		echo "!string:~%%a,1!"| findstr /c:"!CHARS:~%%b,1!">nul && echo %%b  
	)
)

REM Überspringe Makro und beende Skript
goto :eof

REM Makro zum ermitteln der Länge
:strLength
set "#=%~2"  
set length=0
:stringLengthLoop
if defined # (set #=%#:~1%&set /A length += 1&goto stringLengthLoop)
set "%~1=%length%"  
goto :eof

$string = Read-Host "Zeichen eingeben"  
$bytes = [System.Text.Encoding]::ASCII.GetBytes($string)
write-host "Byte Array: $bytes"  

($bytes |%{[char]$_}) -join ''  

...
SET "CHARS=$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"   
REM ein Dummy-String von 64 Zeichen, damit "A" auf Position 65 gefunden wird  
SET "CHARS=%CHARS%ABCDEFGHIJKLMNOPQRSTUVWXYZ"  
REM das "Z" ist jetzt auf Pos 90, aber "a" soll auf Pos 97.  
REM Deshalb noch mal eine Manipulation mit Dummyzeichen
SET "CHARS=%CHARS%$$$$$$abcdefghijklmnopqrstuvwxyz"  
...