for /f "usebackq eol=; tokens=1,* delims= " %%i in (`date /t`) do set WD=%%i
if %WD%==So goto Sonntag
if %WD%==Mo goto Montag

calc.exe date-1 yyyymmdd DATUM > date.bat
goto NEXT

:Sonntag
calc.exe date-2 yyyymmdd DATUM > date.bat
goto NEXT

:Montag
calc.exe date-3 yyyymmdd DATUM > date.bat

:NEXT
call date.bat

:DWNLD
echo pgp Dateien werden abgeholt

echo open ftpserver.gs.com> answer_pgp.txt
echo icfkur>> answer_pgp.txt
echo aewr09u>> answer_pgp.txt
echo cd outgoing>> answer_pgp.txt
echo cd %1>> answer_pgp.txt
echo bin>> answer_pgp.txt
echo mget *.%DATUM%.pgp>> answer_pgp.txt
echo bye>> answer_pgp.txt

cd temp
ftp -i -s:..\answer_pgp.txt

  rem Dateien entschluesseln
echo Dateien werden entschluesselt
for %%a in (*.pgp) do pgp --decrypt %%a --passphrase "please let me in"


  rem Dateien archivieren
echo Archiviere Dateien


rem verschluesselte daten ins archiv
mkdir ..\archive\%1\%DATUM%_verschluesselt
xcopy /Q /Y /I *.%DATUM%.pgp ..\archive\%1\%DATUM%_verschluesselt
del   /Q       *.%DATUM%.pgp

rem unverschluesselte daten ins archiv
mkdir ..\archive\%1\%DATUM%
xcopy /Q /Y /I *.txt ..\archive\%1\%DATUM%

rem unverschluesselte daten kunden bereitstellen
mkdir ..\encrypted\%1\%DATUM%
xcopy /Q /Y /I *.txt ..\encrypted\%1\%DATUM%

rem temporaeren ordner leeren
del   /Q    *.txt

cd ..