Claro, en ese For utilicé el punto como delimitador asumiendo que el nombre "real" del archivo se puede tokenizar en 2 partes, si desconoces la cantidad de puntos que habrán en los nombres entonces debes recurrir a otra técnica, por ejemplo a un reemplazamiento de string:
Saludos
Código (dos) [Seleccionar]
@Echo OFF
Set "ext=encrypted.txt"
For %%_ In ("*.%ext%") DO (
Set "filename=%%~nx_"
Call Set "filename=%%filename:.%ext%=%%"
Call Echo "%%~nx_" - "%%filename%%"
Call Ren "%%~f_" "%%filename%%"
)
Pause&Exit
Saludos