Re: s/mime anyone?

Hi,

> 
>   Some time ago I started a dirty script to provide basic 
> support for smime, it's not completed but perhaps could be 
> useful for someone.
> 

It sure is! Thanks for this script. We've lately found a pressing need to
verify messages sent with pkcs7 certs (eg Thunderbird) and I've used it
pretty much as is to get me started. I know everyone here knows this stuff
better than I do, but FWIW here's my proc:

proc SMIME_Check {} {
  global exmh env
  Ftoc_Iterate line {
    set msgid [Ftoc_MsgNumber $line]
    set file /home/$env(USER)/Mail/$exmh(folder)/$msgid
    Exmh_Status "S/MIME Checking $exmh(folder)/$msgid..."
    catch { MhExec /home/$env(USER)/script/pgpssl $file } tmp
    Exmh_Status "$tmp"
  }
}

I don't know Perl myself, but I'm going to ask my programmer here to make
the return status a little more helpful (it seems to return '0' whether
message verifies ok or not?), and then I can incorporate some friendly
feedback within exmh. I'll post you anything we change.

cheers,
-- Joel Hatton --
Security Analyst                    | Hotline: +61 7 3365 4417
AusCERT - Australia's national CERT | Fax:     +61 7 3365 7031
The University of Queensland        | WWW:     www.auscert.org.au
Qld 4072 Australia                  | Email:   [email protected]