my menu sys.

[J. Michael Diehl <mdiehl@triton.unm.edu>]

After I posted my menu batch file for pgp, I realized that I hadn't put my name
on it, which I felt I should do.  So, here it is, with with my copyleft message
attatched.  I hope someone enjoys it.

rem This is the PGP menu system by Mike Diehl version 0.0.  This program 
rem requires 4dos command.com replacement to run.  It may run under norton's
rem N-dos. Since I wrote this program for my own use, and in an effort to help
rem with the cypherpunk cause, I am releasing this program into the public
rem domain.  I ask that this message not be removed, and that you do not 
rem distribute modified copies of this program.  Further, I hope that, if you 
rem think this program makes pgp easier to use, you will send me an (encrypted)
rem email message telling me so.  It helps my ego to think someone likes my
rem program besides me. ;^)  I have enclosed my pgp 2.2 public key at the end
rem of this file.  Take care, and enjoy.  Mike Diehl.

rem 
@echo off
setlocal
break on

:main
cls
drawbox 0 0 23 78 2 red on black
drawhline 17 0 79 1 red on black
drawbox 4 29 16 49 2 red on black 
scrput 1 27 blue on black Mike's PGP shell ver. 0.0.
scrput 3 35 blue on black MAIN MENU

scrput  5 32 red on black Encrypt a file.
scrput  7 32 red on black Decrypt a file.
scrput 09 32 red on black siGn a file.
scrput 11 32 red on black Wipe file.
scrput 13 32 red on black Next menu.
scrput 15 32 red on black Quit.

scrput 18 5 white on black Select an option by typing the corisponding capitalized letter.
scrput 19 5 white on black For example, to encrypt a file, you would press the E key.

inkey /K"EeDdGgWwNnQq" %%in
goto menu1-%in

:menu1-q
screen 17 26
pause 
cls
endlocal
quit

:menu1-e
cls
drawbox 0 0 23 78 2 red on black
drawhline 17 0 79 1 red on black
drawbox 6 3 8 74 2 red on black

scrput 18 5 white on black Here you will be asked for the name of a file to be
scrput 19 5 white on black encrypted.  Then you will be asked for the names of 
scrput 20 5 white on black the people who should be able to read the file.
scrput 21 5 white on black Enter them all on the line separated by a space.

scrput 7 5 red on black Enter the name of the file to encrypt.
screen 7 52
input %%file

if exist %file goto menu1-e-good
scrput 15 10 red on black That file is not in the current directory!
screen 16 10
pause
goto menu1-e

:menu1-e-good

drawbox 10 3 12 74 2 red on black
scrput 11 5 red on black Enter the name(s) of the recipients.
screen 11 52
input %%in

cls
rem I never claimed that this would be elegent....

drawbox 0 0 23 78 2 red on black
drawhline 17 0 79 1 red on black
scrput 18 5 white on black Here you are asked if you want to mark this message "For Your Eyes Only,"
scrput 19 5 white on black and if you want to sign the message.  If you reply 'y' to the first
scrput 20 5 white on black question, the recipient will only be ablt to display the message. He
scrput 21 5 white on black won't be to save it.  If you reply 'y' to the second question, the 
scrput 22 5 white on black recipient will know for certain that the message is from you.

drawbox 6 3 8 74 2 red on black
scrput 7 5 red on black Would you like to mark this "For Your Eyes Only?"
inkey /K"ynN" %%f
drawbox 10 3 12 74 2 red on black
scrput 11 5 red on black Would you like to sign this message?
inkey /K"ynN" %%s

if "%f" == "y" goto f
if "%s" == "y" goto s
cls
pgp -pe %file %in 
goto encrypted
:f
if "%s" == "y" goto sf
cls
pgp -mep %file %in 
goto encrypted
:sf
cls
pgp -mesp %file %in 
goto encrypted
:s
cls
pgp -pes %file %in 

:encrypted
echo %@name[%file].asc is the name of the encrypted file.
pause
goto main

:menu1-d
cls
drawbox 0 0 23 78 2 red on black
drawhline 17 0 79 1 red on black
drawbox 6 3 8 74 2 red on black

scrput 18 5 white on black Here you will be asked for the name of a file to be
scrput 19 5 white on black read.  Then you will be asked if you want to save the
scrput 20 5 white on black plaintext file.  If you do, you will be asked for a 
scrput 21 5 white on black new filename.

scrput 7 5 red on black Enter the name of the file to read.
screen 7 52
input %%file

if exist %file goto menu1-d-good
scrput 15 10 red on black That file is not in the current directory!
screen 16 10
pause
goto main

:menu1-d-good
cls
pgp -m %file
goto main

:menu1-g
cls
drawbox 0 0 23 78 2 red on black
drawhline 17 0 79 1 red on black
drawbox 6 3 8 74 2 red on black

scrput 18 5 white on black Here you will be asked for the name of a file to be
scrput 19 5 white on black signed.  If you sign a message, it can be proved that
scrput 20 5 white on black it came from you.  There is no "Plausible Deniability."

scrput 7 5 red on black Enter the name of the file to signed.
screen 7 52
input %%file

if exist %file goto menu1-g-good
scrput 15 10 red on black That file is not in the current directory!
screen 16 10
pause
goto main

:menu1-g-good
cls
pgp -s %file
echo %@name[%file].asc is the name of the signed file.
pause
goto main

:menu1-w
cls
drawbox 0 0 23 78 2 red on black
drawhline 17 0 79 1 red on black
drawbox 6 3 8 74 2 red on black

scrput 18 5 white on black Here you will be asked for the name of a file to be
scrput 19 5 white on black wiped. Remember, after a file is wiped...
scrput 20 5 blink white on black There is no way to retrieve the file!

scrput 7 5 red on black Enter the name of the file to wiped.
screen 7 52
input %%file

if exist %file goto menu1-w-good
scrput 15 10 red on black That file is not in the current directory!
screen 16 10
pause
goto main

:menu1-w-good

cls
pgp -w %file 
goto main

:menu1-n
cls
drawbox 0 0 23 78 2 red on black
drawhline 17 0 79 1 red on black
drawbox 4 29 16 49 2 red on black 
scrput 1 27 blue on black Mike's PGP shell ver. 0.0.
scrput 3 35 blue on black SECOND MENU

scrput  5 32 red on black Add a key.
scrput  7 32 red on black Extract a key.
scrput 09 32 red on black View a key.
scrput 11 32 red on black Fingerprint.
scrput 13 32 red on black Next menu.
scrput 15 32 red on black Quit.

scrput 18 5 white on black Select an option by typing the corisponding capitalized letter.
scrput 19 5 white on black For example, to add a key to your ring, you would press the A key.

inkey /K"AaEeVvFfNnQq" %%in
goto menu2-%in

:menu2-q
goto menu1-q

:menu2-a
cls
drawbox 0 0 23 78 2 red on black
drawhline 17 0 79 1 red on black
drawbox 6 3 8 74 2 red on black

scrput 18 5 white on black Here you will be asked for the name of a file that  
scrput 19 5 white on black contains the keys to be added to your public key ring.
scrput 7 5 red on black Enter the name of the file to read.
screen 7 52
input %%file

if exist %file goto menu2-a-good
scrput 15 10 red on black That file is not in the current directory!
screen 16 10
pause
goto main

:menu2-a-good

cls
pgp -ka %file 
pause
goto main

:menu2-e
cls
drawbox 0 0 23 78 2 red on black
drawhline 17 0 79 1 red on black
drawbox 6 3 8 74 2 red on black

scrput 18 5 white on black Here you will be asked for the key ID to be extracted.
scrput 19 5 white on black Then you will be asked for the names of the file to 
scrput 20 5 white on black put the key in.

scrput 7 5 red on black Enter the key ID to extract.
screen 7 52
input %%in

drawbox 10 3 12 74 2 red on black
scrput 11 5 red on black Enter the name of the file that is to hold the key.
screen 11 59
input %%file

if not exist %file goto menu2-e-good
scrput 10 10 red on black That file already exists in the current directory!
screen 16 10
pause
goto main

:menu2-e-good

cls
pgp -kx %in %file
echo %@name[%file].asc contains the key for %in.
pause
goto main

:menu2-v
cls
pgp -kv 
pause
goto main

:menu2-f
cls
drawbox 0 0 23 78 2 red on black
drawhline 17 0 79 1 red on black
drawbox 6 3 8 74 2 red on black

scrput 18 5 white on black Here you will be asked for the name of the person who's key fingerprint you 
scrput 19 5 white on black want to examine.

scrput 7 5 red on black Enter the name of the person.
screen 7 52
input %%in

cls
pgp -kvc %in 
echo Remember to write this information down!
pause
goto main

:menu2-n
cls
drawbox 0 0 23 78 2 red on black
drawhline 17 0 79 1 red on black
drawbox 4 29 16 49 2 red on black 
scrput 1 27 blue on black Mike's PGP shell ver. 0.0.
scrput 3 35 blue on black THIRD MENU

scrput  5 32 red on black Generate a key.
scrput  7 32 red on black Remove a key.
scrput 09 32 red on black Disable a key.
scrput 13 32 red on black Next menu.
scrput 15 32 red on black Quit.

scrput 18 5 white on black Select an option by typing the corisponding capitalized letter.
scrput 19 5 white on black For example, to generate a new key, you would press the G key.

inkey /K"GgRrDdNnQq" %%in
goto menu3-%in

:menu3-g
cls
pgp -kg 
pause
goto main

:menu3-r
cls
drawbox 0 0 23 78 2 red on black
drawhline 17 0 79 1 red on black
drawbox 6 3 8 74 2 red on black

scrput 18 5 white on black Here you will be asked for the name of the key to be
scrput 19 5 white on black removed.

scrput 7 5 red on black Enter the name of the key to remove.
screen 7 52
input %%in

cls
pgp -kr %in 
pause
goto main

:menu3-q
goto menu1-q

:menu3-d
cls
drawbox 0 0 23 78 2 red on black
drawhline 17 0 79 1 red on black
drawbox 6 3 8 74 2 red on black

scrput 18 5 white on black Here you will be asked for the name of the key to be
scrput 19 5 white on black either disabled or re-enabled.

scrput 7 5 red on black Enter the name of the key.
screen 7 52
input %%in

cls
pgp -kd %in 
pause
goto main

:menu3-n
goto main

I may be reached by any of these addresses.
mdiehl@triton.unm.edu, al945@cwns9.ins.cwru.edu

Or, in care of Rory McManus at r.mcmanus4@genie.geis.com
-----BEGIN PGP PUBLIC KEY BLOCK-----
Version: 2.2

mQA9Aiu/jVAAAAEBgM2F5mSlCA+KRd6TXIrqmPfiiAEytwSttZs7Yua939GMu2mP
JL+5Qpi/ZKqF2nAJAwAFEbQsSi4gTWljaGFlbCBEaWVobCwgMSwgPG1kaWVobEB0
cml0b24udW5tLmVkdT4=
=lyvx
-----END PGP PUBLIC KEY BLOCK-----