PC World 1999 February/PCWorld_1999-02_cd.bin/software/Komer/lotus/Server/w32Intel/INSTALL/LOTUS021.DSK/CERTCA.NTF

Lotus Notes Database | 1997-09-10 | 1MB | 9,253 lines

Certificate Authority
#1StdNotes46SSLAuth
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$Readers
$TITLE
$Index
$Formula
$FormulaClass
$ViewFormat
$Comment
CN=Lotus Notes Template Development/O=Lotus Notes
MkX"V[/m
CN=Scott Davidson/O=IrisCN=Michael Decoteau/O=IrisCN=Andrew Wharton/O=IrisCN=Scott Davidson/O=IrisCN=Michael Decoteau/O=IrisCN=Scott Davidson/O=IrisCN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
###############################
$Modified
    1S2S3S
$TITLE$FormPrivs$FormUsers$Body$Flags$Class$Modified$Comment$AssistTrigger$AssistType$AssistFlags$UpdatedBy$$FormScript_O
$Flags
    0SL1S4S5S3724
$TITLE
CN=Michael Decoteau/O=Iris#################################
30719
CN=Michael Decoteau/O=Iris############################################
2CN=Michael Decoteau/O=Iris
30719
CN=Michael Decoteau/O=Iris###################
CN=Michael Decoteau/O=IrisCN=orr/O=NHLCN=Michael Decoteau/O=IrisCN=Bobby Orr/O=NHLCN=Michael Decoteau/O=IrisCN=Andrew Wharton/O=IrisCN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCertLibs34Q1###################
MkX"V[/m
CASetup
CN=Michael Decoteau/O=Iris
affo`
TDlsftCertificate Authority
#1StdNotes46SSLAuth
##########################################################
CASetupG3
CN=James Cunningham/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
System\Web Pages|WebPagesV
PrivateTitle$Conflict$REF
WebPage
    L1S5S1
PrivateTitle
PrivateTitle&
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
Web Cert PickupWebCertPickupCD
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################
FramePickupCert
Anonymous############
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$ACLDigest
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Function GetString2(Byval StringIndex As Integer, arg1 As String, arg2 As String) As String
Declare Public Function ApproveCertificateRequest(doc As NotesDocument, keyFile As String, password As String) As Integer
Declare Public Function DenyCertificateRequest(doc As NotesDocument) As Integer
Declare Sub OutMsg(msg As String)
Declare Public Function RejectCertificate(doc As NotesDocument) As Integer
Declare Function FixFileName( fn As String ) As String
Declare Function UpdateCACert(doc As NotesDocument, certFile As String) As Integer
Declare Function GetString(Byval StringIndex As Integer) As String
Declare Function GetString1(Byval StringIndex As Integer, arg1 As String) As String
Declare Sub NukeIt( fn As String )
Declare Sub UpdateCAKeyProfile(doc As NotesDocument)
Declare Sub SendNotification(form As String, doc As NotesDocument, subject As String, arg As String)
Declare Function SubmitCertificateRequest(doc As NotesDocument) As Integer
Declare Function ReadFromFile (fn As String) As Variant
Declare Function ViewCert (EncodedCertValue As Variant, PKCS As String) As Variant
Declare Function ResubmitRequest(doc As NotesDocument) As Integer
Declare Sub WriteToFile (FnLinkList As Variant, fn As String)
Declare Function BreakItUp (LongCert As String) As Variant
Declare Sub CertToPickupCert(doc As NotesDocument)
Declare Function LocalPath( dbPath$ ) As String
'++LotusScript Development Environment:2:5:(Declarations):0:10
Declare Function ProcessSecurityCmd Lib "_dmsecadm" (_
Byval cmdName As String,_
Byval cmdArgs As String, _
Byval OutBuf As String, _
Byval szOutBuf As Integer) As Integer
Declare Function SignCertificate Lib "_dmsecadm" ( _
Byval cmdArgs As String, Byval certInfo As String, _
Byval certBuf As String, Byval certBufLen As Integer, _
Byval msgBuf As String, Byval msgBufSize As Integer) As Integer
' the above declarations refer to functions in the security dll which must be present
' wherever this is run
Const dbg = False ' change this and you must force recompile of it all!
Const maxCertBufLen% = 2048 ' don't just change these here...
Const maxMsgBufLen% = 1024 ' ...these values appear as literals in declartions as well
' Define some configurable strings here: (typically alias names for design elements)
Const strPickupView = "Pickup"
Const strKeyAdminView = "Keyring Administration"
Const strCertInfoForm = "CertificateInformation"
' String ids for translatable text:  (strings in GetString2)
Const ids_PasswordTitle = 3
Const ids_PasswordPrompt = 4
Const ids_KeyFileTitle = 5
Const ids_KeyFilePrompt = 6
Const ids_DenyTitle = 7
Const ids_DenyPrompt = 8
Const ids_Error = 9
Const ids_CACert = 10
Const ids_OldPasswordPrompt = 11
Const ids_NewPasswordPrompt = 12
Const ids_Cancel = 13
Const ids_YourReq = 14
Const ids_YourCert = 15
Const ids_DNSPrompt = 16
Const ids_DNSTitle = 17
Const ids_PasswordChanged = 18
' Error ids for translatable error text:   (strings in GetString2)
Const err_NotifyMail = 100
Const err_NoMailAddress = 101
Const err_ApprovalFailed = 102
Const err_DenyFailed = 103
Const err_NoKyr = 104
Const err_NoKyrPwd = 105
Const err_NoNewPwd = 106
Const err_RejectFailed = 107
Const err_SubmitFailed = 108
'++LotusScript Development Environment:2:1:GetString2:1:8
Function GetString2(Byval StringIndex As Integer, arg1 As String, arg2 As String) As String
     '
     '  Here's where all the strings needing translation are...
     ' The actual string ids are defined in the (declarations) section and are referred to throughout the code.
     ' You can pass in up to two arguments as necessary.
     '
     Select Case StringIndex
     '
     ' Regular strings:
     '
     Case ids_PasswordTitle
          GetString2 = "Enter Password"
     Case ids_PasswordPrompt
          GetString2 = "Enter password for key file " + arg1
     Case ids_KeyFileTitle
          GetString2 = "Key File"
     Case ids_KeyFilePrompt
          GetString2 = "Enter path for key file"
     Case ids_DenyTitle
          GetString2 = "Reason"
     Case ids_DenyPrompt
          GetString2 = "Reason for denial"
     Case ids_Error
          GetString2 = "Error"
     Case ids_CACert     ' Tags our entry in kyr display
          GetString2 = "CA Certificate"
     Case ids_OldPasswordPrompt
          GetString2 = "Input the original password"
     Case ids_NewPasswordPrompt
          GetString2 = "Input the new password"
     Case ids_PasswordChanged
          GetString2 = "Key file password successfully changed"
     Case ids_Cancel
          GetString2 = "Operation Cancelled"
     Case ids_YourReq
          GetString2 = "Your Certificate Request"
     Case ids_YourCert
          GetString2 = "Your Certificate"
     Case ids_DNSPrompt
          GetString2 = "Please enter the dns host name for your site"
     Case ids_DNSTitle
          GetString2 = "Site Host Name"
     '
     ' Error messages:
     '
     Case err_NotifyMail
          GetString2 = "Error sending notification email to " + arg1
     Case err_NoMailAddress
          GetString2 = "Unable to notify - no email address provided"
     Case err_ApprovalFailed
          GetString2 = "Approval failed."
     Case err_DenyFailed
          GetString2 = "Denial failed."
     Case err_NoKyr
          GetString2 = "Key ring file name must be entered"
     Case err_NoKyrPwd
          GetString2 = "Key ring file password must be entered"
     Case err_NoNewPwd
          GetString2 = "You must input a new password"
     Case err_RejectFailed
          GetString2 = "Reject failed"
     Case err_SubmitFailed
          GetString2 = "Submit failed"
     '
     ' Anything else is trouble...
     '
     Case Else
          GetString2 = "Error #" + Str(StringIndex) + ": " + arg1 + " " + arg2
     End Select
End Function
'++LotusScript Development Environment:2:1:ApproveCertificateRequest:1:8
Public Function ApproveCertificateRequest(doc As NotesDocument, keyFile As String, password As String) As Integer
     ApproveCertificateRequest = True ' assume success

     Dim db As NotesDatabase
     Set db = doc.ParentDatabase
     Dim prof As NotesDocument
     Set prof = db.GetProfileDocument("CAProfile")
     '
     Dim certBuf As String * 2048  ' maxCertBufLen%
     Dim msgBuf As String * 1024   ' maxMsgBufLen%

     cmdArgs$ = "KeyFile=" & keyFile & ";Password=" & password & ";ValidDays=" & doc.ValidDays(0) & ";"
     certInfo$ = doc.Certificate(0)

     If dbg Then Messagebox cmdArgs$
     ret = SignCertificate(cmdArgs$, certInfo$, certBuf, maxCertBufLen%, msgBuf, maxMsgBufLen%)

     If ret Then
          OutMsg(msgBuf$)
          ApproveCertificateRequest = False
     Else

          doc.Certificate = certBuf
          doc.Approved = "1"

          ' now crack the cert and fill in some fields

          Dim cert As Variant
          Dim subjItem As NotesItem
          Dim IssItem As NotesItem

          cert = doc.Certificate
          CertView = ViewCert( cert, "0" )

          doc.SubjOrgUnit = ""
          doc.IssOrgUnit = ""
          Set subjItem = doc.GetFirstItem( "SubjOrgUnit" )
          Set issItem = doc.GetFirstItem( "IssOrgUnit" )

          Forall k In CertView
               ' subject fields
               If Left$( k, 11)  = "SubjectOrg:" Then doc.SubjOrganization = Right$(k, (Len(k)-12) )
               If Left$( k, 18)  = "SubjectCommonName:" Then doc.SubjCommonName = Right$(k, (Len(k)-19) )
               If Left$( k, 15)  = "SubjectOrgUnit:" Then subjItem.AppendToTextList(Right$(k, (Len(k)-16) ))
               If Left$( k, 12)  = "SubjectCity:" Then doc.SubjCity = Right$(k, (Len(k)-13) )
               If Left$( k, 13)  = "SubjectState:" Then doc.SubjState = Right$(k, (Len(k)-14) )
               If Left$( k, 15)  = "SubjectCountry:" Then doc.SubjCountry = Right$(k, (Len(k)-16) )
               ' issuer fields
               If Left$( k, 10)  = "IssuerOrg:" Then doc.IssOrganization = Right$(k, (Len(k)-11) )
               If Left$( k, 17)  = "IssuerCommonName:" Then doc.IssCommonName = Right$(k, (Len(k)-18) )
               If Left$( k, 14)  = "IssuerOrgUnit:" Then Call issItem.AppendToTextList( Right$(k, (Len(k)-15) ) )
               If Left$( k, 11)  = "IssuerCity:" Then doc.IssCity = Right$(k, (Len(k)-12) )
               If Left$( k, 12)  = "IssuerState:" Then doc.IssState = Right$(k, (Len(k)-13) )
               If Left$( k, 14)  = "IssuerCountry:" Then doc.IssCountry = Right$(k, (Len(k)-15) )
               ' valid dates
               If Left$( k, 10)  = "StartDate:" Then doc.ValidBegDate = Right$(k, (Len(k)-10) )
               If Left$( k, 8)    = "EndDate:" Then doc.ValidEndDate = Right$(k, (Len(k)-8) )
          End Forall

          Call doc.Save(True, False)

          ' Send email to notify of approval if necessary.  We include a url they can use for pickup
          '
          dbPath$ = db.FilePath
          If db.Server = "" Then  ' try to fix up if open locally
               dbPath$ = LocalPath(dbPath$)
          End If

          url$ = "http://" + prof.CASiteUrl(0) + "/" + dbPath$ +"/" + strPickupView + "/" + doc.PickupID(0) + "?OpenDocument"
          Call SendNotification("MailCertRequestApproved", doc, GetString(ids_YourReq), url$)
     End If
End Function
'++LotusScript Development Environment:2:1:DenyCertificateRequest:1:8
Public Function DenyCertificateRequest(doc As NotesDocument) As Integer
     DenyCertificateRequest = True ' assume success

     doc.Approved = "D"

     Call doc.Save(True, False)

     Call SendNotification("MailCertRequestDenied", doc, GetString(ids_YourReq), doc.Reason(0))
End Function
'++LotusScript Development Environment:2:2:OutMsg:1:8
Sub OutMsg(msg As String)
     TrimBuf$ = Left$(msg, Instr(msg, Chr$(0))-1)  ' strip nulls
     Messagebox TrimBuf$,48,"Error"
End Sub
'++LotusScript Development Environment:2:1:RejectCertificate:1:8
Public Function RejectCertificate(doc As NotesDocument) As Integer
     RejectCertificate = True ' assume success

     doc.Approved = "D"

     Call doc.Save(True, False)

     Call SendNotification("MailCertSubmitDenied", doc, GetString(ids_YourCert), doc.Reason(0))
End Function
'++LotusScript Development Environment:2:1:FixFileName:1:8
Function FixFileName( fn As String ) As String
     If (fn Like "*[:/\]*") Then
          FixFileName = fn
     Else
          Dim session As New NotesSession
          If IsDefined("UNIX") Then
               FixFileName = session.GetEnvironmentString( "Directory", True ) & "/" & fn
          Else
               FixFileName = session.GetEnvironmentString( "Directory", True ) & "\" & fn
          End If
     End If
End Function
'++LotusScript Development Environment:2:1:UpdateCACert:1:8
Function UpdateCACert(doc As NotesDocument, certFile As String) As Integer
     '
     ' This creates the CACert document, which is a special document in the pickup view
     ' Users can pick up the cert in the document so they can trust it.
     '
     ' For now we create a new one each time and let the pickup view sort them out.  This keeps
     ' the previous documents around in case of mistakes.
     '
     UpdateCACert = True ' assume success
     '
     ' Create the document
     Dim CADoc As NotesDocument
     Set CADoc = doc.ParentDatabase.CreateDocument
     '
     ' These fields identify this as the special CACert document
     CADoc.Form = "CACert"
     CADoc.PickupID = "CACert"
     CADoc.RequestType = "CA"
     '
     '  Copy over the relevant fields from the input document
     CADoc.CommonName = doc.CommonName
     CADoc.Org = doc.Organization
     CADoc.OrgUnit = doc.OrganizationalUnit
     CADoc.Locality = doc.Locality
     CADoc.State = doc.StateProvince
     CADoc.Country = doc.Country
     '
     ' Load the certificate from the text file

     cert$ = ""

     Open CertFile$ For Input As #1
     Do While Not Eof(1)
          Line Input #1, L$
          If Left(L$, 1) <> "-" Then cert$ = cert$ + L$
     Loop
     Close #1

     CADoc.Certificate = cert$
     '
     Call CADoc.Save(True, False)
     '
End Function
'++LotusScript Development Environment:2:1:GetString:1:8
Function GetString(Byval StringIndex As Integer) As String
     GetString = GetString2(StringIndex, "", "")
End Function
'++LotusScript Development Environment:2:1:GetString1:1:8
Function GetString1(Byval StringIndex As Integer, arg1 As String) As String
     GetString1 = GetString2(StringIndex, arg1, "")
End Function
'++LotusScript Development Environment:2:2:NukeIt:1:8
Sub NukeIt( fn As String )
     On Error Resume Next
     Kill fn$
     On Error Goto 0
End Sub
'++LotusScript Development Environment:2:2:UpdateCAKeyProfile:1:8
Sub UpdateCAKeyProfile(doc As NotesDocument)
     ' This takes a document (such as from Create CA Keyring) and updates the application's profile
     ' based on it.  Right now it simply writes the key ring file name.

     Set db = doc.ParentDatabase
     Dim prof As NotesDocument
     Set prof = db.GetProfileDocument("CAProfile")

     prof.CAKeyFile = doc.KeyRingFileName(0)

     Call prof.Save(True, False)
End Sub
'++LotusScript Development Environment:2:2:SendNotification:1:8
Sub SendNotification(form As String, doc As NotesDocument, subject As String, arg As String)
     ' This is used to send email for notification.  It checks for the presence of
     ' an email address as well as the SendMail flag.  If it can't send mail it quietly
     ' doesn't.

     Dim MailDoc As NotesDocument
     Dim db As NotesDatabase

     If doc.EMail(0) <> "" And doc.SendEMail(0) = "1" Then
          Set db = doc.ParentDatabase
          Set MailDoc = New NotesDocument(db)

          Dim prof As NotesDocument
          Set prof = db.GetProfileDocument("CAProfile")

          MailDoc.form = form
          MailDoc.SendTo = doc.EMail(0)
          MailDoc.Subject = subject
          MailDoc.arg = arg

          ' should copy common fields over from doc as well...

          On Error Goto mailerror
          Call MailDoc.Send(True)
     End If
     Exit Sub

mailerror:
     Messagebox GetString1(err_NotifyMail, doc.Email(0))
     Resume Next
End Sub
'++LotusScript Development Environment:2:1:SubmitCertificateRequest:1:8
Function SubmitCertificateRequest(doc As NotesDocument) As Integer
     ' This is used when a (server) certificate request is submitted from Notes.
     ' It does some of the cracking that would normally be done by the url's
     ' special processing if submitted from the web.
     SubmitCertificateRequest = True ' assume success

     Dim certreq As Variant

     certreq = doc.Certificate

     CertView = ViewCert( certreq, "1" )

     If Isempty(CertView) Then
          SubmitCertificateRequest = False ' bad request
     Else

          doc.OrgUnit = ""

          Forall k In CertView
               If Left$( k, 11)  = "SubjectOrg:" Then doc.Org = Right$(k, (Len(k)-12) )
               If Left$( k, 18)  = "SubjectCommonName:" Then doc.CommonName = Right$(k, (Len(k)-19) )
               If Left$( k, 15)  = "SubjectOrgUnit:" Then doc.OrgUnit = Right$(k, (Len(k)-16) )
               If Left$( k, 12)  = "SubjectCity:" Then doc.Locality = Right$(k, (Len(k)-13) )
               If Left$( k, 13)  = "SubjectState:" Then doc.State = Right$(k, (Len(k)-14) )
               If Left$( k, 15)  = "SubjectCountry:" Then doc.Country = Right$(k, (Len(k)-16) )
          End Forall

     ' Reformat the cert as it would come from the web
          cert$ = ""
          Forall k In certreq
               If Left(k, 1) <> "-" Then cert$ = cert$ + k
          End Forall

          doc.Certificate = cert$

          Call doc.Save(True, False)
     End If

End Function
'++LotusScript Development Environment:2:1:ReadFromFile:1:8
Function ReadFromFile (fn As String) As Variant

     Dim FnLinklist List As String

     filenum% = Freefile()
     Open fn$ For Input As filenum%
     i = 0
     Do While Not Eof (filenum%)
          Line Input #filenum%, FnLinklist(i)
          i=i+1
     Loop
     Close filenum%

     AnotherHack = FnLinklist

     ReadFromFile = AnotherHack

End Function
'++LotusScript Development Environment:2:1:ViewCert:1:8
Function ViewCert (EncodedCertValue As Variant, PKCS As String) As Variant

     Dim CertValList As Variant
     Dim buf As String * 500

     certfile$ = FixFileName("~vwcrt.tmp")
     entryfile$ = FixFileName("~vwentr.tmp")

     Call WriteToFile( EncodedCertValue, certfile$ )

     CmdArgs = ""
     CmdArgs = CmdArgs & "CertReqFile=" & certfile$ & ";"
     CmdArgs = CmdArgs & "EntriesFile=" & entryfile$ & ";"
     If PKCS = "1" Then CmdArgs = CmdArgs & "UsePKCS;"

     NukeIt( entryfile$ )

     rc%  = ProcessSecurityCmd("ViewCert",CmdArgs,Buf,500)
     TrimBuf$ = Left$(Buf,Instr(Buf,Chr$(0))-1)

     NukeIt( certfile$ )

     If rc% = 0 Then

          CertValList = ReadFromFile( entryfile$ )

          NukeIt( entryfile$ )

          ViewCert = CertValList

     Else
          Messagebox TrimBuf$,48,"Error"
     End If

End Function
'++LotusScript Development Environment:2:1:ResubmitRequest:1:8
Function ResubmitRequest(doc As NotesDocument) As Integer
     ResubmitRequest = True ' assume success
     doc.Approved = "0"
     Call doc.Save(True, False)
End Function
'++LotusScript Development Environment:2:2:WriteToFile:1:8
Sub WriteToFile (FnLinkList As Variant, fn As String)

     ScriptBugHack = FnLinkList

     Call NukeIt( fn$ )

     filenum% = Freefile()
     Open fn$ For Output As filenum%
     Forall i In ScriptBugHack
          Print #filenum%, i
     End Forall
     Close filenum%

End Sub
'++LotusScript Development Environment:2:1:BreakItUp:1:8
Function BreakItUp (LongCert As String) As Variant
     Dim Broken List As String
     Const linelen = 64 'this seems to be the length that we often return
     count = 0
     While 1
          If Len( LongCert ) > linelen Then
               Broken( count ) = Left$( LongCert, linelen )
               LongCert = Right$( LongCert, ( Len( LongCert) - linelen ) )
               count = count + 1
          Else
               Broken( count ) = LongCert
               BreakItUp = Broken
               Exit Function 'this might be superfluous, but who knows
          End If
     Wend
End Function
'++LotusScript Development Environment:2:2:CertToPickupCert:1:8
Sub CertToPickupCert(doc As NotesDocument)
     ' This assume you have a field Certificate which contains the cert as one long base64
     ' encoded line.  It loads up a multi-value text field called PickupCertificate with a copy
     ' of this broken into lines of manageable size with the beg and end tag lines.
     '
     Dim DisplayCert As Variant
     DisplayCert = BreakItUp(doc.Certificate(0))

     Set itm = doc.ReplaceItemValue("PickupCertificate", "")
     itm.AppendToTextList("-----BEGIN CERTIFICATE-----")
     Forall k In DisplayCert
          itm.AppendToTextList(k)
     End Forall
     itm.AppendToTextList("-----END CERTIFICATE-----")
End Sub
'++LotusScript Development Environment:2:1:LocalPath:1:8
Function LocalPath( dbPath$ ) As String
     '
     ' This should be used to convert a db.FilePath to be relative to the notes data directory
     ' when the db is opened locally.  We assume in db is either in or under the data
     ' directory.  Because this is to help construct absolute urls, we replace all backslashes
     ' with slashes.
     '
     Dim session As New NotesSession
     dataDir$ = session.GetEnvironmentString("Directory",True)
     l% = Len(dataDir$)
     If Left(dbPath$, l%) = dataDir$ Then
          dbPath$ = Right$(dbPath$, Len(dbPath$) - l% - 1)
     End If

     i% = Instr(dbPath$, "\")
     While i%
          dbPath$ = Left(dbPath$, i%-1) + "/" + Right(dbPath$, Len(dbpath$)-i%)
          i% = Instr(dbPath$, "\")
     Wend

     LocalPath = dbPath$
End Function
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$ScriptLib
$ScriptLib_O
$TITLE
$Flags
$PublicAccess
Keyring Administration
HotspotRectangle4
CASetup
    1S4S6S
HotspotRectangle5
CertRequest
    1S4S
HotspotRectangle6E
CertRegister
    1S4S
HotspotRectangle7
defView
Create CA Keyring
    0S6S
defView
    0R4S
HotspotRectangle8
defView
ServerAppSteps
    0S6S
defView
    0R4S
HotspotRectangle9~
CAProfile
HotspotRectangle13
ViewKeyring
    1S4S
HotspotRectangle14
defView
CertRequestServerNotes
defView
    0R4S
HotspotRectangle15
CACertificate
CACert
    4S6S
CACertificate
CACert
    0R4S6S
GraphicButton12P
X,X,X,X,
    ,DX%DX%X%
c`Zc`ZcY`Y
.e_/V
bzbzbzbzbczcz
%X%X%X%
zbzcz
d`cd`Z`Y`YZ
,%X%X%
rTzcbczczcz
%X%X%
c`cd`c`Y`Y`Y
d    cdc`d`d`d
e`e/e
`dZ`d
Z`e.Q9Ve_(;
TrTrTr
f`f`Y
cdcdcZn
4?'n\
brzSbSzS
+I:3A
ececdL
~z~z~
DZDZ2D
m_UVU
2    12121212D
bzSTcT
    z~z~z~}z}
9'8P8'I
bz~z~z~
SzTcT
H$_$V
4{VeZ|e\
H2H2@
cD2c2D
W ;rU
GH2H2@
{'PTUVrZUVeVeL'Z1r
7=A:A
GH2H2H2@
2_2H2H2H
H2H2H2@
_HVHUH
_2_H_
U$UV_
_GHG2#3
    A#A#
H2H2H
!7!D#1
3#3#2G2G
G2GH2H2H2H2@
H2H2H2H@
VHUGUH
G2H2H2H@
U    H$V$V.e`f
'5eV_$_
#12#2
/V$H2
2H2H2H2@
VHUHU
LVe_e
dc`e?
H2H2H2H@
2H2H2
Ve_e_.
V_H_21
H2H2H2H2H2G2H2H@
A2A23G
_    V_U_UHUGI
OI;6IGUO9e_`?5`]
m 6 XV
V    U_U_H21%
H2H2H2H2H2H2H2
!A7A!
IHU$V/_e
_H2H2H2
3H_V_V
V$HUIG
VH_21%
H2H2H2H
!A7A!
$VHUIG
_e._.'
HUHUGIG
U    $V._/_V;
:A:A:3A3GH_e
UHU$V
HUGIGUGU$H_$
"%<8%
GU_/_V_V_VHUGIGUGU_$_$
IG$V_e_V_$U$GUGIG
:I:IGU_/.V._V_UHI
_2_2H
!1HV/e`
_V_2_
-:GIHV
D2Z232:3
I-IGU$e
Z2D2D2DZDZTZ2Z2Z
HV_HV_
_2_2_2D2D2Z2
/_V_2_
%!%1@
D2D2D
2ZD2D1
%D!D%
-:-IGU$V.
2D2D2ZD
ZTD2D
kdkdf`
D2D2D2D2
2_21D1
:-:-:
H_$_$_
D2D2D2
dkd`d`Ze._
_    D_1D1%1%1
_$H2H
:-:-I3
$H_2H
2A2#1D1D1D2
d    kdkdfd`Ze
G3I:3
2D1D1
_    Z_Z_ZF_ZD
G3G:-:
I:I-:
%D_.`Y
FZ_DZ_TZDZDZ
2#2#A
Z2_TZ_D
DZ2Z2Z2
:-:-:-:
1D1D#
3:3:I:-
:-:-:-
12_.2.Z`Ycdcd`c
F_2DZD_2
%,>,>,
D!D!D!
#1%!%
D2DZD2DZDZDZDTZ
J`Y`YZTZDZD_DZ
cDc1D
-:-:-:-:-:-
:    3A3A2
#D%!D%!
1%1%!
.FZJZ
ZDcDc
>,>+>+>+>+
-:-:-
1D%1%1%
>,>,@
+>+>+>=
A3A3:3
DX,r,>,>+>+=+>@
=>+>@
>+>+>=>+=+=+=@>=@>+>+>
=+=+=@>=+>@>
>=+=+=+=@=>@>
=+=+=@=@
A:A3A3A
@=+=@>
>@=@=
A3A3A:
:A:A:
A    :A3:A:A
A:A:A
A:A:A
:-:-:-:
A:A:A
JTJTF
2_Z_D1D
DFRFJFTFD1
YTYZF
FZYZD
7%!%7%7%7%>7
XTD%D
Ze_Z_
7>7>%
$_2H$H$H2H$_$_$_$2$
e._Z_e.e@
H_$_$_$H2$
$V$H_$V_V_H$
NX,>%D7%7!7!7
!A7A#7%DXrS
A7A7A!
U$UHG2G
XDXD%7#A
7!%DXrSXrTr
$.$.$.
#2HV$_H$_.e
%1%1%
XD!7!7!A!A!
.$.$.$/.$./$.$.$
.$.$/.
$    /V$G
2HV_V
7A7A7
!A!A7A
>r%rXr^>@
.$/$/.
././_.
_V_e@
!7!7A7A!
.$.$/.$/$/./$/$./$/.
#2$_V$V$_V@
%D,D,D%
/././
D,D%X%,D
7A7!A7A
./$./$/$/./.
././.
_/VH@
D,XD,%
%D#7!A7A7
D,%D,%,
./$/$/././$
X,D%DX,
2$.$.$/$./$
_e`fYf
Z`Yd@
&mRPL$./$/./.
r^*,X%
D,%X,%D,
./$/$/.
F9/./`./
XJYjo@
D,%X%D,
Ecjo@
;9/L;
./.YF
,FYzo@
5/9;+.F/R.K
TYjo@
,%,%D
/.];&
X%X%,>
%;O/.
5/9;R$RW
K.FZ/
&9L/.m
%!2e`
D%D%D
$/././
1_e`dfd@
%D7D%D
D%D%D%,D
>@=>+=
./.0K/./
Z`Yf`
+>=@=@
/$HGH
fcYfZD
%!1_e
;&'$.\
./9&$.\;
!%!D%
!%D%D%!D
/&m.L;.;9/J.0
!    1Z`cjdc`D
_e`e_V@
Z.`e_/_@
?*\5./&
$HUGH
e._$V/@
D    !D!D!D!D!
*$F.L
KF;5/&
F/R/0Q&
&9/.9
&/&[\K
&KW50
2.Z_.Z.2.e_@
#!%D,
%1DZJ`ZFD_Z.Z2_._eV@
D1D,XNC^+^*C
FEJF$/
./$/$/0
/$./.
/.$./$././$
$/././
_2Z_Z
././$
./$/./.
/./$/
Z.Z.Z
F.FYZ
Z._Z`@
./.$/$/./$/./.
oYoYj
_Z2Z.d@
/$./$/././$/./
././$/
Z.Y.FZ.
edk@
./$/././$/././.
fdk@
2GHU$/$.$./$/./$/././$/
.Y.F.
Y    KoYjKoYKo
_Feckq@
231G#
ZY.F.
KojKzKoKozoz
qjcYZ
Z.Z.Z
jKjojozojozo
./.$/$/
$.$.$
Z.Z.Z
zKjzKjzjzjzKjozozoz
FZ.YZ
YjKjYjYK
#    1%!
F.FZ.ZYZ
jojoqp
/$/$/
YZ.F.YF
.YZYZ
JZYZYJY
X    TZTFDXFTF
Z.F.ZF
F.ZF.ZE.
XDXFTFDX
12H/$/
.F.FY.
zjzjzcbTXNFTS
DXTZTDFTcj
>%!1GIU$
FZ.FY.FY.FY.F.
ZFZFZ
FTYbcj
jzcbT+DCXSTD
XTcjp
.ZF.YF.
TFYTYTYT
+NTSX
!1%1%
_$/2/
D.F.F.FY
YF.FY
JYTKTJYTEF
XSXNX+STSX+Tbc
z}ow@
.D.ZF.FZ
TrSXNTbc
%12GIU
+    XCXN,NXrT
zy}yw}@
.Z.ZF.
DF.E.
rbc}z
Z!1!D
QBsrSrC^+=+NrN
NrSN^Nr
D.F.FD.
BQBQB
MQMQMB
B    )r*+=+^C^
ZF.D.F.F.D.
JKRQB
Q    MQMBMBMBM
GH2$H2$
+>+rN
.Z.EF.
MB)MB
h{^@=+r
brSvb
BQBQBQBQ
L()@>
N@>^N
BQBQBQ
+^C+@
N^=>=7=
%12#G
9mP&9BQ
BMB()
+@>^r^+=
rC^@>
>rz~y@
QMQMB\
M(h)B{g^
^r^+=
>%D1#
2    1212
    5Q9;
9MBMB
(MhQh|{u
vSsRr^
%121G12
?QLB?Q?
)*){Q
~bsr^@+
m4R;9RBRB9
vSr@+^
R9;B^
PR^RC^R^RSC+^Cb~}
v^g^rsr@
RFPE9;RF)F
MEM5;R&
C^SC^+
mX4'E'mXC9\JC\;
+CrC^
sr@rsSr@
SECESREF
RCNFCESRJR
CrC^+g^s
>%D1%#1D
EFNXFCEXECJRE
C    ESRECNCRE
KbRS^
sz~zS^g^szr^=
%1D#D1#D1#
CFECFXE
EXECJCF)OB
^Sr^@gr
zsrg^r
>!D2D#
%    1%D%1D
&MJRSCEC
^zSsg=
,%1D%#1D
ECEFNF
LJCEC
RECNCRbQzvzvubu
sbRrC@^C
sSs@=
D(%DO
mMCB4
 \9E9ONP
m?M4?
'M4)C'm
;iv05];
F ;CB
\X)C&
LR(FR;\^&
N^SrS^+
^rSsr@
RX;4&9
^@g*^r^@
!D1D!
9JEm4X
rsSs@=
E9;BEMR\
4+XO(9
D    P4FX)
    9EC&4'45C
5PCF\
9M4(CRm
4&9JC\
OMmtvim
miS'4
@rRr^
A!D,D
&CFXCFE
vzRC,
>^rbRrg
^r^g@g
rsSr^@>
FNXFCJCXCSRECF
bRSN>7!7!7!
>@ruzsr^@
^sbsN=>
FCFCFCXFCERLRCFNXFCEFN
FCRJCE
C    SJbQK|vQK
NFCECFECE
FNFCECFNXF
z    RS,7
DXFCFX
NCFECRC
FXNECECF
CFERJ
|vzQbS+
>@rsz
zvr^@g
CFCXN
FXNFCEFNXCRECECER
+rbz~z~Szr^@g^r^g
^r^+g
FCECN
ECJCFCRJbvQ
bSr,>
A7A7!
X    EJCFCECRE
JRbvzQ
@g+^r*
NrN^,
FCEFN
XFCEF
EJbvQ
>=^Cr^
^r^g@^
r    XN,XTScTX@
!A7#!7%,XC
NFCECECFCFCN
FCECN
CNFRJ
ERbvK
v    |v|vQKbN,
g^N^g@+NXrN,XTScT@
CFXFCRCF
7!7!7!
^rN^+^
!7!7!7
NFECFX
XNXNF
ECEXNXF
|vzuJ+
7D,XC
XEFCFC
CRCEF
    FCFC
|vQvQ
=+rSr^g
XESRJRSR
QzQvQ
bRN,7
JRCFX
XFECFCS
QvzS,
    !7!7#7!7%
XECFXCS
Qv|vQ|vzKbC,7!7!7%
D,SJbs
CNCERbQ
%,NCRrbs
=NSzSzTX@
7!7!7
%7!,S
RJSND
XFRbQc
T    rX>
D,XSJ
JSNDNFCFCX
b    N,7
>%TZcZT
!7!%!%7!
zKbS+
7!7#!7!%,X
KvbrC,
dcZD@
%DXJSEN
DNFCFX
y}y}z}
!A!A!A7!7
DFEJR
zQvKzKQ
~y}yz
vbzKv
%Tdcqp
%XFCX
DNFXD%
CESQ9{
JSNXNFSb
>+SrJSCN
7>DZcqpjq@
czbJN
>%Zcq
!A#A7A
!    %DXFX%D
XSESXE
zbcr,>7
+bKjKz
!A!A!#A
4MSJbc
z    ozozcbSX
SczKczczbX
D    X1%DXC
ENDFEF
m?9mS
>+SbKzbX
DZdcZY@
%!%!7
,XSJECX
ECXNFCF
9&9'E5\mL9 m&T
%>%,X
SczcJX
DTcZcT@
%    XEJECXNCJ
N    FEX
&FCRF8m
,FTZY
ScTD%7
%FTZcTD@
%    !%XFSEFN
SzbS+
!    %,FJTX
zcjcz
XMOFX*59RO*
FEFNXFCEFX
FCJTF
FZTJZJYJ
(FJFX
tct?ZD
>+FXT,>
1DFZFO
jpjpj
BP4*4
;]ztW
tjy[yqi[q[
[zdi;
9FRDBCJ5mjt
WtzmWc]5c
j";Wd
tQm[B>
    >+,TXDN+
icdjqW
]jpmWcY|cd
*/DX4
;?5dji
ki[q]
;n[fdi
[ikim
mtji[
.ZFZYZdY
dkdqjd
6;FZYScS
`Ydcdcdj
G$.Z`
sbSr@
3U.eYdt
jkdjd
&R;8G
3H.edt
dqdcdcd
!4    -"
'U.`t
q    dcqdcdcZc
sbsvbsvSsr@
$H2GH$H
ZcZcZTXD,XTS
4"-IGQ
qdkqjd
D,+XTS
sbsub
3I3IG
Q`];kn
;[dkdqdqjdq
zsbsb
bususu
3    -3I3I3UIU
sbsbs
3-G3I3
I-8>"-
\    #"-
!81$.&
yny[]
ZcTcTc
svsbs^g
@=+NS@
"-"-%
dozdi
qdqdq
SbcTXN+XrSv
SRs@
qcdqcdq
TbcbScXN+N
u    suvzsbvbv
3I3-IGU
SXN+rXvb
ususu{
cqdcq
zbSXNgN
u{u{u{u{u|u
SrN@+rS
{|{|utu
zbSrNg^r
u{u{u{u
dcqcq
ScSbz
zbzSr^@^rS
qcqcqcZ
szSrNg+r
TbczS
bzszs
u{u{|{|u
I:-:-
#2Zdqcdq
ScTSczSz
b    zvszvzvr^
u{u{s
A#2Zc
zcbScb
vbzsvs
s{s{u
U$UG3
{s{s{s
TSczS
u{s{s
GUGU3
A#2_T
S~vszvz
!#212Z
g*^N@
D1DX>,
u{s{s{s
!#D2D1D
svszvsvs~vu~uv
g*^@=@
>NrS~z
G21GA
r{s^s^g
!D1D1!7
=@rzSv~s
u~vsu~
#!7!7!7#7!7#
g^rsv
!7!7!7A
=^sr~
g^rs{
g^srs
g*^r^s*
^    sr*g
=>^,>@=
g,rX,=
>r7>7
=,r,>=
=,%X%r
=>r%r
=,^>=
r%>^=
%,=@>=
=^%>r%
=>,>,%r>g
@>^>^
=@>^>
ZZZcccsss
RJJRBB
ssJ99
ccB11{RRZ11k11c1)J1)
{sR1!
kJ9J)
J!{ZB
R)kB!
skcscR
sZRB1
k9sJ!
9RkR{
BZ{1Jk
)RBJZ19Js
BR{JRk19R!)Bks
BBJccsZR
kZ{cRs
cRkcBskB{k1s
B1BcBck!c
R{kRcs!Zc
JZ)JZ
1Zc!BZ
k{s)JsZcs)Bc)9
ZcsBJ
JRc)1
JPEG Image
*.JPG
 Image
*.JPG
 Image
*.JPG
 Image
*.JPG
 Image
*.JPG
 Image
*.JPG
XXXXXXXX
 Image
*.JPG
 Image
*.JPG
 Image
*.JPG
 Image
*.JPG
 Image
*.JPG
22222222
________ Image
*.JPG
 Image
*.JPG
 Image
*.JPG
>+>+>>>+ Image
*.JPG
../.....
 Image
*.JPG
 Image
*.JPG
 Image
*.JPG
 Image
*.JPG
 Image
*.JPG
--------
 Image
*.JPG
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$ViewMapDataset
$ViewMapLayout
New Web Page,
WebPage
    0S0E
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Index
$Formula
$FormulaClass
$ViewFormat
$Comment
$ACTIONS
[CAPrivlegedUser]Certificate Requests\Denied|CertificateRequestsDenied
$1CommonNameContactNameOrgEMail$Conflict$REF
CertRequest
Approved
    L1S5S7S8S9S10S
$1CommonNameContactName
CommonName
CommonName
ContactName
ContactName
EMail
EMail
$1Submitted
CommonNameNameContactNameContactOrgOrganizationEMailEMail&
CertRequestDenied
Denied Certificate RequestsY
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################
[CAPrivlegedUser]System\Certificates And Requests| defView
$9FormApprovedContactNameCommonName$Conflict$REF
CertRequest
CertSubmitF
    L1S5S7S8S12S
$9ContactName
$9Created
FormFormApprovedApproved?ContactNameContact NameCommonNameCommon Name&
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################
[CAPrivlegedUser]System\All Documents|All.
Form$Conflict$REF
FormForm&
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################################################
WebPage[CertAppDesigner]
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
CertAdminHeaderCUA3
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
CN=James Cunningham/O=IrisCN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###################
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
View Certificate Requests Waiting for Approval6
CertificateRequests
View Approved Certificate Requests>
CertificateRequestsApproved
Main Menu
CASetup
    1S4S6S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
\64^.
$Readers
$TITLE
$Index
$Formula
$FormulaClass
$ViewFormat
$FormFormula
$Comment
$ACTIONS
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$Readers
$TITLE
$Index
$Formula
$FormulaClass
$ViewFormat
$Comment
$ACTIONS
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$Readers
$TITLE
$Index
$Formula
$FormulaClass
$ViewFormat
$Comment
[CAPrivlegedUser]Certificate Requests\ Waiting for Approval|CertificateRequests
$2CommonNameContactNameOrgEMail$Conflict$REF
CertRequest
Approved
Approved
    L1S5S7S8S10S11S12S13S14S15S1,
$2CommonNameEMail
CommonName
CommonName
ContactName
ContactName
EMail
EMail
$2Submitted
CommonNameNameContactNameContactOrgOrganizationEMailEMail&
CertRequestApproval
Certificate Requests awaiting approvalY
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############################
[CAPrivlegedUser]Certificate Requests\Approved for Pickup|CertificateRequestsApproved
PickupID$3CommonNameContactNameOrgValidEndDate$Conflict$REF
CertRequest
Approved
    L1S5S7S8S9S10S
PickupID$3
PickupID
PickupID
CommonName
CommonName
ContactName
ContactName
ValidEndDate
ValidEndDate
PickupIDPickup ID$3Created
CommonNameNameContactNameContactOrgOrganizationValidEndDateExpires&
CertRequestApproved
Approved Certificate RequestsY
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################
Create CA KeyringCreateKeyringWithSelfRoot[CAPrivlegedUser]CD
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################################
CN=James Cunningham/O=IrisCN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###########################
DialogSubmitAccept1CD
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
View Approved Certificate Requests>
CertificateRequestsApproved
View Denied Certificate Requests<
CertificateRequestsDenied
Main Menu
CASetup
    1S4S6S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$Readers
$TITLE
$Index
$Formula
$FormulaClass
$ViewFormat
$FormFormula
$Comment
$ACTIONS
Categori_ze
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From Folder
View Certificate Requests Waiting for Approval6
CertificateRequests
View Denied Certificate Requests<
CertificateRequestsDenied
Main Menu
CASetup
    1S4S6S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
CQz'>C
$Readers
$TITLE
$Index
$Formula
$FormulaClass
$ViewFormat
$FormFormula
$Comment
$ACTIONS
MailCertSubmitDenied
SubmitMethod
    1S2S
$HideMailHeader
    0S0E
SendTo}
    0S0E
SendTo^
No names found to send mail.{
    1S6S7S8S9S11S16S
SendToList of primary people to send memo.
    From:
    Subject:
Your Certificate Request
Subject
    Your client certificate has not been accepted due to the following reason:
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Info
$$ScriptName
$Body
Pickup a Certificate
&Arial
 WebCertPickup
Pick Up Signed Certificate
    When you certificate has been signed by the Certificate Authority and is ready for pickup, you will usually receive an e-mail containing the URL where you can pick up the certificate.  If you do not receive an e-mail, you can use this form to pick up your certificate by providing the Pickup ID in the field below.  Contact your Certificate Authority to obtain the Pickup ID.
    Enter the certificate Pickup ID below:
    Pickup ID:
size = 20
PickupID
Please supply a Pickup ID.  You should have received one via email or from your Certificate Authority
    3S4S6S11SPickupID[<SIZE=8 MAXLENGTH=8>]
    Pick Up Certificate
[CertAppDesigner]
    1S6S7S
    Hidden fields:
SaveOptions
/Pickup/"
PickupID"
?OpenDocument]"
    1S2S6S9S11S12S13S14S
$$Return
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
h9Z>[OQH
$TITLE
$Info
$WindowTitle
$$Script_O
$$ScriptName
$Body
WebPage
--------------------------------------------------------------------------------------------------
Hidden fields:
The Page Title below doesn't appear in a browser.  Use it to identify the
page in the Web Pages view, and for the Document name in URLs.
Page Title
PrivateTitle
---------------------------------------------------------------------------------------------------
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$FormUsers
$Info
$$ScriptName
$Body
CertAdminHeader
[CertAppDesigner]
    1S6S7S
------------------------------------------------------------------------------------------------------------
Hidden:
Common Header for Certificate Admin Pages.
The fields in this section are visible only when editing,
and user has the "[CertAppDesigner]" role.
Category:
Categories
Create Keyrings & CertificatesQuickstart - for Trying Out SSLManage Keyrings
Page Title:
PrivateTitle
Doc Order:
DocOrder
-------------------------------------------------------------------------------------------------------------
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
z0$Q<
:jU    ]
$TITLE
$Info
$$Script_O
$$ScriptName
$Body
&Arial
MkX"V[/m
    Web users launch to this doclink:
Certificate Authority
CN=orr/O=NHL
![y[w
!!!)))111999BBBJJJRRRZZZccckkksss{{{
sRkZ9
sJkZ1
BkZ)cR!
s9sc1
{9{k1
s{sRskJ
{RkcB
cZR1cZ1
9sc!91
{J{sB
{Bsk9cZ)
J{s9sk1kc)
sssRkkJccBRR1
7.RIP
Word for Window
GIF Image
    Welcome to the Domino Certificate Authority application. The Certificate Authority application is the first step towards securing your organization's intranet using SSL 3.0. You must use Domino and Notes Releases 4.6 to use this application.
    Before you begin, make sure you understand Internet and intranet security issues. For more information, see
    Getting Started with Domino
     or online administration Help (HELPADMN.NSF).
    The Certificate Authority application (CERTCA.NSF) lets you establish a Certification Authority (CA) within your organization. As an internal CA, you are responsible for handling certificate requests from Domino server administrators within your organization and adding client certificates to the Public Address Book.
    Which tasks can I perform if I'm a Certification Authority?
    Use the Certificate Authority application to perform the following Certification Authority tasks:
    -Create the CA certificate and key ring file, which holds your CA certificate.
    -Sign server certificates when server administrators request them so clients and servers can communicate.
    -Add client certificates to the Public Address Book to set up client authentication on a server.
    -View certificate information in the key ring file.
    Which tasks can I perform if I'm a Server administrator or client?
    Server administrators and clients use their browsers to access the Certificate Authority application. They use the application to do the following:
    -Submit requests for server certificates.
    -Pick up server certificates.
    -Submit a client certificate to add to the server's Public Address Book for client authentication.
    For information on using the Certificate Authority template, see the Using document
Certificate Authority
CN=orr/O=NHL
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
loH%|
$Info
$Body
[CAPrivlegedUser]Submitted Certificates\ Waiting for Approval|SubmittedCertificates
$2CommonNameContactNameOrgEMail$Conflict$REF
CertSubmitF
Approved
Approved
    L6S8S9S10S11S13S14S16S17S18S19S20S21S1*
$2CommonNameOrg
CommonName
CommonName
ContactName
ContactName
EMail
EMail
$2Submitted
CommonNameNameContactNameContactOrgOrganizationEMailEMail&
CertSubmitApproval
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################################
[CAPrivlegedUser]Submitted Certificates\Rejected|SubmittedCertificatesRejected
$2CommonNameContactNameOrgEMail$Conflict$REF
CertSubmitF
Approved
    L1S5S7S8S9S10S
$2CommonNameContactNameOrgEMail
CommonName
CommonName
ContactName
ContactName
EMail
EMail
$2Submitted
CommonNameNameContactNameContactOrgOrganizationEMailEMail&
CertSubmitRejected
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###############
WebPageHTMLOnly[CertAppDesigner]
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################################################
[CAPrivlegedUser]System\Cleanup|Cleanupr
Form$Conflict$REF
WebPage
Frame
    L1S2S7S9S10S14S1
FormForm&
Docs to delete when making templateY
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################
##########################################################
##########################################################
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
View Accepted Certificates@
SubmittedCertificatesAccepted
View Rejected Certificates@
SubmittedCertificatesRejected
Main Menu
CASetup
    1S4S6S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$Readers
$TITLE
$Index
$Formula
$FormulaClass
$ViewFormat
$FormFormula
$Comment
$ACTIONS
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
View Certificate Registration Requests8
SubmittedCertificates
View Accepted Certificate Registration RequestsK@
SubmittedCertificatesAccepted
Main Menu
CASetup
    1S4S6S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
,-byl
$Readers
$TITLE
$Index
$Formula
$FormulaClass
$ViewFormat
$FormFormula
$Comment
$ACTIONS
Create Certificate Authority Keyring
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "CertLib"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:10
 CreateKeyringWithSelfRoot'++LotusScript Development Environment:2:5:(Options):0:74
Use "CertLib"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:10
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As NOTESUIDOCUMENT
     Set Source = Bind(Objectname_)
End Sub
SaveOptions
Create Certificate Authority Key Ring
    This form lets you create the Certificate Authority key ring.
    Key Ring Information
    Quick Help
    Key Ring File Name
CAKey.kyr
KeyRingFileName
Key ring file name is required{
    3S4S
KeyringFileNameName for the file that stores Certificate Authority keys and certificates. Include path if file is not in the data directory.
    Key Ring Password
PasswordPassword for the key ring file (at least 6 alphanumeric characters recommended)
    Specify the file name and password for the key ring.
    Distinguished Name
    Common Name:
CommonName
Common Name is required
    3S4S
CommonNameDescriptive name for the CA (e.g. Acme CA)
    Organization
Organization
Organization is required{
    3S4S
OrganizationName of the organization, usually a company name (e.g. Acme)
    Organizational Unit
OrganizationalUnit(Optional) Name of the division or department (e.g. Marketing)
     (optional)
    City or Locality
Locality(Optional) City or town where the CA resides (e.g. Winchester)
     (optional)
    State or Province
StateProvince
State or province value must be at least three characters
    6S7S
StateProvinceAt least 3 characters that represent the state or province (e.g. Massachusetts, not MA)
     (no abbreviations)
    Country
Country
Country code must be exactly two characters
    6S7S
CountryTwo-character representation for the country (e.g. US) (two character country code)
     (two character country code)
    The Distinguished Name provides your unique identity as a Certificate Authority.  This is the information that will display as the "Issuer" in certificates that you sign.
'++LotusScript Development Environment:2:5:(Options):0:74
Use "CertLib"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
Declare Function FixFileName( fn As String ) As String
'++LotusScript Development Environment:2:5:(Declarations):0:10
Declare Function ProcessSecurityCmd Lib "_dmsecadm" (Byval cmdName As String,_
Byval cmdArgs As String, Byval OutBuf As String, Byval szOutBuf As Integer) As Integer
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Dim wsp As New notesuiworkspace
     Dim uidoc As notesuidocument
     Set uidoc = wsp.CurrentDocument
     Dim doc As notesdocument
     Dim Buf As String * 1024   ' maxMsgBufLen%
     Dim CmdArgs As String
     Dim item As NotesItem
     Set doc = uidoc.Document

     ' Look up to see if we already have a cakey file defined in the profile.  If so, they've probably done
     ' this before, so give them a scary warning so they don't shoot themselves in the foot.

     Dim db As NotesDatabase
     Set db = doc.ParentDatabase
     Dim prof As NotesDocument
     Set prof = db.GetProfileDocument("CAProfile")
     CAKeyFile$ = prof.CAKeyFile(0)

     If CAKeyFile$ <> "" Then
          flag% = wsp.DialogBox( "DlgAlreadyHaveCAKey" , True , True, False, True, True, False, FixFileName(CAKeyFile$) )
          If flag% = False Then
               Messagebox GetString(ids_Cancel)
               Call uidoc.Close
               Exit Sub
          End If
     End If

     Call uidoc.Save

     ' Get input data
     CommonName$ = doc.CommonName(0)
     OrganizationalUnit$ = doc.OrganizationalUnit(0)
     Organization$ = doc.Organization(0)
     State$ = doc.StateProvince(0)
     Locality$ = doc.Locality(0)
     Country$ = doc.Country(0)
     KeyRingFileName$ = FixFileName(doc.KeyRingFileName(0))
     doc.KeyRingFileName = KeyRingFileName$
     KeyName$ = doc.KeyName(0)
     Password$ = doc.Password(0)
     ValidDays$ = Str(doc.ValidDays(0))
     CertFile$ = FixFileName("~catmp.tmp")

     ' Build executable parameter line
     CmdArgs = ""
     If Organization$ > "" Then CmdArgs = CmdArgs & "Org=" & Organization$ & ";"
     If OrganizationalUnit$ > "" Then CmdArgs = CmdArgs & "OrgUnit=" & OrganizationalUnit$ & ";"
     If CommonName$ > "" Then CmdArgs = CmdArgs & "CommonName=" & CommonName$ & ";"
     If Country$ > "" Then CmdArgs = CmdArgs & "Country=" & Country$ & ";"
     If State$ > "" Then CmdArgs = CmdArgs & "State=" & State$ & ";"
     If Locality$ > "" Then CmdArgs = CmdArgs & "City=" & Locality$ & ";"
     If KeyRingFileName$ > "" Then CmdArgs = CmdArgs & "KeyFile=" & FixFileName(KeyRingFileName$) & ";"
     CmdArgs = CmdArgs & "KeyName=CAKeyPair;"  ' this is what we always call it
     If Password$ > "" Then CmdArgs = CmdArgs & "Password=" & Password$ & ";"
     If ValidDays$ > "" Then CmdArgs = CmdArgs & "ValidDays=" & ValidDays$ & ";"
     CmdArgs = CmdArgs & "CertReqFile=" & CertFile$ & ";"
     CmdArgs = CmdArgs & "UsePKCS;"

     Call NukeIt(CertFile$) ' start with no leftovers

     If dbg Then Messagebox CmdArgs
     rc%  = ProcessSecurityCmd("CreateSelfSignedRoot",CmdArgs,Buf,maxMsgBufLen%)
     TrimBuf$ = Left$(Buf,Instr(Buf,Chr$(0))-1)  ' strip nulls

     If rc% = 0 Then
          ' put up the confirmation dialog
          flag% = wsp.DialogBox("DlgConfirmCreateSelfRoot",True,True,True,False,False,False,TrimBuf$)
          ' Load up the CACert document with the cert we got.
          success = UpdateCACert(doc, CertFile$)
          Call NukeIt(CertFile$)     ' don't leave this lying around
          ' Remember some things in our profile
          If success Then Call UpdateCAKeyProfile(doc)
          Call uidoc.Close ' get out
     Else
          Messagebox TrimBuf$,48, GetString(ids_Error)
     End If

End Sub
'++LotusScript Development Environment:2:1:FixFileName:1:8
Function FixFileName( fn As String ) As String
     If (fn Like "*[:/\]*") Then
          FixFileName = fn
     Else
          Dim session As New NotesSession
          If IsDefined("UNIX") Then
               FixFileName = session.GetEnvironmentString( "Directory", True ) & "/" & fn
          Else
               FixFileName = session.GetEnvironmentString( "Directory", True ) & "\" & fn
          End If
     End If
End Function
d    d    (
^H    K`
^d    K`
}t    #8!
New Button
Need a newer version of Notes to execute this button.
    0S0E
    Create Certificate Authority Key Ring
[CertAppDesigner]
    1S6S7S
    Hidden fields:
    Valid days:
    0S0E
ValidDays
     (should be a long time)
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$FormUsers
$Info
$WindowTitle
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
ValidDays
$Body
&Arial
!!!)))111999BBBJJJRRRZZZccckkksss{{{
BkZ)cR!
s9sc1
{9{k1
9sc!B9
{J{sB
{Bsk9kc1cZ)
J{s9sk1kc)ZR
c{s1kc!
_IGIF
4W49F/V0
49F/V0
    When accessing the Certificate Authority application, make sure you have a network connection to the server and are working at the server machine. The Certificate Authority application must access files on the server hard drive over the network.
    The Certificate Authority application contains the following navigator options:
    Certificate Authority Configuration
    Use this option to set up a Certification Authority.
    Create Certificate Authority Key Ring & Certificate
    - Creates the CA's certificate and stores it in a password protected binary file.
    2. Create Server Key Ring & Certificate
     - Since the CA server must be set up for server authentication using SSL, you need to create a server certificate and store it in a password protected text file.
    3. Configure Certificate Authority Profile
     - Stores settings that the application needs to function properly.
    4. Submit Server Request
    Submits the server certificate request for the CA server.
    5. Pick Up Certification Authority Certificate
    Merges the CA trusted root into the server key ring file.
    Certificate Requests
    Sign submitted server certificates or deny requests for server certificates.
    Certificate Registration
    Add submitted client certificates to the Public Address Book or deny requests to add client certificates.
    View Certificate Authority Key Ring
    View information in the CA certificate and change the password for the key ring file.
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
?Sr"vc
g`>}mo
$Info
$Body
WebPageHTMLOnly
-------------------------------------------------------------------------------------------------
Hidden fields:
The Page Title below doesn't appear in a browser.  Use it to identify the
page in the Web Pages view, and for the Document name in URLs.
Page Title
PrivateTitle
This is an HTML-only page.
---------------------------------------------------------------------------------------------------
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
&'UGd
$TITLE
$FormUsers
$Info
$$ScriptName
$Body
DialogSubmitAccept
    A request has been entered in the Administration Process queue to add this certificate to the user's Person document in the Public Address Book.
Approval Submitted
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$NoBackgroundOverride
$Info
$$ScriptName
$Body
[CAPrivlegedUser]CA Certificate|CACertificate
PickupID$1RequestTypeCommonNameOrgEMail$Conflict$REF
CACert
    L1S2S3S1
PickupID$1
PickupID$1Created
RequestTypeTypeCommonNameNameOrgOrganizationEMailEMail&
CACert
Certificate Authority Certificate for PickupY
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################
CertRequestG3
CN=James Cunningham/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################
CertRegisterG3
CN=James Cunningham/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################
ViewKeyringG3
CN=James Cunningham/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################################
WebPageFrameTop[CertAppDesigner]H
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############################################
Web Submit OutputOutputSubmitCD
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################
Web Cert SubmitCertSubmitCD
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############
Submitted Certificate TranslationCertSubmitTranslationDC
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################################
Cert Request TranslationCertRequestTranslationDC
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###############################
##########################################################
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
Main Menu
CASetup
    1S4S6S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$Readers
$TITLE
$Index
$Formula
$FormulaClass
$ViewFormat
$FormFormula
$Comment
$ACTIONS
Certificate Requests\ Waiting for Approval
HotspotRectangle1
CASetup
    1S4S6S
HotspotRectangle2
CertRequest
    1S4S
HotspotRectangle4
CertRegister
    1S4S
HotspotRectangle5
ViewKeyring
    1S4S
GraphicButton4
X,X,X,X,
X    ,DX%DX%X%
c`Zc`ZcY`Y
.e_/V
bzbzbzbzbczcz
%X%X%X%
zbzcz
d`cd`Z`Y`YZ
,%X%X%
rTzcbczczcz
%X%X%
c`cd`c`Y`Y`Y
d    cdc`d`d`d
e`e/e
`dZ`d
Z`e.Q9Ve_(;
TrTrTr
f`f`Y
cdcdcZn
4?'n\
brzSbSzS
+I:3A
#1212
ececdL
~z~z~
DZDZ2D
m_UVU
bzSTcT
1D    z~z~z~}z}
9'8P8'I
bz~z~z~
SzTcT
H$_$V
4{VeZ|e\
1212#
cD2c2D
W ;rU
GH2H2
{'PTUVrZUVeVeL'Z1r
7=A:A
GH2H2H2
2_2H2H2H
H2H2H2
_HVHUH
_2_H_
U$UV_
_GHG2#3
    A#A#
H2H2_
!7!D#1
3#3#2G2G
H2GH2H2H2G2
H2H2H2H
VHUGUH
H2H2H2H
U    H$V$V.e`f
'5eV_$_
#12#2
/V$H2
2HG2H2H2H2
VHUHU
LVe_e
dc`e?
2H2H2
Ve_e_.
V_H_21
H2H2H2H2H2G2H2H
A2A23G
_    V_U_UHUGI
OI;6IGUO9e_`?5`]
m 6 XV
V    U_U_H21%
H2H2H2H2H2H2H2
!A7A!
IHU$V/_e
_H2H2H2
3H_V_V
V$HUIG
VH_21%
H2H2H2H
!A7A!
$VHUIG
_e._.'
HUHUGIG
U    $V._/_V;
:A:A:3A3GH_e
UHU$V
HUGIGUGU$H_$
"%<8%
GU_/_V_V_VHUGIGUGU_$_$
IG$V_e_V_$U$GUGIG
:I:IGU_/.V._V_UHI
_2_2H
!1HV/e`
_V_2_
-:GIHV
D2Z232:3
I-IGU$e
Z2D2D2DZDZTZ2Z2Z
HV_HV_
_2_2_2D2D2Z2
/_V_2_
D2D2D
2ZD2D1
%D!D%
-:-IGU$V.
2D2D2ZD
ZTD2D
kdkdf`
D2D2D2D2
2_21D1
:-:-:
H_$_$_
D2D2D2
dkd`d`Ze._
_    D_1D1%1%1
_$H2H
:-:-I3
$H_2H
2A2#1D1D1D2
d    kdkdfd`Ze
G3I:3
2D1D1
_    Z_Z_ZF_ZD
G3G:-:
I:I-:
D_T_TZDZDZ
2#2#A
_Z_DZ2
:-:-:-:
12D1D1
ZeZ_Z
3:3:I:-
:-:-:-
_$V_eZ`
2ZDZDZD
%,>,>,
!#D!D!D#D#1D1
21D21
!%,%,
2HV_._e`Ydcdqde
_    ZDZ2ZDZDZ
%    12H$V_.Z.
cdcZce
DZ2ZDZDZDTDZDcDcDc
-:-:-:-:-:-
3A3A2
2D212D1
Z2D2ZDZDZDcDc1c1c1
>,>+>+>+>+>
-:-:-
1D1D12D12D121#
2DZ2D
cDcDcT
D1D2D
D1D%,%
+>+>+>+
>    +>+>+>
A3A3:3
212121
2D1cDc1c
^>+>@>=>+>+
+>@>+=
H    _$_._Z2_D
1c1c#c#cTD
=@+=+=>=
3A3A3
#c1Dc
+@>=+>=+>=@>@>
=@>@=@=
3A3A:
2H_$2Z2Z
r,>^>
@>@>=@
@>=@=@
2_2Z2D
XTDzXTz
@=>@=
@>=+=+=>@=@=@=
A:A3A3A
:3:3A
1%2H2_2Z_
D2D1%X,>^,>r
r,r,^>^+
ZFDCO1D%,>=>=^,>
,>^>+
3:3:3:3:3:
2_2_F2F_D_6
>+=+=>,r
r>,^>,^>@>@=+
G02%O
4)1O84
>r>,^
@=@=@
G    64D8;%4
D6;C_XDRDR
g+=>@>=
,r,>^,^
^>@>+=
>=@=@
I:I:I:IGIG\
%;6H_D&;ND
r>,r>,^>^>@
:A:A3
-:-:-
-:I3IGI*
r ;D'
@=>@>^>,r>,r>
^>+>+>@>
@=+=@=
3:-:-:
-I-I-I
r,>^>^>+>@
I-GIU
%,+>@=
@=+=>^,r,r,r%X>
>^>+>+>+^>
=    A:A:A:A:3
1_D2D_
>,=@=
X%r,X,
>+>^@>^@=>@
3-:I@
=@=+>
r%r>,>,^>^
A:A:A
D2_D_D2
6Dg6,+@=
=@=+>^
>r%>r%r%,r
>^>^>^>
=@=+>+
r%,X%r
^>^,^,>^>@>=
4<48=
r%,r%r%r
^,>^>@=
%r%X%r>X
X,r%X%
r,r,@
-:-:@
X,X,r%,r,>=
%X%X%
%r%,X%r,r%
;&D)5r
X,%X%
%X%X%r
%+>+=
_D_D_
%1_2_D_
X%,DX%DX%D
zXzrSTX^
-:-:-:
_D2_D_
1D%,>@
4%,D,DX,D
zrSzT
TSX,=
4,O6DX\
4rDXTXTrT
TzSX,=
;8r^N%6
;^C;\,
PXTrSzS
-:-:-:-:-
OTSbS
czczczcTSD,
OSczczc
TzTDX
:-:-:
TD%D%
-:-:-:
6ODX9
:A:A:A:
A3A3A
zj}jz
A:A:A:A:
DFDFDZF
jzpjz
2#2A#
2    D1D
2F2FD.ZD.2F
ZFDZTczcp
DZD2ZD2
2D1D%
Z.FDF.FZF2F.
cqDZ2Z2_
./Z2ZF.
F.Z.Z2FZ2Z.ZTZ
.2F/Z
/Z.Z2
7!%7%7!
2_D1%
7%7!%>
>%>%>%7#
./.F.F.
Z/F.Z/.2F.Z2Z.
7%7%>%
D7!D%DXT
/./2/2Z.Z.$_.2
$H$2$_2_2_
./.2_2_$_
H$_H2H$_$_$_H
_    e._Ze_._e
.2.2/$/2/2$H$
XFXFC
%>%>%>%7%!7!
$_$H_$V$_$H2
%,XCrSrNrX+N,
XDX%D7
H2$UH
%1%1D%
7!A7!
2HU$V$
D,X%D7!
$V$_V
DX%X,X
%#D%D%D
,D,%,%
,%D%,%
r*gN%D,
DEcjo
C@+N,D
%DZYd
!2e`f
_.`dfd
!%D%D
D1_eZ
%1!%1%
_Z_2.e_
2Z_Z2._.e/
D#D#D1
Ze._V
FDZD.2Z_Z
DF_.Z2.`
.2.Zfdk
KRJFE
DFZ_D_
3#G2G
RKzKbYE
2G2G#G#
KRzKzjKcJFD
TZFZ_
FTFDXD
D    FZTZD_DZF
2G#!1!%
XDXFTF
ZTFDT
EFJKYJb
zjojcbT
FJcbKjzjzKcbXDNFTS
X    DXTSTDFTc
#!1%!
czczK
XETXD
XTSTFXTcqj}
+XTST
F    EFJFJTJFT
+XSTS
JFYJFJF
NFNX+
+NCSC
XSXN+
rSXNXbc
.$.Z/Z
N+,NS
XrTXNXSz}z}y}yw}
7!2GH
Z.Z.F.
,NXrS
H$H2$
+QK*Q*
.F.F.F.
Q{RrCSCN@=+NrN
.D/F.F
B    {*^@>+^C^
NrCN^Nrb
D#!1X
%!GH$
F.F.Z
ZF.F.ZE.
+>+rN^+@NrS
MB)M)M
)M(LhB
brSvb
.F.DF.E
BQBQB
N@>+N
BQBQBQ
g@^C^@>g
N+=>=7=
%12#G
]mP&9BQ
BMQMQ
BMB()
)g+^C^+=+^r^+
MPWBQMQ
r^+@+^N^>=
>rz~y
QMQMB\
QMQMB
)BMBM
M(h){r*^
^N^+=
FTFTFR\;
(E9'4
    5Q9;
~SsRr^
%121G
BW;?QLB?Q?
BuQ|v
bsr+@^
1#21D
m4R;\RBRB9
Q    BR^C+^SRb
>,%1#12
;4O&OC4
R9;B^
PR*RC^
RFPE9;RXBX
MEM5;R&
s^g^rsr@
mX4'E?
^CrC^
>%!%2
CESREF
C    RCNFCESRJ
+CrS^@+rv
S^grsSrg
>%D1#D#D
C    ESRECNCRE
^s~zvsrg^szr^=
%1D#%1#D1#
NCECFCS
ECECJRECFRJCF)OB
zsrg^r
#%1%D%1
(EJCJ
4FXCFEFC&MJRSC
ububRr^+@^Sr^
rsSsr@g^zSsg=
%,1#%#
D    %DF&
EFNFCFCNP
LJCECJRJ
RECNCRbQzv
sbRrC+@^
^rsr*g
sSs@=
D(%DO
mLE(4
 \9E9ONP
m'M4?
'M4)C'm
r^+@^
7%1D#!
1%1DXD
O9mPN9mC8
X ;CB
\X)C&
LRMFR
^r^@g*
^rSsr@=
O4;BF
7    >+^Sr^@g*
rsSs@=
F9;BEME\
4+XO(9
P4FX)4L^\
9ER&4&
945PCF\
4&9JC\
OMmtvim
miS'4
@CRr^
^Ssr^=
NFXDX
vzRC,
>^rbsrg@g^r^g@g
FCFCX
FCJCXCJREF
bRSN>7!7!7!
@rubsr^@+^r^g@
^sbsN
%,DNFNX
XFCFC
NFCERLREFX
ECEFNXFR
XCJEJ
C    SJbQK|vQK
!%DFX
FCECFCE
CFCERE
z    RS,7
^Sbsr
NCFEJCEC
CJRCF
|vzQbS+
7!,XF
CEJFN
FCEFXNCJRE
@rsz~z~Szr^
^r^g^
CNXFC
FCSRbvQ
>+rsSv
Ssr^g@
^r^g^NXbSr,>
CEJCFXNFCEFX
XCFNX
JRbvzQ
g@gNr*
N>rTSbr
FCFCR
EJbQzQ
>=^Cr^
g^r^g@^r
,rTScTX
7A7#7%,XC
CECFCXN
XFCECNCERECFC
|vQKbN,
7>@^Cr^+
=@Nr^g
g^N^g@+r
N,XTScT
XCFCFXFRCE
7!7!7!
^rN+@NXr
!7A7!7!7%
XCFCFX
FCFCX
g+rN^+NX
E    XEFCFCFEC
    FCFC
XRbQK
|vKbC,
=@rSr^g
!&7!7!%!,XESRJRSRJSREJCEN
DFCFN
XFCECFCJ
bRN,7
DCSJb
RJRJCF
JRbKQ|vQ
QvzS,
    XECFNCSJb
|vQ|vzKbC,
7#7#!7
D,SRbR
JRSCD
XFECF
CXCERQKvQv|v|
brN>7!
>,NSrRbsbRr^=>
rSzSzTX@
D,FTZ
%7!,XJ
bzSr+>
A7!A7!7
FCFCX
XDCSbKbzQvQ
%+CSbv
>%TZc
%!%7!
zKbS+
7#!7!%,X
KvbrC,
%DXJSEN
DNFCFX
y}y}z}
A!7!7
DFEJR
zQvKzKQ
~y}yz
!A7A!7
vbzKv
%Tdcqp
%XFCX
DNFXD%
CESQ9{
JSNXNFSb
>+SrJSCN
7>DZcqpjq
czbJN
>%Zcq
!    %DXFX%D
XSESXE
zbcr,>7
+bKjKz
4MSJbc
z    ozozcbSX
SczKczczbX
7!%DX
D    X1%DXC
ENDFEF
m?9mS
>+SbKzbX
DZdcZY
,XSJECX
ECXNFCF
9&9'E5\mL9 m&T
%>%,X
SczcJX
DTcZcT
7!7!7!7
%    XEJECXNCJ
N    FEX
&FCRF8m
,FTZY
ScTD%7
%FTZcTD
,XSEFN
SzbS+
%!%DF
zcjcz
XMOFX*59RO*
FEFNXFCEFX
FCJTF
FZTJZJYJ
(FJFX
tct?ZD
>+FXT,>
jpjpj
BP4*4
;]ztW
tjy[yqi[q[
[zdi;
9FRDBCJ5mjt
WtzmWc]5c
j";Wd
tQm[B>
    >+,TXDN+
icdjqW
]jpmWcY|cd
;?5dji
ki[q]
;n[fdi
[ikim
mtji[
.ZFZYZdY
dkdqjd
6;FZYScS
`Ydcdcdj
G$.Z`
sbSr@
3U.eYdt
jkdjd
&R;8G
3H.edt
dqdcdcd
2#2#1
!4    -"
'U.`t
q    dcqdcdcZc
sbsvbsvSsr@
$H2GH$H
ZcZcZTXD,XTS
4"-IGQ
qdkqjd
D,+XTS
sbsub
Q`];kn
;[dkdqdqjdq
zsbsb
bususu
sbsbs
-I3I3I3
I-8>"-
\    #"-
!81$.&
yny[]
ZcTcTc
svsbs^g
@=+NS
"-"-%
dozdi
qdqdq
SbcTXN+XrSv
-GIGI3
qcdqcdq
TbcbScXN+N
u    suvzsbvbv
SXN+rXvb
ususu{
cqdcq
zbSXNgN
u{u{u{u{u|u
SrN@+rS
{|{|utu
zbSrNg^r
u{u{u{u
-3GIU3
dcqcq
ScSbz
zbzSr^@^rS
qcqcqcZ
szSrNg+r
TbczS
bzszs
u{u{|{|u
I:-:-
#2Zdqcdq
ScTSczSz
b    zvszvzvr^
u{u{s
A#2Zc
zcbScb
vbzsvs
s{s{u
U$UG3
{s{s{s
TSczS
u{s{s
vzvszv
TzScT
S~szs
#212Z
zSzSzv
svusv
s    r^g
D#DX>,>^>rXrTzr
u~u|svs^g
{u{s{s
!%2D21D
=>+rXrzS
v    svszvsvs~
~usr^
>=NrSz
u    sv^g
=>rsrs
sv~u~u~
rs{^s*g
svs^*
{s{s{s{
=@,rsv~|
rsrs^g
21#1#2
~u|u|u|
#7#7D#D1!D!D#D1D!7
g^rvu|u|u|u|u
7#D1D#
7!7!7!7!D!D!D
g^rsv
!#!A7A!A7A
=^sr~
{usv^*
s^r^*
g*^r^sg
g^sr^s^g
gsrsr*g
=>^,>@
=    g,%r,@
>r7>7
=,r,>=
=>,%r
=,^>=
    =,X%Xr%>^
>%^>@=
r%,^>@
=,>r%>r,^=@
>,%>%r
=>^,r
=>^>^>@
ZZZcccsss
RJJRBB
ssJ99
ccB11{RRZ11k11c1)J1)
{sR1!
kJ9J)
J!{ZB
R)kB!
skcscR
sZRB1
k9sJ!
9RkR{
BZ{1Jk
)RBJZ19Js
BR{JRk19R!)Bks
BBJccsZR
kZ{cRs
cRkcBskB{k1s
B1BcBck!c
R{kRcs!Zc
JZ)JZ
1Zc!BZ
k{s)JsZcs)Bc)9
ZcsBJ
JRc)1
avigator]; "CASe
*.PCX
TIFF 5.
XXXXXXXX
H22H2H2Hator]; "CASe
22222222
XXXX________
--------ator]; "CASe
XX%XX%XX
ator]; "CASe
ator]; "CASe
ator]; "CASe
tttttttt
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
)YNKaD
$ViewMapDataset
$ViewMapLayout
$NavImagemap
Submitted Certificates\ Waiting for Approval
HotspotRectangle1
CASetup
    1S4S6S
HotspotRectangle2
CertRequest
    1S4S
HotspotRectangle3
CertRegister
    1S4S
HotspotRectangle4
ViewKeyring
    1S4S
GraphicButton4
X,X,X,X,
X    ,DX%DX%X%
c`Zc`ZcY`Y
.e_/V
bzbzbzbzbczcz
%X%X%X%
zbzcz
d`cd`Z`Y`YZ
,%X%X%
rTzcbczczcz
%X%X%
c`cd`c`Y`Y`Y
d    cdc`d`d`d
e`e/e
`dZ`d
Z`e.Q9Ve_(;
TrTrTr
f`f`Y
cdcdcZn
4?'n\
brzSbSzS
+I:3A
#1212
ececdL
~z~z~
DZDZ2D
m_UVU
bzSTcT
1D    z~z~z~}z}
9'8P8'I
bz~z~z~
SzTcT
H$_$V
4{VeZ|e\
1212#
cD2c2D
W ;rU
GH2H2
{'PTUVrZUVeVeL'Z1r
7=A:A
GH2H2H2
2_2H2H2H
H2H2H2
_HVHUH
_2_H_
U$UV_
_GHG2#3
    A#A#
H2H2_
!7!D#1
3#3#2G2G
H2GH2H2H2G2
H2H2H2H
VHUGUH
H2H2H2H
U    H$V$V.e`f
'5eV_$_
#12#2
/V$H2
2HG2H2H2H2
VHUHU
LVe_e
dc`e?
2H2H2
Ve_e_.
V_H_21
H2H2H2H2H2G2H2H
A2A23G
_    V_U_UHUGI
OI;6IGUO9e_`?5`]
m 6 XV
V    U_U_H21%
H2H2H2H2H2H2H2
!A7A!
IHU$V/_e
_H2H2H2
3H_V_V
V$HUIG
VH_21%
H2H2H2H
!A7A!
$VHUIG
_e._.'
HUHUGIG
U    $V._/_V;
:A:A:3A3GH_e
UHU$V
HUGIGUGU$H_$
"%<8%
GU_/_V_V_VHUGIGUGU_$_$
IG$V_e_V_$U$GUGIG
:I:IGU_/.V._V_UHI
_2_2H
!1HV/e`
_V_2_
-:GIHV
D2Z232:3
I-IGU$e
Z2D2D2DZDZTZ2Z2Z
HV_HV_
_2_2_2D2D2Z2
/_V_2_
D2D2D
2ZD2D1
%D!D%
-:-IGU$V.
2D2D2ZD
ZTD2D
kdkdf`
D2D2D2D2
2_21D1
:-:-:
H_$_$_
D2D2D2
dkd`d`Ze._
_    D_1D1%1%1
_$H2H
:-:-I3
$H_2H
2A2#1D1D1D2
d    kdkdfd`Ze
G3I:3
2D1D1
_    Z_Z_ZF_ZD
G3G:-:
I:I-:
D_T_TZDZDZ
2#2#A
_Z_DZ2
:-:-:-:
12D1D1
ZeZ_Z
3:3:I:-
:-:-:-
_$V_eZ`
2ZDZDZD
%,>,>,
!#D!D!D#D#1D1
21D21
!%,%,
2HV_._e`Ydcdqde
_    ZDZ2ZDZDZ
%    12H$V_.Z.
cdcZce
DZ2ZDZDZDTDZDcDcDc
-:-:-:-:-:-
3A3A2
2D212D1
Z2D2ZDZDZDcDc1c1c1
>,>+>+>+>+>
-:-:-
1D1D12D12D121#
2DZ2D
cDcDcT
D1D2D
D1D%,%
+>+>+>+
>    +>+>+>
A3A3:3
212121
2D1cDc1c
^>+>@>=>+>+
+>@>+=
H    _$_._Z2_D
1c1c#c#cTD
=@+=+=>=
3A3A3
#c1Dc
+@>=+>=+>=@>@>
=@>@=@=
3A3A:
2H_$2Z2Z
r,>^>
@>@>=@
@>=@=@
2_2Z2D
XTDzXTz
@=>@=
@>=+=+=>@=@=@=
A:A3A3A
:3:3A
1%2H2_2Z_
D2D1%X,>^,>r
r,r,^>^+
ZFDCO1D%,>=>=^,>
,>^>+
3:3:3:3:3:
2_2_F2F_D_6
>+=+=>,r
r>,^>,^>@>@=+
G02%O
4)1O84
>r>,^
@=@=@
G    64D8;%4
D6;C_XDRDR
g+=>@>=
,r,>^,^
^>@>+=
>=@=@
I:I:I:IGIG\
%;6H_D&;ND
r>,r>,^>^>@
:A:A3
-:-:-
-:I3IGI*
r ;D'
@=>@>^>,r>,r>
^>+>+>@>
@=+=@=
3:-:-:
-I-I-I
r,>^>^>+>@
I-GIU
%,+>@=
@=+=>^,r,r,r%X>
>^>+>+>+^>
=    A:A:A:A:3
1_D2D_
>,=@=
X%r,X,
>+>^@>^@=>@
3-:I@
=@=+>
r%r>,>,^>^
A:A:A
D2_D_D2
6Dg6,+@=
=@=+>^
>r%>r%r%,r
>^>^>^>
=@=+>+
r%,X%r
^>^,^,>^>@>=
4<48=
r%,r%r%r
^,>^>@=
%r%X%r>X
X,r%X%
r,r,@
-:-:@
X,X,r%,r,>=
%X%X%
%r%,X%r,r%
;&D)5r
X,%X%
%X%X%r
%+>+=
_D_D_
%1_2_D_
X%,DX%DX%D
zXzrSTX^
-:-:-:
_D2_D_
1D%,>@
4%,D,DX,D
zrSzT
TSX,=
4,O6DX\
4rDXTXTrT
TzSX,=
;8r^N%6
;^C;\,
PXTrSzS
-:-:-:-:-
OTSbS
czczczcTSD,
OSczczc
TzTDX
:-:-:
TD%D%
-:-:-:
6ODX9
:A:A:A:
A3A3A
zj}jz
A:A:A:A:
DFDFDZF
jzpjz
2#2A#
2    D1D
2F2FD.ZD.2F
ZFDZTczcp
DZD2ZD2
2D1D%
Z.FDF.FZF2F.
cqDZ2Z2_
2    ./Z2ZF.ZF
F.Z.Z2ZF.Z.ZTZ
/ZF.Z
7!%7%7!
.Z.F.F
Z/.F.Z.
.DZ.Z
2_D1%
7%7!%>
>%>%>%7#
!#2$_$
F.2Z.Z.2.2.2.2.
7%7%>%
XD%D%
2./Z._.2/_
$H$2$_2_2_
DXTSTXT
2./Z2.
Z/_.$_.2$H
_H2H$_$_$_H
_    e._Ze_._e
>%7%>%>%
%7%>%7A
rTDX%
/    2/2/2/2$/
$_H_$_$
XFXFC
>%!7A!A
!7!%TrSzTSrT
V$VH_$V$_$H2
>%!7!7
7!7A!
/    $.$/$2$/2
V$U$U$
XSrXzXz
V$V$U$HVHG2G
XDXD%
A7A7A
TzXrT
3G$/$/
$./$.
2/$/$/H
%1%1D%
.$.$/.
$.$./$.
$._/$/
2HU$V$
A7A7A
./$/.
2./._.
!    7A!7
./$/$/.
$V$_V
%#D%D%D
./././.
./.2.Z
DX%D,
A7A7A
.    /././././
`eZ_1
!7!7A
././$
/././
.e`fYf
X%X%D%
)%D&mRPL.$/$/$/.
./$/$/././$
F9/./`./
DEcjo
;9/L;
,FYzo
R.F/+/Q
D,D,%D
/.];&
5/9;R$R\
K.FZ/
&    $.\
!%XD%D
,    +@=
$e`fdf
%D%!%D
D%!%D
>@=>@=
.0K/./
Z`YfYeF
1_e`d
/    $/./.K
_ZfYfYeD%
D!D%D!
>,>+>
;8$.\
./9&$.\;m*/B;
A3A#A#!#
YZ2%!
!D!D%D!
NC;+?
/&m.L;/;]/R.P
!    1_`cjdf`F
jc`Z1
7!%D%D
D%D!D!
'&0*\5./&
/;5?0&F/K
$HUHGH
!7!7!
*$F.L
KF;5/&
F/K/&Q0
.Z2_V/
&9/.9
0KW50
_.Z_.e2._e_
_Z.Z2Z_.eV
D1#D%XCN^+^*C
FEJF$/
./$/$/0
/$./.
Z.Z_2Z._.V
/.$./$././$
$/././@
././$
./$/./.
/./$/
Z.Z.Z
F.FYZ
oYoYopYp
2#XNC
./.$/$/./$/./.
oYoYoYo
_2Z.d
/$./$/././$/./
././$/
Z.Y.FZ.
F    DFZ2Z2edk
./$/././$/././.
oKjojo
2Z2Zfdk
2GHU$/$.$./$/./$/././$/
.Y.F.
KoYjKoYojKo
DFZF_
Z`Ydq
ZY.F.
KjKojK
qjcYZ
3232G#G2
zojzozozoz
o    jcJFXETZT
zKjzKzjKjKoKjzozoz
zjpcJ
G2G23
G$/$/
.$./$
YjKYjYK
G2G23
.$.$.$
.D.Z.Z
Z.Y.F.F
FTZTF
$.$.$.$
.F.FY
Y    JZYZYZYJY
ojqzojbT
TZTXDXFT
DFTZT
3G#G3G2
.F.F.
EFJbcj
jojzcbT
TZTDFTcj
jzczcbT+
,XTST
!#G2H
NFXES
+,+NXSX
+XSrTXNXbc
+XCN+,+XCN
Xbz}z}y}yw}
,NXrS
rN+Nr
DA%1X
N^+@+rSbz~y~
N+^,rsz~
>=,rv
@NsSbr
^rbSr,
rbSr,>
N,rTSbr
,rTScTX
^NXrN,XTScT
=+^N^g
@^rN+@N
=+rSr^g
^C^+@>
7!7!%7!
JRSCR
=NSzSzTX@
7!7!%7!7!%,F
QuRuKu
,+NCRu
T    rX>
%!7%,CJSJbCEX
NERbKQbvK
bsN=>
>%TZcZT
zKbS+
7#!7!%,X
KvbrC,
%DXJSEN
DNFCFX
y}y}z}
DFEJR
zQvKzKQ
~y}yz
vbzKv
%Tdcqp
%XFCX
DNFXD%
CESQ9{
JSNXNFSb
>+SrJSCN
7>DZcqpjq
czbJN
>%Zcq
!    %DXFX%D
XSESXE
zbcr,>7
+bKjKz
4MSJbc
z    ozozcbSX
SczKczczbX
A!A!A
D    X1%DXC
ENDFEF
m?9mS
>+SbKzbX
DZdcZY
,NSJECX
ECXNFCF
9&9'E5\mL9 m&T
%>%,X
SczcJX
DTcZcT
%    XEJECXNCJ
N    FEX
&FCRF8m
,FTZY
ScTD%7
%FTZcTD
7#!%!%!D,XJEFN
SzbS+
zcjcz
#!%DFT
MOFX*59RO*
FEFNXFCEFX
FCJTF
FZTJZJYJ
(FJFX
tct?ZD
>+FXT,>
jpjpj
BP4*4
;]ztW
tjy[yqi[q[
[zdi;
9FRDBCJ5mjt
WtzmWc]5c
j";Wd
tQm[B>
    >+,TXDN+
icdjqW
]jpmWcY|cd
;?5dji
ki[q]
;n[fdi
[ikim
mtji[
.ZFZYZdY
dkdqjd
6;FZYScS
`Ydcdcdj
#2#2#1#2
G$.Z`
sbSr@
3U.eYdt
jkdjd
&R;8G
3H.edt
dqdcdcd
!4    -"
'U.`t
q    dcqdcdcZc
sbsvbsvSsr@
$H2GH$H
ZcZcZTXD,XTS
4"-IGQ
qdkqjd
D,+XTS
sbsub
Q`];kn
;[dkdqdqjdq
zsbsb
bususu
sbsbs
I-8>"-
\    #"-
!81$.&
yny[]
ZcTcTc
svsbs^g
@=+NS
"-"-%
dozdi
qdqdq
SbcTXN+XrSv
qcdqcdq
TbcbScXN+N
u    suvzsbvbv
3-IGU
SXN+rXvb
ususu{
cqdcq
zbSXNgN
u{u{u{u{u|u
SrN@+rS
{|{|utu
3G-IG
zbSrNg^r
u{u{u{u
dcqcq
ScSbz
zbzSr^@^rS
qcqcqcZ
szSrNg+r
TbczS
bzszs
u{u{|{|u
I:-:-
#2Zdqcdq
ScTSczSz
b    zvszvzvr^
u{u{s
    :3GI-
A#2Zc
zcbScb
vbzsvs
s{s{u
U$UG3
{s{s{s
TSczS
u{s{s
S~vszvz
#212Z
{us{s
s    r^g
D1DX>,
!%2D21D
svszvsvs~vu~uv
>NrS~z
{    s{rs{^s*g
=@rzSv~s
u~vsu~
s{s{r{
A32#2
7!#D1D7
c1#1#2
A!A!#
{s{s{srs^
#7#7D#D1#!D#D1
7!7!7!7!D!D!D
g^rsv
*s^s{s{
=^sr~
rsr^*
g*^r^
^    sr*g
7>,>7
=>^,>@=
g,rX,=
>r7>7
=,r,>=
r%>^g
=,^>=
r%>,+
=r%>r%>,^g@>
>,r>%r>=>@
g>^>=@
>7>7>
ZZZcccsss
RJJRBB
ssJ99
ccB11{RRZ11k11c1)J1)
{sR1!
kJ9J)
J!{ZB
R)kB!
skcscR
sZRB1
k9sJ!
9RkR{
BZ{1Jk
)RBJZ19Js
BR{JRk19R!)Bks
BBJccsZR
kZ{cRs
cRkcBskB{k1s
B1BcBck!c
R{kRcs!Zc
JZ)JZ
1Zc!BZ
k{s)JsZcs)Bc)9
ZcsBJ
JRc)1
JPEG Image
*.JPG
XXXXXXXX Image
*.JPG
H22H2H2Hg
22222222Y
________ Image
*.JPG
--------g
XXXXXX%XX%XX#
%%%%%%%% Image
*.JPG
........g
 Image
*.JPG
 Image
*.JPG
 Image
*.JPG
 Image
*.JPG
 Image
*.JPG
tttttttt
 Image
*.JPG
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
 lO@Y
u    !aV
$ViewMapDataset
$ViewMapLayout
$NavImagemap
Keyring Administration
HotspotRectangle4
ViewKeyring
    1S4S
HotspotRectangle3
CertRegister
    1S4S
HotspotRectangle2
CertRequest
    1S4S
HotspotRectangle1
CASetup
    1S4S6S
GraphicButton3
X,X,X,X,
X    ,DX%DX%X%
c`Zc`ZcY`Y
.e_/V
bzbzbzbzbczcz
%X%X%X%
zbzcz
d`cd`Z`Y`YZ
,%X%X%
rTzcbczczcz
%X%X%
c`cd`c`Y`Y`Y
d    cdc`d`d`d
e`e/e
`dZ`d
Z`e.Q9Ve_(;
TrTrTr
f`f`Y
cdcdcZn
4?'n\
brzSbSzS
+I:3A
#1212
ececdL
~z~z~
DZDZ2D
m_UVU
bzSTcT
1D    z~z~z~}z}
9'8P8'I
bz~z~z~
SzTcT
H$_$V
4{VeZ|e\
1212#
cD2c2D
W ;rU
GH2H2
{'PTUVrZUVeVeL'Z1r
7=A:A
GH2H2H2
2_2H2H2H
H2H2H2
_HVHUH
_2_H_
U$UV_
_GHG2#3
    A#A#
H2H2_
!7!D#1
3#3#2G2G
H2GH2H2H2G2
H2H2H2H
VHUGUH
H2H2H2H
U    H$V$V.e`f
'5eV_$_
#12#2
/V$H2
2HG2H2H2H2
VHUHU
LVe_e
dc`e?
2H2H2
Ve_e_.
V_H_21
H2H2H2H2H2G2H2H
A2A23G
_    V_U_UHUGI
OI;6IGUO9e_`?5`]
m 6 XV
V    U_U_H21%
H2H2H2H2H2H2H2
!A7A!
IHU$V/_e
_H2H2H2
3H_V_V
V$HUIG
VH_21%
H2H2H2H
!A7A!
$VHUIG
_e._.'
HUHUGIG
U    $V._/_V;
:A:A:3A3GH_e
UHU$V
HUGIGUGU$H_$
"%<8%
GU_/_V_V_VHUGIGUGU_$_$
IG$V_e_V_$U$GUGIG
:I:IGU_/.V._V_UHI
_2_2H
!1HV/e`
_V_2_
-:GIHV
D2Z232:3
I-IGU$e
Z2D2D2DZDZTZ2Z2Z
HV_HV_
_2_2_2D2D2Z2
/_V_2_
D2D2D
2ZD2D1
%D!D%
-:-IGU$V.
2D2D2ZD
ZTD2D
kdkdf`
D2D2D2D2
2_21D1
:-:-:
H_$_$_
D2D2D2
dkd`d`Ze._
_    D_1D1%1%1
_$H2H
:-:-I3
$H_2H
2A2#1D1D1D2
d    kdkdfd`Ze
G3I:3
2D1D1
_    Z_Z_ZF_ZD
G3G:-:
I:I-:
D_T_TZDZDZ
2#2#A
_Z_DZ2
:-:-:-:
12D1D1
ZeZ_Z
3:3:I:-
:-:-:-
_$V_eZ`
2ZDZDZD
%,>,>,
!#D!D!D#D#1D1
21D21
!%,%,
2HV_._e`Ydcdqde
_    ZDZ2ZDZDZ
%    12H$V_.Z.
cdcZce
DZ2ZDZDZDTDZDcDcDc
-:-:-:-:-:-
3A3A2
2D212D1
Z2D2ZDZDZDcDc1c1c1
>,>+>+>+>+>
-:-:-
1D1D12D12D121#
2DZ2D
cDcDcT
D1D2D
D1D%,%
+>+>+>+
>    +>+>+>
A3A3:3
212121
2D1cDc1c
^>+>@>=>+>+
+>@>+=
H    _$_._Z2_D
1c1c#c#cTD
=@+=+=>=
3A3A3
#c1Dc
+@>=+>=+>=@>@>
=@>@=@=
3A3A:
2H_$2Z2Z
r,>^>
@>@>=@
@>=@=@
2_2Z2D
XTDzXTz
@=>@=
@>=+=+=>@=@=@=
A:A3A3A
:3:3A
1%2H2_2Z_
D2D1%X,>^,>r
r,r,^>^+
ZFDCO1D%,>=>=^,>
,>^>+
3:3:3:3:3:
2_2_F2F_D_6
>+=+=>,r
r>,^>,^>@>@=+
G02%O
4)1O84
>r>,^
@=@=@
G    64D8;%4
D6;C_XDRDR
g+=>@>=
,r,>^,^
^>@>+=
>=@=@
I:I:I:IGIG\
%;6H_D&;ND
r>,r>,^>^>@
:A:A3
-:-:-
-:I3IGI*
r ;D'
@=>@>^>,r>,r>
^>+>+>@>
@=+=@=
3:-:-:
-I-I-I
r,>^>^>+>@
I-GIU
%,+>@=
@=+=>^,r,r,r%X>
>^>+>+>+^>
=    A:A:A:A:3
1_D2D_
>,=@=
X%r,X,
>+>^@>^@=>@
3-:I@
=@=+>
r%r>,>,^>^
A:A:A
D2_D_D2
6Dg6,+@=
=@=+>^
>r%>r%r%,r
>^>^>^>
=@=+>+
r%,X%r
^>^,^,>^>@>=
4<48=
r%,r%r%r
^,>^>@=
%r%X%r>X
X,r%X%
r,r,@
-:-:@
X,X,r%,r,>=
%X%X%
%r%,X%r,r%
;&D)5r
X,%X%
%X%X%r
%+>+=
_D_D_
%1_2_D_
X%,DX%DX%D
zXzrSTX^
-:-:-:
_D2_D_
1D%,>@
4%,D,DX,D
zrSzT
TSX,=
4,O6DX\
4rDXTXTrT
TzSX,=
;8r^N%6
;^C;\,
PXTrSzS
-:-:-:-:-
OTSbS
czczczcTSD,
OSczczc
TzTDX
:-:-:
TD%D%
-:-:-:
6ODX9
:A:A:A:
A3A3A
zj}jz
A:A:A:A:
DFDFDZF
jzpjz
2#2A#
2    D1D
2F2FD.ZD.2F
ZFDZTczcp
DZD2ZD2
2D1D%
Z.FDF.FZF2F.
cqDZ2Z2_
2    ./Z2ZF.ZF
F.Z.Z2ZF.Z.ZTZ
/ZF.Z
7!%7%7!
.Z.F.F
Z/.F.Z.
.DZ.Z
2_D1%
7%7!%>
>%>%>%7#
!#2$_$
F.2Z.Z.2.2.2.2.
7%7%>%
XD%D%
2./Z._.2/_
$H$2$_2_2_
DXTSTXT
2./Z2.
Z/_.$_.2$H
_H2H$_$_$_H
_    e._Ze_._e
>%7%>%>%
%7%>%7A
rTDX%
/    2/2/2/2$/
$_H_$_$
XFXFC
>%!7A!A
!7!%TrSzTSrT
V$VH_$V$_$H2
>%!7!7
7!7A!
/    $.$/$2$/2
V$U$U$
XSrXzXz
V$V$U$HVHG2G
XDXD%
A7A7A
TzXrT
3G$/$/
$./$.
2/$/$/H
%1%1D%
.$.$/.
$.$./$.
$._/$/
2HU$V$
A7A7A
./$/.
2./._.
!    7A!7
./$/$/.
$V$_V
%#D%D%D
./././.
./.2.Z
DX%D,
A7A7A
.    /././././
`eZ_1
!7!7A
././$
/././
.e`fYf
X%X%D%
)%D&mRPL.$/$/$/.
./$/$/././$
F9/./`./
DEcjo
;9/L;
,FYzo
R.F/+/Q
D,D,%D
/.];&
5/9;R$R\
K.FZ/
&    $.\
!%XD%D
,    +@=
$e`fdf
%D%!%D
D%!%D
>@=>@=
.0K/./
Z`YfYeF
1_e`d
/    $/./.K
_ZfYfYeD%
D!D%D!
>,>+>
;8$.\
./9&$.\;m*/B;
A3A#A#!#
YZ2%!
!D!D%D!
NC;+?
/&m.L;/;]/R.P
!    1_`cjdf`F
jc`Z1
7!%D%D
D%D!D!
'&0*\5./&
/;5?0&F/K
$HUHGH
!7!7!
*$F.L
KF;5/&
F/K/&Q0
.Z2_V/
&9/.9
0KW50
_.Z_.e2._e_
_Z.Z2Z_.eV
D1#D%XCN^+^*C
FEJF$/
./$/$/0
/$./.
Z.Z_2Z._.V
/.$./$././$
$/././@
././$
./$/./.
/./$/
Z.Z.Z
F.FYZ
oYoYopYp
2#XNC
./.$/$/./$/./.
oYoYoYo
_2Z.d
/$./$/././$/./
././$/
Z.Y.FZ.
F    DFZ2Z2edk
./$/././$/././.
oKjojo
2Z2Zfdk
2GHU$/$.$./$/./$/././$/
.Y.F.
KoYjKoYojKo
DFZF_
Z`Ydq
ZY.F.
KjKojK
qjcYZ
3232G#G2
Z.Z.Z
zojzozozoz
o    jcJFXETZT
./.$/$/
$.$.$
.Z.Z.Z
zKjzKzoKjKoKjzozoz
zjpcJ
G2G23
/$/$/
FZ.YZ
YjKYj
G2G23
/$/$/
Z.Z.ZY
.    ZF.FZ.ZYZ
FTZTF
.YZYZ
JZYTZJ
ojqzojbT
TZTXDXFT
DFTZT
3G#G3G2
YF.ZF.FZ.ZE.
12H/$/
Z.Z.F.FZYZF.FY.
TJcKj
ozjzcbT
TZTDFTcj
%!1GIU$
.    F.F.FY.F.
ZFZFZ
DFTYbcjzjzj
,XTST
.    D.FZFZF.Y
TFYTYTYT
D.ZF.F.Y
JYJYTJYTEF
NFCN+,
+NCSN
XSCN+XSrTXNXbc
NCXN,
Xbz}z}y}yw}
Z.Z.Z
RKRKR
.EYFYJ
.F.F.F.
K*KQK
)B)BQBuR
r    SN^+=+NrN
NrSN+Nr
.F.F.FD.
MQMQMB
B    )r*+=+N^N
NrCN^Nrbz}
DA%1X
/F.D/Z
BMBMBM
()()()
H$2H2$
FZ.F.
MBMB)MB
h{^+=+^N^+@^
sS~z~
QMBMBMB
L()@=
N^+@+^
^r^,rsz~
>@+^N
%12#G
9m?&9BQ
BMQMQ
)g+^C^+@>^r^+
MPWBQMQ
BMB)B
r^+@+^r+>=
>rz~y
QhQB\
QMQMB
L(h)B{g^
^N^+=
7=>Nz~
FTFTFRW;
    5Q9;
9MBMB
bsRr^
BW;?QLB?Q?
)*)Bu
!1212
m4R;\RBRB9
R^*+^SRuz~y
O&OC4
R9;B^
PR^RC^
RFPE9;RXBX
F%N;9CF
MEM5;R&
C^SC^
rv~y~y~zs^g^rsr@
mXm8E'4
>%!1D21#
FEJEXESJ
CRJECXCR
C    RCNFCESRJ
CrS^@+rs
s^grsSrg
#%#D1#%1
CEFXEC
z    S^g^szr^=
CFECECJCF
NECFCXE
ECJRECEC
zsrg^r
m(EJC
&MJRS
ECECR&(CL
Rr^+@C
rsSsr
^zSsg=
CFNFCE
RbQzvzvu
sbRrC
^rsr*g
sSs@=
 \9C9ONP
m?Mm'
m'MmBCPm
;iv05];
r^@g^
7>1D#!
#%1DX
F ;CB
4)C;\X)C&
LRMFR;\R&
^rSsr@=
>+^Sr^
rsSs@=
F\;BEMCW
4+XO(9
D    P4FX)4MC\
    \JC9
5PCF\
9M4(CRm
4&9JC\
9Mmtvi;
miS'4
@rRr^
^Ssr^=>
A!%D,D
KzRC+
>^rbRrg
^r^g@g
srbr^=>
FNXFCJCXCSRECF
JCECERb
@ruzsr^@
^sSsr=>
CFCFX
CBMRCFN
FCRJCE
SJbvb|vQzbRC,
NCECFE
ECFNXF
SRbKQ
vzbRS,7
EJCEC
CFERJ
QvbS+
>@rsz
zvr^@g
XFEFC
JFNXCECFNXCRECECER
zbJN,
+rbz~z~Szr^@g
NrSbr
CFNXFEJ
SRbvQ
QvKuS+
Ssr^@g
EJCFXNFCECX
FCRFCEC
r,%7
A7A7!
XCFXNXNF
CFECE
FCERFCECRE
g@^N^*
rTSbT
F    CFN
XFCEF
EJbQz
|v|vzbC,
>=^Cr^
g^r^g@^rNrN,rTScr,
7!%,X
FCFNDXFCEFN
EJbQz
|vKbC,7
7>=^Cr^+=
=+^r^g@g^N^+g+NSXN+XTbcT
7!%,FCFC
XNXCXCXCN
FCECF
FCNFCR
RbQKvQ
g^rN^+^
XNFECEC
NFCFE
=^rSr^g
A7A7!7
CJCSR
bQzKbRN>
uQRQRuQubu
+N^S^@=
@=+XT
NCrC^+>
@^SrbSXN@=>X
!7%7!%
SrSC*>
7!%7!7!7%7
+NCSbsrRS^
@NSTSzTX+
NCbuQ
,TZcZT
=NXTrTrN+
CR*R+R+R+
7%Tdqc
+CRJSC+
,Zcqpjq
CbKcbX
DZcdZc
JbKJN>
CRKbS
*+*^C^=
C*sr^*
+*R*Rrsr^
@+,Nr
zuvbuv
Qs{sQsu|
C    ^R)r{*{)s
u    {u{utu|~|
NCr)R
RCR+RC+
^rsRs{
u{|u|~|
EFCFCECJ^
RCRSC+
u{u{|
CFESCJ
CbRburS
FTFCSCEJSJ
bsbubs
|{|u|~vsSr+
F    TYJYJTFTJ
bSbRsQub|ubsC^
GHG2G3
sr^@g^
!1DZSc
bScScS
Szbvzbuv
u{svsr^g
3G3G3
1ZTZS
cbcSc
s{s{u
bSbSzSbzbvbzbuzu
T    SbSbSzSzs
s    r^g
HGH3A
+NXrSTzb
vzvzs
=+NXSzS~vsvs
{s{s{s
3G21G
!12D1%
~svu~u~
^rs{s
rs{^s*g
=+rSs
7#D1D%7
s|~u~
2#12c
g^rs~|
#D1!D!D1D#
=g^rsv
7!%!D1D#
u    svr^*
*s^s{
#!A7A
!7!7!
^s^*g
rsr^*
g*^rs
g^rsr
gsrsr^
7>,>7
=>^,+
g,rX,g
>r7>7
=,r,>
r%>,@
g7>7>
=,^>=
r%r>,g
r%>,^
7>7g>
=^%>r%>,^=@>
=>,r>%r>g
ZZZcccsss
RJJRBB
ssJ99
ccB11{RRZ11k11c1)J1)
{sR1!
kJ9J)
J!{ZB
R)kB!
skcscR
sZRB1
k9sJ!
9RkR{
BZ{1Jk
)RBJZ19Js
BR{JRk19R!)Bks
BBJccsZR
kZ{cRs
cRkcBskB{k1s
B1BcBck!c
R{kRcs!Zc
JZ)JZ
1Zc!BZ
k{s)JsZcs)Bc)9
ZcsBJ
JRc)1
]; "ViewKeyring"
*.TIF
XXXXXXXX
H22H2H2H
22222222
________
--------N
XX%XX%XXViewKeyring"
%%%%%%%%
XXXX........W
ViewKeyring"
ViewKeyring"
ViewKeyring"
ViewKeyring"
@ABCDEFGHIJKLMNO
ViewKeyring"
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$ViewMapDataset
$ViewMapLayout
WebPageFrameTop
    Hidden fields:
    The Page Title below doesn't appear in a browser.  Use it to identify the
    page in the Web Pages view, and for the Document name in URLs.
    Page Title
PrivateTitle
    This form is used for the Top-Level Frame Definition page.
    The HTML field computes the HTML for the page.
<frameset cols = "180, *" scrolling="no" noresize>  <frame src = "/
/WebPages/Frames+-+Index+Frame?OpenDocument" name="IndexFrame">  <frame src = "/"
/WebPages/Frames+-+Initial+Content+Frame?OpenDocument" name="ContentsFrame"> </frameset>"
    1S2S6S9S10S11S12S16S19S20S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$FormUsers
$Info
$WebFlags
$$Script_O
$$ScriptName
$Body
&Arial
 OutputSubmit
Your Registration Request Has Been Submitted
    You will receive an e-mail notification when the system administrator has reviewed your request.
    This is the contact information you provided:
    Full name:
ContactName
    Email address:
EMail
EMail[<SIZE=30 MAXLENGTH=70>]
    Phone number:
Phone
    Comments:
Comments
    This is the information in the certificate you submitted:
    Certificate Subject
    Certificate Issuer
    Distinguished Name
    Common name:
CommonName
CommonName[<SIZE=30 MAXLENGTH=30>]
IssuerCommonName
IssuerCommonName[<SIZE=30 MAXLENGTH=30>]
    Organization:
Org[<SIZE=30 MAXLENGTH=30>]
IssuerOrg
IssuerOrg[<SIZE=30 MAXLENGTH=30>]
    Organizational unit:
OrgUnit
OrgUnit
IssuerOrgUnit
IssuerOrgUnit
    City or locality:
Locality
Locality[<SIZE=30 MAXLENGTH=70>]
IssuerLocality
IssuerLocality[<SIZE=30 MAXLENGTH=70>]
    State or province:
State
State
IssuerState
IssuerState
    Country:
Country
Country
IssuerCountry
IssuerCountry
    Validity Dates
    Start:
ValidBegDate
ValidBegDate
    End:
ValidEndDate
ValidEndDate
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
0|6rx
Untitled
Untitled2
ValidFrom
ValidTo
$TITLE
$Info
$$ScriptName
$Body
Register a Browser Certificate
&Arial
 CertSubmit
Register a Browser Certificate
    Use this form to submit a request to register your browser certificate in the Address book.  Your request will be submitted to the system administrator for approval.
    [<br>]Contact Information:
    Provide the following information in case the system administrator needs to contact you.
    Full name:
size = 50
ContactName
    E-mail address:
size = 50
EMail
EMail[<SIZE=30 MAXLENGTH=70>]
    Phone number:
size = 50
Phone
    Comments:
size = 50
Comments
    Submit Certificate
[CertAppDesigner]
    1S6S7S
    Hidden fields:
RequestType
/OutputSubmit?RequestCert&SubmitCert&TranslateForm=CertSubmitTranslation"
    1S2S6S9S10SRequestAction
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Info
$WindowTitle
$$ScriptName
$Body
 CertSubmitTranslation
Supplied by user:
ContactName
EMail
EMail[<SIZE=30 MAXLENGTH=70>]
Phone
Comments
The certificate itself:
Certificate
Cracked from the cert:
CommonName
CommonName[<SIZE=30 MAXLENGTH=30>]
Org[<SIZE=30 MAXLENGTH=30>]
OrgUnit
Locality
Locality[<SIZE=30 MAXLENGTH=70>]
State
Country
Country
CommonName
IssuerCommonName[<SIZE=30 MAXLENGTH=30>]
IssuerOrg[<SIZE=30 MAXLENGTH=30>]
IssuerOrgUnit
Locality
IssuerLocality[<SIZE=30 MAXLENGTH=70>]
IssuerState
Country
IssuerCountry
ValidBegDate
ValidEndDate
Control info:
RequestType
MSNSCP
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
Untitled
Untitled2
ValidFrom
ValidTo
$TITLE
$Info
$$Script_O
$$ScriptName
$Body
 CertRequestTranslation
Supplied by user:
ContactName
EMail
EMail[<SIZE=30 MAXLENGTH=70>]
Phone
Comments
The certificate request itself:
Certificate
Cracked from the certificate request:
CommonName
CommonName[<SIZE=30 MAXLENGTH=30>]
Org[<SIZE=30 MAXLENGTH=30>]
OrgUnit
Locality
Locality[<SIZE=30 MAXLENGTH=70>]
State
Country
Country
Control info:
RequestType
MSNSCP
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
Untitled
Untitled2
ValidFrom
ValidTo
ValidBegDate
ValidEndDate
$TITLE
$Info
$$Script_O
$$ScriptName
$Body
[CAPrivlegedUser]Key Ring Administration|Keyring Administration~
CatagoriesEntryLabelTempIsRoot$Conflict$REF
CertificateInformation
    3S4S
Catagories
CatagoriesEntryLabelCertificate Entry LabelTempIsRootTrusted Root&
538Arial
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################
MailCertSubmitAcceptedCD
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################################################
MailCertRequestDeniedCD
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################################################
MailCertSubmitDeniedCD
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################################################
MailCertRequestApprovedCD
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################################################
DlgConfirmCreateSelfRootDlgConfirmCreateSelfRootC
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################################################
ServerAppStepsServerAppSteps[CAPrivlegedUser]CD
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################
WebPageFrameInitialContent[CertAppDesigner]
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################
Certificate InformationCertificateInformation
[CAPrivlegedUser][CAPrivlegedUser]C
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############
DlgAlreadyHaveCAKey1CD
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################
##########################################################
CertificateInformation
Categori_zeB
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From Folderr
Display CA Key Ring
'++LotusScript Development Environment:2:5:(Options):0:74
Use "CertLib" ' CA: has overlap with Utils
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:10
Declare Function ProcessSecurityCmd Lib "_dmsecadm" (Byval cmdName As String,_
Byval cmdArgs As String, Byval OutBuf As String, Byval szOutBuf As Integer) As Integer
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     Dim linklist As Variant
     Dim Buf As String * 500
     Dim CmdArgs As String

     Dim workspace As New NotesUIWorkspace
     Dim view As NotesView
     Dim sess As New NotesSession
     Dim db As NotesDatabase
     Dim doc As NotesDocument
     Dim lastdoc As NotesDocument
     Dim subjItem As NotesItem
     Dim IssItem As NotesItem

     Set db = sess.CurrentDatabase ' CA: moved

     filename$ = FixFileName("~entry.tmp")

     Call NukeIt(filename$)

     ' CA: use kyr name from profile if available
     Dim prof As NotesDocument
     Set prof = db.GetProfileDocument("CAProfile")
     KeyRingFileName$ = prof.CAKeyFile(0)

     CACert$ = GetString(ids_CACert)

     If KeyRingFileName$ = "" Then KeyRingFileName$ = Inputbox( GetString(ids_KeyFilePrompt),GetString(ids_KeyFileTitle))
     If KeyRingFileName$ = "" Then
          Messagebox GetString(err_NoKyr)
          Exit Sub
     End If
     Password$ = Inputbox$( GetString1(ids_PasswordPrompt, KeyRingFileName$), GetString(ids_PasswordTitle))
     If Password$ = "" Then
          Messagebox GetString(err_NoKyrPwd)
          Exit Sub
     End If
     CmdArgs = ""
     CmdArgs = CmdArgs & "Password=" & Password$ & ";"
     CmdArgs = CmdArgs & "KeyFile=" & FixFileName( KeyRingFileName$ ) & ";"
     CmdArgs = CmdArgs & "ShowPrivateKey;"
     CmdArgs = CmdArgs & "EntriesFile=" & filename$

     rc% = ProcessSecurityCmd( "GetEntries", CmdArgs, Buf, 500 )

     TrimBuf$ = Left$(Buf,Instr(Buf,Chr$(0))-1)

     If rc% <> 0 Then
          Messagebox TrimBuf$, 48, GetString(ids_Error)
          Exit Sub
     End If

     Set view = db.GetView( strKeyAdminView )

     Set doc = view.GetFirstDocument
     If Not doc Is  Nothing Then
          Set lastdoc = view.GetLastDocument
          Do  While 1
               Set doc = view.GetFirstDocument
               If doc.universalid = lastdoc.universalid Then
                    Call doc.Remove( True )
                    Exit Do
               End If
               Call doc.remove( True )
          Loop
     End If

     linklist = ReadFromFile(filename$)
     Call NukeIt(filename$)

     incr =0
     Forall k In linklist
          If Left$ (k, 11) = "EntryLabel:" Then
               Set doc = New NotesDocument( db )
               doc.EntryLabel = Right$(k, (Len(k)-12) )
               doc.Form = strCertInfoForm
               doc.Catagories = "Certification Authorities"

               doc.TempKeyFileName = FixFileName(KeyRingFileName$)
               doc.SubjOrgUnit = ""
               doc.IssOrgUnit = ""
               Set subjItem = doc.GetFirstItem( "SubjOrgUnit" )
               Set issItem = doc.GetFirstItem( "IssOrgUnit" )
          End If

          If Left$( k, 11)  = "SubjectOrg:" Then doc.SubjOrganization = Right$(k, (Len(k)-12) )
          If Left$( k, 18)  = "SubjectCommonName:" Then doc.SubjCommonName = Right$(k, (Len(k)-19) )
          If Left$( k, 15)  = "SubjectOrgUnit:" Then Call subjItem.AppendToTextList( Right$(k, (Len(k)-16) )  )
          If Left$( k, 12)  = "SubjectCity:" Then doc.SubjCity = Right$(k, (Len(k)-13) )
          If Left$( k, 13)  = "SubjectState:" Then doc.SubjState = Right$(k, (Len(k)-14) )
          If Left$( k, 15)  = "SubjectZipCode:" Then doc.SubjZipCode = Right$(k, (Len(k)-16) )
          If Left$( k, 15)  = "SubjectCountry:" Then doc.SubjCountry = Right$(k, (Len(k)-16) )

          If Left$( k, 10)  = "IssuerOrg:" Then doc.IssOrganization = Right$(k, (Len(k)-11) )
          If Left$( k, 17)  = "IssuerCommonName:" Then doc.IssCommonName = Right$(k, (Len(k)-18) )
          If Left$( k, 14)  = "IssuerOrgUnit:" Then Call issItem.AppendToTextList( Right$(k, (Len(k)-15) ) )
          If Left$( k, 11)  = "IssuerCity:" Then doc.IssCity = Right$(k, (Len(k)-12) )
          If Left$( k, 12)  = "IssuerState:" Then doc.IssState = Right$(k, (Len(k)-13) )
          If Left$( k, 14)  = "IssuerZipCode:" Then doc.IssZipCode = Right$(k, (Len(k)-15) )
          If Left$( k, 14)  = "IssuerCountry:" Then doc.IssCountry = Right$(k, (Len(k)-15) )
          If Left$( k, 10)  = "StartDate:" Then doc.CertStartDate = Right$(k, (Len(k)-10) )
          If Left$( k, 8)    = "EndDate:" Then doc.CertEndDate = Right$(k, (Len(k)-8) )

          If (Left$ (k, 12) = "TrustedRoot:") Then
               On Error Resume Next
               ' CA: different name here
               If linklist(Cint(Listtag(k)) + 1) =  "PrivateKey" Then doc.Catagories = CACert$
               If linklist(Cint(Listtag(k)) + 1) =  "PrivateKey" Then doc.HideSiteCert = "1"
               If linklist(Cint(Listtag(k)) + 1) <> "PrivateKey" Then doc.HideSiteCert = "0"
               On Error Goto 0
               doc.TempIsRoot = Right$(k, (Len(k)-13) )
               ' CA: Save only if it's the one we want
               If doc.Catagories(0) = CACert$ Then Call doc.save (False, False)
               incr = incr + 1
          End If

     End Forall

     Call workspace.ViewRefresh

End Sub
Change CA Key Ring Password
'++LotusScript Development Environment:2:5:(Options):0:74
Use "CertLib"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:10
Declare Function ProcessSecurityCmd Lib "_dmsecadm" (Byval cmdName As String,_
Byval cmdArgs As String, Byval OutBuf As String, Byval szOutBuf As Integer) As Integer
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Dim Buf As String * 500
     Dim CmdArgs As String

     ' CA: use kyr name from profile if available
     Dim sess As New NotesSession
     Dim db As NotesDatabase
     Set db = sess.CurrentDatabase ' CA: moved
     Dim prof As NotesDocument
     Set prof = db.GetProfileDocument("CAProfile")
     KeyRingFileName$ = prof.CAKeyFile(0)

     If KeyRingFileName$ = "" Then KeyRingFileName$ = Inputbox( GetString(ids_KeyFilePrompt) )
     If KeyRingFileName$ = "" Then
          Messagebox GetString(err_NoKyr)
          Exit Sub
     End If
     KeyRingFileName$ = FixFileName(KeyRingFileName$)
     Password$ = Inputbox(GetString(ids_OldPasswordPrompt))
     If Password$ = "" Then
          Messagebox GetString(err_NoKyrPwd)
          Exit Sub
     End If
     NewPassword$ = Inputbox(GetString(ids_NewPasswordPrompt))
     If NewPassword$ = "" Then
          Messagebox GetString(err_NoNewPwd)
          Exit Sub
     End If

     CmdArgs = ""
     CmdArgs = "KeyFile=" & KeyRingFileName$ & ";" & "Password=" & Password$ & ";" & "NewPassword=" & NewPassword$

     If dbg Then Messagebox cmdArgs
     rc% = ProcessSecurityCmd( "ChangePassword", CmdArgs, Buf, 500 )

     TrimBuf$ = Left$(Buf,Instr(Buf,Chr$(0))-1)

     If rc% = 0 Then
          Messagebox GetString(ids_PasswordChanged)
     Else
          Messagebox TrimBuf$, 48, GetString(ids_Error)
          Exit Sub
     End If
End Sub
Clear View'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     Dim workspace As New NotesUIWorkspace
     Dim view As NotesView
     Dim sess As New NotesSession
     Dim db As NotesDatabase
     Dim doc As NotesDocument
     Dim lastdoc As NotesDocument

     Set db = sess.CurrentDatabase
     Set view = db.GetView( "Keyring Administration" )

     Set doc = view.GetFirstDocument
     If Not doc Is  Nothing Then
          Set lastdoc = view.GetLastDocument
          Do  While 1
               Set doc = view.GetFirstDocument
               If doc.universalid = lastdoc.universalid Then
                    Call doc.Remove( True )
                    Exit Do
               End If
               Call doc.remove( True )
          Loop
     End If
     Call workspace.ViewRefresh
End Sub
Main Menug4
CASetup
    1S4S6S
H    H    h    8
~x    #)
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$Readers
$TITLE
$Index
$Formula
$FormulaClass
$SelQuery
$ViewFormat
$Comment
$ACTIONS
$SCRIPTOBJ_6
$SCRIPTOBJ_7
$SCRIPTOBJ_8
$ViewGlobalScript_O
09/09/97 05:20:49 PM Michael Decoteau/Iris updated OtherDomainServers
09/09/97 05:20:26 PM Michael Decoteau/Iris updated LocalDomainServers
07/21/97 06:00:23 PM Michael Decoteau/Iris deleted Michael Decoteau/Iris
07/21/97 06:00:17 PM Michael Decoteau/Iris deleted Andrew Wharton/Iris
07/21/97 06:00:16 PM Michael Decoteau/Iris updated -Default-
07/13/97 01:54:58 PM Michael Decoteau/Iris deleted role CertAppDesigner
07/11/97 04:45:11 PM Michael Decoteau/Iris updated Michael Decoteau/Iris
07/11/97 03:58:16 PM Michael Decoteau/Iris updated Michael Decoteau/Iris
07/11/97 03:50:52 PM Michael Decoteau/Iris updated -Default-
07/11/97 03:50:45 PM Michael Decoteau/Iris updated -Default-
07/11/97 03:42:53 PM Michael Decoteau/Iris updated Michael Decoteau/Iris
07/11/97 03:41:16 PM Michael Decoteau/Iris updated Michael Decoteau/Iris
07/11/97 03:40:11 PM Michael Decoteau/Iris updated Michael Decoteau/Iris
07/11/97 03:31:15 PM Michael Decoteau/Iris updated Michael Decoteau/Iris
07/11/97 03:30:53 PM Michael Decoteau/Iris updated Michael Decoteau/Iris
07/11/97 03:30:48 PM Michael Decoteau/Iris updated -Default-
07/11/97 03:30:25 PM Michael Decoteau/Iris updated -Default-
07/11/97 03:23:10 PM Michael Decoteau/Iris updated Michael Decoteau/Iris
07/11/97 02:58:57 PM Michael Decoteau/Iris updated [-Default-]
07/11/97 02:22:41 PM Michael Decoteau/Iris updated role CertAppDesigner
ertAppDesigner
CAPrivlegedUser
-Default-
LocalDomainServers
OtherDomainServers
au9 :3s
[-Default-]
[LocalDomainServers]
[OtherDomainServers]
Times New Roman
MailCertSubmitAccepted
SubmitMethod
    1S2S
$HideMailHeader
    0S0E
SendTo}
    0S0E
SendTo^
No names found to send mail.{
    1S6S7S8S9S11S16S
SendToList of primary people to send memo.
From:
Subject:
Your Certificate Request
Subject
Your client certificate has been accepted and submitted to the server's Address book.
    Note:  This form is not currently used; instead we use @MailSend in a function attached to the Accept button of the form Submitted Certificate Approval.  The contents of the acceptance email may be customized there.
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Info
$$ScriptName
$Body
MailCertRequestDenied
SubmitMethod
    1S2S
$HideMailHeader
    0S0E
SendTo}
    0S0E
SendTo^
No names found to send mail.{
    1S6S7S8S9S11S16S
SendToList of primary people to send memo.
    From:
    Subject:
Your Certificate Request
Subject
    Your certificate request has been denied for the following reason:
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Info
$$Script_O
$$ScriptName
$Body
MailCertRequestApproved
SubmitMethod
    1S2S
$HideMailHeader
    0S0E
SendTo}
    0S0E
SendTo^
No names found to send mail.{
    1S6S7S8S9S11S16S
SendToList of primary people to send memo.
    From:
    Subject:
Your Certificate Request
Subject
    Your certificate request has been approved, and can be picked up at the following URL:
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Info
$$ScriptName
$Body
Keyring Created
 DlgConfirmCreateSelfRoot
    Your Certificate Authority key ring has been created.
    Key ring file name:
KeyRingFileName
KeyringFileName
    Distinguished Name:
    Common name:
CommonName
CommonName
Organization
Organization
    Organization:
    Organizational unit:
OrganizationalUnit
OrganizationalUnit
    State:
    City:
StateProvince
StateProvince
Locality
Locality
    Next Step:
    You can now sign certificates with the Certificate Authority key ring.  The next step is to create the server key ring in order to run the Certificate Authority server over SSL.
    This certificate is valid from:
StartDate
ValidDays
    2S6S15SEndDate
    Country:
Country
Country
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Info
$WindowTitle
$$ScriptName
EndDate
$Body
Create Server Key Ring & Certificates
 ServerAppSteps
SaveOptions
Create Server Key Ring & Certificates
    It is recommended that you set up the Certificate Authority server to run SSL. In order to do this, it is necessary to create a key ring for the server using the Server Certificate Administration application.
    Note:
    The server key ring should not be confused with the Certificate Authority key ring.  The server key ring is needed to provide access to the server over SSL.  The Certificate Authority key ring is used to sign certificate requests.
    Quick Help
    Below is a brief description of the steps required for setting up the server key ring on the Certificate Authority server.  The steps require going back and forth between the Certificate Authority application and the Server Certificate Administration application.  See Domino Help or the Domino User's Guide for more information on setting up the server key ring for the Certificate Authority server.
    - In the Server Certificate Administration application, choose "Create Keyring".
      Complete the form and submit it.
    - In the Certificate Authority application, choose "Pick Up Certificate Authority Certificate".
      The form provides a copy of the   Certificate Authority Trusted Root certificate in PKCS format.
      Copy the certificate to the clipboard.
    - In the Server Certificate Administration application, choose "Install Trusted Root Certificate Into Key Ring".
      Paste the Certificate Authority certificate into this form and submit the form.
    - In the Server Certificate Administration application, choose "Create Certificate Request".
      Fill in and submit the form.  In the confirmation dialog that pops up, the certificate request is displayed in
      PKCS format.  Copy the certificate to the clipboard.
    - In the Certificate Authority application, choose "Submit Server Certificate Request".
      Paste the certificate from the clipboard into the field provided, complete the remaining fields,
      and submit the form.
    - In the Certificate Authority application, choose "Certificate Requests" to see the pending certificate requests:
         - Open the request you created, and approve it.
         - Choose the "View Approved Certificate Requests" action button to display the approved request.
         - Open the approved request, and copy the PKCS-encoded certificate to the clipboard.
    - In the Server Certificate Administration application, choose "Install Certificate Into Key Ring".
      Paste the certificate from the clipboard into the provided field, complete the remaining fields,
      and submit the form.
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Dim wsp As New notesuiworkspace
     Dim uidoc As notesuidocument
     Set uidoc = wsp.CurrentDocument
     Call uidoc.Close
End Sub
New Button
Need a newer version of Notes to execute this button.
    0S0E
       Close
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$FormUsers
$Info
$WindowTitle
$$Script_O
$$ScriptName
$Body
WebPageFrameInitialContent
    Hidden fields:
    The Page Title below doesn't appear in a browser.  Use it to identify the
    page in the Web Pages view, and for the Document name in URLs.
    Page Title
PrivateTitle
    This form is used for the Initial Content frame.
'/'/'
'*'/'*
!'/!%
%'%/'%
'/%*/'
/'%'/%
'/'!'!'
'!'!'
!'!'!
'/!/!
!    '-'-!'!'!
'!'!'!
/'/'/'!/
('('-'-'(!('!('-
'!/!'!'
-!'-('
'(!('('(
'    !'('!'!'!
'!/!/'!'/'/'!
(!'!-'(-('(!('('
!/!/!'
!    '!'(!'!('
('(!(!(
%'%'%
!/'!'!'
'-!-(!'(-(!(
'-(!('('!'('('(!'!
'%('('%(
%&'%&'
'-'-'
'(!(!
'-'!-
-(!'(!'('-!-
(!('(!'!('('
'&'&'&
'-'!'-
-'('('!(-!
!(!('
!(!('('(
!/!'!-/'
-!-!-'(-
-!(-!(-
(!(!(!'('('(!('('
%('('('%
'&/&'%
'!-'-(
!('(!
!(!(!
!(!(!('(!'('(!'
!'-!'-'!
-    !(!(!(!-(
!(!(-
(-(!(!'(!('('(!('(!('
%'&'&'%&
(!(!(!
!(-!(-(!
!(!(!
(    !(!(!(!(!
'!('('!'
!    -!'7!'-!-
-(!(!-(!-(!-(!
!-!-(-(-(!-(!(!('('(!
'!'('(
/-!/!/-!-!
-(!(-
!(-!(-(!
!(!(!
!(!(!(!(!(
(!('!'
!-(!-!(!
!(-(!-(!-(!-(-
-(!(-!-!
-(!(!(-!(!(!('(!('
('(!'
'('(%
%&'&'*
'-!-!
-!(!(!-
-(!-(!(-
!(-(!
-(!(!(!(!('!(!(
'!('!(
-(!(-!(-!(
!(-(-!-!
(    !-!-(!(-(
(-(!(!(!(!
&%&'&'&/%*
!-!(!
-(!-(-(-
-(-!(-(!
!(!(!
!(!(!(!(!('!('(
!(!(!-(!-(!-(!
-(-(-!-!
-(-(!(-!(!(-(-(-(!
'(!'(!'
!-!(!-(!(!
!(-(!
-(!(!(!(!(
'!('(!('('(
!-!-!
 - -(-(-(-
!(-(-!(-!(-!(!
-!(!(-(
(-(!(!(!(!
!'!(!(!('(!('
'('('(
(!(-(- - -(
-(-!(-(!
!(!(!
!(!(-(!(!(
(!(!'
!('('(!('(!'('(%'(
%'&'&'&
-!7-!
!-!-!
(! -(
(!(-(-
(!-(!-(-
-(!(-!-!
(-(!(-!(!(-(!(-(-
('(!(!(!(!'
'('('('('(
'    %'%&
(-(-(
(- -(
(- -( -( -( !(-!(-(-
!(-(!
-(!(!(!(!(
('(!'
(    !(!(!('('
'('('('('(
!-!- (!(-(
(-(-(-(-( -
-(!(-!(-!(
!(!(-!
(    !-!-(!(-(
(-(!(-(!(!
'!'('('(!(!(!'('
'('('('('(
(- -(
!(!(!
!(!(-(!(!(
!(!(!('(!('
'!(!('('('(%(
!-!-!-!
(- -(
-(!(!-(!-(!-(!
!(-(!
-!(-(!(-!(!(-(!(-(-
(!('('(!('
!'('('
'('('('(
&'%*'%&
-!- (
- -(-(
(-(-(-(
!(-(!
-(!(!(!(!(
'(!(!(!(!(!'
'('('('(
'    &'*'
-!-!-!-
!    -!(- (
(- - -(- -(
(- (- (
-(-(-!(-!(-!(!
!(!(-!-!
-(!(-(
(-(!(-(!(!
!'!('(!('('(!
'('('
%'%/&%*
-!7!-!
-(-!(-(-
!(!(!
!(!(-(!(-(
(!(!'
!(!(!(!(!(!'
'('!'
'('(%(
&%'*'*
(-(-(
( (- (
(- - - -(
(!-(!-(-
-(-(!
-!-!(-(!(-!(!(-(!(-(!
('('('(!('
'('('('('(
'    &'%&
(- -(- -(
-(-(-
!(-!(-(-
!(-(!
-(!(!(!(!(-!(!(!'
!(!(!('(!('!
'!'('('('('('('(
( (-(
(- -(
(-(-(-
-(!(-!(-!(
!(!(-!
-(!(-(
(-(!(-(!(!
'!'(!(!(!(!(!
!(!(!
!(!(-(!(-(
!('(!('('(!'
!-!-!
(- ( - ( - (
- -(- -(- - -(-
(-( -(!(!-(!-(!-(!
!(-(!
-!-!(-(!(-!(!(-(!(-(!
('(!('(!(!
'!'(!(!
&'&'*'
(- - -(-(- -
!(-(!
-(!(!(!(!(-!(!(
!(!(!(!(!('!
!'('('('%(
(- - -(-
-(-(-!(-!(-!(!
-(!(-!-!
-(!(-(
(-(!(-(!(!
'!'('('('('(!
!'!'('
'('('('
(-(-(
(-(-(
!(!(!
!(!(-(!(-(
(!(!'
!(!(!(!(!('!
'('('(
(- -
(- -(
(-( -(
(-( -(
(- (!(!(!
(-(!(-!(!(-(!(-(!
(!('(!('('
'('('('(
%&/'*
/7!7-!7!
- - -(
!(!-(-(-
!(-(!
-(!(!(!(!(-!(!(
'(!(!(!(!(
'(!(!'('('('(
( (-
(-(- - -(
(-( -(-(-!(-!(
(- (!(-(-!-!
(    !-!-(!(-(
(-(!(-(!(!
!'!('('('(!('
!'!'('
'!('('('('
(-(- -(
- (-
!(!(!
!(!(-(!(-(!-(!(!'
!(!(!(!(!(!'
(    '(!('(!('
'('(%('(
%&'&%*/
-!-!-
( (-
(- - - -(
(!-(!-(-
-(-(!(-!(!(-(!(-(!
('(!('('('
'!(!('(!'('('
- (-
- -(- - - - -(
-(!-(-(-
!(-(!
-(!(!(!(!(-!(!(
!(!(!(!(!(!'
'('('
'(!(%('(
( (-( (-( -
(-(-!(-!(-!(-
-(!(!
(    -!-!(!(-(
(-(!(-(!(!
'!'('('(!('(!
!'!'('
('(!('('('('
-     - (
( (-
- (-(
(-(-(
-(!-(-(-
!(!(!
!(!(-(!(-(!-(!(!'
!(!(!(!(!(!'
'(!('(!('('(
('('(
- - -
( (- ( - (
 - - -
(- -(
(! (! !(
!(-(!(-!(!(-(!(-(!
(!('('('('
!'(!('(!('(!'(!
'('('(
 - (
( ( (-
( - -(- -(- -(-(
-(-(-
!(-(!
-(!(!(!(!(-!(!(!'
'(!(!(!(!(!'
!('!(!('('('(!('
('('(
7!7-!-!-
(-( -(!(-!(-!(-!(!
-(-(!-!-
-(!(-(
(-(!(-(!(!
!'!('(!('(!(!
!'!'(!(!('(!('('('
(-(-(-(-
-( -(
-(-(-
-(-!(-(-
!(!(!
!(!(-(!(-(!-(!(
!(!(!(!('('!
!('('(!('(!('('!('!('('
%'%&'*
&- -(
( (- (
- -(- - - -
(-(!(-!(!(-(!(-(!
('('('('(!
('(!(!('(!('(!'('
 - -
- - - -(- -(-(
-(-(-
-(-!(-(-
!(-(!
-(!(!(!(!(-!(!(
!(!(!(!(!(!'
!(!(!('('('('
!'('('
( (-( -
(-( -(-(-!(
(-!(!
!(-(!-!-
(    !-!-(!(-(
(-(!(-(!(!
'!'(!('(!('(!
!'!'('('(!(!('(!('!
(!('!(
(, (-
- (-(
!(!(!
!(!(-(!(-(!-(!(
!(!(!(!(!(!'
!(!(!('('(!('
%'*'%
 - -(
 - - -(- - -(-
 !( !(!(
-!-!(-(!(-!(!(-(!(-(!
'('('('('('
'(!('('(!(!('(!'!'(!'(!
'('('(
 =( -= (=
5( =(
5(- =(
( - -(- - - - - -
!(-(!
-(!(!(!(!(-!(!(
!(!(!(!(!(!'
!(!(!(!('('('
('('('(
%'&'/
(-(-(
(-(-!(
(-!(!
-(!(!-!-
!-(!(-(
(-(!(-(!(!
('(!('(!(!
!'!'('(!('(!('(!(!
!('('
 -(-(
-(-!(-(-
!(!(!
!(!(-(!(-(!-(!(!'
!(!(!(!('('!
!(!(!(!(!('('
'(!('!('('('('(
 -(- - - -(
(-(!-(!-(
-!-!(-(!(-!(!(-(!(-(!
!'!('('('('(!
('('('('('(!('!
(!'('('('(
= = -5(
= (=(
( (-
( - - - -(-(
!(-!(-(!
!(-(!
-(!(!(!(!(-!(!(
!(!(!(!(!(!'
!(!(!(!(!(!('
!('('('('(
 -(-(- (-
-(-(-!(
(!-(!
-(-(!
(!(-(
(-(!(-(!(!
'(!('(!('(!
!'!'(!('(!('('(!('!'!('('(
%'%'*
 &(-
-( -(
(- - -(
!(!(!
!(!(-(!(-(!-(!(
!(!(!(!(!(!'
!(!(!(!(!(!(!
'(!('
 ( - (
- - - -(- -(
(- (-
(!-(!-(!
!(-(!-!-
-!-!(-(!(-!(!(-(!(-(!
('('('('('
'('('('('(!('('!'!(!'('('
'('('(%
- -(- - - -(
-(-(-
-(!-(-(-
!(-(!
-(!(!(!(!(-!(!(
!(!(!(!(!(!'
!(!(!(!('(!(!
(    '(!(!'('(
'    %'*'
(-(- (- (-
- -(-!(-!(!-(-
(    !-!-(!(-(
(-(!(-(!(!
'('(!('(!(!
('(!(!(!('('(!'!'('('(
(!('('(
(- -(
-(!-(-(-
!(!(!
!(!(-(!(-(!-(!(
!(!(!(!('('!
!(!('(!(!(!(!
'(!('
('(%'(
%'%'*
 ( -(
 - - - - - -(
-(!(!-!-
!-!-(-(!(-!(!(-(!(-(!
(!('('('(!
!'!'('('(!('('(!('
'(!('(!'
-( - -(- -(-(- -(
!(-(!
-(!(!(!(!(-!(!(
'(!(!(!(!(!'
!(!(!(!(!(!(!
'('('
-(-(-!(
(-!(!
!(-(!
(    -!-!(!(-(
(-(!(-(!(!
!'!('('(!('(!
'(!('('(!('('('
(!('!('!('('
 = - 5-
(- (
(- -(-
-(-!(-(-
!(!(!
!(!(-(!(-(!-(!(
!(!(!(!(!(!'
!(!(!(!('(!(!
(    '('('('(%
 - -
 ( -( -
(-(-
(- -(- (-
-(-(-!(!-(
-(-(!-!-
!-(-(!(-!(!(-(!(-(!
('(!('('('
!'!'('('(!('(!(!(
'('(!'(!'(!('('
(- ( - (
 - -(- -(
!(!-(!(-
!(-(!
-(!(!(!(!(-!(!(
!(!(!(!(!('!
!(!('(!(!(!('
'('('(
%'*/%*0
- - ( - ( -(
(- -(-
(!-(-
(    -!-!(!(-(
(-(!(-(!(!
'!'('('('(!(!
(!(!('('('(!('!'(!('!('('!('('(
(- (
( - -
( - -(
(-(- -
- -(!
-(!-(-(-
!(!(!
!(!(-(!(-(!-(!(
!(!(!(!(!('!
'(!(!(!(!(!(!
'(!('('(
- - ( -(
(- - -
(-!(!-(!
!(!(!-!-
-!-!(-(!(-!(!(-(!(-(!
(!('(!('('
'(!('('(!('('('@
( - -
 - - -(- -(-
!(-(!
-(!(!(!(!(-!(!(
'(!(!(!(!(
!(!(!(!(!(!(!
'!('(
- - ( -
-(-(-!(-!(-!(!
!(-(!
(    !-!-(!(-(
(-(!(-(!(!
!'!('('('(!('
!'!'('(!('('(!('(!'!(!('!('
( - -
!(!(!
!(!(-(!(-(
(!('!
!(!(!(!('(!'
!(!('(!(!(!(!
'('!('(
- - - (
- - (
( (-(
(- -(- - -(-
(!-(!-(-
!(!(!-!-
!-!-(-(!(-!(!(-(!(-(!
('(!('('(!
('('(!(!('('(
('(!'(!'('(!'
(%'%'/&'/*
- - - - -
( - -
-(!(!
!(!-(-(-
!(-(!
-(!(!(!(!(!-(!(
!(!(!(!(!(
!(!(!(!(!('('
!('(!('
- - ( -
 -( -
(-(-(-(-
-(-( -(-(-!(-!(
(    -!-!(!(-(
(-(!(-(!(!
'!'('('(!('('
( !'!'(!('('('(!(!(!'('('('('!'!('
- - -
( - -
 - -
-(!-(!(-
!(!-(!(-
!(!(!
!(!(-(!(-(
!(!(!(!(!(!'
!(!(!(!(!('('
(    '(!('(!('
!7!-7-
7!-!-!
(- -(- -(-(
!-(! (!(-!-!(!-(!-(-
!(-(!-!-
(-(!(-!(!(-(!(-(!
(!('('('(!
'('('(!('('('('!(!('(!('
-( -(- - - -(- -(
(!(-!(!
!(-(!
-(!(!(!(!(-!(!(
'(!(!(!('(!'
!(!('(!(!(!('
'('('('('!('(
( (- ( -( -
(-(-(- -(-(-!(!
!-!(!-!(!-!-
-(-!-!
(    !-!-(!(-(
(-(!(-(!(!
!'!('(!(!(!('
(!(!('('('(!(!'(!(!('(!('('
%'*'*
!7!-!
(- - -(-(-! -(
(!-(-!-!-(
-!-(-(
!(!(!
!(!(-(!(-(!-(!(!'
!(!('(!(!(
'(!(!('('('('
'('('(!
(!('(
( (-( (
!(-!(!
-(-(!(-!(!(-(!(-(!
('('(!('('
'(!('('(!(!('('!(!('(!
'('('
 (- -
(- -(-(-!(-!(!
-(!(!(!(!(
(!(!'
!(!(!(!(!('!
!(!(!('('(!('
'(!('(
!('!('('('(
!-7!-(
(-(-(
-!-!'-!-!-'-'-!-
!(-(!(!(
(-(!(-(-(-
'!'(!('('(!(!
!'!'('('(!('('(!(!'('(!('
'('('(%
-( -
- -(- !
!-!-!(
!-!-!-!-!-
!'!-!-!-
!(!(-(!(!(!-(!('!
!(!(!(!(!('!
!(!(!('(!('('
'('('(!'!('!('(
-!-!-
( (-
!-!-!-!-
!/-/!
'!'-'(-!(!(!(!(-(!(!(!
'('('(!('('
('(!('(!('('('!(!('(!
!-7-!
/'!/!/
/!/'-
'/!'-!-
-!'-!(!-!(!(!(-(!(-!(!(
!(!('(!(!(
!(!(!('('(!('
'(!('(
(!'('(
!7!-!
    -!-!-!-
-'!-!'!-
-!(-!
(    !(!(!(-(!
(!(!('(!('
!'!'('('(!('('(!(!'('(!('
(    '('!('('(
( - -(
"!/-/!'
2!'-'
(!(!(!(
'(!(!(!('(!'
!(!('('(!('('
'('('(!'
'('(%
2!/!-'-!'-'('(!(-(!-
(!(' 6
$4!('(!(!('('('!(!
('('('(
(-(!-!-!
-!-!(!(!
'(!(2
'!(!(
'    /%/'
-!+2 ('!(!(!
!+2!(!)
'(!('(
'('('
",'('(
!(!(!(
 (!('(
3!(!(!B
6$31#
4!('('6
(!('(
3!'(!2
('!(!(!(
('('(!2
'(!(!B
B('!(B
2!(!(!)
-!('(
'!(!(!
)('('(2
2('('6
 ('('!)
$2'(!(!'
('(!('
'(!(6
('!('!('
"-!-!
21'!'(!-(!
!(-'('!(!(!
,2"'(',)2 '
'(!('-(,
!7!7!7-
!    -!-'(!(!(
!(!('
!('('('
'('(-'(
'(!'(!
!'(!'!
7!7!7!-
!(!'('('
'(!'!('(!(!'(!(!(!('!(!('
'('(!'
!-!7!7!7!7!7!7!
-!7!-
'!-'!-!(!(!('!('
!('(!
'('(!(!('('!('(!('('('('!'-'!-
/'/'/'
('(!(!
'(!(!(
('(!'('(
!    7!7-!7-!
-!7!-!
!'-(!('(
!('('('('('
!'!'(!'(!(!'!'-'!
-'!'-!'!'!/'!/'
 !(-!-!-!
-'!'(!(!
!('!'(!(!(!('(!('('(!('!(
'    !'-'!'-'!
-'!'-!(!'('('!(!
'(!('!('('(!('!'!-'
!/!/!
!-!-!-
-!-7-
- - (
(-!-!-!-
'(-(!(!
(!'(!(!('!'('!('!'!
!'!'/'!'/!/'/
/!/!/'!'-(!'(!('!(!('('
!('!'
'!'!'!
!'!'/'
'/!/'
- - -
-    !-!-!7!
/'!-'
'!(!(!
'(!(!(!'('!
!'-'!'!'!'!'
'-!('('(
('(!('(
(!'!'!-!'!
!    '(!(!(!(!
(    !(!'!(!'-
!'!'!/'
- - (
('(!(!('('
'!'-'
!    /'/'/'/'
( - -
     - (-(-
('('-!(
- - (
'(!(-(!(!(!(!'(!
!-!-7-!
(- -
 ( - -
(- (-(-
-!-!-
-'!'!'!'-(!(
-!'!'!'/'
- - -
'!-!'-!(-(!(!'
(!'-!'!'-'/!'/'/
(- - -( (
/!'/!/
- - -
/!/'-'!-'!'(!(-(
-!-'-!/'/!'/
 - - - -
-!-('!'!'!'-'!'!
-!-!-
/!/!-'-
!'!-(!(!'-'!'!
'/'/'
-!-!-!-
/!/!/!'
'-!-!-'!'!'!'!
!/!/!
-!-!-!
'!'!-'!'-'-'-'-
/%'/!/!
-!-!7-!-!7!-
!-!-!-!
-!7!-!7!7-!7
-!7!-
!'!'-!-!'-!'-'-'!'/!
'/!'7
'!'!'-
-!'-!'-'!'!/!
!-!-!
-/7!/
-!/!/
-'!'-!'!'!/!/!'
'!'!-
-!-!-!
!/!'-'
'!-!-'!-'!/!/'
'!/!-!'
/!'/!
-!'!'!'!/!/'
/!'/'!'-!
-!-!-
!-'!'-'-'!'
-'!/!'
!-!-!-
/!'-!-'!
-!-'!'!'
/'/!'!-!
!-!-!
-'!'!'-
!'!'!'-!
'!'-!-'-!-!-
-!-!-!
!-!-!(!-'-!'-
-!/!/
'!/!'!'-(!(!
'/!/!
-!'('-'(
!-!-!
('(-!-(
-'!-'!/!/!/
!'!'!
/!/!'
!'!/'!-'
'-!'-
'-!(!-!(!(
-'!-'!'!/!/
/-!'!/!/'!/!/!
!'!-!-!-!-!-(!-!(!(-'('(-!'
/%/!'!'-'!-!
!-!-!
/!7!-/-
-!-!-
!/!/!/-!-'!'
'!-!-!-'
!(!(!-!'-!-'!
-!-!-
!-!-!-
!/!-!'!-!-
-!'!-!-
!(!(!(!-
!-!7!-
'-'-!/!-'!-'!-
'-'!-!-'-!
-    (!-!-!(!(
!('('
-!-!-
-!-!-!
!    -!-!'-!-!
!-!'-!-!-(
!(!(!
(!('!-
/%'/'
-'!-!
/!/!-/!-!-!
!-!-!
!-!-!-!-!-!-!-!
!-(-(!(-
!    (!(-!-!'-
!-!-!(-!
!-!-(!(!-!
!(!(!
!(!'(!-!'-'
!-'!'
(-!-(!(!-(!
!(!(-!
-!(-!(!
-!(!(-(!-!(!
!'!'!-!-!-'
-!-!-
-(!(!-
-(-(-!-(!(-(!
(    -!(!(-!-!
-(!(!
!(!('(-!
'/!'!'!'!-!'!'!
/!-!-!-(!(
-!(!(!-(!-(!(-(
(!-(!
(-!-(!(
(-(-(
(!(!(
!    -!/!
!'-'!-!-
!(-(!
!(-!-
!(!(!
(    !(!(!'-'!
-(-(!-
!-(-(!-(-!-(-(!(!-(!(-
!-!(!-!(-(-!
-!(!(!(-!(!(!-!-'-!/!/!
-!-!-(!-(-
!(-(!
-(!(-!-
!(-(!
!(!(!'
!-'!'!'
!7'!-!-!
(!(-(-!(-(!
(!-!(-(
!-(!(-(!(!(!(-'-'!'!'
7!-!-
-(-(!
-(-(-!-
!(!(!(!(!('
'%/%/!
!'!'!'!'
-(-(!-
-!(!(!-(!-!(!(!(
(-(-!
-!(-(!(!(-(
(!-!'-
-(-(-
-(-(-!-
(-(!(-(-(!('-!'!'
-'!'!7
-!(-(-!(
!(-(!(-!(!(-
!-!(-!-(!(
!(!(!(!(!(!(-!'
/!-!'
!(-(!
-(-(-
-(-(-!-
(-(!(!(!('!'!'!/'/
%'!'-!'-
-(!(-!
!-(!(
(!-!(!(!(!-(-(!
(-(!-
-(!(-(-(
!    (!-'-!/
-!-!-!(-(-
-(-(-
!(-(!-!
-!(-!(!(!(!(!(-!'-
!    '!/
!(!(-!
(    -!(!(-!(!
(!(-(
-!-(-!-(!(
!(-(!(!(!(-!'!'!'/'/
'/'!'
-(-(!
!-(!-(!(!(-('('!'-'!'
'-!'-'
!(-(!-
(-(!-(
!(!(!(-!(-(-
!    (!-!(-(!-
!(-(-('(!-(!(
(!(-!
-(-(-
-(-(!-!
-!(-!(!(!(!(!
-'!/!/
!-'-'-'
(!-(!
!(!(-!
!-(!(
(!-!(-(!(-!(!(-
-(!(!(!(
/!-'!
!-(-(-!-!(-(-
-(-(-
-(-(!-!
!-(!-(!(-(!('
'('!'!/
('-!'-
!    -!-!-(!(-
-(-(!-
(    !-(!(!-(!
(!(!(!-(!(!
!-!(-!-(-(!-
!(-(!('(!'!(!'-
0*/*'
-!-!-!-(!(!
!(-(-
-(-(-
-(-(!-!
-!(-!(!(!(-(!
-!(-'
'!-!-!'!-!/
!-(!(
(!(!(
-(!('(-(!'!'
(!('-
(-!(-(!(-!
!(!(!(-!-(!(
!    (-!(-(!(!
!    (!(!(!'(!
!('-'
/%'!'!'(
!(!-'-
-    (-!(-(!(-
!(!(-!
-!-!(!-!(!(
(!(!'!
!(!('
!'(!('!-
!'(!(!'
-!'!-!
-(-(-(!-
(-(!(
!-!-!(-!-!-(-!(
-!(-'-'(!-'!-'(!'(!(
!(!(!'!'-
'    ('!'(!(-!
!-!-!(
!(!(!(-
!(-!-!(-!(
(!-!-'(-
'-'-'!'
-!(-(
'(!'!('(!'('-'!-'!'!'
-!/!/
!-(!-(-!
(-(!-
(!-!-(
!    '-!'-!-!-
'-!'!'
(-!-!-
(!-!(!'
!    '-'!/'
%'('(
'(-(!
/!'!/
!-(-!-(
-!-(!(-!
!'!'!'!-
'-!'!'!'!-'!-'-
-'-'!'!'('('!('!'-!'-'!'
!(!(-!-!-!
!(!(-(!-!-!(-(-(
!!-!-!-!-!'!'-'-'!'-!-!-!'-'!'-!'-'
-'!-'
-'!(!('-!'!'-'!/!/
!'('!'(!(!(-!-!-!-
7!'!/!/'!/!
/!/!/'/
/!'!-!
'-'-'
'-'!'!'!
'    ('('('!(!
!-!/!-!
-/!'!
!-(!-(!-!-!(!-!
'!'-'
'/!/!/'!/!'
!/!/!'!'/
'/'/!'
'-'!-
!    '-'!'!/'!
('(!(!(-!(-!-!-!
!-!-!-!(!-!-!-!
!'-'-!-
!/!'!'!'!'-!'!'!'-!'!'-'!/'!'
'    (%('!('(!
-!-!-!-!-!-!-!'!'-
!/!/!/
!/!/'/!'!/'!'!'
'!'-'!
-'!'!'
/!'/'/
'!(!(!(-!-(!(!
!-/!-!
!/!/!-
'-'!-!
!-!-!-!
!-!-!-!-!'-!/!-
/!/'!/!/
!'!'!'!'!'-!'!'!'!'/!/!'!/!
!(-(!
!-!-'!-!
/!-'-!7
!-!-!-
!'!'!
!'-'-'
/'/'/'
('!(-(!(
-    !-!-!/-!'
-'-!-!-!
!-!-!
!-!-!
!-!'-!'
/!/!/'!
-'-'!'!
'(!(-
-!7!-!-!-
'-!-!
'!'!'-'!-'-'!'!'/!'/!
('!(-(!(-!
(!(-!
'!-!-
!-!-!
'-!/-!/
!'-'!'!'-'
!(!(-
-    !-!-!-!-!
!-!-!(!(-!-!-!-!-!-!-
!/!/!
'-'!'!'!'!
!'!'!/'/!'
!'(!(!(-(!-
!-!-!
!-!-(!-!-!-!-!-
-!'!-'
/!'!'!'-'-'!-!'!
!'!'!'
'('(!(-
-    !-!(-(!(-
!(!(-!
!-!-!
!(!(-(!-!-!-
'    !'!'!'!'!
'!'!'!'!'!/!'/
!(!(-(!(
-(-(-!(!
!(!-!-(
!(!(-!-(!-(!(!(-!(
-    !-!-!-!-!
'!-'!
!'/!/'
-'!'!'-'
'(!(!(-
(-(-(
!(!(-!-
!-!(-!(
-    (-!-(-!-(
'!/!'-'-'!'-
!'(!-
(%'('('(!('(-(!-
-(!(!
-    (!-!-(-(!
/'!'!'-'(!(!'-
-'!'/'!
*%'%'%
'    !('(!(!(-
(-(-(!-(-(-
(    !(-(!(-(!
!(!-(
-!-!/-
'!('-!-!'!'
%('('!(!(!(!(-!
!(-(-
-(!(!-!(!(
(-(-(!(-(-(
!'!'-'(!(!'!('(!'(
!'!'!
(    '('(!(-(!
-!(-!
(-(-(!-(-(-
!(!(-(-(!(!
-!'-'!-!
'!'!'('!'!('('(!'('!-'!'!/'
&'*'%'%
'(!(!(-
!(-(!
!(-(!-(-(-(!(!(-(
!-(-!(
'!'-'!('('(!'('-!'('!'!
!'!(!(!(-(-!
-!(-!
(!(-(
-(!(-(-(-(!
!'!'!'-!'('(
/'/!/
*/%'*
!(-(!(!
-(!(!
(!(-!(-(!(-(!(-(!
!('('!('('('(
(!(!(-(
!-(-(-(-!(-(!
-(-(-(-(-(!
'-!'-/
'(!'(
('('('
!(!(-(!
-(!(-
-(!(-!-(!(!-(!(!(!(!(!(-!-
/'/!'!'!'!'('(!'!(
!    '!'
('(!'('(!(-(!-
!-(!-!-(-(-(-!(-(-
-(-(-(-(-(!
/    '!/'!'-'(
-(-(!(-
!(!(!
!(-(-!(!(-(-(!(-(
!-'('!
'!('/!/!/'
%&'/%
('('(
!    (!(!(-(!-
!(-(-(
-(-(!(!(!(!-(-
'-'-'/
!'!(!('!('-
(    '(!(!(-(-
-(-(!
!(-(!-!(!(
(-(!(-(-(-
!-!-!-!
!'('!'
!('('(!(!(!-
!-(-!-!(-(-(
-(-(!(!(-(-(!(
-(!-!-!'!/
!'-!'-'!'-'!
('(!(!(-(-(-
!(!(!
!(!(!-(-(-
(    -(-(!(!(!
!-!-'!-/!/!
'    !'!'!'!'!
'('(!('(!(!(-!
!-(-!
(-(-(-!(-(-
!(!(-!(-(!(
-'-!/
!'!-'-'!'-'!
'(!(!(!(!(!(-!
!(-(-
-(!(-
!(!-!-
!    '!/
/'!'!'
'-'!'
('('(!(!(-(-
(!(!(-!(-(!
-(!(-!(-(!(
-!-!-!-!'7
!(!(-(!(!(-!
-(-(!
!(-(-!(-(!
!(-(-
(    -!'-'!/!
'    !-'!'/
('('(!(!(-
-!(!-!-(!(-(
!(!(!(!(-(!
-(-(!
%'('!'(!(!(!(-(!(
(!(-(
(    -(-(-(-(-
'/!'/
/*/%'&'%'%(
('('('('('-(-(!(-(!
-(!(!
-(!(!(-(-(!(!(!-!-'!'!7!/!/
/!/!/!'/'!/'
(+!(!(!(!(-!(-!-!(-(-(-!(-(-(-(!(!(!-(!('-!-!
/!'!/'!/
'(!(!(-(!(-
-(!(-
-(!(-(!(-(-(
'/!/'
!'(!('(!(-(!(
! (-!-!(-(-(-!(-(!(-(-(!(-(!(!-!'-
'/'/'
*%/&%
'(!(-(!(-(-
("!(!(!(!(-(-(-(-(!(!-!-!-!'!'/
(!('(!(!(!(!-(!
!(-(!(-(-(!(!(!(!(-(!('-!'
*/*/%'%
'(!(!(!(!(!(!
-(!(-(!(!(-(-(-(-(!-!-
'('('(!(-(!(-(-
(!(!(-(!(!(!(!(!(!
('!(!(!('(!(-(!(!
!    /'!
('('(
' (!(!(!(!(-(!(!-(!(-(!(-(!(!(-(!(
!    (!'-'!-/!
*/%/%
('(%('('
(    !('(!(-(!@
(-(!(
('('('!('(!(!(-@
!-'-'-'!'
('('('(!
    (-(!(!(!(
/&/%'%
(!(!(!(!@
(!(!-(
'-!'!/'
'('('(-@
(-(!(-
!-'-!'!
('!(!(!(!(-@
(    -!-!'/!/
('('('
'!('(!@
(!(-(!(
'!-/!'/
'(!('(!@
'(!-'!'/
('(!(!(!@
(!(!(-'
'(!('('-(-@
(!('(!
(!(!(
/'/%'%
(,'('(!(!'!(!(!(-(!(!(-(!(-(!(!(!'-'!-'!/'/
(!'(!'
'(!(-(!(-(-(!(-(!(-(!
('('@
(!'!-!-'
(%('(!('
!(!(!(-(!(!(-(!(-(!('-(!('
'('(!(!('(!(!(-(!(-(!(-
'('!-'!'!/!/
!(!('@
'!(!-(
('(!('(!(!(!(!(!(!('
'(!(-'!'
%('('('('!
'!(!(!('('-(!('(!(-(
('('-!-!'
'!('('(!(!
(    !('(!('(!
!(!(!
%'('('
!(!('(
'(!(!(!(!('!('(!(!(-!'
'    (!'('(!(!
(    '(!('(!(!
!('('(!'
('('!
(    '('!('('(
('(!('('('!(!(!('!-'
(%('(
'(!(!('
(    !(!(!(!(!
'(!(!('(!'-
'!'(!(!(!(!('('('(!(
(!('('!-'-!'
'('('(!(!(!(!('('
'(!(!
'/!/'/'!
("'!'('!(!('('(!(!(!(!('!('('(!'!'!'
!(!(!(!
!'!/'/%
'!'(!(!('(!(!(!('('(!(!(!'!(
('-!'-!'!'!/'
/'/!/'/%/
'('!(!(!(!(!(!(!('('
(    !('('(!'!
!'!/!'/!%/
!/!'!/!/%/'
%('%(
(.'('!'('(!('('('(!(!('(!(!('(!(!('('!-'!'!'/!'
!'/!/
'!('('('(!(!('(!(!('(!(!(!(!(!('('(
-'!'/
!/'!'
!/!/%
('('('
(&'('('('('(!(!(!('(!('('(!(!(!(!('!-!-'
'!/!/
/'/!'!/!
'('('!('('(!(!('(!(!('('(!(
!('!'-
'    ('('('('(
'!(!('(!(!(!(!(!(!('(!
'!(!'!-'
'!'!/
!'!'/!/
(%'('('(
'('(!('(!('('(!(!(!('(!
/'!'!
'    /'!'/'/!/
('('('('
(!'('(!('(!(!('('('(!('('(!'!('(!-'
/'!'!/
'/!/'!
/%/'/
'!'!'
('('(
'.('('('('(!'(!('('!('(!(!(!(!('(!(!('('(!'('('-
!'!'!'!'!/'!'!/'!/'!'
/'/'!'!'
!'!'!
%'/'!'!
('('('('('
'('('(!
'(!('(!('(!(!('(!
!('-'(
'!('-'-'!'!
!/'!'!'/!/
!/'!'!/
'&('('('('(!('('('!(!('(!('(!(!(!(!(!'('
'('(!'-'!'!'-'
'!'!'!'
'!'!'!'
'!'!'!'!'!'-'-'!
/!'/!'
('('(
('('(!'('(!('(
('('('(!('('(!('(!(!'!'(!('(!'(
(!'!'-'!-!
!'!'!'!
!'!'!
'!'-'!'-'-'!'!'!'
!'!'/!/
    /'%'!'('(
%('('('(
!('('(!(!(!(!('
'('!('(!'(!'('!'-
!-'-'-'!'-!'
'!'-'!-'!'!
!-'!'-'('!'!'-'!
'    %'('('('(
%('('
!('('('!('('('('(!('('
( !'!(!('('('('('!(!('(-!'!'!'-'(!
'!-'!'!'-'-'!(!-'!('!('(!'('!'!'-'!
'    !'!'!'('(
('('(!('(!('(!(!('(!(!('
'('(!('(!'(!(
'!('(!('(!
!-'!-'!'-('(!'!('!(!'!'('!
'    ('!'!'-'!
('('(%('('(%(
(    '('(!'('(
(!('('('!'(!(!('(!'
(!'(!('(!('(!('
'('-'('!'('!'('('!'('-'('-'!
('!%(
('('('!
'    ('!('('(!
'('(!('
'('(!('
'!('(!'('('('(!('('('!('!('('
'(!('(!'!('
'!'!'('!'!'!
!'!/'
'('('('('('('
'(!('('!'('!('(!('('!(
'    !('('(!('
!('(!@
('('(!'
'('!'('('!'-'!
/'/!%/
!'!'(!'(%'(
('('(
(!'('
'(!'('(!
'(!('('(!(
(!('('(!'(!(!(!('
'(!(!('
'(!'!(!('('!'!
/%/'!
'    ('(%('('(
('('('
'!'('
'('('(!'
(!(!('
!('(!(!
'('('('('!(!(
('('!('!'('
('!'!'('!'
('('(
'(!(!'(!('!('(!'
(!'('('('(
('('(!('
'(!('('(!(
!    '(!'('('!
!'/'!
/!'/'!
('('('(
('('('
'('('('
'('!'('
'('('(!('('
!(!('(!('('('!('('(!('(
('!'!'!'!'!'!
!'!'(
('!('(!('(!'('!
'('(!'(!('(!('(!('!('('(
(!'(!('(!'('('!'!(
('!'(
'('('(!'(!'
'('!'
'('(!
'('(!'
'(!'('('(!'('('(
'!'!'!
('('!('('('('
'(!'(!
(!'('!('
(    '!('('(!(
('('(
'('('('('('!(
'('('!'('!'
(    '('('('('
/'!/'/'!'!'!'(!
('('('('('(
'!'('('(!('
'('('(!('('('(
('%'('('('
(    %('('('('
'('('('('('(!'
'!'('('(
(!'('('(!'!'(
!'(!'!'('(
('('('(
('('('('('!('(
'    ('!'('('(
'    !'/'
'!/'!'
'    ('!'(%('(
('('('('('!
('('!'!
'    /!'/'/
('!'(
'    ('('('('(
('(%!'(
('('!
'!'!'!
('('!
('(%'
'('(!'(
!'!'!
!'/'/
/'/'/!/!
!'%('!'!
!'!'!
/!%'/
!'('!
('('!
!'%'!
%'!'!
!'/'%
/'/!/
!/'%!
%/%'/
'/%/%'/%/
''''''''
!'('(!'(P
 - - - -
(!('('('
----!-!-
-!-!-!--
(!(!(!(-P
9(!(-(!(-
(!(!(!(!
(-(!(-(-P
9(-(!(!(!
(!(-(!(!
'('(!(!(P
9!''!''!'C
'!'!'!'!
!'('('(!('('
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$FormUsers
$Info
$$Script_O
$$ScriptName
$Body
&Arial
Certificate Information
 CertificateInformation
TempIsRoot
    3S4S6S
TempIsRoot
TempKeyFileName
Catagories
HideSiteCert
CertIsDel
    1S2S
Certificate Information
    This form displays the information contained in the certificate you have chosen to examine.
EntryLabel
** Certificate Deleted **
    1S2S
You have deleted this certificate. It will no longer be displayed when you view the contents of this key ring.
    Key Ring & Certificate Identification
    Key Ring File Name
TempKeyFileName
CompKeyFileName
    Certificate Label
EntryLabel
    Certificate Information
    Certificate Subject
    Certificate Issuer
    Common Name
SubjCommonName
IssCommonName
    Organization
SubjOrganization
IssOrganization
    Organizational Unit
SubjOrgUnit
IssOrgUnit
    City
SubjCity
IssCity
    State
SubjState
IssState
    Country
SubjCountry
IssCountry
    Validity Dates
    Start
CertStartDate
CertEndDate
HideSiteCert
CertIsDel
    0S6S7S10S11S12S
    0S0E
    Close
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Readers
$FormUsers
$Info
$WindowTitle
$$Script_O
$$ScriptName
$Body
Cert Request ApprovedCertRequestApproved[CAPrivlegedUser]CD
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################
Web Cert Request OutputOutputRequestCD
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########
Web Cert Server RequestCertRequestServerCD
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############################################
Notes CA Certificate PickupCACert[CAPrivlegedUser]CD
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
Notes Cert Server RequestCertRequestServerNotesCD
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############################################
Web URL Certificate PickupCertPickupCP[CAPrivlegedUser]CD
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
Web CA Certificate PickupCertPickupCA[CAPrivlegedUser]CD
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################
WebPageForIndexFrame[CertAppDesigner]1
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################################
DlgConfirmResubmitCertReq1CD
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###########
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############
Approved Certificate Request
5Courier New
 CertRequestApproved'++LotusScript Development Environment:2:5:(Options):0:74
Use "certLib"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As NOTESUIDOCUMENT
     Set Source = Bind(Objectname_)
     On Event Queryopen From Source Call Queryopen
End Sub
'++LotusScript Development Environment:2:2:Queryopen:1:12
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
     Dim doc As NotesDocument
     Set doc = Source.Document
     Call CertToPickupCert(doc)
End Sub
CertIsDel
    1S2S
Approved Certificate Request
    The certificate below has been approved and signed. The certificate information is provided below for reference.
    Contact Information
    Full Name
TempIsRoot
HideSiteCert
CertIsDel
    3S4S6S7S13S14S17S18S19S
ContactName
ContactName
    E-Mail Address
EMail
EMail[<SIZE=30 MAXLENGTH=70>]
    Phone Number
Phone
Phone
    Comments
Comments
Comments
    Certificate Information
    Certificate Subject
    Certificate Issuer
    Common Name
SubjCommonName
IssCommonName
    Organization
SubjOrganization
IssOrganization
    Organizational Unit
SubjOrgUnit
IssOrgUnit
    City
SubjCity
IssCity
    State
SubjState
IssState
    Country
SubjCountry
IssCountry
    Validity Dates
    Start
ValidBegDate
ValidBegDate
ValidEndDate
ValidEndDate
    Certificate
    Pick up ID
TempIsRoot
HideSiteCert
CertIsDel
    2S3S4S6S7S13S14S17S18S19S
PickupID
HideSiteCert
CertIsDel
    0S6S7S10S11S12S
PickupCertificate
PickupCertificate
[CertAppDesigner]
    1S6S7S
    Hidden fields:
    Approved:
Approved
    Request type:
RequestType
Categori_ze
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From Folder
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
Untitled
Untitled2
ValidFrom
ValidTo
ValidDays
$TITLE
$FormUsers
$Info
$WindowTitle
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$Body
$ACTIONS
&Arial
 OutputRequest
Your Certificate Request Has Been Submitted
    You will receive an e-mail notification when the Certificate Authority has reviewed your request.
    This is the contact information you provided:
    Full name:
ContactName
    Email address:
EMail
EMail[<SIZE=30 MAXLENGTH=70>]
    Phone number:
Phone
    Comments:
Comments
    [<br>]This is the information in the certificate you submitted:
    Common name:
CommonName
CommonName[<SIZE=30 MAXLENGTH=30>]
    Organization:
Org[<SIZE=30 MAXLENGTH=30>]
    Organizational unit:
OrgUnit
OrgUnit
    City or locality:
Locality
Locality[<SIZE=30 MAXLENGTH=70>]
    State or province:
State
State
    Country:
Country
Country
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
rIOqm
Untitled
Untitled2
ValidFrom
ValidTo
$TITLE
$Info
$$ScriptName
$Body
DlgAlreadyHaveCAKey
A key ring file for this Certificate Authority has already been created.  If you create a new one, you will invalidate certificates signed by the old one.  If you really need a new key ring, we suggest you create a new CA Application with a different key ring file.
WARNING!
Are you sure you want to proceed?
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$NoBackgroundOverride
$Info
$$ScriptName
$Body
Request a Server Certificate
size = 50
&Arial
 CertRequestServer
Request a Server Certificate
[CertAppDesigner]
    1S6S7S
    Use this form to submit a server certificate request to be signed by the Certificate Authority.
    [<br>]Contact Information:
    Provide the following information in case the Certificate Authority needs to contact you.
    Full name:
size = 50
ContactName
    E-mail address:
size = 50
EMail
EMail[<SIZE=30 MAXLENGTH=70>]
    Phone:
size = 50
Phone
    Comments:
size = 50
Comments
    [<br>]Paste the certificate request:
    To paste the PKCS-encoded certificate from the clipboard, click in the field below and press CTRL+V.  Check to make sure that the BEGIN and END lines are included.
    <textarea name=Certificate cols=65 rows=6></textarea>
    Submit Certificate Request
    Hidden fields:
Certificate
RequestType
/OutputRequest?RequestCert&ServerRequest&TranslateForm=CertRequestTranslation
    1S2S6S9S10SRequestAction
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Info
$WindowTitle
$HTMLBodyTag
$$ScriptName
$Body
Certificate Authority Trusted Root Certificate
5Courier New
 CACert'++LotusScript Development Environment:2:5:(Options):0:74
Use "CertLib"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As NOTESUIDOCUMENT
     Set Source = Bind(Objectname_)
     On Event Queryopen From Source Call Queryopen
End Sub
'++LotusScript Development Environment:2:2:Queryopen:1:12
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
     Dim doc As NotesDocument
     Set doc = Source.Document
     Call CertToPickupCert(doc)
End Sub
'++LotusScript Development Environment:2:5:(Options):0:74
Use "CertLib"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As FIELD
     Set Source = Bind(Objectname_)
End Sub
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize

End Sub
Pick Up Certificate Authority Trusted Root Certificate
    Note: This form is for administrators setting up a Certificate Authority server.
     Server administrators normally choose "Accept This Authority In Your Server" from the main menu of the Certificate Authority Web site to pick up the Certificate Authority certificate.  Since you are in the process of setting up the Certificate Authority server, this form provides a shortcut for obtaining the CA certificate.
    Below is a brief description of the steps required for setting up the server key ring on the Certificate Authority server.  The steps require going back and forth between the Certificate Authority application and the Server Certificate Administration application.  See Domino Help or the Domino User's Guide for more information on setting up the server key ring for the Certificate Authority server.
    - In the Server Certificate Administration application, choose "Create Keyring".
      Complete the form and submit it.
    - In the Certificate Authority application, choose "Pick Up Certificate Authority Certificate".
      The form provides a copy of the   Certificate Authority Trusted Root certificate in PKCS format.
      Copy the certificate to the clipboard.
    (You are here)
    - In the Server Certificate Administration application, choose "Install Trusted Root Certificate Into Key Ring".
      Paste the Certificate Authority certificate into this form and submit the form.
    - In the Server Certificate Administration application, choose "Create Certificate Request".
      Fill in and submit the form.  In the confirmation dialog that pops up, the certificate request is displayed in
      PKCS format.  Copy the certificate to the clipboard.
    - In the Certificate Authority application, choose "Submit Server Certificate Request".
      Paste the certificate from the clipboard into the field provided, complete the remaining fields,
      and submit the form.
    - In the Certificate Authority application, choose "Certificate Requests" to see the pending certificate requests:
         - Open the request you created, and approve it.
         - Choose the "View Approved Certificate Requests" action button to display the approved request.
         - Open the approved request, and copy the PKCS-encoded certificate to the clipboard.
    - In the Server Certificate Administration application, choose "Install Certificate Into Key Ring".
      Paste the certificate from the clipboard into the provided field, complete the remaining fields,
      and submit the form.
    Certificate Authority Information
    Common Name
CommonName
CommonName
    Organization
    Organizational Unit
OrgUnit
OrgUnit
    City or Locality
Locality
Locality
    State or Province
State
State
    Country
Country
Country
    Certificate
    Quick Help
    Copy this PKCS encoded certificate and paste into your server:
PickupCertificate
PickupCertificate
    To copy the certificate, select all the text, including the BEGIN and END lines, and press CTRL+C.
    Note
    :  After copying this certificate, the next step is to choose "Install Trusted Root Certificate into Key Ring" in the Server Certificate Administration application.
    0S0E
    Done
[CertAppDesigner]
    1S6S7S
    Hidden fields:
    Pickup id:
CACert
PickupId
    Request type:
RequestType
Categori_ze
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From Folder
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
QF - mD
Untitled
Untitled2
ValidFrom
ValidTo
ValidDays
$TITLE
$FormUsers
$Info
$WindowTitle
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$$PickupCertificate
$PickupCertificate_O
$Body
$ACTIONS
5Courier New
Submit Server Certificate Request
 CertRequestServerNotes
[CertAppDesigner]
    1S6S7S
Submit a Server Certificate Request
    Note: This form is for administrators setting up a Certificate Authority server.  Server administrators normally submit a certificate request for signing by choosing "Request Server Certificate" from the main menu of the Certificate Authority Web site.  Since you are in the process of setting up the Certificate Authority Web site, this form provides a shortcut for submitting the certificate request for your server key ring.
    Below is a brief description of the steps required for setting up the server key ring on the Certificate Authority server.  The steps require going back and forth between the Certificate Authority application and the Server Certificate Administration application.  See Domino Help or the Domino User's Guide for more information on setting up the server key ring for the Certificate Authority server.
    - In the Server Certificate Administration application, choose "Create Keyring".
      Complete the form and submit it.
    - In the Certificate Authority application, choose "Pick Up Certificate Authority Certificate".
      The form provides a copy of the   Certificate Authority Trusted Root certificate in PKCS format.
      Copy the certificate to the clipboard.
    - In the Server Certificate Administration application, choose "Install Trusted Root Certificate Into Key Ring".
      Paste the Certificate Authority certificate into this form and submit the form.
    - In the Server Certificate Administration application, choose "Create Certificate Request".
      Fill in and submit the form.  In the confirmation dialog that pops up, the certificate request is displayed in
      PKCS format.  Copy the certificate to the clipboard.
    - In the Certificate Authority application, choose "Submit Server Certificate Request".
      Paste the certificate from the clipboard into the field provided, complete the remaining fields,
      and submit the form.
    (You are here)
    - In the Certificate Authority application, choose "Certificate Requests" to see the pending certificate requests:
         - Open the request you created, and approve it.
         - Choose the "View Approved Certificate Requests" action button to display the approved request.
         - Open the approved request, and copy the PKCS-encoded certificate to the clipboard.
    - In the Server Certificate Administration application, choose "Install Certificate Into Key Ring".
      Paste the certificate from the clipboard into the provided field, complete the remaining fields,
      and submit the form.
    Contact Information
    Quick Help
    Full Name
ContactNameName the CA can use to contact you
    E-mail Address
EMail
EMailE-mail address the CA can use to contact you
    Phone
PhonePhone number the CA can use to contact you
    Comments
CommentsAny additional comments that you want to send to the CA
    Provide this information in case the Certificate Authority needs to contact you.
    Certificate
Certificate
    Paste your certificate request in this field.
    Note
    : The Certificate Request must already be in the clipboard from the "Create Certificate Request" operation in the Server Certificate Administration application.
'++LotusScript Development Environment:2:5:(Options):0:74
Use "CertLib"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Dim ws As New NotesUIWorkspace
     Dim uidoc As NotesUIDocument
     Dim doc As NotesDocument

     Set uidoc = ws.CurrentDocument
     Set doc = uidoc.Document

     ok = SubmitCertificateRequest(doc)
     If ok Then
          flag% = ws.DialogBox("DlgConfirmNotesSubmitCertReq",True,True,True,False,False,False)
          Call uidoc.Save
          Call uidoc.Close
     Else
          Messagebox GetString(err_SubmitFailed)
     End If
End Sub
New Button
Need a newer version of Notes to execute this button.
    0S0E
    Submit Certificate Request
    Hidden fields:
RequestType
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Info
$WindowTitle
$$Script_O
$$ScriptName
$Body
Pick Up Signed Certificate
&Arial
5Courier New
 CertPickupCP'++LotusScript Development Environment:2:5:(Options):0:74
Use "CertLib"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As FIELD
     Set Source = Bind(Objectname_)
End Sub
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize

End Sub
Pick Up Signed Certificate
    Use this form to pick up the signed certificate so you can install it in the key ring on your server.
    Note:
     Before installing this certificate, the certificate of the signing Certificate Authority must be installed in your key ring as a Trusted Root.  If you haven't already done so, choose "Accept This Authority In Your Server" from the main menu to obtain the CA certificate.
    [<br>]The information contained in the certificate is as follows:
    Certificate Subject
    Certificate Issuer
    Distinguished Name
    Common name:
SubjCommonName
SubjCommonName[<SIZE=30 MAXLENGTH=30>]
IssCommonName
IssCommonName[<SIZE=30 MAXLENGTH=30>]
    Organization:
SubjOrganization
SubjOrganization[<SIZE=30 MAXLENGTH=30>]
IssOrganization
IssOrganization[<SIZE=30 MAXLENGTH=30>]
    Organizational unit:
SubjOrgUnit
SubjOrgUnit
IssOrgUnit
IssOrgUnit
    City or locality:
SubjCity
SubjCity[<SIZE=30 MAXLENGTH=70>]
IssCity
IssCity[<SIZE=30 MAXLENGTH=70>]
    State or province:
SubjState
SubjState
IssState
IssState
    Country:
SubjCountry
SubjCountry
IssCountry
IssCountry
    Validity Dates
    Start:
ValidBegDate
ValidBegDate
    End:
ValidEndDate
ValidEndDate
    [<br>]If you need to contact the Certificate Authority about this certificate, specify the Pickup ID.
    Pickup ID:
PickupID
    [<br>]Copy the certificate to the clipboard:
    The certificate is provided below in PKCS format.  To copy the certificate to the clipboard,
    select all the text below, including the BEGIN and END lines, and press CTRL+C.
    Note:
      After copying this certificate, the next step is to choose "Install Certificate Into Key Ring" in the Server Certificate Administration application.
PickupCertificate
PickupCertificate
[CertAppDesigner]
    1S6S7S
    Hidden fields:
    Approved:
Approved
    Request type:
RequestType
    Query Open Agent:
FormatPickupCertificate
$$QueryOpenAgent
Categori_ze
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From Folder
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
Untitled
Untitled2
ValidFrom
ValidTo
ValidDays
$TITLE
$FormUsers
$Info
$WindowTitle
$$Script_O
$$ScriptName
$$PickupCertificate
$PickupCertificate_O
$Body
$ACTIONS
Certificate Authority Trusted Root Certificate
&Arial
5Courier New
 CertPickupCA
Pick Up Certificate Authority Trusted Root Certificate
    Use this form to pick up the Certificate Authority certificate so you can install it as a Trusted Root in the key ring on your server.
    [<br>]The information contained in the Certificate Authority certificate is as follows:
    Common name:
CommonName
CommonName[<SIZE=30 MAXLENGTH=30>]
    Organization:
Org[<SIZE=30 MAXLENGTH=30>]
    Organizational unit:
OrgUnit
OrgUnit
    City or locality:
Locality
Locality[<SIZE=30 MAXLENGTH=70>]
    State or province:
State
State
    Country:
Country
Country
    [<br>]Copy the CA certificate to the clipboard:
    The CA certificate is provided below in PKCS format.  To copy the certificate to the clipboard, select all the text below, including the BEGIN and END lines, and press CTRL+C.
    Note:
      After copying the certificate, the next step is to go to the Server Certificate Administration application and choose "Install Trusted Root Certificate into Key Ring".
PickupCertificate
PickupCertificate
[CertAppDesigner]
    1S6S7S
    Hidden fields:
    Query Open Agent:
FormatPickupCertificate
$$QueryOpenAgent
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
Untitled
Untitled2
ValidFrom
ValidTo
ValidDays
ValidBegDate
ValidEndDate
$TITLE
$FormUsers
$Info
$WindowTitle
$$ScriptName
$Body
$ACTIONS
WebPageForIndexFrame
    Hidden fields:
    The Page Title below doesn't appear in a browser.  Use it to identify the
    page in the Web Pages view, and for the Document name in URLs.
    Page Title
PrivateTitle
    This form is used for the Index Frame
 .)A6
x{s[DC)C
UBU/9
rsa`C)
-#0#0#$
{a`VA)
6U/U/9/
WAV6U/
{aYA6m
WVAV6U/B
-#0p0p#-
 .)AdVAVA`W`
AVd6U
k>Z;>')
AVWA`A
 .)6AVW`W
W`WVWAV
W`WVWAV
VA`WVWA
f`fY`
`WVW`
AWV`A
sas{S
.)A6A
W`WA`
W`W`W[D[
A`WVAW
W`W[W`
hke>z
IK,<&%,
`W`W`W`A
`WD[D[`[`
;#$>0$#;
0%X<@
 .)VA
#;>;#T
>E;Z\?
 .)A6A
W[W`W[
[b[][]b[b
[`[`[
W[D`D`[
b[b[]b[b
>C>C>
Z;>T1!
D`D`D
[W[`[
`[`D`
b[hbD
a[Y`W
WCW`[a
[`D`D
D[`W[
bD]D]D
AVAV`W
[`D`[`[W[W[W
])DiD][bsa{
{aYVA6
D`D`D
[b[bhDiED]
m>CECE
}z]bs
a[a`V).
 !)AVA
`[`h[W
dmAmCm
DEi][ba{x
}\Z]s
h`[D`[W`D`[
asab]DEDE]
s[s[`A)
`D`[W
h`D`h[`
Ch[ar
E.Db[sr
 .)AV`W
[`[`[W[`h`[`W
T>'>CDh
Di]bs{x
b    a[a`A)
[`[`[W[`D`[W
CmemT>'
`W`[`D[
D[{r{rsasbh]
basaYVd).
[`[`[D[W[`W
'$>$#>Eh[s
[b]iED][bsa
[`[`W`[`
>    $>0;>D]
sab[]
][asr{
Y`6d.
[`[W[h[h[`[h
dUmdWAem>T
$>$0>;ED[{r
r{rsab[]EDiD]
[S9DE
EzPQ\mNHmeP
`Vd.
$0$0>
;Ei[{
abDEDE]h
ZiZ>i
0p0?p
;>zDba{
1'>E]s
`V).
fWe>;
{rsa[bD
W[WhW
!CA[s
srsrsra
 .)A`W`h
;Z>Dbar{
asa[h
e    CeCD>E>T'
 !)Yr
.)AVW`
f`eD>
YV6.
 .)AV
p    ;Zihsrx{r
Y`Y`f`
YVd.
hD>DCW[
?Z;E]a{
Y`Yw`f`wYw
U)U)Q
W`[hD>
0p?0Z;ZEDba
a[a[W
wfwUd
QdQdU)
YwV6)
eWhD>z;Z
p?0?0Z;ED[ar
[`[WC
fVfwfw
Q)(Q)
ACmC!
Y    wVUd)Q).)
0?0p?Z;ZEDh
[`[Whe
eWV`V
wfUfUfB
DCDCEz
;    p0?p?p?0?
`[`WeC
mWVwfV
U    wUf
Y`wdU
0?p0Z;
D[a[`[
Q(Q(8(
`wfwVd6
p?p?0pZ
(QP"8
;Z>EDh`[
"P"P"
6QUQ)QU)
p?p?p?p0
QdQ(.("P
)Q.Q)(.Q
Z>E>E;Z0?0?p0p0?p
edWmC
.)VYx
.    )A6`ar
P"(."Q
;>E>z;Z;?0?p0p0p
>DCeC
)    AV`asx
8(P8P"
p0?p0p?p0p0p;
TImdmUmUmUdUd
UdU)Q(.
(A6W[sar
Z>E;>;Z
z>D>C>C
IdmUd
.)6A`
)))111999JJJZZZccckkksss{{{
kccRJJkZZRBB{ZZsRRkJJ{ZRR91J1)B)!1
ZJ{RB
skJ91{ZJ
ZBR1!ZJB
cJscZ
Z9!9!
kRcB)R1
c9sJ){J!sB
kR{cJ
{RcJ1
Z1{R)J1
c{Z1sR)
k1{R!sJ
JRkRZ{RZ
kk{119
99JRRkJJcZZ{RRsJJkBBcRR{ZR
ZR{RJkcZ{RJcJBZcR
cZsB9RRJZJBRkZscRk
{k{scsJ9JkRksZkkRckRZsRZ
_IW4W
<font size=2 face="arial">"
<br><a href="/"
/CertRequestServer?OpenForm&SpecialAction=RequestAction" target="ContentsFrame"> <b>Request Server Certificate</b> </a>    <br><br><a href="/
/WebCertPickup?OpenForm" target="ContentsFrame"> <b>Pick Up Certificate</b> </a>     <br><br><a href="/
/CAPickup/CACert?OpenDocument" target="ContentsFrame"> <b>Accept This Authority In Your Server</b></a>    <br><br><a href="/"
/CABPickup/CACert?OpenDocument" target="ContentsFrame"> <b>Accept This Authority In Your Browser</b></a>    <br><br><hr width="80%">  <a href="/"
/CertSubmit?OpenForm&SpecialAction=RequestAction" target="ContentsFrame"> <b>Register Browser Certificate In Address Book</b></a>
</font>
    5S6S10S13S14S15S16S20S23S24S25S26S30S33S34S35S36S40S43S44S45S46S50S53S54SPassthroughHTML
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$FormUsers
$NoBackgroundOverride
$Info
$$Script_O
$$ScriptName
$Body
System\Certificates for Pickup|Pickup
PickupID$1RequestTypeCommonNameOrgEMail$Conflict$REF
CertRequest
Approved
    L1S5S7S8S9S10S
PickupIDPickup ID$1Created
RequestTypeTypeCommonNameNameOrgOrganizationEMailEMail&
CertPickup
RequestType
    1S2S
Certificates awaiting PickupY
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####################################################
Cert Request DeniedCertRequestDenied
[CAPrivlegedUser][CAPrivlegedUser]CD
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############################
DlgConfirmResubmitRegReq1CD
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############
Submitted Certificate RejectedCertSubmitRejected
[CAPrivlegedUser][CAPrivlegedUser]DC
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#
DlgConfirmNotesSubmitCertReqC
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################################################
FormatPickupCertificate
CN=Scott Davidson/O=IrisCN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesfL3
########
Application ProfileCAProfile[CAPrivlegedUser]
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################
Web CA Pickup OutputCAOut[CAPrivlegedUser]CD
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###########
##########################################################
##########################################################
##########################################################
Categori_ze
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From Foldert
View Certificate Requests Waiting for Approval6
CertificateRequests
View Denied Certificate Requests<
CertificateRequestsDenied
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Index
$Formula
$FormulaClass
$ViewFormat
$FormFormula
$Comment
$ACTIONS
DlgConfirmResubmitCertReq
Request Resubmitted
    The request has been resubmitted to the "Certificate Requests Waiting for Approval" view.
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
HBF7?
$TITLE
$NoBackgroundOverride
$Info
$$ScriptName
$Body
Denied Certificate Request
5Courier New
 CertRequestDenied
Denied Certificate Request
    The certificate request below has been denied. The certificate information is provided below for reference.
    Reason for denial of this request
    Quick Help
Reason
'++LotusScript Development Environment:2:5:(Options):0:74
Use "CertLib"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Dim workspace As New NotesUIWorkspace
     Dim uidoc As NotesUIDocument
     Dim doc As NotesDocument
     Set uidoc = workspace.CurrentDocument
     Set doc = uidoc.Document

     ok = ResubmitRequest(doc)
     If ok Then flag% = workspace.DialogBox("DlgConfirmResubmitCertReq",True,True,True,False,False,False)

     Call uidoc.Close
     Call workspace.ViewRefresh()
End Sub
New Button
Need a newer version of Notes to execute this button.
    0S0E
    Resubmit
    You can resubmit this request into the "Waiting for Approval" view in order to reconsider it for approval without requiring the requestor to resubmit it.
    Contact Information
    Full Name
ContactName
ContactName
    E-Mail Address
EMail
EMail[<SIZE=30 MAXLENGTH=70>]
    Phone Number
Phone
Phone
    Comments
Comments
Comments
    Certificate Information
    Common Name
CommonName
CommonName[<SIZE=30 MAXLENGTH=30>]
    Organization
Org[<SIZE=30 MAXLENGTH=30>]
    Organizational Unit
OrgUnit
OrgUnit
    Locality
Locality
Locality[<SIZE=30 MAXLENGTH=70>]
    State of Province
State
State
    Country
Country
Country
[CertAppDesigner]
    1S6S7S
    Hidden fields:
    Approved:
Approved
    Request type:
RequestType
    Certificate request:
Certificate
Categori_ze
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From Folder_
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
CdeUJ
Untitled
Untitled2
ValidFrom
ValidTo
$TITLE
$Readers
$FormUsers
$Info
$WindowTitle
$$Script_O
$$ScriptName
$Body
$ACTIONS
DlgConfirmResubmitRegReq
Request Resubmitted
    The request has been resubmitted to the "Certificate Registraton Requests" view.
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$NoBackgroundOverride
$Info
$$ScriptName
$Body
Rejected Certificate Registration
5Courier New
 CertSubmitRejected
Rejected Certificate Registration
    This certificate registration request was been denied.
    Reason for denial of this request
    Quick Help
Reason
'++LotusScript Development Environment:2:5:(Options):0:74
Use "CertLib"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Dim workspace As New NotesUIWorkspace
     Dim uidoc As NotesUIDocument
     Dim doc As NotesDocument
     Set uidoc = workspace.CurrentDocument
     Set doc = uidoc.Document

     ok = ResubmitRequest(doc)
     If ok Then flag% = workspace.DialogBox("DlgConfirmResubmitRegReq",True,True,True,False,False,False)

     Call uidoc.Close
     Call workspace.ViewRefresh()
End Sub
New Button
Need a newer version of Notes to execute this button.
    0S0E
    Resubmit
    You can resubmit this request into the "Waiting for Approval" view in order to reconsider it for approval without requiring the requestor to resubmit it.
    Contact Information
    Full Name
ContactName
ContactName
    E-Mail Address
EMail
EMail[<SIZE=30 MAXLENGTH=70>]
    Phone Number
Phone
Phone
    Comments
Comments
Comments
    Certificate Information
    Common Name
CommonName
CommonName[<SIZE=30 MAXLENGTH=30>]
    Organization
Org[<SIZE=30 MAXLENGTH=30>]
    Organizational Unit
OrgUnit
OrgUnit
    Locality
Locality
Locality[<SIZE=30 MAXLENGTH=70>]
    State of Province
State
State
    Country
Country
Country
[CertAppDesigner]
    1S6S7S
    Hidden fields:
    Approved:
Approved
    Request type:
RequestType
    Certificate request:
Certificate
Categori_ze
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From Folder_
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
]>'e~X
Untitled
Untitled2
ValidFrom
ValidTo
ValidBegDate
ValidEndDate
$TITLE
$Readers
$FormUsers
$Info
$WindowTitle
$$Script_O
$$ScriptName
$Body
$ACTIONS
Keyring Created
DlgConfirmNotesSubmitCertReq
    The certificate request has been submitted.
    The information in the request is as follows:
    Common name:
CommonName
CommonName
    Organization:
    Organizational unit:
OrgUnit
OrgUnit
    State:
    City:
State
State
Locality
Locality
    Next Step:
    Go to the Certificate Requests view as the Certificate Authority and approve the request.
    Country:
Country
Country
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Info
$WindowTitle
$$ScriptName
$Body
Started running agent 'FormatPickupCertificate' on 07/21/97 04:05:30 PM
Ran LotusScript code
Done running agent 'FormatPickupCertificate' on 07/21/97 04:05:30 PM
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "CertLib"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
     ' This assume you have a field Certificate which contains the cert as one long base64
     ' encoded line.  It loads up a multi-value text field called PickupCertificate with a copy
     ' of this broken into lines of manageable size with the beg and end tag lines.
     '
     Dim session As New NotesSession
     Dim doc As NotesDocument
     Dim itm As NotesItem

     Set doc = session.DocumentContext
     Call CertToPickupCert(doc)

End Sub
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
lGrMKq_
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
$PublicAccess
System\CA Certificate|CAPickup
PickupID$1RequestTypeCommonNameOrgEMail$Conflict$REF
CACert
    L1S2S3S1
PickupID$1
PickupID$1Created
RequestTypeTypeCommonNameNameOrgOrganizationEMailEMail&
CertPickupCA
Certificate Authority Certificate for PickupY
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############################################
Cert Request ApprovalCertRequestApproval[CAPrivlegedUser]CD
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
Web CA Certificate Browser PickupCACertBrowser[CAPrivlegedUser]CD
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############################
System\CA Certificate for Browsers|CABPickup
PickupID$1RequestTypeCommonNameOrgEMail$Conflict$REF
CACert
    L1S2S3S1
PickupID$1
PickupID$1Created
RequestTypeTypeCommonNameNameOrgOrganizationEMailEMail&
CACertBrowser
Certificate Authority Certificate for PickupY
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############################
Default[CAPrivlegedUser]CD
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############################################
MkX"V[/m
WebPageFrameTopFrames - Top-level Definition
CN=Michael Decoteau/O=IrisCN=Scott Davidson/O=IrisCN=Andrew Wharton/O=Iris
######################################
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Index
$Formula
$FormulaClass
$ViewFormat
$FormFormula
$Comment
Certificate Authority Profile
 CAProfile
Certificate Authority Profile
    Use this form to configure settings needed by the Certificate Authority application.
    CA Settings
    Quick Help
    CA Key File
CAKeyFileName of CA key ring file to use. Include path if file is not in the data directory.
    - The name of the CA key file is stored here automatically when you create it.
    Certificate Server DNS Name
CASiteUrlHost name or IP address to use in e-mail notifications for signed server certificates (i.e. Server.Acme.Com)
    - The DNS for the server is needed for the automatic generation of the URL for certificate pickup.
    Save & Close
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
2BENO7
$TITLE
$FormUsers
$Info
$WindowTitle
$$ScriptName
$Body
Certificate Request Approval
5Courier New
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
 CertRequestApproval'++LotusScript Development Environment:2:5:(Options):0:74
Use "CertLib"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:10
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As NOTESUIDOCUMENT
     Set Source = Bind(Objectname_)
End Sub
Certificate Request Approval
    Use this form to review a certificate request and approve or deny it.
    Contact Information
    Quick Help
    Full Name
ContactName
ContactName
    E-Mail Address
EMail
EMail[<SIZE=30 MAXLENGTH=70>]
    Phone Number
Phone
Phone
    Comments
Comments
Comments
    This is the contact information provided by the user.
    Certificate Information
    Common Name
CommonName
CommonName[<SIZE=30 MAXLENGTH=30>]
    Organization
Org[<SIZE=30 MAXLENGTH=30>]
    Organizational Unit
OrgUnit
OrgUnit
    Locality
Locality
Locality[<SIZE=30 MAXLENGTH=70>]
    State or Province
State
State
    Country
Country
Country
    This is the Distinguished Name information provided in the certificate request.
    Choose an Action for this Request
SendEmail
Send a notification email to the requestor | 1
    Choose the action you want to take for this request.
    Approve
    Validity Period
ValidPeriod
ValidUnit
Years | 365Days | 1
    Pickup ID
PickupID
    Approve the Request
'++LotusScript Development Environment:2:5:(Options):0:74
Use "CertLib"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Dim ws As New NotesUIWorkspace
     Dim db As NotesDatabase
     Dim uidoc As NotesUIDocument
     Dim doc As NotesDocument
     Set uidoc = ws.CurrentDocument
     Set db = uidoc.Document.ParentDatabase
     Set doc = uidoc.Document
     '
     uidoc.Refresh ' so that ValidDays is recomputed based on user input
     '
     Dim prof As NotesDocument
     Set prof = db.GetProfileDocument("CAProfile")
     '
     CAKeyFile$ = prof.CAKeyFile(0)
     If Isempty(CAKeyFile$) Then CAKeyFile$ = Inputbox(GetString(ids_KeyFilePrompt), GetString(ids_KeyFileTitle))
     Password$ = Inputbox(GetString1(ids_PasswordPrompt, CAKeyFile$), GetString(ids_PasswordTitle))

     DNSName$ = prof.CASiteUrl(0)
     If DNSName$ = "" Then
          DNSName$ = Inputbox(GetString(ids_DNSPrompt), GetString(ids_DNSTitle))
          prof.CASiteUrl = DNSName$
          Call prof.Save(True, False)
     End If

     ok = ApproveCertificateRequest(doc, FixFileName(CAKeyFile$), Password$)
     If Not ok Then Messagebox GetString(err_ApprovalFailed)

     Call uidoc.Save
     Call uidoc.Close

End Sub
New Button
Need a newer version of Notes to execute this button.
    0S0E
    Approve
    Deny
    Reason
Reason
    You can specify a reason for the denial for your records.
    Deny the Request
'++LotusScript Development Environment:2:5:(Options):0:74
Use "CertLib"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Dim workspace As New NotesUIWorkspace
     Dim uidoc As NotesUIDocument
     Dim doc As NotesDocument
     Set uidoc = workspace.CurrentDocument
     Set doc = uidoc.Document

     ok = DenyCertificateRequest(doc)
     If Not ok Then Messagebox GetString(err_DenyFailed)

     Call uidoc.Save
     Call uidoc.Close
End Sub
New Button
Need a newer version of Notes to execute this button.
    0S0E
    Deny
[CertAppDesigner]
    1S6S7S
    Hidden fields:
    Approved:
Approved
    Request type:
RequestType
    Valid Days:
ValidPeriod
ValidUnit
    3S4S7S
ValidDays
    Certificate:
Certificate
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
b"P _S
Untitled
Untitled2
ValidFrom
ValidTo
$TITLE
$FormUsers
$Info
$WindowTitle
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
ValidPeriod
$Body
&Arial
 CAOut
Accept This Authority in Your Browser
    Your browser should now recognize this Certificate Authority.
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
Z@p7V`F
Untitled
Untitled2
ValidFrom
ValidTo
$TITLE
$FormUsers
$Info
$$ScriptName
$Body
Certificate Authority Trusted Root Certificate
&Arial
 CACertBrowser
Trust This Authority in Your Browser
    In order to access a server that is running SSL with a certificate that has been signed by this Certificate Authority, you need to indicate in your Web browser that you trust this Certificate Authority.
    [<br>]The information contained in the Certificate Authority certificate is as follows:
    Common name:
CommonName
CommonName[<SIZE=30 MAXLENGTH=30>]
    Organization:
Org[<SIZE=30 MAXLENGTH=30>]
    Organizational unit:
OrgUnit
OrgUnit
    City or locality:
Locality
Locality[<SIZE=30 MAXLENGTH=70>]
    State or province:
State
State
    Country:
Country
Country
    [<br>]
/CAOut?RequestCert&PickupCACert&PickupId=
    3S4S8S11S12S13S18S
    Accept This Authority in Your Browser
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
;P9OP
Untitled
Untitled2
ValidFrom
ValidTo
ValidDays
ValidBegDate
ValidEndDate
$TITLE
$FormUsers
$Info
$WindowTitle
$$ScriptName
$Body
$ACTIONS
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Index
$Formula
$FormulaClass
$ViewFormat
$FormFormula
$Comment
5Courier New
'++LotusScript Development Environment:2:5:(Options):0:74
Use "CertLib"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As FIELD
     Set Source = Bind(Objectname_)
End Sub
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize

End Sub
Certificate
Default'++LotusScript Development Environment:2:5:(Options):0:74
Use "CertLib"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As NOTESUIDOCUMENT
     Set Source = Bind(Objectname_)
End Sub
[CertAppDesigner]
    1S6S7S
Categori_ze?
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From Folder
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
3T:QQz
Untitled
Untitled2
ValidFrom
ValidTo
ValidDays
$$PickupCertificate
$PickupCertificate_O
$TITLE
$FormUsers
$Info
$WindowTitle
$$ScriptName
$$FormScript
$$$FormScript_O
$Body
$ACTIONS
System\Default
PickupID$1RequestTypeCommonNameOrgEMail$Conflict$REF
CACert
    L1S2S3S1
PickupID$1
PickupID$1Created
RequestTypeTypeCommonNameNameOrgOrganizationEMailEMail&
Default
Certificate Authority Certificate for PickupY
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################################################
Submitted Certificate AcceptedCertSubmitAccepted
[CAPrivlegedUser][CAPrivlegedUser]CD
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########
Submitted Certificate ApprovalCertSubmitApproval
[CAPrivlegedUser][CAPrivlegedUser]DC
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################################
[CAPrivlegedUser]Submitted Certificates\Accepted|SubmittedCertificatesAccepted
$3FullNameCommonNameContactNameOrgValidEndDate$Conflict$REF
CertSubmitF
Approved
    L1S5S7S8S9S10S
$3FullNameCommonNameContactNameOrgValidEndDate
FullName
FullName
CommonName
CommonName
ContactName
ContactName
ValidEndDate
ValidEndDate
$3Created
FullNameUser NameCommonNameCommon NameContactNameContactOrgOrganizationValidEndDateExpires&
CertSubmitAccepted
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################################################
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
Main Menu
CASetup
    1S4S6S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Index
$Formula
$FormulaClass
$ViewFormat
$FormFormula
$Comment
$ACTIONS
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
sZ%!ZM}
$Flags
Accepted Certificate Registration
5Courier New
 CertSubmitAccepted
CertIsDel
    1S2S
Accepted Certificate Registration
    The certificate reqistration request was approved and submitted to the Administration Process.
TempIsRoot
HideSiteCert
CertIsDel
    3S4S6S7S13S14S17S18S19S
    Contact Information
    Full Name
HideSiteCert
CertIsDel
    0S6S7S10S11S12S
ContactName
ContactName
    E-Mail Address
EMail
EMail[<SIZE=30 MAXLENGTH=70>]
    Phone Number
Phone
Phone
    Comments
Comments
Comments
    Name in Address Book
    User Name
FullName
FullName
    Certificate Information
    Certificate Subject
    Certificate Issuer
    Common Name
CommonName
CommonName[<SIZE=30 MAXLENGTH=30>]
IssuerCommonName
IssuerCommonName[<SIZE=30 MAXLENGTH=30>]
    Organization
Org[<SIZE=30 MAXLENGTH=30>]
IssuerOrg
IssuerOrg[<SIZE=30 MAXLENGTH=30>]
    Organizational Unit
OrgUnit
OrgUnit
IssuerOrgUnit
IssuerOrgUnit
    City
Locality
Locality[<SIZE=30 MAXLENGTH=70>]
IssuerLocality
IssuerLocality[<SIZE=30 MAXLENGTH=70>]
    State
State
State
IssuerState
IssuerState
    Country
Country
Country
IssuerCountry
IssueCountry
    Validity Dates
    Start
ValidBegDate
ValidBegDate
ValidEndDate
ValidEndDate
[CertAppDesigner]
    1S6S7S
    Hidden fields:
    Approved:
Approved
    Request type:
RequestType
    Certificate:
Certificate
Categori_ze0
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From Folder
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
Untitled
Untitled2
ValidFrom
ValidTo
ValidDays
$TITLE
$Readers
$FormUsers
$Info
$WindowTitle
$$Script_O
$$ScriptName
$Body
$ACTIONS
Certificate Registration Approval
5Courier New
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "CertLib"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
 CertSubmitApproval'++LotusScript Development Environment:2:5:(Options):0:74
Use "CertLib"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:10
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As NOTESUIDOCUMENT
     Set Source = Bind(Objectname_)
End Sub
CertIsDel
    1S2S
Certificate Registration Approval
CertIsDel
    1S2S
    A certificate registration request has been submitted by a Web browser user.  Use this form to review the request and accept or reject the certificate.
    Contact Information
    Full Name
TempIsRoot
HideSiteCert
CertIsDel
    3S4S6S7S13S14S17S18S19S
ContactName
ContactName
    E-Mail Address
EMail
EMail[<SIZE=30 MAXLENGTH=70>]
    Phone Number
Phone
Phone
    Comments
Comments
Comments
    Name in Address Book
    Quick Help
    User Name
CommonName
FullName
    The User Name must match a name in the People view of the Public Address Book.   You can modify this field to assure that it matches the name of the intended user.
    Certificate Subject & Issuer
    Certificate Subject
    Certificate Issuer
    Common Name
CommonName
CommonName[<SIZE=30 MAXLENGTH=30>]
CommonName
IssuerCommonName[<SIZE=30 MAXLENGTH=30>]
    Organization
Org[<SIZE=30 MAXLENGTH=30>]
IssuerOrg[<SIZE=30 MAXLENGTH=30>]
    Organizational Unit
OrgUnit
OrgUnit
OrgUnit
IssuerOrgUnit
    City
Locality
Locality[<SIZE=30 MAXLENGTH=70>]
Locality
IssuerLocality[<SIZE=30 MAXLENGTH=70>]
    State
State
State
State
IssuerState
    Country
Country
Country
Country
IssueCountry
    Certificate Validity Dates
    Start:
ValidBegDate
ValidBegDate
ValidEndDate
ValidEndDate
    Choose an Action for this Registration Request
    Quick Help
TempIsRoot
HideSiteCert
CertIsDel
    2S3S4S6S7S13S14S17S18S19S
SendEmailSelect to send e-mail notification to the requestor
Send a notification email to the requestor | 1
    Accept
HideSiteCert
CertIsDel
    0S6S7S10S11S12S
    Accept the Request
MailSubject
Your Certificate
    1S2S
MailBody
Your client certificate has been accepted and submitted to the server's Address book.
    0R1S2S
BoxTitle
Certificate Accepted
    0R1S2S
AdminFileName
admin4.nsf
CurrentServer
CurrentServer
AdminFileName
Approved
    0R1S2S3S
DialogSubmitAccept
BoxTitle
    0R10S
SendEMail
Email
EMail
MailSubject
MailBody
    0R3S4S5S6S7S8S10S13S14S15S16S18S20S23S
    0R4S
    Accept
    Reject
    Reason
ReasonSpecify a reason for the reject decision for your records
    Reject the Request
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Dim workspace As New NotesUIWorkspace
     Dim uidoc As NotesUIDocument
     Dim doc As NotesDocument
     Set uidoc = workspace.CurrentDocument
     Set doc = uidoc.Document

     ok = RejectCertificate(doc)
     If Not ok Then Messagebox GetString(err_RejectFailed)

     Call uidoc.Save
     Call uidoc.Close
End Sub
New Button
Need a newer version of Notes to execute this button.
    0S0E
    Reject
    Choose an action for this request.
    Accept:
    A request will be submitted to the Administration Process to add the certificate to the user's Person record in the Public Address Book.
    Reject:
    The certificate won't be added to the address book, but a record of the request will be maintained in the "Rejected Certificate Requests" view in this database.
    You can specify a reason for rejecting the request for your records.
[CertAppDesigner]
    1S6S7S
    Hidden fields:
    Approved:
Approved
    Type (for adminp):
CertSubmitApproval
    Request type:
RequestType
    Certificate:
Certificate
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
Untitled2
ValidFrom
ValidTo
ValidDays
$TITLE
$Readers
$FormUsers
$Info
$WindowTitle
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$Body
Categori_zem
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From Folder
View Certificate Registration Requests8
SubmittedCertificates
View Rejected Certificate Registration Requests
SubmittedCertificatesRejected
Main Menu
CASetup
    1S4S6S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$Readers
$TITLE
$Index
$Formula
$FormulaClass
$ViewFormat
$FormFormula
$Comment
$ACTIONS
ed$UpdatedBy$ACLDigest$Signature$DesignVersion$Version$Formula$FormulaClass$Collation$ReplVersion$TITLE$ReplSrcServers$ReplClassMasks$ReplFormula$ReplView$ReplPrivateFolder$ReplFields$ScriptLib$ScriptLib_O$Flags$PublicAccess$LaunchWebDoclink$DefaultNavigatorIconBitmap$FlagsNoRefresh$ViewMapDataset$ViewMapLayout$Index$ViewFormat$Comment$ACTIONS$Readers$Collation1$Collation2$Collation3$Collation4$Collation5$Collation6$Collation7$Collation8$Collation9$Collation10$FormFormula$Collation11$Collation12$Info$WindowTitle$Fonts$$Script_O$$ScriptNamePickupIDSaveOptions$$Return$Body$FormUsersPrivateTitleBodyCategoriesDocOrder$FormLinks$Script$$FormScript$$$FormScript_OKeyRingFileNamePasswordCommonNameOrganizationOrganizationalUnitLocalityStateProvinceCountryValidDaysHTML$NoBackgroundOverride$NavImagemap$WebFlagsUntitledUntitled2ValidFromValidToContactNameEMailPhoneCommentsIssuerCommonNameOrgIssuerOrgOrgUnitIssuerOrgUnitIssuerLocalityStateIssuerStateIssuerCountryValidBegDateValidEndDateRequestTypeRequestActionCertificate$SelQuery$SCRIPTOBJ_6$SCRIPTOBJ_7$SCRIPTOBJ_8$ViewGlobalScript_OSendToFromSubjectargEndDateTempIsRootTempKeyFileNameCatagoriesHideSiteCertCompKeyFileNameEntryLabelSubjCommonNameIssCommonNameSubjOrganizationIssOrganizationSubjOrgUnitIssOrgUnitSubjCityIssCitySubjStateIssStateSubjCountryIssCountryCertStartDateCertEndDatePickupCertificateApproved$HTMLBodyTag$$PickupCertificate$PickupCertificate_O$$QueryOpenAgentREASON$AssistType$AssistLastRun$AssistDocCount$AssistFlags$AssistTrigger$AssistInfo$AssistQuery$AssistAction$AssistAction_Ex$AssistRunInfo$AssistVersionCAKeyFileCASiteUrlSendEmailValidPeriodValidUnitFullNameIssueCountryTypeForm$RevisionsGraphicComputedHTML
WebPageFrameInitialContentFrames - Initial Content Frame
CN=Scott Davidson/O=Iris
########################################################
<hr width="80%">  <br><a href="/certca.nsf/CertRequestServer?OpenForm&SpecialAction=RequestAction" target="ContentsFrame"> <b>Request Server Certificate</b> </a>  <br><br><a href="/certca.nsf/WebCertPickup?OpenForm" target="ContentsFrame"> <b>Pick Up Certificate</b> </a>   <br><br><a href="/certca.nsf/CAPickup/CACert?OpenDocument" target="ContentsFrame"> <b>Accept This Authority In Your Server</b></a>  <br><br><hr width="80%">  <br><a href="/certca.nsf/CertSubmit?OpenForm&SpecialAction=RequestAction" target="ContentsFrame"> <b>Register Browser Certificate In Address Book</b></a>WebPageForIndexFrameFrames - Index Frame
CN=Scott Davidson/O=IrisCN=Andrew Wharton/O=Iris
#############################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################