Add pgp_main_key_id()

This function deliberately DOES NOT work on messages; you're only
supposed to give a key as input (private or public).