PC Pro 1999 April

home *** CD-ROM | disk | FTP | other *** search

/ PC Pro 1999 April / DPPCPRO0499.ISO / April / Notes / 50b2wic.exe / DATA1.CAB / DominoDesignerDominoDesignerData / cca50.ntf (.txt) < prev next >

Wrap

Lotus Notes Storage Facility | 1998-11-17 | 1.6 MB | 14,618 lines

Domino R5 Certificate Authority #1StdNotes50SSLAuth XS 59 MkX"V[/m -_err XqsG{ CN=Lotus Notes Template Development/O=Lotus Notes 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 NotesCN=Andrew Wharton/O=IrisCN=Scott Davidson/O=IrisCN=Andrew Wharton/O=IrisCN=Scott Davidson/O=IrisCN=Andrew Wharton/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Andrew Wharton/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$LANGUAGE $Flags 0SL1S4S5S3724 $TITLE CN=Andrew Wharton/O=Iris############# FormatPickupCertificate CN=Scott Davidson/O=IrisCN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesfL3 ########################################################## CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes## CN=Scott Davidson/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################################# MkX"V[/m CASetup affo` CN=Michael Decoteau/O=IrisCN=Andrew Wharton/O=IrisCN=tao/O=taoCN=Andrew Wharton/O=IrisDlsftDomino R5 Certificate Authority #1StdNotes50SSLAuth##################################### ServerCertRequestG3 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###################### 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############################################## =CASetupG3 CN=Andrew Wharton/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############################################### [CAPrivlegedUser]Server Certificate Requests\Denied|CertificateRequestsDenied $1CommonNameContactNameOrgEMail$Conflict$REF CertRequest Approved L1S5S7S8S9S10S $1CommonNameContactName CommonName CommonName ContactName ContactName EMail EMail $1Submitted CommonNameNameContactNameContactOrgOrganizationEMailEMail& CertRequestDenied (Help) cca461_v_CertificateRequestsDenied 0S0E Denied Certificate RequestsY CN=Debbie Branco/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 (Help) cca461_v_SubmittedCertificatesAccepted 0S0E CN=Debbie Branco/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]Key Ring Administration|Keyring Administration~ CatagoriesEntryLabelTempIsRoot$Conflict$REF CertificateInformation 3S4S Catagories CatagoriesEntryLabelCertificate Entry LabelTempIsRootTrusted Root& 538ArialV (Help) cca461_v_KeyringAdministration 0S0E CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################################ [CAPrivlegedUser]Submitted Certificates\ Waiting for Approval|SubmittedCertificates $2CommonNameContactNameOrgEMail$Conflict$REF CertSubmitF Approved Approved L6S8S9S10S11S13S14S16S17S18S19S20S21S1* $2CommonNameOrg CommonName CommonName ContactName ContactName EMail EMail $2Submitted CommonNameNameContactNameContactOrgOrganizationEMailEMail& CertSubmitApproval (Help) cca461_v_SubmittedCertificates 0S0E CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################################################### ClientCertRegisterG3 CN=James Cunningham/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 (Help) cca461_v_SubmittedCertificatesRejected 0S0E CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###################### System\Certificates for Pickup|Pickup PickupID$1RequestTypeCommonNameOrgEMail$Conflict$REF CertRequest ClientCertRequest Approved L1S5S7S8S12S14S15S16S17S PickupIDPickup ID$1Created RequestTypeTypeCommonNameNameOrgOrganizationEMailEMail& CertPickup RequestType 1S2S Certificates awaiting PickupY CN=tao/O=taoCN=Lotus Notes Template Development/O=Lotus Notes########### DlgConfirmResubmitCertReq1CD CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################################################## O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ 8,3<_;+ $ACLDigest 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^^ $TITLE $AssistType $AssistLastRun $AssistDocCount $AssistFlags $AssistTrigger $AssistInfo $AssistQuery $AssistAction $AssistAction_Ex $PublicAccess 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 &Arial !!!)))111999BBBJJJRRRZZZccckkksss{{{ BkZ)cR! s9sc1 {9{k1 9sc!B9 {J{sB {Bsk9kc1cZ) J{s9sk1kc)ZR c{s1kc! _IGIF 4W49F/V0 49F/V0 The Certificate Authority application contains the following navigator options: Certificate Authority Configuration Use this option to set up a Certification Authority. 1. Create Certificate Authority Key Ring & Certificate - Creates the CA's certificate and stores it in a password protected binary file. 2. Configure Certificate Authority Profile - Stores settings that the application needs to function properly. 3. Create Server Key Ring and Certificate - Creates the server key ring for the CA server so users can access the CA server over SSL. Automatically signs the server certificate with your CA certificate. Server Certificate Requests Sign submitted server certificates or deny requests for server certificates. Client Certificate Requests Sign submitted client certificates and register the client's public key in the Public Address Book, or deny requests for client certificates. Client Certificate Registration Add submitted client certificates from external CAs 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^^ $Info $Body Server Certificate Requests\ Waiting for Approval HotspotRectangle1 CASetup 1S4S6S HotspotRectangle2 ServerCertRequest 1S4S HotspotRectangle4 ClientCertRequest 1S4S HotspotRectangle5 ClientCertRegister 1S4S HotspotRectangle10 ViewKeyring 1S4S GraphicButton5 6-6-, nefnZnZneSe \L\]\ ~rgrBe@P@H@H @P@<@<@<@<@H C@CBCBLBCBL\ geBe@P C@BC@C\C\C\C C@C@CBCBL5\L\ C@CBCBCBC\L\5L\ C@C@CBCB g~r~r ~r~g~g C@C@C@CB B]CBC5 BeBeBrg~g~g~ C@C@LC LC\5L\ @yBeB~g H@P@P ]BCBC@C] L]L]L] PKP<@P<@<@ @<@<@<@e@yBg~g g]gCB] !/!<!< erB~g !<"<@P@BrBg~ dXRXl H<!<! @<@<@<@<@e@rB~ e P@P@<@<@P @e@e@e@eB@ LCBC5 L C]k L]\]\ @L\]\ @CB]\i] k]L\C@ ]\5C5+@5CB]\g] ]\]BC@5@CB ]\]BC@C@] ]\]BC @rBr~B ~ g~g~g~B @y@r@y zqeryry ~r~r~ rer@yBqz ~gr~e@ gergr~ @e@ez e@eP@e@ @ <@Pe@rz rgrgeBe@e< ege@e@<@<@< gB@e@P (ge@< /!@/" !@!@! i rifrfg gfgrg~ ~rqfeZqer r|Sep i\43* ]\5CL \LCL] \]@+* 4\T\f T24A4 T2TA2BA@f 2[3T24K@\i ig\i~ [ \T[\T\TA4 K!@Bf ir\gi [T[3TA\A2A4 \B@"* \T@A2K434K@Br }f\fr ~g@"@ [}\[\[T [ \[i| K @Sr }rgZf rf\gi [\T\T[T\[f ZTZfr _[_[_[\T\[_\[\[ qgeqr|rK@!3 [ \f_[\[\f\ fSgr|r [\[T\T |qSrq YZopZSZT ZSefq| qSrq|qS@/!/ 2>J>J2J> J 2I)J)J)J) \_\_[ >2Tp2J2 J >2)J)J)JI Pdep| znfqz|qfeqzqe@< _[_[\ 2J2JT>JT T)IJ> QJ)JoYo |zfeq z rP@</ \T1\)J T J'\) YJYJoJoJQJ JYQYQdYQ nz|qeK<@/ \_[_f_ IQ=GYn |zqeqz zeSeKP@H \_f_f '\)YJ2 |nfn| y|zqeK< >I)I)J)J)I=)J |nfn| znefz znfnz znqefz JIG)F= Senz|zyen| i[\[\[\r S[TS)IS I)IJY JYQYQ r[fir ir\[rfrf[ >JI)I )I)YopYSPH !<@<@Pe )IJI>I > PAp|zSP@< [nZTSZp /<@ezyeSez [ZT[fp[T <PnzqSPe <Pqzq |nSZn|zeH / <PnyePKez PKSZp}|qSen|zeP<!<@yzePKPy @H<3PK qP<@e yePKPy @]<)3<3 e yzyeKPez neSexzyePKez H@SZq |qfeSn TSZp[TAT[fnZT[ e xzyePKez fi[SKH ir[\F [ qr[ZTZ[p[ H3KS| yeSey z|zyeqyxye@Pey nSPKe ]@<Sq ze@HPe yzxnq f$riY zeH<@<ey qeqyz qnyzye@ if[\J e<@<!<Sy zeH<!<@<@y nSKPe zSP@<@ xyqen yneK@f TZ[nZK2H )23Kf} |neSeSPePePSey |e@KB ~r[fr xyqer| qe@eB rf[fr} zyeqn |r@K\ [ qrf[T[qfZ neSnz zeqex f[T[fq[S yeqnzxzqeq r[T[n )<2H@S zeSen [ ri}if[r TKHKH H2H232KZ zfSen| zeSeqy i[ZTS ZT[fr zneSfz e@eSeqz qZKS@ S @SZ[fr neK@eBy ZSKSK rf[fq~ H)2H) e @eg ~fKSKSKSZr S H@<K@Pfz qe@e@eg qS@H!/ |reBeBgf if[fi 4HKTq gTZfi rfrfr KH32H ~B@C@"@\ K3H23H3@KTf fZSH!3/ }fZK@! /!/@S| /!@HBq pK434@KBz qr[iJ K 3KB fifiY K4K43Kf K43@!H@K@KBgr K3K34f iSY[J BS@K@S@BSB T@K4Kf rZgfrg ~gC@Bg f[T[|q[ ~ig\B }S43@f rfZ[qrf q[T[pr S3@Z| r[Zfqr[ [\[ri rfTZirfqi ~g~gi if\[r A\T\T @B@C@C4 C*+@*@*@4 @ B\i C+@+@* 5C*+@+@+ \]\C5@ e@SKP@e@n| @+C+5 ~ig\eBe@P Bg]i~ KP@PKHKP@n @P@PKHKPSPe| PKPKHKHKPSez +@+@+@C rgBeKPKPKPK PKPep C5+@+@+ r@rBg~ |rg@PK C+@+5@ |BeSKPK PHPSe @+5@*@+ BSKPK C5@5+@+@+@* @ e@e@eg|zq e@<eBrqzqeSK +@+@+ |z|eK OHOHOH<H @+@*+C@+ @ e@P@He@en OHOHO<HO \C+@+@+@+ e@e@H@P@ C@+@+@+@ @P@<@ \+@+@+ @<KPen /<@n@ \@*@+ <@<@HK PHOHOP \@+*@* @PeqxznS P@ez|@ e@P@<@<@ e@e@e@ e@e@<@ @e@e<@<@ ynePOH e@P<@ By@eP@ POPOPO r@PK<@ xdedx mxedx eyxyde xdedx mxded OeOPO eyxyx O<eOPey nePeP yeP<e<O zBe@e cyz|z {ZB{RR{R1{R sssskcsc scRsZcsJ1sJ!sBJs)cs)Js)Bs!Zs kZ{kRckJ9kB{kB!kB k1sk11k)ck!ck ccsccccZRcRscRkcBscBcc1)c)9c!Bc JZZZZR ZJ{Z11Z)JZ RJJRBBRB1R9!R1!R1 JZkJRkJ99J1)J) BZ{BZcBR{BJZBBJB1BB119Z 9Rk1Jk19R19J1)1)Z !1J!)B ]; "CASetup"; "1 *.PCX TIFF 5. CASetup"; "1 ~~~~~~~~Y CASetup"; "1 @@@@@@@@ CASetup"; "1 CASetup"; "1 CASetup"; "1 ZskcZ JcZRJ ZcRk{) RckRZ 19JZ1 91J1Js) 1Z1J1 1 JZ1 RBRBR 9J9J9B9B1J1R1R1R 9)!)!)19BJ 9J9RBJ9J9JB9B9JB9J 1R1R1R1R1R1R kZJ1) )J19J J9JBJ9 9BR9J9 9J1J1R k{ks{ks J9JB9RBJ9JB J Zk{k{k BR9BJ9BJ9BJ9R9BJ 1BJRcks )1J9J9J9 9JB9BJB9RB9R k{ksk 91J9B JBJBR9BJ 19JRc k{kZJ1) 91JkZ 1 !1)J1J9J9 {kJB9 1J1J1B BJ1)! 1Z1J1 BJRks{ R1R1R Rk{k1 )1)J)J)J 1R1R1R1J1Z1 1)1)1 1ZJ{k )1)J) 9J9R9R s1B1B{ 1Zk{k 9R1R1R !9!9!9!)!) !9!)!)! )1)1)1) 1R1R1R1R1J1B1 !9!1!)! !1!1! J R1R1R1R1R 1 B19!9!19! 1J1J1J1J s1ZBZ 1)1)1) R 1JR1R1R1R !9!91!1 1!1!1 1R1R1R1R9R1R1R 91!91 Zk{skc 1!1)1!1)!1 RBR9R1R1R1R9R !191!1 !1!1!1 1!1!) R ZR1Z9R9R9 1!)!) 9!9!1! RJ1R1ZJR1R !19!9!9 9!1!1 1!1!1 Z1RJ9R9 !1!1!1!1!1 1!1!1 1!)!) 1J1J91 9!9!19 !1!1! !1)B1B1!) 1!1!9 ZJRJ91! 9!9!1 )!)1) !)1!1 9)!9! JZckckRB19@ 9)JBR 9)!9!9)! !9!9!9!1!19 !1!19JRk {cRJ9 9 !9!9!9!19 ) !)9)!)9!1 !9!9!91 !9JRks 9)1BJ 9)!9)9! 1919BJ1B1B 1!)!91! 1919R9R 91JRcs )9)J) !191RJ9R 919BRk {cRJ)1 9!191 RJBJR )!)!) ck{scJR 9!9!9!9 919J19 J1RJRJ ! )!9!)!9!9 19R9R1J1 1)!1! 919191 191J1 9!)!9!9!9!9 19RJR9RJRBJR 919191 R9RJRJ cRcRc 9!9!9!9!9!9! 91919 cRcRc 9!9!9!9! J919191 191919 91R9RJ R9RJR J19191 91919191 91R)JBJRJRJc 9!9!9! 919191!91!19 9)BJBJB 9!9!9!9! 1 919191919 RJBJBJ RJRJRJ@ 19!1!1!919! 9191!1! )1)R)JBJ 9)!9!9!9! 1!191!9!9191 !9!9! !1!1)!) !19!9 )1B)BJB R1B1B91 9JBJB !1!1!9! J1BJBJBJRJ 9!)!9)9! 1RBRJRZ cRcRcR )1JBJBJB 9)!)9!)!9J19R cRcRcRcRcRc )!1!9 R1B1R1ZB1JRJ cRcRcR c ZRcZRcRcR )1!1)1)!1 1!9!9 )1JBJB BR9R1R1 Z1R1BJRJ ZcRcR BJ1JB 9!9!9!9 J B1R1Z1B1Z ZRcRsRcRcR 9R19BRcZ R1R1R1RB ZRcRZ ZcZcR cZRcR ZcZRcRcR JRJRJ ZRZRZRsRcRsRcZ RcRZR RJRBRB ZRZRZRcR scscscs RZRZRBRBRJ ZRZRZcRZ R1csRc JRBRJRJ ZRZRZ ZRcRZR BRJBRBRJRJRZRZRZR RZRcRcRZ !1!)1) B19c1 ZRZRZR ZRZRZRcR J)1)9!9! BR9BRBRJ ZRZRZRcsc BRcRBR) R JRBRBRBR9 BRJRJ JRJZRZR JRBR9R9R JBJBRBRJRJ BRBJBJ9BRBJBRB JBRJRBJ 9R9R9R9R 9BR9R9R9 RBRBRB J BJBRZcs R9JB9R9R9R9RBJBJBRJ cRJRc 9BR9B9B9 J9BJ9BJ 1ZBRc Rk1R9 J)c{sJk 9J9R1 J9RB9R9JB9RBJBJB1Z1JZ B1)BJR 9B1RJ9B 1ZBRcs{s{ 9J9JB 9JB9B9 1J1JZ s{cRB !9!9!9!9191JRJR J9J9J J1JR1J1 BZBJkRBcJc 1s{k{k{JR! 1J91!1! 1 R1RJ1BZRc B9B9J1J1JR ckRcRB !J9J1J1R1R1R J1BJR !)!)!)1)1!)! 1J1RJB kckZJ 91919 1!9!1! 1)91) 1919RB kRkRk !19!9! 9)191 191)9191 !9!9)9) R cRckZkZJZ kZJB1 1)1)9 91)9)1)1 9!9)!)9)!)! ) 1)9)91)1) 9!)J1 1!)1!1 919B1 91)1)!1!1!1)1! !)1)1 RJZJRJB )!1)! )!)1!1 9R1RB 9J1RJZR 1!J1J9 )1!19!)1!1)!)!9 )!1!1)! R1RBR1R 1)!1!1!)1! 9 B9JBJ9J9J RBRBR BR191R1J9B 1 J191JB9B! !1R!1J!1R! J9R1B1 BJBJ9R1R9RBR R1J9J1JRB9B 1BJ1!Z J9R1B9R9 J1R1BJ1J9JR1B 1J1Z1RZ1 RJ1R1BJ1 Z1R1B J1JZ1Z!1!B J1R9191R1JB {c{kc ZBJBJRZ1 1Z!BZ1B1B1J1J J1J9!) 19)R1B1 JBcBJB ZJBZ1 !Z1Z1Z 1J9B9JBR9R9B sZsJcZJZJcJZc J#ZJBJZJ9Z1Z1JZJRc1BZ9ZBZB1B1JZ1BR1Z1 1J1JBJBJBJ1) 1B19J9R 9J9J9R1J9J9R ZcJcBcJ JcJZJ J9c9ZJZ JBJBJBJB1R1R Z1Z1R1J! JB1JB1 B1J19R1R {JcJ{B{s 19JZ1B1B c1JBZ JBcZc9 JBJBZ1 Z1R1!R BJ1JBJB 1J19R1J9 c{BJBs{ ZJBc1 J1Z1RJR1 1BJB1JB19! 9R9R91R9J9BRJBJB csJsBsBsBscsc Z 1s9ZJs9BZ 1JRZ1ZR1RJB scJcBJc BcJcJsZ J RZRZRJRJR 9R9R1B cJcJc JBcBJBcRscsB JBcJZcBZJc cJBRJBc cBJcJRBc cBsZcs ZJsBcsBc ZRJ1RJ9R RcBcBcBc ZcJcJcZ J)B1B BcBcJ 1BcRsBc1RJ sJBcBs1s ZcRJcJ BJ9R1J1R s1sBc1c1BZB B JBsZsc ZBJcJZ ZRZcZ J)B1) J cRc1cJcJc cBJcJcB B9cJ1cZcBJsBc R1BR9R1R1R1RJ ZcsZBsB BcBJ1 cBcBJ csBJscZscs J9)1B) 19J9R JRJRBcZJ BJcBcs BcBc9 B sJs BsBsJ ZBZBZs ZcBcB JR1RB1J9 c sZcJBcZs9 cZcRcJc9 s ZsZ 1cBsJ J{ZJcB{ 19R1BR1JR1R JBJRJcZcZscZ BsJBJ RB9)1 1BsBs JcBc9 scBs1 1B1R1 JBRJB sBsJ9s sZsBc R1R91 RJBRJR sJB{csc RBcBs c sc1 BsZs9cB B)R)1JRJ!) 1BJBZR ZBZBcBsZ cscsJ JBZJB 1J91!) cBscsZcJBcBJBc BZBsBcBc JBscBcZBZscJBc1RscsZBc J1J1! csBscBsR ZsR1919BcB1J1 JsJZc91s 9BZc19BZcBJ cBcBc BJB1)J1 1J1R9B s1cBcZcsBZ scZscZcB 1Bcs9Z BcsBcBc cBsc9Bc 9R9R19R 1B1BJRJBcJ cBsZscZ B cBZ BcRcB BJBcBc cBJBZ 1R9J1J9 9J9Z1BcJcJs cJBJBsBc s9BJZJZ B)1)9 B19B1B1 B1JcBc19Bs1cR cJBsB ZcBcBJBcJBJcJR 91B91 cBsZc cs9JB sZcZBsJB cJZcJR )J)1RBJZRJRJRJRJR cJBsJc B{csBc BJ1J)J19 sZcsJZ BJsZJcJcB{ BcZscZ Zc9JBJBc BJ91) {JscscB{sJ BcsBsJB RJ9sZ RcZc1cB 1J)J1J {BsJscJscJcJsBJ ZRcRcR )RJ9J9J !)1)! s{c{c Z{Jcs sBsBscsBZ{ JBJRJR c{sZsc{cJcsZcBcZJZcJZ9 BcJ19 s19cB 9ZBJB BZ{ZRcZcJc R)BJ)B )!19) 1B191!1 )1JRJsJZsc s{Z{c{s{Z ZcBscJZcBc 9ZBZBZJ cZJZJc J Zc1{RZRcZ )1JBRcR cZJsc J c9cJZJcJZ 9JcZc ZcRBcZc RJRBRBcB{BcBJR c s{sc{csZs cZJZcJ ZJBcJ )!9)9 sc{s{ ZJZRJZJZ ZJcB1ZBJcR RJZ1cRZJRB J1B1J1J9 {cs{c{ 1J!JZ ZR1ZJZ JZ1ZJZ1BZ1 J1RJZ1Z RJBJRBZ J1B1)9J {c{c{Z RBR1JBR1Z1ZR1JZ1ZR1J1JR ZJ1JRZ1R1ZRB1JR1R RBJcB )9!9! R1BR1R1!Z1JB1R RZ1R1 )JB)J)R )1!9) RcRJ1J! !R1!R Z!1R1J BR)R)RJ1JR! )BJB1 9)JBJ !J1!1!1! BR!1R J!1R!1 1R)R1R1J1R)J9R)RJ)JR9 )B1BJB1B1B BJBJ) B JB9B9JB9) !1)1) !R!R!R! !1!JR R!J1J1J1J!B!J1J!J)R) !R)J)R1 JBJRJ)JB B)J9J B1J!)J)B1B!B)J)J B )J)JBR)B) B )B9R1JRJ) 1JBJRB9B ! 1!1!1!1!J J )BJB!J)B1 {cRB1!1 J1J!B!B!B)B)B!)B)B1 RJRcZsc ! J!1!91B19 B )J!B)B)J) JBJBJ 9191J J1B)1 )!J1!)!J!J!B! !)B1B1) kBsZBJ {kRJ1 1!1!J!)1 JZcZcJcZ c JkZcZcZcZ RcB1) )!)!B1 ZJBZJcJ c ZJZcZcZck J 9JB1BJRBR cRBJ9 )1)1!B!B)1B JcJcBZcB BZkcZ scZcsks sk{scZ c{c{c{ {c{cRB1!1 kckcscscsc cksks{ks BR1JB {sc{cRB1 )!B!J! )1B1J )!J!J19 )ZkcJ kRZ{sk !)1!1!1!)9 91J)! B9B1c ZkZkZcZcZksZc c{c{s {cRJ1 J RZRZRJRZR {k{c{s 1!1)1)1)1)B! {cJRB91 !1!1)1) cRJBJ BZBkB c{s{cB !1)1) 9 19B)B)B)B 9B!JB1 kZkck cksks{ c RcRcRZRJR {s{cscR1) J9BJ9B) ZckZk ZkZksZkJ 9R1R1RJ 9J9J) J)J9J ZkckZk Z RBZRZJR1R J)9B1 B JBZJZJBJB RcZcRZ RJZJ1R 9)J9)1J1 1!)9J19 RcRcZRZRZRZ )1B1)J1J)B! ZJRBJZ RZRZR BJRZR )!cJc!) RBJBZ JRBRZ RcZRZ J)9J19B! RZRZR {kcRJR JB9J9J) R 1JcZJRBRZ RZcZRZR 9191B)J1J1B9B9 JBRJZ k{k{kBR! 91B1B9B) 9J9BJ1k JRBJZ ZRZRZR J1B19J !)9)9 RcZRZ 9J1BJ9BJ JRBJZ J9BJBR RJRZcZJ B19J1B19 J9JBJ JBJBc 9!9)RJ J ZsZJ1RJZR RZRZRZR J B1J9R1BJ9 JBJ9J9k )J9JB9J ZRZRZ kRcZJ JRcZRZ 9J9J9 9J9JB)c 1RBR9 ZRZcRcRJR1R9RJ )JBJBJBc 9R1R1 RJBRJ 1JB1RJ9JB9JB kRkRZJR1R1 JRZcsZ ZRJB1J B R9!JRJ !9BJ)! !)9)RB9!)1B9!1RJZ cRcZRZJ JRZcsZ BJkZk 1J1J9J9JB9J B JBJB9 ZRcRc RJRJR RJ1B1J kRZRk JBJ)!BJ 1J1RB BkRkJk 1J9J1 B JBJBJBJBR B1B)J c{R ck{sc 1J1J1R9R9R9 RZRcs 1J9J9J R1J9JBJ 1J1J1R R1JBJ)J JBJBJ ZRJR1 RZcZR 1J1R1 RJRJBJ JRBR9 JRk1k1ZJZJZ 1J1J9J9R 9BJBJ9J 1J1R191R JBJ9J RJRJR k9k1ZJk J1J9R9R RJB1J1ZRcRB Z1kJZ 1JB1R1 R9R9BJBJBJB BJ9JBJB RZJRZ kcRZ1 RJRk9 kJk1JZJ1J1J1J1R9J 9 R9JBJBJBJ J R1RB1RJZR 1J1J9R RBRBJBR 1k1k1kJk 1J1J191 kRkRkcRBJ1J19JRck J k1k1k1J1J J1R1R 9J9JBJ9 J 9JB9RJRcR 1RBRckcRB9 R J1kJk1k1k 1B1B1R1 BJ1JZR ckRkR kJk9k J1B1J1R91R R9R9BJ9 J9J9BJBJ1JBJBJB BRBJR BRBRJBJR kJk1k9k1 B JB9JBJ9J9 191J)!J RJBRB1 JBJB9RBJ R191R )JBJ9 J9J9! BJR9BJBJBJ ckRJ9 1kJk1 R19R19 9J1J1B BJ9J1J 919191R J9J9BJ)JB1 J)!)Js J91R1J JRkRZB1B R BJRJRJRJR 1JR19 J)J9J1R9B)1 J9J9k 1BJ1B B)JB)BJ) 191BJ1 !J9J)Z B1B19R1B1B19 BJRkRk 1JRB9 )R)J9B91B) 9JkBc 1J1B1J cRcRcRJB1B1BJBR9 BRBRB ZRJB9R9BR1R cRcRc kZRJZ )ZJ9J9J9 cRJ1B1J RB9B1J 1J9J9J BJ9)B J1JB1 1BJB1 RcRJBJR R19B1B) cRcRkRc B)B)B 19J19B) B9B9J9 cRcRcR R{cRJ !)R1) )1)J! 91J1)! 19)B1J )!1)1) cRkRkckcRJ9B9J J1J191 )9JRcRcR J1)9)1) !1!1) 1 9!9RcRcRJ 1R1)9 1 91)1)19 )!1!) )!1!1! JRcRJ 1JBRBJ9 !9RcRJ J1JBR1J1 ckcRZ BJ19B1B1J1 )J1J1R BR1RBRBR1Rc J1J1B)1)1)91 1R1RBRBRJRJR J1J)J1)1J191 1!1!J B RBRBRBRBR B1J9R1J !1!1!1 BJ19J B91JBRBRBRB BRJZc B1JB1 919)!1! JRB91RB BJZcskc RcRJB J1919) )919!) 1JBRB@ 1RBRBJ1J19!9)1)!) 1!1!1) J1J1J9RZ J1RJ1BJZ !1!1! RZRJB ZRZRZ RBJ1J )!1!) 1!1)! 1 J1R1RJ1JR ZRZRZ !1!1!1! J1J1R1R1 )1!1!1! 1!1!1!@ 1R1R1 B1B19 !1!1! 1RBRJR JR1R@ R1R1RB cRcRc )!1)1) 91)1!)1) 1JZR@ J19)9 )1!9)1!1)1!9!1! J1R1R1R1 ) !1)19191! J1J1J1 BJcZRJ )1!91!)19! J1J1R1 1 9!1)!19!1 !)1)19 1J1JR1R1 JcZRJRZR cRcRc R cRcRcRcRc J1J1B )9)9!1!) ! 91R9R9R1J cRcRc 1B1B19191! !19)@ 19)!9 R1Z1JR1 RZRZRZ RcRcRcRcRcRc JB1J19 9)91)19 !1!19B B1RBR1 cRcRcRcRcRc 19)!19 c RcRcRcRcR J1J1JB91!19 RcRcRcRcRc JZJB919 c91J1JB9 ZJR1@ RcRcR 9!19! 9ZJ1J RcRcRc {sJ{cs ZJZJZ JBJ19 91R19 JZsZ{J kZJZJ J919J 1!91R91B! s{J{s JZJ1J9J1R1R 91919J9R1{ ZJZRZ BJ1J1J 1R1J91 1J9J9J19R9R9R JZsZs {s{s{JZ{s {c{c{ Jk1J1Z 1R9JBJR J1kJZ1kR ZRJZRJZ RJRJR {c{c{ {c{R{ ZkZJk BkJB1 Z9ZBR c ZkZcZkckc {s{Z{s { c{c{c{c{c Jk1k1k1 R9R9Z1J RJZR{Z c{c{c{c{c{c{c{ RkJkRJk s1kJ9 Z{J{s 1cZkZkZkZ kJkcsckZk Z1J1J!R 1kZk1 c{J{Z 1ckcZkJ 1k{1k kRJRB1 9ZBRZs ckZkcZk ckckZ RJ1Z1JRc RZRscRZBR9RJRsks ks{s{s 1k1RkZ R1R9RJ {s{s{k{ BR9R9 9R1R1 R 9RBRBRZRc 9R9RJ ZcZcZ{ BRJR9R k scRJR1RBR k1kZJZ scZcZcZ1RcR1ZR1RZJs RckcRc 1RZRZRZ R csk{kscRZ cZcZc Z1J1JR kZkZcZcZcZcZcZk RZRZR {k{k{k RZRcRcR k{k{k{s ckckckc cZkZc ZcZcZcZkckc kcRZcRcRcsksc s{s{s{ ZcZckZ c{ksc ZcZcZ ckckZ kscRZ s{k{k c kscksks{s ZcZcZkZcZcZ k{k{k{ sk{s{@ k{k{k 11111111 z)))))))) !!!!!!!! 999999992 :A:A:3A3GH_RRRRRRRR z)))) RRRRcRcR RRcRRRRR z))))RRcRRcRRH :1RR1RRRR cccccccc z)))){{{{{{{{ !1HV/e` kkkkkkkk z)))) 2kkkkkk{k z)))) O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ 10^v? $ViewMapDataset $ViewMapLayout $NavImagemap Key Ring Administration HotspotRectangle4 ClientCertRegister 1S4S HotspotRectangle3 ClientCertRequest 1S4S HotspotRectangle2 ServerCertRequest 1S4S HotspotRectangle1 CASetup 1S4S6S HotspotRectangle9 ViewKeyring 1S4S GraphicButton4 5,5,+ i`aiUiUi`O` WHWXW ymbm?`=L=D=D @=@?@?H?@?HW b`?`=L=9 @=?@=@W@W@W@ bm`=O @=@=@?@?H4WHW m?`=L @=@=@=@?@WHW4HW @=@=@?@= mymymy @=@=@=@= ?X@?@4 H XHX1 ?`?`?m @=@=H@ H@W4HW =L=`=? X?@?@=@X XHXfX| =L9=9=D9=9=9=.=9=9=L` bzb@? 9. =.=9 dzbXb@?X 9.9 . 9=`=? 9 . = .=9 yzyzyzyz _SNSg 9 9 9=9=9 =L=9=9=9=9=9=9 t?bybyzyz `OL=9=9=9=L=`=`= =`=`=`=m? |X|X| fzXWH@= H?@HX fzZzX|B |zZzfz |fzZzf |zZzf fzfz| |zfz| dzbzbdzd {dXW@ zyzyzy Wbzdzyzyzy zyzyz zXzfz @?@XzWzfz| WzWzW WzWzW =HWXW WzWzdzd zZXH@ dzbzXbzbzdzdyz =@?XWdX bzbzb fXHW@= bzbzbz zXW4@4*=4@?XWbX yzdzbz zbzbz XWX?@=4=@?XbXy XWX?@=@=bXb X=@=@?Xbzb b Xbzbzbzbz zbzbybybzby?b= ?ybmy zdzWz zbzbz ?mt?m zyzyz m =t= zdzdzdzy m#tml uimtmt? yzdyzd m`m=t?lu ymybmb ymb`= =`=`t zyzyzdzy =9=9` mbmb`?`=`=9 Jz`b`=`=9=9 b?=`=` 'b`=9=9=9 = =. .= .= Wm|zW=G= WdWdzW WdzWdzW? zdWdW Z WZWZWZ ydmby fWzXzW mb`=` amamU ybm=L=`?lbm zXWXWH ?`bmyw =`=t=ty ZzXHX? fZfZf ZfZfZf J$SjJ fZfZf WHP23 fPZWZ 1PVxkx {W>3) dW32) 3WVd{ WH4?HWz XH?@H @=4?Wd W?4*=?X zH@XWf X*=*4Wd ukjsh W=4=4Wz ksjsT j`j_j ^hrh^ rh_^hr dXWXf akikjk_ h_h_M PHP4PH iUjksj kjkjaM *3PHPW fWZVZWHPHP ZWZVWH P3232 dW@*)B ZWPHPH ?PWmdaWVW WX=*) svsjs W"PHP 2323232323232 23 )2)3=?Wam dW?4*) HP23P 3P232323 23 1) 3=WadaUWdydz dWX?@=4 HP 313 323123 !3WVmd ZWZWHPHP HPH2PH dbWbm VWZVHPHPHPH ZVZVW WP?=G323232 mdWUm ydbWb W?=!) VZVWV V Wda {WPW= ZWZVZVWV ZVWVWVZVWPWVWVW aW>G=32 = =Om lmWam yb=!= VWVWV VWVWVWVWVWP PWPWPWVd lVP=G maWbd VWZaWVWPWV PWVWVWVW aVUOUam ZVZW{WPWPZVWPWVWVWVW P WPVPVPVd{ WZWZWZ Z VZ{ PWVWVWPWVWVW dmVWVl{ aOmlwm=9 . WVWPW wmL= . ZWZWZWZ WZW{Z{ZVZ{ VdVWPWV TPjkUO UO`alw lOmawmO= 1F(F(E(F(F( lwu?9. WP1P(1 j(j1(P;F;1 ;FE;(E1(E(FEFEF(MF L_`kw uialuwla`lul`L . dZVZW (F1PF(P OF1F; MF(FjTj wtl`l W(;VPM&W( 1(F1FTFMTF jFTFM(F MTM_TM iuwl`L=9 WZWVZ{W EMEM:CTi wul`lu u`O`=LGD W{Z{d &W(TF1E wiaiw (E(F(F(E:(F wiaiw ui`au WaWVW uiaiu d&WVWVWV V&JU itl`au FEC(B:MCM_ O`itwut`iw OVPO(EO FTMTM WVmamaV ;FE(E EFjkT 9=9=L` ;LOkwuUL=9 |BE|ad adm{WVam P;PVUkP .9=`ut`O`u VUPVakVP awxwxki 9LiulOL` 9Llul iOUiwu`D . 9Lit`LG`u OUkxwlO`iwu`L9 9= `LGLt =D DLG u `L=DL`ui` =19=D l`9=` t`LGLt m<dmP =X9(12GD ` tut`GL`u i`O`sut`LG`t dVdamy a|VPW D=OUl wla`Oi dadam POUkVP>PVaiUPV Oitut `LG`u maWaVdf dxmaVa a VPUadVOGD maVW: &dValmaWa V lmVUPUVkV a VUal D2GOw i`O`t uwut`ltst`=L`t iOLG` maWamyT X=9Ol u`=DL` tusil u`D9=9`t l`ltu `9=9 9Ot u`D9 9=9=t iOGL` uOL=9= stl`i ti`G=a i|zWd Udz?D2( mdaVmaml UViUG1D (12Gax wi`O`OL`L`LO`t l`=G? ymVam m aVa stl`mw l`=`? maVamw isut`litui wm=GW am{dm V lmaVPVlaU i`Oiu aVPValVO tustl`l mVPVi (92GO u`O`i V mdxdaVm D2DGU uaO`iw u`O`lt dVUPO UPVam u`OL=tu ui`Oau =O`lu lUGO= =OUVam dmVad iO`=`?t UOGOG i=O`=`b yaGOGOGOUm dmadm maOGD1D O D=9D=O`w l`=`=`b yxmald lO=D . . 9Ga wm`?`?ba ?=?by daVad dmdad D2DGPl lUO=D2 . bPUad dmamd adm{ymV y?=@=!=W 2D1D12D 2D2GOPa dVld{ydam xaUO= . .=Ow EW|WO :XOWzWO:|U 9=Om lmVdF . . G 3D? adadT 0|L=D G32=G3G Ga D32= 3D dOTVF &WG?O ?bW?bWbdy P=23Ga UalaVUa =`?=W xU=G2?l yb@=?b aVPVwlV ydbW? xO32=a m{maUV lVPVkm G=?Wm mVUalmV mdmWmd m{mVWa maPUdmald != =2 >WPWP mWVWy =?=@=@3 @)*=)=)=3 =)3=) @*=)=) WXW@4= dbW`?O yb?O=O DGDLOL`w LGDGDG *=*=*=@ yb?`G=L mb?OGL mb`=D @*=4=*) m=?mby @)4*=*=* w?`OGLG LDLO` *=*=) O`OGZ =*=*=)* ?OGLG 4*=*4@ @*=4=*=) m=`=`? XW@=*@*@*4=4 9=`=b DLKDK9 WH4*= =*=4* `=`=9= =*=*4 `=L=LObt DK9DK W@*=*=*=* =9GD= =DL`?t i=`=DL= ?m?t?=`GL D =9DL`iutl DKDKL O=LG9GD9DGO`lsui`LDKL y?VWG=a=PW`? 9DO`lusi`OLD@ m{POa=aUax OmGOULODO9D ~{W{aW{xaP lyxlm UDVDGDU9 KDLKL la{OkaLxDVUTDO O{OLVjUk LKLKL Lk~LjVk;UjOluwswui`EL`F`TLK k~TPk ` E`T`K`C`K ikijU_ K`C`T`K s_`tu iLTO`j`L_L kxj`LjL`L {xkjOwxLij s{ZB{RR{R1{R sssskcsc scRsZcsJ1sJ!sBJs)cs)Js)Bs!Zs kZ{kRckJ9kB{kB!kB k1sk11k)ck!ck ccsccccZRcRscRkcBscBcc1)c!Bc JZZZZR ZJ{Z11Z)JZ RJJRBBRB1R9!R1!R1 JZkJRkJ99J1)J) BZ{BZcBR{BJZBBJB1BB119Z 9Rk1Jk19R19J1)1)Z !1J!)B ]; "ViewKeyring" avigator]; "CASe mmmmmmmmViewKeyring" zzzzzzzzator]; "CASe ffffffffViewKeyring" KKKKKKKKViewKeyring" ViewKeyring" ViewKeyring" ViewKeyring" O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ u\5]v $ViewMapDataset $ViewMapLayout 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 Keyring Administration HotspotRectangle40 CASetup 1S4S6S HotspotRectangle5i ServerCertRequest 1S4S HotspotRectangle6 ClientCertRequest 1S4S HotspotRectangle7` defView Create CA Keyring 0S6S defView 0R4S HotspotRectangle8B CAProfile HotspotRectangle9 defView CreateCAServerKeyRing 0S6S defView 0R4S HotspotRectangle13 ClientCertRegister 1S4S HotspotRectangle18 ViewKeyring 1S4S GraphicButton15 cdcdn< n/<=/< /endZ BN^BN^BDND M5M5M5M5MB5B5 5M5B5 7NB7N^NDND^ gi5BMB5B5B5 BNB7NBNDNDND 7 B7BN7N7N7 _N_m_ N7^N7 ^N_a@ igigig ENEND B7B7B^ Mg5\M\5\ _B_B7? 15151 M5\iBi 515151 3PHP3 M515151 \5iBi 7BN_) .;.b#F# b.#.9 v.:G:. wOwW9.9W -W9W9 9bW9v8W8 89F98 W8W#W :/OG/ :<G/: =</;. OX<:v x<G;. xYG:# cXF-9 c0O9- cYG.W YG.-v x:/;<O cYO:.#:G w/G:O cOG.-.:O cYG9# xYG9-.wcx GF9bwOGO Y </Ox</$ G/G/G .:GO<G/G :.:<O<O< :.#.: wcYG9- YcYG- G-#-FO .9FwG WvFOXG9 .9.-.9WwOcYO:- .9FGF9- :FG:- ,7,7EN 7,7N7N^_a 7 ,7,7E7N^_ a^NDB7B7NB VNDND^i^ ak^V^ F-8F w/wF.#FW 9v-W8 vGbWF YO/$# v/O<Fw w<:$# YZcY<;. O+c<;#w xYG:- xYG9- cO;.9 #$wY$.$/x Y2YOA /G<OYx<;Ow< #9GOF #/<O<:$.# 2<2/< ZYO<O< /<O<F. .:G<G/2YZY .:/:/ G:/G/ 9F:9:G #.:/:$ ;G<GO; #.:/:. -.-9WwGOYG:# %';2/:.# -9;G'. %.%$% b.:G:b#W- b.#-9 W#.;.#-8 vGbW.#-W .:/F. ViVik 'YO<:# /O<G: kUkVkik GOG:. /O/.v DiD^k ZYcO;.9.: Y<$#w .:xw/:;/O<GO :$/O0 :OYZd O=GwOZd #.:<G;$ $:/<O<G< #.:<O<G #.:/: .$:2Y2<2= nY<.# /;:G<O<G .#9F<:G /2O2<$: #.:.$ ='=$% ';';% #$=O=.# tg\tgig mamam amama _NEDE ^ND7@ Z(Zq0 rmka tVD6!@ ]B6!@ amaDk kD5!@ iD6!@ UakmUm@ _N7E7@ m( Dm ^NDEN EBDE^ ^NB67BN fefno ^VN^k ofqfqo~ [{fqS kaC [qrqf Uaka? kaCa(@ Ka?K@ !D!D6 ^a7@ }q[qf (CakaD^ _7,@ E7,@ C!DC!DC! k_B,+@ ~{~{~ 6DC!6C!6C5C!C!5!5 +6BD^ ^a^a^ C5C!C5D6C6C6!6!5!6!5! 56565C6!5!5!5 ^a^a^ak kDakak 6!6!+" a^aD^ak^ t i^ik aDk^Dk^Dk^ ^akakDa 56565BMitski\ kaka^kDakDakD kiDMB6 65BMi tiB6" amama ^ka^kaD ikDiDiDi ak^ka VDVDiVDi]k t\tst ~qrq~ DiCiC ig\tsiMB ^a^a^a^ ak^kDka iCiDV thts ^a^a^ akaka UC@CL@r makak sg\spsg ]3(3hr L@L@L K@K@KL @ K@KLKLKLK m^ka^k KL[KL Mg\4M akaka ?SI[L LKLKL @>QJR41\RUgp @L@L@LK@ [r[LJ 5 151MRgp}p @CLUL@ p\UJ5 ]kh]k h&Skh rUhpUpU\p k3Hhk hp\hp ]thk] UV]hk] h]Uhs shp\p Rg|sRMg} (VUVU\ \p|gR\R| t2ksk KVUh?]? }pR154Rp|pR5gp p}|gR\5Rg|p Vh]Vh JMUgp gMRg| *J*14JMJC pg\gr gR\R} 'kst3 gp}|pRgp hktkhk] pg\gp}rp pg\Rg} khkh]hktskhk kh]hkh] hUVht ]U]h]UM 5MU\s rpgp|}| h]hV]ks gR\R} kh]kstkh ]VUVh h]h(KMJC hk]hk }hUgp pgp|} gR\gp} *4>gs }gM5Rgp} pRMRs skhk? U]Kk&H 1514gp}| }gR5151\5gp}|pgp|{ ]hktskh]& \UM4@ thkst ]hVhkt skhks khVhkh]hV ]V]kst >4>45Ms pgp|}p ti\Bit@ h]h]hkst tk]khsh]U]hkh C54@4> }phgp }sgp} |psp|} ti\Bi@ k hkskt kskVh] thkhk kskhU hkhk]hUh]k thV]hkhVM@C >4@4@ |g\gp| hVU]V]kst 54>4> Uhkst khkst hkh\UMC@ M UMU\]kst skhkth\ skhksh]UM@C4 thgUMR s\5\5it} tkUMC54> J4@4@ i^B^i skhkt @5@5@5@ 5@54@5 C54C@ iB+6"+B@ pVC565MVs iB+"6+@ V565CBC6Vt &\VMB5!5 gBCMBC B5B65B5 hgVM5BCB\ HK?L? s\MC5Mt ]Vhkskh]htskhkt MBDBD^i iB^Bi@ t]VUks ]"tS< Hh&Uh&hkh& rkr&p B MB\Dik \C5M\ iV]kstkh] kh]hts kViks ] VUk ^i^\^ k]ktsk]V tk]kt t3Ps] DVM(@ +6+B+B+B *5*+5 767B+ 767+7B+ ^a_N7E ki^\M\ kahLs a^N7B R5\Mt 7+7B7B7B 4M\R\s} , +,+,+7+67 ^B^ik M 5RMR4\Mg 5RMRM4 ,76+7 RM4MJM 7B+B7 +7+767 B \iBits B MiBt hgUM@ 7 B7+7+B+B7 BMits RJ4MRJM4 M \is sgMRM JRJRJQ +7+7B7 5\gs}pg\ J>Q>Q 7+B7+B+ 7+B7+B+ \5M5M5M\gp|pg\ JQJ>1> ^7+7B+7B+ 5M5M5R5Mgp iB\5M5M5M5R54\gs}| \Bi\5\B5M5M54R54R\gp M5R54R iB5i5B\ 5\B\5\ M54R54R4R4 r{}|p@ iBiBiBi\ i5\Bi5M5\5454J 5\5\5145 R gp|{ |rps@ gtgi5g r|{rp R JQRQRQRQR R1R1J>4 sg\1R5 R4R4R1 p|{|p pr{|p >JRgR QRgQRg 1J>1J> p|{|r |pgRJ1 RgR|{|rp |{rRpRQRQR QJR4pr QRp|{| gRgp| |p4JR HpH<{|pR {|rpgR {ZB{RR{R1{R sssskcsc scRsZcsJ1sJ!sBJs)cs)Js)Bs!Zk kZ{kRckJ9kB{kB!kB k1sk11k)ck!ck ccsccccZRcRscRkcBscBcc1)c)9c)1c!Bc JZZZZR ZJ{Z11Z)JZ RJJRBBRB1R9!R1!R1 JZkJRkJ99J1)J) BZ{BZcBR{BJZBBJB1BB119Z 9Rk1Jk19R19J1)1)Z !1J!)B *.PCX TIFF 5. CASetup"; "1") tttttttt ######## aamaaaaa 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 Categori_zeK _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From FolderK View Server Certificate Requests Waiting for Approval CertificateRequests View Approved Server Certificate Requests CertificateRequestsApproved Main Menu CASetup 1S4S6S Categori_zeK _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From FolderK View Server Certificate Requests Waiting for Approval CertificateRequests View Approved Server 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 $Readers $TITLE $Index $Formula $FormulaClass $ViewFormat $FormFormula $AppHelpFormula $Comment $V5ACTIONS $ACTIONS (Help) cca461_f_DlgAlreadyHaveCAKey 0S0E 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 $NoBackgroundOverride $Info $AppHelpFormula $$ScriptName $Body Categori_zeK _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From FolderK View Client Certificate Registration Requests SubmittedCertificates View Rejected Client Certificate Registration Requests@ SubmittedCertificatesRejected Main Menu CASetup 1S4S6S Categori_zeK _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From FolderK View Client Certificate Registration Requests SubmittedCertificates View Rejected Client 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 $Readers $TITLE $Index $Formula $FormulaClass $ViewFormat $FormFormula $AppHelpFormula $Comment $V5ACTIONS $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 CertificateInformation Categori_zeK _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From FolderK Display CA Key RingK'++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 '/** do some rudimentary version checking **/ If ProcessSecurityCmd("AdminSecurity","Version=4.61",Buf, 500) <> 0 Then '0 means the ver checked out Messagebox "You must upgrade to Notes and Domino 4.61 in order to use this application." Exit Sub End If Buf = "" '/** end of version checking **/ 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 doc.TempIsRoot = Right$(k, (Len(k)-13) ) End If If (Left$ (k, 15) = "PrivateKey: yes") Then doc.Catagories = CACert$ doc.HideSiteCert = "1" 'doc.TempIsRoot = "" End If If (Left$ (k, 14) = "PrivateKey: no") Then doc.HideSiteCert = "0" End If If Left$( k, 8) = "KeySize:" Then doc.CertKeySize = Right$(k, (Len(k) - 9) ) 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 PasswordK'++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 '/** do some rudimentary version checking **/ If ProcessSecurityCmd("AdminSecurity","Version=4.61",Buf, 500) <> 0 Then '0 means the ver checked out Messagebox "You must upgrade to Notes and Domino 4.61 in order to use this application." Exit Sub End If Buf = "" '/** end of version checking **/ ' 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 Menu CASetup 1S4S6S Categori_zeK _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From FolderK Display CA Key RingK'++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 '/** do some rudimentary version checking **/ If ProcessSecurityCmd("AdminSecurity","Version=4.61",Buf, 500) <> 0 Then '0 means the ver checked out Messagebox "You must upgrade to Notes and Domino 4.61 in order to use this application." Exit Sub End If Buf = "" '/** end of version checking **/ 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 doc.TempIsRoot = Right$(k, (Len(k)-13) ) End If If (Left$ (k, 15) = "PrivateKey: yes") Then doc.Catagories = CACert$ doc.HideSiteCert = "1" 'doc.TempIsRoot = "" End If If (Left$ (k, 14) = "PrivateKey: no") Then doc.HideSiteCert = "0" End If If Left$( k, 8) = "KeySize:" Then doc.CertKeySize = Right$(k, (Len(k) - 9) ) 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 PasswordK'++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 '/** do some rudimentary version checking **/ If ProcessSecurityCmd("AdminSecurity","Version=4.61",Buf, 500) <> 0 Then '0 means the ver checked out Messagebox "You must upgrade to Notes and Domino 4.61 in order to use this application." Exit Sub End If Buf = "" '/** end of version checking **/ ' 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 Menu 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 qOP;"p $Readers $TITLE $Index $Formula $FormulaClass $SelQuery $ViewFormat $AppHelpFormula $Comment $V5ACTIONS $ACTIONS $SCRIPTOBJ_6 $SCRIPTOBJ_7 $SCRIPTOBJ_8 $ViewGlobalScript_O Categori_zeK _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From FolderK View Accepted Client Certificate Registration Requests@ SubmittedCertificatesAccepted View Rejected Client Certificate Registration Requests@ SubmittedCertificatesRejected Main Menu CASetup 1S4S6S Categori_zeK _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From FolderK View Accepted Client Certificate Registration Requests@ SubmittedCertificatesAccepted View Rejected Client 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 u[svq $Readers $TITLE $Index $Formula $FormulaClass $ViewFormat $FormFormula $AppHelpFormula $Comment $V5ACTIONS $ACTIONS Submitted Certificates\ Waiting for Approval HotspotRectangle1 CASetup 1S4S6S HotspotRectangle2 ServerCertRequest 1S4S HotspotRectangle3 ClientCertRequest 1S4S HotspotRectangle4 ClientCertRegister 1S4S HotspotRectangle17 ViewKeyring 1S4S GraphicButton7 6-6-, nefnZnZneSe \L\]\ ~rgrBe@P@H@H C@CBCBLBCBL\ geBe@P@< C@BC@C\C\C\C gre@S C@C@CBCBL5\L\ rBe@P C@C@C@CBC\L\5L\ C@C@CBC@ r~r~r~ C@C@C@C@ B]CBC5 L ]L]2 BeBeBr C@C@LC LC\5L\ @P@e@B ]BCBC@C] ]L]k] @P<@<@H<@<@<@/@<@<@Pe !</!@/@< g]gCB] !</<!/ !<@e@B !<!/! @!/@< dXRXl !<!<!<@<@< @P@<@<@<@<@<@< yBg~g~ eSP@<@<@<@P@e@e@ @e@e@e@rB ]\LC@ LBCL] @L\]\ @CB]\i] k]L\C@ ]\5C5+@5CB]\g] ]\]BC@5@CB]g]~ ]\]BC@C@g]g ]@C@CB]g g~g~g g~Bg@ B~gr~ BryBr r @y@ r#yrq znryryB rer@yBqz ~r~grg ~rge@ @e@ey @<@<e rgrgeBe@e@< ege@e@<@< gB@e@e (ge@<@<@< !@!@/! /@!/@! _ \_\_\_ ~irg~ rge@e frfrZ ~gr@P@eBqgr ]\]\L Begr~| @e@y@y~ k_k_k _k_k_k N%XoN k_k_k \LT34 kT_\_ 2T[}p} i\43* \L5BL\ ]LBCL C@5B\i \B5+@B] LC]\k ]+@+5\i zpoxm \@5@5\ pxoxY oeodo cmwmc wmdcmw i]\]k fpnpopd mdmdQ TLT5TL nZopxo popofQ +4TLT\ k\_[_\LTLT Tk )_ _\_[\L T4343 i\C+* _\TLTL BT\rif\[\ \]@+* x{xox \"TLT 3434343434343!34 *3*4@B\fr i\B5+* LT34T 4T343434!34!2* 4@\fifZ\i~i i\]BC@5 LT!424 434234 "4\[ri _\_\LTLT LTL3TL ig\gr [\_[LTLTLTL _[_[\ \TB@K434343 ri\Zr ~ig\g \B@"* [_[\[ [ \if _\_[_[\[ _[\[\[_[\T\[\[\ f\AK@43!@!@Sr qr\fr ~g@"@ [\[\[ [\[\[\[\[\T T\T\T\[i q[T@K rf\gi [\_f\[\T\[ T\[\[\[\ f[ZSZfr \T\T_[\T\[\[\[\ T \T[T[T[i \_\_\_ T\[\[\T\[\[\ ir[\[q fSrq|r@<!/ \[\T\ |rP@!/ _\_\_\_ [i[\T\[ YTopZS ZSefq| qSrf|rS@ 2J)J)I)J)J) q|zB</ \T2T)2 o)o2)T>J>2 >JI>)I2)I)JIJIJ)QJ Pdep| znfqz|qfeqzqeP!/ i_[_\ )J2TJ)T SJ2J> QJ)JoYo |yqeq \)>[TQ'\) 2)J2JYJQYJ oJYJQ)J QYQdYQ nz|qeP@<! \_\[_ IQIQ=GYn |zqeqz zeSe@PKH '\)YJ2I |nfn| )I)J)J)I=)J |nfn| znefz \f\[\ znfnz i&\[\[\[ ['NZ nyqefz JIG)F=QGQd Seny|zyen| S[TS)IS JYQYQ \[rfrf[ >JI)I IJopY !<@<@Pe >PSp|zZP@< T>T[ZpT /<@ezyeSez [ZT[fp[T f|}|}pn <PnzqSPe <Pqzq nSZn|zeH / <PnyePKez SZp}|qSen|zeP<!<@ ePKPy @H!HPK z eP@HPezne @2<@H qe<@e yePKPy r<irT @]<)23KH e yzyeKPez neSexzyePKey i[ifr~ H@SZq |qfeSn ififr TSZp[TAT[fnZT[ Snyzy ePKez rf\f[ik i}rf[f f [TZfi[SKH rf[\= 'i[fqrf\f [ qr[ZTZ[p[ f [Zfq H3KS| neSey z|zyeqyxye@Pey nSPKe rf\fr~Y ]@<Sq ze@HPe yzxnq zeH<@<ey qeqyz e<@<!<Sy zeH<!<@<@y nSKPe zSP@<@ xyqen yneK@f rif[rfrq Z[nZK2H )23Kf} |neSeSPePePSey qe@KB ~r[fr r f[f xyqer| qe@eB rf[fr} ZTfqfZ nxzyeqnyzn |r@K\ ir[fqrf[T[qf[SKH3 neSnz yzxyqeq }r}i}i}\f[ zeSen fifrfr rf\}r H2H>2H2>2H zeSen| zeSeqy T[SH> 2H2>H>H3KSq zeSP@yz TZ[ZT[ KSP2T2K>H>K>SKZ} |nqSn| @Seqz [f[ZT>ZY>T> >KHT} Sfnfz nSe@eBy p[Z[SZfp[ I[o)[>S>[SKHfS} ZSnZ| n@Se@eg [pToT>[K |}Tf<SZSZn qe@e@eg JTo[> BeBgf B@Bg~ ZPf2TZH ~B@C@"@\ 4K@Sq |[T3KA gC@Bg [T2B[ p[Kf} [p}n} p}p[oS oZpPSpPO ZpSPYSY Zp}fp poSpP S|}Pp }nqZP f[rf} S[pf| K}S[Sqp|znPe \f\}\g ZfSfnSfz [}\fB qi}f\Sq [ZHZHKS /<@n@ f@[|@ZSKSHSHKH eqxznePOPHOP i\B\4B\f\qBr@ <PHSe P@ez| B#A@Z@S@S@Zgr@e@BS@P@HS3HKHP<HPenzxne S\S@S@e@eP@P@PH<KH<K< KPqxznSeOH @ eBS@e@<H@ B eB@eSe@eK KH<KH3 @e@P@P@H<@H3H qgeP@<@H |ze@P POPOP xdeyz neK<@ xdedx mxedx ePH<@ eOPeyxy eyxyde xdedx P<O<eO mxded eyxyx dxedx xyePe O<eOPen nePeP yeP<e<O zBe@e {ZB{RR{R1{R sssskcsc scRsZcsJ1sJ!sBJs)cs)Js)Bs!Zs kZ{kRckJ9kB{kB!kB k1sk11k)ck!ck ccsccccZRcRscRkcBscBcc1)c)9c!Bc JZZZZR ZJ{Z11Z)JZ RJJRBBRB1R9!R1!R1 JZkJRkJ99J1)J) BZ{BZcBR{BJZBBJB1BB119Z 9Rk1Jk19R19J1)1)Z !1J!)B *.BMP GIF Imag *.TIF rrrrrrrr*.TIF kkkkkkkk *.TIF *.TIF *.TIF *.TIF ZskcZ JcZRJ ZcRk{) RckRZ 19JZ1 91J1Js) 1Z1J1 RBRBR 9J9J9B9B1J1R1R1R 9)!)!)19BJ 9J9RBJ9J9JB9B9JB9J kZJ1) )J19J J9JBJ9 BR9R9BR9 9J1J1R1R k{ks{k J9JB9RBJ9JB9RB 9BJ1J BR9BJ9BJ9B9BJ B1J1R 1BJRcks )1J9J9J9 9JB9BJB9R9R9R k{sksk 91J9B JBJBR9JB9B9B9 k{kZJ1) 1 !1)J1J9J9 {kJB9 Zk{k{k 1J1J1B !Rcs{ BJ1)! BJRks{ s{kskc Rk{k1 )1)J)J)B 1R1R1J1R1R1RJ 1BJZk{k{ 1)1)1 9RJ91J1R )1)J) 9RJR9JBJBJ9R9 s1B1B{ 9R9J9 19J1R !9!9!9!)!) 9R9R9R1R1R !9!)!)! )1)1)1) 1R1R1R1R1R1R1R !9!1!)! !1!1! R1R1R1R1R1J1J 91!9!9 1J1J1J1B1R 1)1)1) 1!9!91 1!1!1 R1R1R R19R1R1R 1 919!91!1! k{skc 1!1)1!1)!1 91!1!1!1 !1!1!1 9)!1!9191!9 1ZR9R9 !191! RJR1R 9!1!1 1!1!1 JZ1RJR !9!1!1 1R9B9 1!1!1 1!)!) !)1BR 1J91919 91!9!1 1J1J91 9!9!19 1BJRc 9!1!1 !1)B1B1!) ZJRJ91! 9!9!1 )!)1) 9)!9! JZckckRB19@ 9)JBR 9!9!19 !19JRk {cRJ9 !9!9!919 ) !)9)!)9!1 )9!9!9!9!919R)RJ !1!9JRcs 9)!9)9! !9!9!19191R)J1B )!1!1 1!)!91! 9JRks 9RJ1RJ {cRB)1 )!)!) 9 !91919R9R 191J1 ck{scJR )!)!) 1919J1B1B1 91919191 )!)!9!9 9 191J1R)RJ 1)!1! 919191 1919R 9!9!9! 19RJR R9RJRJ cRcRc 9!9!9 919191 cRcRc 9!9!9! J919191 91RJRJRJ 9!9!9! !9!9! 1JRJRJ 919191 9 1!1919R19 cRcRcRc 919191 9JRJRJRJ@ 1!191!19 cRcRc 91919 1 919191919 9!9!9!9! R9RJRJ@ 19!19!919! 9191!1!1!1)1)R1BJ !)!1) !1!1!1!9 1 )1)1)1)1) )JBJBJBJ !9!9! J1Z1J1 !1!19 )1B1BJBJ R1BZ1B J1JBJBJB 1!9)! R1B1R1 BRJRZ cRcRcR 1)1!1!) 9!9!19 cRcRcRcRcRc )91JR J R9B91R1R1 cRcRcR ZRcRcZcRcR )!9!9! JRJRJ1R1R1 1Z1R1 RcRcZcRcRcR 1)1!) !9!9!9!9 B1R1ZB1R1R1 1B!19! 9RB9BRc BcZRZRBZBZ1R1 ZRZRZcZRcRcsRcR RcRZRZBRJ1ZR9 ZRcZRcR ZRZRZRZRsRZ R!cscRcZRZJR R ZRZRZRZRZ RZRZRZRZ ZRZRcR B19c1 BRBJBRB R ZRZRZRZRZ ZJBRBJBJBJB ZRZRZRcR J)1)9!9! R9R9RBRJ ZRZRZ RBR9RBRBRBRJ ZRZRZRc BRcRBR) !J9RB1 JRBRBRBJBRB RJRJRJ RBJBJBJ RBRBRJRJ 9JB9RB9RBJBRBRJRB R9RBRBJBRBRBJBRZc 9R9JBJ cRJRc 9 R9B9BR9BJ 1ZBRc Rk1R9 J)c{sJk JB9J9RBJB1Z1JZc B1)BJR BR9J9B 9B9J1 RJ9J9J 9R1J1 1J1JZc !9!9!9!9191JRJR 9J9J9BJ BZBJkRBcJc )Z91! 1R1RJ B9B9J1J1J1R !J9J1J1R1R 9J1R1R1R )!)!)1!)! 9191J9 B191J kckZJ J19J19 !)1B1 1)91) )9RJB kRkRk 9)191 191)9191 !9!9)9)9)9 BRcRcZcRkZJZ kZJB1 1)1)1!1!1)9)1)1 !)9)!)9) 1)1)1)!1 1)9)9!)1)9!)9!) 9!)J1B 1!)1!1 !91)9 919B1 1)1)1)! !9)9) )!9)!)! RJZJRJB 1919191)J)1 kZJ19 J91)!1 ! )!)!)!1)! ) !)1)1)!9! RB9RB9RB ! )1!1!9!)1 1BJ9!1 R1RBR 91B191 RBRBR 1B9BJ 9R1J1B1JB9J1J 91R9B B1R1J1J9BJBRB !1)!1) BJBJ9 9R1J19J1J19J1JBJ1R 1J9B9 skZJB )!)1!1 J1J1R1R19R1J9 1J1Z1Z9 ! 1!1) J9J1J1R1R19J191J19R1R9 1Z1R1BJR !)1!1 R1J1J1J1J1JBR 1!1)! JBJB9 B191B 9J19J9JBJ1RB19R1J91R1R1J1J1 1RBZ9 )1!1! B9J19R91R1J R1J1JR1JRJ !1)!1 RJ9JBJ1 9 R1R1RJ1R1 1R1J9J 9 1R191J1J1 k1J1)1 B1B1J1 R1R9J9J1JB9B1R9R91 9BJ1B1J1 91J9R1J9J9R9J 1B1R1R1 1!1J91BJ RJ191R9J9J9J9J RB9R19J1 1R1J9J1 9BJ9B9 1J9R1R9 B9RB9RJ1 J1R9J9R9R9J9R JB9R1R1R ZJZks J)B1B ZJ9J1R1J R1J9J9R9 BJ9R1R9R1R9J9R1R9J9R9J9 J)B1) R19R1B9J B9J1R JB1JB! R1BR9JR1R1R1 R9J9R1 9J1J9B9J J9)1B) 9J9RB9RB9J RBJ9B J R1R1J1R1R RB1R9J1 JcJR) R19R1R1J9RB1R1R 9R1R9J9R1R RB9)1 BR1J1 1R1BR9J91B1J9R 1R1R9R 1 J9JR1R19J R1B1R !19!1) 9R1B19R1R1B9J 19R1B1 ) !)!19!9J! 1!1)919J1! B19R1B R1B1R19R1B19R1 !)9)91 1J1R91B91R1B91R91B1B91R1RJRJR 9R9R1J1B B1B1)R1B !9191 1!1!)! 1R91R 9 1B9B1R191 RB919J sJs{s 9)B91 919191J1J9 JZRZsZ{ ZsZsJs )!B!) J1JB1B !1)J9J cRJ1! !)!B) B1B1B )!19) 1B191! 1 B)B9J)B)J {s{s{ 1B1B1B1B1B1B9B1B1 BJRc{ kcBJ!)! 1B1B19B19J) )J9JB) 91BJB B91J1 1B1JB1 !B!B) B1B1B1B 9JB9) !91!) 1!)!) B!B)B )9J1J)B) BJBJ) 1!1)! !)!B!B)B !B)B)B!B)B)B)B) )J1R1J) B9191JB B)J9J B)B)B B)B)B)B)B)B B)B)B)B9 B91B1B B)!J)B)B)B B)B)B)B) JBJBJ )1!B!)J)B)B!B)B)B)B)B) RJRcZsc )!)!)! ! B!J1)B!J1 B)B)B)B)B)B) BJRB1R9J 1!J!)1B!B)1)B)B) RBR19 )!)!)! )!)J!J!B!J1)!B1B9B)B) kBsZBJ BJRBJ1B {c{cRB1 1!1!1!B 1!1)1 J!1)1B JcZcZkZcZcZ RcB1) ) !1! )BJBZJ sZsJZBZcZJ kJZkZckckcZsc J 9JBJBJRBR {cRBJ1 1!1)1)19!B!)1B ZcJBcZB JcJcZ scZcsks k{scZ R Zc{c{c{ JZcJckcskc sckcsZc sks{ks R1R9B {cRB1 1!1)!)B!J) )1B9J )19!B1)J!J9! )ZkcJk BRBJZ kRZ{ks 9!)!19 !1J)1c ZkZcZcZksZc c{c{s {cRJ1!1!1!1! )J)B)1 J RZRZRJRZR s{s{c{s !1!)1) 9&)B)B)B) )1)1)J1B)B) cRJBJ BkBkB 1!1)191919J) 9B!JB1 cksks{ c RcRcRZRJR RJRZR ZckZk kcsZk 9R1R1RJ J)J9J ZRJZRZBR1R J9BJ)BJB)9B1 B JBZJZJBJB RcZcRZ !B)J9 RJZJ1R !)BJ1!)9J19 RJRJBJ RcRcZRZRZRZ )9J)91 ZJRBJZ RZRZR BJRZR )!cJc!) JRBRZ RcZRZ J1JB! RZRZR {kcRJR J)B1J {1JR1R R1JcZJRBRZ RZcZRZR J9B)J9 JBRJZ {kB19 J9J)J9J9BJ1k JRBJZ ZRZRZR J9J9B9JB9!)!) !)9)9 RcZRZ 9J1BJ9BJ9J9J9JB JRBJZ J1JB9J9JBJ)JB9 9RBJBJ J9BJBR {kZkZk J)JB9 JBJB)s RJRZcZJ B19J1B1J J9JBJ 9!9)RJ J ZsZJ1RJZR RZRZRZR B1J9R1B9 JB1J9 9JBJ)JB9k ZRZRZ ZJkJk kRcZJ JRcZRZ 1R1B9J9J 1RBR9 ZRZcRcRJR1R9RJ JBJBJ9c 9R1R1 RJBRJ 1JB1RJ9J kRkRZJR1R1 JRZcsZ ZRJB1J RZJZk 9!RBJ !9BJ)! !)9)RB9!)1B9!1RBZ cRcZRZJ JRZcsZ BJkJkZ 1J1J9J9 9JB9J B JBJB9 ZRcRc RJRJR JBJ)!BJ 1J1RB BkJkJk 1J9J1 B JBJBJBJBR B1B)J 1J1J1R9R9R9 BJBRB RZRcs 1J9J9J JBJBJBJB 1J1J1R R9R9R9 RBR9R9R)JB 1J19J J9JBJB BJ)RB RJRZJRJZJR JRBR9 ZcZJB 1J1J9JR9R9R JRJZRZR 1J1J19R BR1RB BJRJBJBZRZBZJ R9R9BR9RBJ ZBkZBZ RJZRk 1J1ZRcRB 1J1J1R1R9R9 JBJZBJR RJRBRZ kBsZBZJZBJBR JBJRBR kJk1Z 1J1J1 BZBsBZ R BJRJBJBRJ 1J1J9R BR1R9RJRJR9JR RJRBR Z JcBsBZcBJ RkRkcR 1J19JRck B1BJ1 9RJ9R RJRJRJB JcJcJBRcB{R{RZcBsRBcJc RckcRB9 J{RcBcBRBcRcJZRcBJcJZcJR JRZRBJR c kRkckckRk BRBRB RJRJR RZcJZRcRJRZ JRcJcRc ZJRJRB RkckR cRkR9 RJBJRB RJZBkB ZRJcRJR cJ9J9J cJBRcJcZcRZRcJRc RJZRZJcJcJRJ R cBRJRJRcJ 1J1BJ RcRJZBZJcJZJBc RcRJR BRJRJ csJZc BJBJBJ RcRZR 1cBcRc BRBJRB {1J1Z 9ZcZJRJZcZ cBJZJc sRcRJR BJBJB 1Z9B9c JsJsJs 1BJR19 RBRJRB B cZBsBJcsB ZJsRZRZc BRJRB BJBJB cBZJZ JBcBJc BsJcBsJcBJs B ZcJcZcJZR ZJRsJcJcRZJBJ BRJRJ R JBRBRcRcB JBcZcBcs cJcJZcBJ JcJsJcZ 1RBRBR RJBRJB JcBJBJB BZcBJcJ cBsZsZsJ csBsB ZcRZcJcJsJ{RsJsc BRBRJ cRsBc B cBcBcBcBs BcZJcJ BRBRBR BcRcR BJcJBcB BJBcJ B9s1JZc cJBc1cZ9 J sJBcBs1sZ JcJcJs JRcRJ JsJscB ZcBcBs sZBcscs1 1c91sB BsJBZ BsBsBs ZscJZcs JcBcsBc BscsRcsB9cB9cscB BcBJsBZ sRscJB1 ZscZs s ZBJscZscs JBcsJ sJcsBJsc BcBcBcs JcBc1 ZBZBZs cRsRBJs c sZcJBsZs9 cs9BscJRBs scZsZ cJcJRBscsZsZs BcRBJ BcJsJ JcBc9 scZJsJsc cRcJRJBcBZscB B sBsR1sBJR sBsJc sBRBs 1sZsBcB c BZBJBJBcB RcJRcBcBcBsZ BsBscsZcJBcBRJBR BcZBZcsZ9c1BscsJBc s{kcRc R cRcRBRJcJ JcJ9191 BRJs9BJcscJ BJRcJ cJcsks s9sBcJsZBJsJsBsB csJsc scscJsBcB cBscBJc Jc{s{cs cBRsB B cBZ BcZcB scJ19 9s{BR{ 9sBscsB BcBcBc cRBsJsJs Zsc1sBcBJc cBcJc ZJcJR cs{ks JRJcJcBJZc JcBc19Bs1cR BJcJBsB ZsBcB JBRsBZ cs9JB ZcR{JRZBJR cscRZ cRcRc JBJRBc B{csBc JBcJBc ZRZBs BJZcB cJcBJsBcJB JZ9cZ RJRsBRBZBZ 1cZsc RZRcRcRZ RBcBc J ZcskcRcRJ ZJZJBJZJZJB BscJcRZ JsJcJRJ RJBJsBZRJZRZ BZJZ9JZc9JcBJ91BcB19 BZJRkJk cRcRJB B J9ZBZBJ9J J"BJcJZBcJcBJZsBZJZBcJBcZJ BcBcJZJc cZRcZJRBsJZ cRJcRZRZ cRJRBZRJZJZsJZ cRJRJ BJZJBc9ZJBJc BZJZJ BcZcJc cBZRJcJZ RcRJc BcJcRcRBcJ J9JBJ BJ1B1JB1ZJ JBJBZ sJZBcJs J ZcJZcJcJc BRJZR 1JBRB J RJ1JRJcRZ J1J1BJ1B1B J1JB1BJ1 ZBZJZJBc cZJBJZJc cBJZJRZ Z1JRJR R1BJB RJRJBcB !B!B1)B J1B1JZ J9JB1 Z1cJc c)1R1 R9R1B1 91B1B BJ1J1B1 1RJ1RBJ9J1RJR RBRJ9B9RBR JBRJRB1JB9B 9!1!B1 1J1J1J 1B!ZJ1RJ9B )J)R)9J) )1)!1! J!1J9J1)J1J1J1J1 BR)J1 JR1R@ !1!1! BJ19B1 1B1J1 1BR1BJBJRJRBR sZRJRZ 1B1B1J1J)19!1 !J!B!J! 9!1J!J 1 )J)J1B1J1 B1B1J1J1B9B1J 1 J1R1RJBRB JRZsRJ cRcRc 1J1J1B )!1!1! !19191 J)J1J1J1JR1R1 BRJsZR 91!919191!9 J1J1J1 )1)1)!)19!19) RcRcRcRc cRcRJ J1J1B 919!)191!919 B9RBR9 1J1R1R1 !)!19@ RcRcRcRcRcRcRc B9J19 J9JR1R1 RcJRJ 19!19! 1!9!9)1 RZRZR 9!9!9!9!9!9! J1J91 kRckc RcRcRcRcRcRc BJZJB919 !9!9!9! RcRcRc JZRJZsZ {sJ{cs RcRcR JBJ19 91R19191 JZsZ{J s{sk@ kZJZJ J919J 1!91R91B! JZJ1J9J1R1R 91919J9R1{ {s{J{ BJ1J1J 1R1J91 1Z1J9 R9R9R kcscscsc JZsZs s{sJ{s kZkJ1 1R9JBJR J1kJZ1kR cscsZJRJ ZRJZRJR RJRJR {c{c{c{ ZkZJk k1k1kJZ Z9ZBR kckcscsc {sJZ{s c{c{c {c{c{c{ Rk1k1k1 R9R9Z1J kZcZkZkJ RJZR{Z c{c{c{ s1kJ9 Z{J{s 1cZkZ kJkcsckZk Z1J1J!R {J{Rs Rs{R{J{s 1kZk1 c{J{Js ZBRZcs 1k{1k sckRJRB1 9JRJZs ksks@ k ckckZkcZk ckckZ c1B9RJRsk{s RZRscRZRBR9 ks{s{s{ 1k1RkZ 9R9RJR {s{s{ 9R9R9 9R9R1 R 9R9RJRZcR ZcZcZ{ BR9RBRZ scRJR9 k1kZJZ scZcZcZ1c 1ZR1RZJs RckcRc csk{ksc cZcZc Z1J1Rc ZRZRcR kZkZcZcZcZcZcZk RZRZR {k{k{k k{k{k{s {k{k{ cZk{s kZckZc k{k{k{s cZcZcZc ckckc RcRcsksc s{s{s{ k{s{s{s ZcZkZ k{ks{ ckckckZk s{s{s c kscksks{s ZcZcZkZcZcZck sk{k{k{ sk{s{@ { k{k{ s {s{s k{k{k 11111111P BBBBBBBB )))))))) !!!!!!!! BBBB91919919 RRRRRRRR 99!99999 BBBBRRRcRRcR RRcRcRRR cRcRcRcR BBBBRcRcRcRc cccccccR cccccccc BBBB{{{{{{{{ kkkkkkkk O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $ViewMapDataset $ViewMapLayout $NavImagemap 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 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 $Readers $TITLE $Index $Formula $FormulaClass $ViewFormat $FormFormula $AppHelpFormula $Comment $V5ACTIONS $ACTIONS Categori_ze _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Folderp 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^^ L>6Uf $TITLE $Index $Formula $FormulaClass $ViewFormat $FormFormula $Comment $ACTIONS [CAPrivlegedUser]System\Cleanup|Cleanup Form$Conflict$REF WebPage Frame WebClient ActiveX L1S2S7S9S10S14S16S17S21S23S24S28S1 FormForm& Docs to delete when making templateY CN=Andrew Wharton/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes### [CAPrivlegedUser]System\All Documents|All. Form$Conflict$REF FormForm& CN=tao/O=taoCN=Lotus Notes Template Development/O=Lotus Notes######################################################## [CAPrivlegedUser]Server Certificate Requests\ Waiting for Approval|CertificateRequests $2CommonNameContactNameOrgEMail$Conflict$REF CertRequest Approved Approved L1S5S7S8S10S11S12S13S14S15S1, $2CommonNameEMail CommonName CommonName ContactName ContactName EMail EMail $2Submitted CommonNameNameContactNameContactOrgOrganizationEMailEMail& CertRequestApproval (Help) cca461_v_CertificateRequests 0S0E Certificate Requests awaiting approvalY CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################################## [CAPrivlegedUser]CA Certificate|CACertificate PickupID$1RequestTypeCommonNameOrgEMail$Conflict$REF CACert L1S2S3S1 PickupID$1 PickupID$1Created RequestTypeTypeCommonNameNameOrgOrganizationEMailEMail& CACert (Help) cca461_v_CACertificate 0S0E Certificate Authority Certificate for PickupY CN=Debbie Branco/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################## 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################################## [CAPrivlegedUser]Server 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 (Help) cca461_v_CertificateRequestsApproved 0S0E Approved Certificate RequestsY CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################### Cert Request ApprovedCertRequestApproved[CAPrivlegedUser]CD RequestTypeApprovedPickupCertificatePickupIDValidEndDateValidBegDateIssCountrySubjCountryIssStateSubjStateIssCitySubjCityIssOrgUnitSubjOrgUnitIssOrganizationSubjOrganizationIssCommonNameSubjCommonNameCommentsPhoneEMailContactName CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################################## Cert Request TranslationCertRequestTranslationDC CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################### Web Submit OutputOutputSubmitCD ValidEndDateValidBegDateIssuerCountryCountryIssuerStateStateIssuerLocalityLocalityIssuerOrgUnitOrgUnitIssuerOrgOrgIssuerCommonNameCommonNameCommentsPhoneEMailContactName CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################################## ServerAppStepsServerAppSteps[CAPrivlegedUser]CD CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############ Application ProfileCAProfile[CAPrivlegedUser]CD CASiteUrlCAKeyFile CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################### Cert Request DeniedCertRequestDenied [CAPrivlegedUser][CAPrivlegedUser]CD CertificateRequestTypeApprovedCountryStateLocalityOrgUnitOrgCommonNameCommentsPhoneEMailContactNameReason CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################################################### Web CA Pickup OutputCAOut[CAPrivlegedUser]CD CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################################################## $WebPageFrameTop[CertAppDesigner]CDH CN=tao/O=taoCN=Lotus Notes Template Development/O=Lotus Notes############################################## Web Cert Request OutputOutputRequestCD CountryStateLocalityOrgUnitOrgCommonNameCommentsPhoneEMailContactName CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############# Submitted Certificate TranslationCertSubmitTranslationDC IssuerDNEMailDNEMailRequestTypeValidEndDateValidBegDateIssuerCountryIssuerStateIssuerLocalityIssuerOrgUnitIssuerOrgIssuerCommonNameCountryStateLocalityOrgUnitOrgCommonNameCertificateCommentsPhoneEMailContactName CN=Andrew Wharton/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#### DlgAlreadyHaveCAKey1CD CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes Web Cert PickupWebCertPickupCD $$ReturnSaveOptionsPickupID CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################# Submitted Certificate ApprovalCertSubmitApproval [CAPrivlegedUser][CAPrivlegedUser]DC CertificateRequestTypeTypeApprovedReasonSendEmailValidEndDateValidBegDateIssuerDNEMailDNEMailIssueCountryCountryIssuerStateStateIssuerLocalityLocalityIssuerOrgUnitOrgUnitIssuerOrgOrgIssuerCommonNameCommonNameFullNameCommentsPhoneEMailContactName CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################### MailCertSubmitAcceptedCD CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################################### Web Cert Server RequestCertRequestServerCD RequestActionRequestTypeCertificateCommentsPhoneEMailContactName CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#### O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ )c d:b $Readers $TITLE $Index $Formula $FormulaClass $ViewFormat $Comment 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 Categori_zeK _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From FolderK View Approved Server Certificate Requests CertificateRequestsApproved View Denied Server Certificate RequestsK< CertificateRequestsDenied Main Menu CASetup 1S4S6S Categori_zeK _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From FolderK View Approved Server Certificate Requests CertificateRequestsApproved View Denied Server Certificate RequestsK< 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 $Readers $TITLE $Index $Formula $FormulaClass $ViewFormat $FormFormula $AppHelpFormula $Comment $V5ACTIONS $ACTIONS Categori_zeK _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From FolderK Main Menu CASetup 1S4S6S 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 @SNwK $Readers $TITLE $Index $Formula $FormulaClass $ViewFormat $FormFormula $AppHelpFormula $Comment $V5ACTIONS $ACTIONS O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ K>w=\ $TITLE $Index $Formula $FormulaClass $ViewFormat $FormFormula $Comment 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 Categori_zeK _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From FolderK View Server Certificate Requests Waiting for Approval CertificateRequests View Denied Server Certificate RequestsK< CertificateRequestsDenied Main Menu CASetup 1S4S6S Categori_zeK _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From FolderK View Server Certificate Requests Waiting for Approval CertificateRequests View Denied Server Certificate RequestsK< 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 $Readers $TITLE $Index $Formula $FormulaClass $ViewFormat $FormFormula $AppHelpFormula $Comment $V5ACTIONS $ACTIONS (Help) cca461_f_DlgConfirmResubmitCertReq 0S0E 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 $NoBackgroundOverride $Info $AppHelpFormula $$ScriptName $Body Approved Certificate Request (Help) cca461_f_CertRequestApproved 0S0E 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_zeK _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From FolderK 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 b3X? PGzQO Untitled Untitled2 ValidFrom ValidTo ValidDays $FormUsers $Info $WindowTitle $AppHelpFormula $$Script_O $$ScriptName $$FormScript $$$FormScript_O $Body $V5ACTIONS $ACTIONS 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^^ ]ilpqL Untitled Untitled2 ValidFrom ValidTo ValidBegDate ValidEndDate $TITLE $Info $$Script_O $$ScriptName $Body (Help) cca461_f_WebClientCertDirectionDefault 0S0E 1Fixedsys &Arial WebClientCertDirectionDefault Request a Client Certificate You have requested a client certificate for your browser. Use this form to indicate the type of browser you are using. You will then be taken to a form where you will enter information that will be used in the creation of your certificate. Please choose your browser type: <br><a href=" /WebClientCertificateRequestNetscape?OpenForm&SpecialAction=RequestAction 1S2S8S16S17S GoToNetscape ">Netscape Navigator or Communicator</a> <br><a href=" /WebClientCertificateRequestMicrosoft?OpenForm&SpecialAction=RequestAction" 1S2S8S16S17S GoToMSIE ">Microsoft Internet Explorer</a> <!-- prevent generation of a submit button Ignore me O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO $Info $WindowTitle $AppHelpFormula $$ScriptName $Body (Help) cca461_f_OutputSubmit 0S0E &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 Untitled Untitled2 ValidFrom ValidTo $Info $AppHelpFormula $$ScriptName $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 Certificate Authority Profile (Help) cca461_f_CAProfile 0S0E 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 ring file is stored here automatically when you create it. If you move the CA key ring file, you must update the path here so the application can find 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 that is sent to users 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 $FormUsers $Info $WindowTitle $AppHelpFormula $$Script_O $$ScriptName $Body Denied Certificate Request (Help) cca461_f_CertRequestDenied 0S0E 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 '/** do some rudimentary version checking **/ Dim Buf As String * 500 If ProcessSecurityCmd("AdminSecurity","Version=4.61",Buf, 500) <> 0 Then '0 means the ver checked out flag% = workspace.DialogBox("DlgWarnUpgradeTo461",True,True,True,False,False,False,"Warning") Exit Sub End If Buf = "" '/** end of version checking **/ 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_zeK _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From FolderK 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 Untitled Untitled2 ValidFrom ValidTo $Readers $FormUsers $Info $WindowTitle $AppHelpFormula $$Script_O $$ScriptName $Body $V5ACTIONS $ACTIONS (Help) cca461_f_CAOut 0S0E &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 Untitled Untitled2 ValidFrom ValidTo $FormUsers $Info $AppHelpFormula $$ScriptName $Body 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. RealDBName 1S2S8S <frameset cols = "200, *" scrolling="no" noresize> <frame src = "/ RealDBName" /WebPages/Frames+-+Index+Frame?OpenDocument" name="IndexFrame"> <frame src = "/" RealDBName" /WebPages/Frames+-+Initial+Content+Frame?OpenDocument" name="ContentsFrame"> </frameset>" 0RR1S2S3S4S5S6S7S8SHTML 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 (Help) cca461_f_OutputRequest 0S0E &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 Return Email: 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 Untitled Untitled2 ValidFrom ValidTo $Info $AppHelpFormula $$Script_O $$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 DNEMail CommonName IssuerCommonName[<SIZE=30 MAXLENGTH=30>] IssuerOrg[<SIZE=30 MAXLENGTH=30>] IssuerOrgUnit Locality IssuerLocality[<SIZE=30 MAXLENGTH=70>] IssuerState Country IssuerCountry IssuerDNEMail 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 Untitled Untitled2 ValidFrom ValidTo $TITLE $Info $$Script_O $$ScriptName $Body Pickup a Certificate (Help) cca461_f_WebCertPickup 0S0E &Arial WebCertPickup Pick Up Signed Certificate When your 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 Signed Certificate [CertAppDesigner] 1S6S7S Hidden fields: SaveOptions /Pickup/" PickupID" ?OpenDocument]" 1S2S8S16S18S19S20S21S$$Return O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO $Info $WindowTitle $AppHelpFormula $$Script_O $$ScriptName $Body Certificate Registration Approval (Help) cca461_f_CertSubmitApproval 0S0E 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 Declare Sub Terminate '++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 '++LotusScript Development Environment:2:2:Terminate:1:10 Sub Terminate Dim ws As New NotesUIWorkspace Dim uidoc As NotesUIDocument Dim doc As NotesDocument Set uidoc = ws.CurrentDocument Set doc = uidoc.Document If doc.Approved(0) = "1" Then Print "Certificate submitted to Administration Process for acceptance into Directory (Public Address Book)" End If End Sub CertIsDel 1S2S CertIsDel 1S2S CertIsDel 1S2S 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 Return E-Mail 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 E-Mail Address DNEMail DNEMail IssuerDNEMail IssuerDNEMail 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 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 '/** do some rudimentary version checking **/ Dim Buf As String * 500 If ProcessSecurityCmd("AdminSecurity","Version=4.61",Buf, 500) <> 0 Then '0 means the ver checked out flag% = workspace.DialogBox("DlgWarnUpgradeTo461",True,True,True,False,False,False,"Warning") Exit Sub End If Buf = "" '/** end of version checking **/ 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 Untitled2 ValidFrom ValidTo ValidDays $Readers $FormUsers $Info $WindowTitle $AppHelpFormula $Script $$Script_O $$ScriptName $$FormScript $$$FormScript_O $Body 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 Request a Server Certificate size = 50 (Help) cca461_f_CertRequestServer 0S0E &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 certificate request 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 1S2S8S16S17S RequestAction O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO $Info $WindowTitle $HTMLBodyTag $AppHelpFormula $$ScriptName $Body Cert Request ApprovalCertRequestApproval[CAPrivlegedUser]CD CertificateValidDaysRequestTypeApprovedReasonPickupIDValidUnitValidPeriodSendEmailCountryStateLocalityOrgUnitOrgCommonNameCommentsPhoneEMailContactName CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################################### \WebPageForIndexFrame[CertAppDesigner]1CD CN=tao/O=taoCN=Lotus Notes Template Development/O=Lotus Notes######################################### MailCertRequestDeniedCD argSubjectFromSendTo CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################################################### DlgConfirmResubmitRegReq1CD CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes ########################################################## Default[CAPrivlegedUser]CD CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################################# WebPage[CertAppDesigner]CD CN=tao/O=taoCN=Lotus Notes Template Development/O=Lotus Notes ########################################################## MailCertSubmitDeniedCD argSubjectFromSendTo CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes## MailCertRequestApprovedCD argSubjectFromSendTo CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes ########################################################## Web CA Certificate Browser PickupCACertBrowser[CAPrivlegedUser]CD CountryStateLocalityOrgUnitOrgCommonName CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####### Submitted Certificate RejectedCertSubmitRejected [CAPrivlegedUser][CAPrivlegedUser]DC CertificateRequestTypeApprovedDNEMailCountryStateLocalityOrgUnitOrgCommonNameCommentsPhoneEMailContactNameReason CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######## DialogSubmitAccept1CD CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes# DlgConfirmCreateSelfRootDlgConfirmCreateSelfRootC EndDate CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#### WebPageHTMLOnly[CertAppDesigner]CD CN=tao/O=taoCN=Lotus Notes Template Development/O=Lotus Notes####################################################### WebPageFrameInitialContent[CertAppDesigner]CD CN=tao/O=taoCN=Lotus Notes Template Development/O=Lotus Notes############################ CertAdminHeaderCUA3 CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################################################ Web URL Certificate PickupCertPickupCP[CAPrivlegedUser]CD $$QueryOpenAgentRequestTypeApprovedPickupCertificateValidEndDateValidBegDateIssCountrySubjCountryIssStateSubjStateIssCitySubjCityIssOrgUnitSubjOrgUnitIssOrganizationSubjOrganizationIssCommonNameSubjCommonName CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####################################### Web CA Certificate PickupCertPickupCA[CAPrivlegedUser]CD $$QueryOpenAgentPickupCertificateCountryStateLocalityOrgUnitOrgCommonName CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################### Web Cert SubmitCertSubmitCD RequestActionRequestTypeCommentsPhoneEMailContactName CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################################################ Create CA KeyringCreateKeyringWithSelfRoot[CAPrivlegedUser]CD ValidDaysCountryStateProvinceLocalityOrganizationalUnitOrganizationCommonNamePasswordKeyringFileNameSaveOptions CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############ Submitted Certificate AcceptedCertSubmitAccepted [CAPrivlegedUser][CAPrivlegedUser]CD CertificateRequestTypeApprovedValidEndDateValidBegDateIssuerDNEMailDNEMailIssueCountryCountryIssuerStateStateIssuerLocalityLocalityIssuerOrgUnitOrgUnitIssuerOrgOrgIssuerCommonNameCommonNameFullNameCommentsPhoneEMailContactName CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#### CN=Andrew Wharton/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################################### 2WebClientCertDirectionCD CN=Andrew Wharton/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################################# ActiveXControlCD CN=tao/O=taoCN=Lotus Notes Template Development/O=Lotus Notes######### System\ActiveXControlView Platform$1RequestTypeCommonNameOrgEMail$Conflict$REF ActiveXControl L1S2S3S1 Platform$1 Platform$1Created RequestTypeTypeCommonNameNameOrgOrganizationEMailEMail& CN=tao/O=taoCN=Lotus Notes Template Development/O=Lotus Notes################################################# Web Client Cert Request OutputClientCertOutputRequestCD DNEMailCountryStateLocalityOrgUnitOrgCommonNameCommentsEMail CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############### Client Cert Request Translation MicrosoftClientCertRequestMicrosoftDC DNEMailSerialRequestTypeCountryStateLocalityOrgUnitOrgCommonNamePKCS7ChallengeCertificatePhoneEMailComments CN=Andrew Wharton/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################### DlgConfirmCreateCAServerKeyRingAltDlgConfirmCreateCAServerKeyRingAltC CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######### Create CA Server Key RingCreateCAServerKeyRing[CAPrivlegedUser]DC CountryStateProvinceLocalityOrganizationalUnitOrganizationCommonNameCACertLabelKeySizePasswordKeyringFileNameSaveOptions CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############# [CAPrivlegedUser]Client Certificate Requests\ Waiting for Approval|ClientCertificateRequests $2CommonNameContactNameOrgEMail$Conflict$REF ClientCertRequest Approved Approved L1S5S7S8S10S11S12S13S14S15S1, $2CommonNameEMail CommonName CommonName ContactName ContactName EMail EMail $2Submitted CommonNameNameContactNameContactOrgOrganizationEMailEMail& ClientCertRequestApproval (Help) cca461_v_ClientCertificateRequests 0S0E Certificate Requests awaiting approvalY CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################ XS 59 Client Cert Request ApprovalClientCertRequestApproval[CAPrivlegedUser]CD CertificateValidDaysRequestTypeSubmittedTypeApprovedReasonPickupIDValidUnitValidPeriodSendEmailFullNameRegisterCertDNEMailCountryStateLocalityOrgUnitOrgCommonNameCommentsPhoneEMail CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########## WebClientCertOutputFormCD CN=tao/O=taoCN=Lotus Notes Template Development/O=Lotus Notes######## ClientCertRequestG3 CN=James Cunningham/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes ########################################################## Certificate Request Approval (Help) cca461_f_CertRequestApproval 0S0E 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 '/** do some rudimentary version checking **/ Dim Buf As String * 500 If ProcessSecurityCmd("AdminSecurity","Version=4.61",Buf, 500) <> 0 Then '0 means the ver checked out flag% = ws.DialogBox("DlgWarnUpgradeTo461",True,True,True,False,False,False,"Warning") Exit Sub End If Buf = "" '/** end of version checking **/ 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 '/** do some rudimentary version checking **/ Dim Buf As String * 500 If ProcessSecurityCmd("AdminSecurity","Version=4.61",Buf, 500) <> 0 Then '0 means the ver checked out flag% = workspace.DialogBox("DlgWarnUpgradeTo461",True,True,True,False,False,False,"Warning") Exit Sub End If Buf = "" '/** end of version checking **/ 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 Untitled Untitled2 ValidFrom ValidTo $FormUsers $Info $WindowTitle $AppHelpFormula $Script $$Script_O $$ScriptName $$FormScript $$$FormScript_O ValidPeriod $Body 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 RealDBName 1S2S8S <font size=2 face="arial">" <br><a href="/" RealDBName" /CertRequestServer?OpenForm&SpecialAction=RequestAction" target="ContentsFrame"> <b>Request Server Certificate</b> </a> <br><br><a href="/" RealDBName" /WebCertPickup?OpenForm" target="ContentsFrame"> <b>Pick Up Server Certificate</b></a>" <br><br><a href="/" RealDBName" /CAPickup/CACert?OpenDocument" target="ContentsFrame"> <b>Accept This Authority In Your Server</b></a>" <br><br><hr width="80%"><a href="/" RealDBName" /WebClientCertDirection?OpenForm" target="ContentsFrame"> <b>Request Client Certificate</b></a> <br><br><a href="/" RealDBName" /WebCertPickup?OpenForm" target="ContentsFrame"> <b>Pick Up Client Certificate</b></a>" <br><br><a href="/" RealDBName" /CertSubmit?OpenForm&SpecialAction=RequestAction" target="ContentsFrame"> <b>Register Client Certificate</b></a>" <br><br><a href="/" RealDBName" /CABPickup/CACert?OpenDocument" target="ContentsFrame"> <b>Accept This Authority In Your Browser</b></a>" </font> 0RR3S4RR5S6S7S8S9S10RR11S12S13S14S15S16RR17S18S19S20S21S22RR23S24S25S26S27S28RR29S30S31S32S33S34RR35S36S37S38S39S40RR41S42S43S44S45S46RR47S48S PassthroughHTML O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ -1D],J $TITLE $FormUsers $NoBackgroundOverride $Info $$Script_O $$ScriptName $Body (Help) cca461_f_MailCertRequestDenied 0S0E 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 $Info $AppHelpFormula $$Script_O $$ScriptName $Body (Help) cca461_f_DlgConfirmResubmitRegReq 0S0E 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 $NoBackgroundOverride $Info $AppHelpFormula $$ScriptName $Body 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^^ Untitled Untitled2 ValidFrom ValidTo ValidDays $$PickupCertificate $PickupCertificate_O $TITLE $FormUsers $Info $WindowTitle $$ScriptName $$FormScript $$$FormScript_O $Body $ACTIONS 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 (Help) cca461_f_MailCertSubmitDenied 0S0E 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 $Info $AppHelpFormula $$ScriptName $Body (Help) cca461_f_MailCertRequestApproved 0S0E 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 $Info $AppHelpFormula $$ScriptName $Body Certificate Authority Trusted Root Certificate (Help) cca461_f_CACertBrowser 0S0E &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= 3S4S10S18S19S20S25S Accept This Authority in Your Browser Categori_zeK _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From FolderK 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 2*/>l Untitled Untitled2 ValidFrom ValidTo ValidDays ValidBegDate ValidEndDate $FormUsers $Info $WindowTitle $AppHelpFormula $$ScriptName $Body $V5ACTIONS $ACTIONS Rejected Certificate Registration (Help) cca461_f_CertSubmitRejected 0S0E 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 '/** do some rudimentary version checking **/ Dim Buf As String * 500 If ProcessSecurityCmd("AdminSecurity","Version=4.61",Buf, 500) <> 0 Then '0 means the ver checked out flag% = workspace.DialogBox("DlgWarnUpgradeTo461",True,True,True,False,False,False,"Warning") Exit Sub End If Buf = "" '/** end of version checking **/ 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 Return E-Mail 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 E-Mail Address DNEMail DNEMail [CertAppDesigner] 1S6S7S Hidden fields: Approved: Approved Request type: RequestType Certificate request: Certificate Categori_zeK _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From FolderK 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 Untitled Untitled2 ValidFrom ValidTo ValidBegDate ValidEndDate $Readers $FormUsers $Info $WindowTitle $AppHelpFormula $$Script_O $$ScriptName $Body $V5ACTIONS $ACTIONS (Help) cca461_f_DialogSubmitAccept 0S0E 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. Certificate Registration Request Submitted O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO $NoBackgroundOverride $Info $AppHelpFormula $$ScriptName $Body Keyring Created (Help) cca461_f_DlgConfirmCreateSelfRoot 0S0E 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 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 $Info $WindowTitle $AppHelpFormula $$ScriptName EndDate $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^^ $TITLE $FormUsers $Info $$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^^ ?|)FAt $TITLE $FormUsers $Info $$Script_O $$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^^ k2^kX $TITLE $Info $$Script_O $$ScriptName $Body Pick Up Signed Certificate (Help) cca461_f_CertPickupCP 0S0E &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, it is recommended that you first install the certificate of the signing Certificate Authority 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. 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_zeK _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From FolderK 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 v-CeE Untitled Untitled2 ValidFrom ValidTo ValidDays $FormUsers $Info $WindowTitle $AppHelpFormula $$Script_O $$ScriptName $$PickupCertificate $PickupCertificate_O $Body $V5ACTIONS $ACTIONS Certificate Authority Trusted Root Certificate (Help) cca461_f_CertPickupCA 0S0E &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. 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 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 Untitled Untitled2 ValidFrom ValidTo ValidDays ValidBegDate ValidEndDate $FormUsers $Info $WindowTitle $AppHelpFormula $$ScriptName $Body $V5ACTIONS $ACTIONS Register a Browser Certificate (Help) cca461_f_CertSubmit 0S0E &Arial CertSubmit Register a Client 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" 1S2S8S16S17S RequestAction O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO i!6)4-i.; $Info $WindowTitle $AppHelpFormula $$ScriptName $Body Create Certificate Authority Key Ring (Help) cca461_f_CreateKeyringWithSelfRoot 0S0E '++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 Password Password is Required{ 3S4S 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 field is required 3S4S6S11SCommonNameDescriptive name for the CA (e.g. Acme CA) Organization Organization Organization field is required{ 4S6S11SOrganizationName 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 '/** do some rudimentary version checking **/ If ProcessSecurityCmd("AdminSecurity","Version=4.61",Buf, 500) <> 0 Then '0 means the ver checked out flag% = wsp.DialogBox("DlgWarnUpgradeTo461",True,True,True,False,False,False,"Warning") Exit Sub End If Buf = "" '/** end of version checking **/ ' 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` 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 Us5cK $FormUsers $Info $WindowTitle $AppHelpFormula $Script $$Script_O $$ScriptName $$FormScript $$$FormScript_O ValidDays $Body Accepted Certificate Registration (Help) cca461_f_CertSubmitAccepted 0S0E 5Courier New CertSubmitAccepted CertIsDel 1S2S TempIsRoot HideSiteCert CertIsDel 3S4S6S7S13S14S17S18S19S Accepted Certificate Registration The certificate reqistration request was approved and submitted to the Administration Process. Contact Information Full Name HideSiteCert CertIsDel 0S6S7S10S11S12S ContactName ContactName Return E-Mail 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 E-Mail Address DNEMail DNEMail IssuerDNEMail IssuerDNEMail Validity Dates Start ValidBegDate ValidBegDate ValidEndDate ValidEndDate [CertAppDesigner] 1S6S7S Hidden fields: Approved: Approved Request type: RequestType Certificate: Certificate Categori_zeK _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From FolderK 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 Untitled Untitled2 ValidFrom ValidTo ValidDays $Readers $FormUsers $Info $WindowTitle $AppHelpFormula $$Script_O $$ScriptName $Body $V5ACTIONS $ACTIONS &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.1 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 and clients 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 and manage the CA certificate and key ring file, which holds your CA certificate. -Create the server certificate and key ring file for the CA server. -Sign server certificates when server administrators request them so clients and servers can communicate. -Sign client certificates when users request them to use client authentication. -Add client certificates issued by external CAs to the Public Address Book to set up client authentication on a server. 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 or client certificates. -Pick up server and client certificates. -Install the CA's certificate as a trusted root. -Submit a client certificate issued by an external CA 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 O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $Info $Body onLoad="TryToParseBrowserType()" &Arial 1Fixedsys WebClientCertDirection <!-- prevent generation of a submit button Ignore me <script language="javascript"> function TryToParseBrowserType() { if (navigator.appName == "Netscape") { open(" /WebClientCertificateRequestNetscape?OpenForm&SpecialAction=RequestAction 1S2S8S16S17S scriptNetscape ", "ContentsFrame"); else if(navigator.appName == "Microsoft Internet Explorer") { open(" /WebClientCertificateRequestMicrosoft?OpenForm&SpecialAction=RequestAction" 1S2S8S16S17S scriptMSIE ", "ContentsFrame"); else { open(" /WebClientCertDirectionDefault?OpenForm 1S2S8S16S17S scriptDefault ", "ContentsFrame"); </script> 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 $$Script_O $$ScriptName $Body ActiveXControl Platform CADLL 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 Categori_zeS _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Foldert 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^^ 85of. $TITLE $Index $Formula $FormulaClass $ViewFormat $Comment $ACTIONS (Help) cca461_f_ClientCertOutputRequest 0S0E &Arial ClientCertOutputRequest 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: Email address: EMail EMail[<SIZE=30 MAXLENGTH=70>] 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 E-Mail DNEMail DNEMail O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Untitled Untitled2 ValidFrom ValidTo $Info $AppHelpFormula $$Script_O $$ScriptName $Body ClientCertRequestMicrosoft Supplied by user: Comments EMail EMail[<SIZE=30 MAXLENGTH=70>] Phone The certificate request itself: Certificate Challenge PKCS7 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 DNEMail Control info: RequestType Serial O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Untitled Untitled2 ValidFrom ValidTo ValidBegDate ValidEndDate $TITLE $Info $$Script_O $$ScriptName $Body Trusted Root Certificate Merge Confirmation (Help) cca461_f_DlgConfirmCreateCAServerKeyRingAlt 0S0E DlgConfirmCreateCAServerKeyRingAlt The CA server key ring has been created. Server key ring file name: KeyRingFileName KeyringFileName Certificate Subject: StartDateField StartDateField EndDateField EndDateField Certificate Issuer: Certificate Information: SubListField SubListField IssListField IssListField Next Step: You can now set up the CA server to allow SSL connections by configuring the "Internet Port & Security Settings" section of the Server record in the Public Address Book. For additional help, see the "Setting Up Security" section of the "Getting Started with the Domino Server" book. Note: Use the Server Certificate Admin application (certsrv.nsf) to view and manage the server key ring. O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO $Info $WindowTitle $AppHelpFormula $$ScriptName $Body Create Key Ring (Help) cca461_f_CreateCAServerKeyRing 0S0E CreateCAServerKeyRing SaveOptions Create CA Server Key Ring Use this form to create the server key ring for the CA server. When you submit the form, Domino will carry out all the internal steps of creating the server key ring, creating the server certificate request, signing it with the CA certificate, then installing the CA certificate and the signed server certificate into the server key ring. Note: Once the server key ring has been created, you should use the Server Certificate Admin application to view and manage the server key ring contents. Server Key Ring Information Key Ring File Name: CertAdminAppProfile KeyFileName CertAdminAppProfile KeyFileName keyfile.kyr 8S9S11S18S KeyRingFileName Key ring file name is required{ 3S4S KeyringFileNameName for the file that stores the server keys and certificates. Include path if file is not in the data directory. Key Ring Password: Password Password is Required{ 3S4S PasswordPassword for the key ring file (at least 6 alphanumeric characters recommended) Specify the name and password for the server key ring file you are creating. Key Size Key Size: KeySizeThe size of the public/private key 5121024 Key Size is the size of the public/private key pair in bits. The larger the key size, the greater the encryption strength. Note: With International Editions of the Domino server, the 1024 bit key size can only be used if you qualify for and have purchased a Verisign Global Server ID CA Certificate Label CACertLabel A label for the CA's certificate is required 3S4S CACertLabel This label identifies the CA Trusted Root certificate that is automatically installed in the server key ring you are creating. Server Distinguished Name Common Name: CAProfile CASiteURL CommonName Common Name is required 3S4S CommonNameFully qualified host name that appears in the Server document in the Public Address Book (e.g. www.lotus.com) e.g., www.myserver.com 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 server administrator 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) The Distinguished Name is the information that uniquely identifies your site. Note: The Common Name should be the URL of your CA Web site. Some browsers check the Common Name and the site URL, and do not allow a connection if they don't match. '++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 wsp As New notesuiworkspace Dim uidoc As notesuidocument Set uidoc = wsp.CurrentDocument Dim doc As notesdocument Set doc = uidoc.document Dim Buf As String * 500 Dim CmdArgs As String Dim item As NotesItem '/** do some rudimentary version checking **/ If ProcessSecurityCmd("AdminSecurity","Version=4.61",Buf, 500) <> 0 Then '0 means the ver checked out flag% = wsp.DialogBox("DlgWarnUpgradeTo461",True,True,True,False,False,False,"Warning") Exit Sub End If Buf = "" '/** end of version checking **/ Dim db As NotesDatabase Set db = doc.ParentDatabase Dim prof As NotesDocument Set prof = db.GetProfileDocument("CAProfile") ProfCAKeyFileName$ = prof.CAKeyFile(0) '************************************************************ 'step one: create the server key ring and certificate request '************************************************************ If ProfCAKeyFileName$ = "" Then Messagebox GetString(err_NoCAKeyFileNameInProfileDocument) Exit Sub End If 'make 'em ServerCertReqFn$ = FixFileName( "~certreq.tmp" ) CACertFn$ = FixFileName("~cacert.tmp") ServerCertFn$ = FixFileName("~srvcert.tmp") 'nuke 'em Call NukeIt(ServerCertReqFn$) Call NukeIt(CACertFn$) Call NukeIt(ServerCertFn$) Call uidoc.Save Set doc = uidoc.Document KeyRingFileName$ = FixFileName( doc.KeyRingFileName(0) ) Call uidoc.FieldSetText( "KeyRingFileName", KeyRingFileName$ ) Password$ = doc.Password(0) CommonName$ = doc.CommonName(0) KeySize$ = doc.KeySize(0) OrganizationalUnit$ = doc.OrganizationalUnit(0) Organization$ = doc.Organization(0) State$ = doc.StateProvince(0) Locality$ = doc.Locality(0) Country$ = doc.Country(0) CACertLabel$ = doc.CACertLabel(0) 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=" & KeyRingFileName$ & ";" If Password$ > "" Then CmdArgs = CmdArgs & "Password=" & Password$ & ";" CmdArgs = CmdArgs & "KeySize=" & KeySize$ & ";" CmdArgs = CmdArgs & "UsePKCS=1;" CmdArgs = CmdArgs & "KeyName=KeyPair;" CmdArgs = CmdArgs & "CertReqFile=" & ServerCertReqFn$ & ";" rc% = ProcessSecurityCmd("CreateKeyFile",CmdArgs,Buf,500) TrimBuf$ = Left$(Buf,Instr(Buf,Chr$(0))-1) ' strip nulls If rc% <> 0 Then Messagebox "ProcessSecurityCmd.CreateKeyFile: " & TrimBuf$,48,GetString(err_GeneralDLLError) Exit Sub End If '*************************************************** 'step two: CA signs the server's certificate request '*************************************************** CAKeyFile$ = prof.CAKeyFile(0) If Isempty(CAKeyFile$) Then CAKeyFile$ = Inputbox(GetString(ids_CAKeyFilePrompt), GetString(ids_CAKeyFileTitle)) CAPassword$ = Inputbox(GetString1(ids_CAPasswordPrompt, CAKeyFile$), GetString(ids_PasswordTitle)) ServerCertificateRequest$ = GetStringFromCertFile(ServerCertReqFn$) ValidDays$ = "3650" 'ten non-leap years oughta do it Dim certBuf As String * 2048 ' maxCertBufLen% Dim msgBuf As String * 1024 ' maxMsgBufLen% cmdArgs$ = "KeyFile=" & CAkeyFile$ & ";Password=" & CAPassword$ & ";ValidDays=" & ValidDays$ & ";" ret = SignCertificate(cmdArgs$, ServerCertificateRequest$, certBuf, maxCertBufLen%, msgBuf, maxMsgBufLen%) TrimMsgBuf$ = Left$(msgbuf,Instr(msgbuf,Chr$(0))-1) If (ret) Then ' clean up some stuff NukeIt(ServerCertReqFn$) NukeIt(KeyRingFileName$) ' and get out Messagebox "SignCertificate: " & TrimMsgBuf$, 48, GetString( sid_error ) Exit Sub End If SignedServerCert$ = Left$(certbuf, Instr(certbuf, Chr$(0))-1) '************************************************************************** 'step three: CA's certificate is read into server's keyfile as Trusted Root '************************************************************************** CACertificate$ = GetCertFromCACertDoc 'write CACertificate to a file filenum% = Freefile() Open CACertFn$ For Output As filenum% Print #filenum%, CACertificate$ Close filenum% CmdArgs = "" 'null params Buf = "" TrimBuf$ = "" CmdArgs = "KeyFile=" & KeyRingFileName$ & ";" CmdArgs = CmdArgs & "EntryLabel=" & CACertLabel$ & ";" CmdArgs = CmdArgs & "CertReqFile=" & CACertFn$ & ";" CmdArgs = CmdArgs & "Password=" & Password$ & ";" CmdArgs = CmdArgs & "UsePKCS;" rc% = ProcessSecurityCmd("ReceiveRootCert",CmdArgs,Buf,500) TrimBuf$ = Left$(Buf,Instr(Buf,Chr$(0))-1) If rc% <> 0 Then Messagebox "ProcessSecurityCmd.ReceiveRootCert: " & TrimBuf$,48,GetString(err_GeneralDLLError) Exit Sub End If '**************************************************** 'step four: signed cert is read into server's keyfile '**************************************************** CmdArgs = "" 'null params again Buf = "" TrimBuf$ = "" 'write signed certificate to a file vSignedServerCert = BreakItUp(SignedServerCert$) Call WriteToFile(vSignedServerCert, ServerCertFn$) CmdArgs = "KeyFile=" & KeyRingFileName$ & ";" CmdArgs = CmdArgs & "Password=" & Password$ & ";" CmdArgs = CmdArgs & "CertReqFile=" & ServerCertFn$ & ";" rc% = ProcessSecurityCmd("ReceiveCert",CmdArgs,Buf,500) TrimBuf$ = Left$(Buf,Instr(Buf,Chr$(0))-1) If rc% <> 0 Then Messagebox "ProcessSecurityCmd.ReceiveCert: " & TrimBuf$,48,GetString(err_GeneralDLLError) Exit Sub End If '*************************************** 'step five: if we get this far, its done '*************************************** flag% = wsp.DialogBox("DlgConfirmCreateCAServerKeyRing",True,True,True,False,False,False,GetString(ids_CreateServerKeyRingSuccess)) '************** 'clean up stuff '************** 'nuke 'em again Call NukeIt(ServerCertReqFn$) Call NukeIt(CACertFn$) Call NukeIt(ServerCertFn$) Call uidoc.Close 'over and out End Sub ^P )8 ^` )8 )x ^ )x ^P # )x ^` # )x J )x ^ )x ^P # )x ^` # New Button Need a newer version of Notes to execute this button. 0S0E Create Server Key Ring O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO T#1/# $FormUsers $Info $WindowTitle $AppHelpFormula $$Script_O $$ScriptName $Body Categori_zeK _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From FolderK View Approved Client Certificate Requests ClientCertificateRequestsApproved View Denied Client Certificate RequestsKB ClientCertificateRequestsDenied Main Menu CASetup 1S4S6S Categori_zeK _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From FolderK View Approved Client Certificate Requests ClientCertificateRequestsApproved View Denied Client Certificate RequestsKB ClientCertificateRequestsDenied Main Menu CASetup 1S4S6S O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO $Readers $TITLE $Index $Formula $FormulaClass $ViewFormat $FormFormula $AppHelpFormula $Comment $V5ACTIONS $ACTIONS [CAPrivlegedUser]Client Certificate Requests\Approved for Pickup|ClientCertificateRequestsApproved PickupID$3CommonNameContactNameOrgValidEndDate$Conflict$REF ClientCertRequest Approved L1S5S7S8S9S10S PickupID$3 PickupID PickupID CommonName CommonName ContactName ContactName ValidEndDate ValidEndDate PickupIDPickup ID$3Created CommonNameNameContactNameContactOrgOrganizationValidEndDateExpires& ClientCertRequestApproved (Help) cca461_v_ClientCertificateRequestsApproved 0S0E Approved Certificate RequestsY CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes ########################################################## [CAPrivlegedUser]Client Certificate Requests\Denied|ClientCertificateRequestsDenied $1CommonNameContactNameOrgEMail$Conflict$REF ClientCertRequest Approved L1S5S7S8S9S10S $1CommonNameContactName CommonName CommonName ContactName ContactName EMail EMail $1Submitted CommonNameNameContactNameContactOrgOrganizationEMailEMail& ClientCertRequestDenied (Help) cca461_v_ClientCertificateRequestsDenied 0S0E Denied Certificate RequestsY CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes ########################################################## Client Cert Request ApprovedClientCertRequestApproved[CAPrivlegedUser]CD SubmittedRequestTypeApprovedPickupCertificatePickupIDValidEndDateValidBegDateIssDNEMailSubjDNEMailIssCountrySubjCountryIssStateSubjStateIssCitySubjCityIssOrgUnitSubjOrgUnitIssOrganizationSubjOrganizationIssCommonNameSubjCommonNameCommentsPhoneEMail CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################################################### -_err Web Client Certificate Request NetscapeWebClientCertificateRequestNetscapeCD RequestActionKeyAndChallengeChallengeCommentsPhoneEMailDNEMailCountryStateLocalityOrgUnitOrgCommonName CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######## Client Cert Request Translation NetscapeClientCertRequestNetscapeDC DNEMailSerialRequestTypeKeyAndChallengeCountryStateLocalityOrgUnitOrgCommonNameChallengeCertificatePhoneEMailComments CN=Andrew Wharton/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############# XqsG{ DlgConfirmCreateCAServerKeyRingDlgConfirmCreateCAServerKeyRingC CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############### Web URL Client Certificate Pickup MSCertPickupMS[CAPrivlegedUser]CD RequestTypeApprovedValidEndDateValidBegDateIssDNEMailSubjDNEMailIssCountrySubjCountryIssStateSubjStateIssCitySubjCityIssOrgUnitSubjOrgUnitIssOrganizationSubjOrganizationIssCommonNameSubjCommonNamePKCS7dllURL CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########## Web URL Client Certificate Pickup NSCertPickupNS[CAPrivlegedUser]CD RequestTypeApprovedValidEndDateValidBegDateIssDNEMailSubjDNEMailIssCountrySubjCountryIssStateSubjStateIssCitySubjCityIssOrgUnitSubjOrgUnitIssOrganizationSubjOrganizationIssCommonNameSubjCommonNameNSPickupURL CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################### MailClientCertRequestApprovedRegisteredCD argSubjectFromSendTo CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################################### MailClientCertRequestApprovedCD argSubjectFromSendTo CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################################################### Web Client Certificate Request MicrosoftWebClientCertificateRequestMicrosoftCD RequestActionSubmitSerialCertificatedllURLChallenge_1CommentsPhoneEMailDNEMailCountryStateLocalityOrgUnitOrgCommonName CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################## Certificate InformationCertificateInformation [CAPrivlegedUser][CAPrivlegedUser]C CertEndDateCertStartDateIssCountrySubjCountryIssStateSubjStateIssCitySubjCityIssOrgUnitSubjOrgUnitIssOrganizationSubjOrganizationIssCommonNameSubjCommonNameCertKeySizeEntryLabelCompKeyFileNameHideSiteCertCatagoriesTempKeyFileNameTempIsRoot CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################# WebClientCertDirectionDefaultCD CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################################### Notes CA Certificate PickupCACert[CAPrivlegedUser]CD RequestTypePickupIdPickupCertificateCountryStateLocalityOrgUnitOrgCommonName CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################################################## Client Cert Request DeniedClientCertRequestDenied [CAPrivlegedUser][CAPrivlegedUser]CD CertificateRequestTypeApprovedDNEMailCountryStateLocalityOrgUnitOrgCommonNameCommentsPhoneEMailReason CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################################ DlgWarnUpgradeTo461C CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes## 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 NotesCN=Andrew Wharton/O=IrisCN=tao/O=taoCN=Andrew Wharton/O=IrisCN=tao/O=taoCN=Andrew Wharton/O=IrisCN=tao/O=taoCN=Andrew Wharton/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Andrew Wharton/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Andrew Wharton/O=IrisCN=tao/O=taoCN=Andrew Wharton/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCertLibs34Q1 MkX"V[/m WebPageFrameTopFrames - Top-level Definition CN=Michael Decoteau/O=IrisCN=Scott Davidson/O=IrisCN=Andrew Wharton/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 ################################# WebPageFrameInitialContentFrames - Initial Content Frame CN=Scott Davidson/O=Iris ############################################ FramePickupCert Anonymous xenroll.dll ActiveXControlW32INTEL CN=Andrew Wharton/O=IrisCN=tao/O=tao ####################################### xenroll.dll ActiveXControlW32ALPHA CN=tao/O=tao############################# ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## Categori_zeK _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From FolderK View Client Certificate Requests Waiting for Approval ClientCertificateRequests View Denied Client Certificate RequestsKB ClientCertificateRequestsDenied Main Menu CASetup 1S4S6S Categori_zeK _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From FolderK View Client Certificate Requests Waiting for Approval ClientCertificateRequests View Denied Client Certificate RequestsKB ClientCertificateRequestsDenied Main Menu CASetup 1S4S6S O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO y^=%>S $Readers $TITLE $Index $Formula $FormulaClass $ViewFormat $FormFormula $AppHelpFormula $Comment $V5ACTIONS $ACTIONS Categori_zeK _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From FolderK View Client Certificate Requests Waiting for Approval ClientCertificateRequests View Approved Client Certificate Requests ClientCertificateRequestsApproved Main Menu CASetup 1S4S6S Categori_zeK _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From FolderK View Client Certificate Requests Waiting for Approval ClientCertificateRequests View Approved Client Certificate Requests ClientCertificateRequestsApproved Main Menu CASetup 1S4S6S O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO $Readers $TITLE $Index $Formula $FormulaClass $ViewFormat $FormFormula $AppHelpFormula $Comment $V5ACTIONS $ACTIONS Certificate Request Approval (Help) cca461_f_ClientCertRequestApproval 0S0E 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 ClientCertRequestApproval'++LotusScript Development Environment:2:5:(Options):0:74 Use "CertLib" '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Terminate '++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 '++LotusScript Development Environment:2:2:Terminate:1:10 Sub Terminate Dim ws As New NotesUIWorkspace Dim uidoc As NotesUIDocument Dim doc As NotesDocument Set uidoc = ws.CurrentDocument Set doc = uidoc.Document If doc.RegisterCert(0) = "1" And doc.Approved(0) = "1" Then Print "Certificate submitted to Administration Process for acceptance into Directory (Public Address Book)" End If End Sub RegisterCert Approved Approved 4S5S6S7S8S9S10S11S12S13S16S BoxTitle Certificate Accepted 0R1S2S admin4.nsf 0R4S Client Certificate Request Approval Use this form to review a client certificate request and approve or deny it. Contact Information Quick Help Return E-Mail 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 E-Mail Address DNEMail DNEMail This is the Distinguished Name information provided in the certificate request. Certificate Registration RegisterCert Register certificate in the Public Address Book | 1 You can choose to register this client certificate in the Public Address Book after signing it. RegisterCert 1S2S User Name CommonName FullName RegisterCert 1S2S RegisterCert 1S2S Note: 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. RegisterCert 1S2S 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 '/** do some rudimentary version checking **/ Dim Buf As String * 500 If ProcessSecurityCmd("AdminSecurity","Version=4.61",Buf, 500) <> 0 Then '0 means the ver checked out flag% = ws.DialogBox("DlgWarnUpgradeTo461",True,True,True,False,False,False,"Warning") Exit Sub End If Buf = "" '/** end of version checking **/ If doc.Approved(0) = "1" Then Messagebox {You have already signed this certificate. The next step is to choose "Register Certificate"} Exit Sub End If ' 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 = ApproveClientCertificateRequest(doc, FixFileName(CAKeyFile$), Password$) If Not ok Then Messagebox GetString(err_ApprovalFailed) End If Call uidoc.Refresh Call uidoc.Save Call uidoc.Close End Sub New Button Need a newer version of Notes to execute this button. 0S0E Approve Approved 1S2S 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 '/** do some rudimentary version checking **/ Dim Buf As String * 500 If ProcessSecurityCmd("AdminSecurity","Version=4.61",Buf, 500) <> 0 Then '0 means the ver checked out flag% = workspace.DialogBox("DlgWarnUpgradeTo461",True,True,True,False,False,False,"Warning") Exit Sub End If Buf = "" '/** end of version checking **/ 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 Type (for adminp): CertSubmitApproval Submitted: Submitted 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 +Z^\w Untitled Untitled2 ValidFrom ValidTo $FormUsers $Info $WindowTitle $AppHelpFormula $Script $$Script_O $$ScriptName $$FormScript $$$FormScript_O $$FormAction2 ValidPeriod $Body Approved Certificate Request (Help) cca461_f_ClientCertRequestApproved 0S0E 5Courier New ClientCertRequestApproved'++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 Client Certificate Request The certificate below has been approved and signed. The certificate information is provided below for reference. Contact Information Return E-Mail 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 Email Address SubjDNEMail IssDNEMail 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 Submitted: Submitted Categori_zeK _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From FolderK 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 Untitled Untitled2 ValidFrom ValidTo ValidDays $FormUsers $Info $WindowTitle $AppHelpFormula $$Script_O $$ScriptName $$FormScript $$$FormScript_O $Body $V5ACTIONS $ACTIONS WebClientCertOutputForm Certificate 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 Client Certificate Requests\ Waiting for Approval HotspotRectangle1 CASetup 1S4S6S HotspotRectangle2) ServerCertRequest 1S4S HotspotRectangle3 ClientCertRequest 1S4S HotspotRectangle4 ClientCertRegister 1S4S HotspotRectangle17 ViewKeyring 1S4S GraphicButton6 6-6-, nefnZnZneSe \L\]\ ~rgrBe@P@H@H @P@<@<@<@<@H C@CBCBLBCBL\ geBe@P C@BC@C\C\C\C C@C@CBCBL5\L\ C@CBCBCBC\L\5L\ C@C@CBCB g~r~r ~r~g~g C@C@C@CB B]CBC5 BeBeBrg~g~g~ C@C@LC LC\5L\ @yBeB~g H@P@P ]BCBC@C] L]L]L] PKP<@P<@<@ @<@<@<@e@yBg~g g]gCB] !/!<!< erB~g !<"<@P@BrBg~ dXRXl H<!<! @<@<@<@<@e@rB~ e P@P@<@<@P @e@e@e@eB@ LCBC5 L C]k L]\]\ @L\]\ @CB]\i] k]L\C@ ]\5C5+@5CB]\g] ]\]BC@5@CB ]\]BC@C@] ]\]BC @rBr~B ~ g~g~g~B @y@r@y zqeryry ~r~r~ rer@yBqz ~gr~e@ gergr~ @e@ez e@eP@e@ @ <@Pe@rz rgrgeBe@e< ege@e@<@<@< gB@e@P (ge@< /!@/" !@!@! _ \_\_\_ i rifrfg ~rge@e gr@P@eBqgr ~re@P @yB~g ~re@e@ k_k_k k_k_k _ \LT43232T kT_\_ r\43* 5BL\~ ]LBCL CB@5\i \B5+@B] LC]\k ]+@+5\i }|zpoxo \@5@5\ opndo vwmvomt i]\]k fpnpopdoxmdm TLTL4LT n[opxodoxmxcmdv 5TLT\ xdodmwmN [p[fJ \_TLTL Tk )_ [\TL43!3 _\_\T T+T4T3 \ LTL T!T+! \BA\T[r 34343 4 !343*2*2* @BT\iq\[\r \]@+* TLT!4 4343434 3 43!42!3!3 B\fr\[\fi~ 434T3434343434 *3!3!"4@\friZ\ i\]BC@5 434243 4\[ri _\_LTLT4T3 3*3*4 [_[\_[_[\TLTL4T4T5\ ig\gr [\[_[_\_[_ [ _[\[\T\T\ ri\Zr \B@"* _[_[_ [\T@K [\[_[ f\TBK434!@KBq r\Sgr }[ZBK@SK@S fSrq|r@<! |rP@! Z|}|q }|f|}|qfeq|zB</ zreq|zeP@ zqS@</ zfKP@/ }qSeSPSH |}n|qn| |nSnz xqSeSq qe@Pr| |}|zxzqeq|z|e@KB z|nz|xyqeq qe@eB |r@K\ pqryzxzqeq znrq|z f |f}[|} [Sp[ToTp |n@eSez }Kp}S[p 2o>}p}K[} nPe@eqz K|KZf[p}[ }KSpSp>f >S>K[ |}SpqZz q@eP@eq ZpST}f |[Tp[K>SH>2PS SHSPZ nSe@eBr fTfKS>Z>H 2PSP2SHKf 4SKSq| r[fr} 2H>H>H>S2HK> !H3/!HKn |qeBeBgq gZSZSZ}i 3KSZ} }fTKS3H3/! S [ri 2 H2H23KSTq KH2H2H2H2>2H3 ~B@C@"@\ /!<@q >@HK2K2K2K232 fZS@2 =]K\i\S= !<@Sr 3@KBz qr[\J |K43K3K3KB 1~ri~ fifiY BK4K4K43Kf i[\r~ H43434K@K@Sgr K3K34f ~rZT[q iSY[J '\KBS SBrgr g\Bg\B T@K4Kf BeB@e ~gC@Bg f[T[pq[ ~ig\B }S43@f rfZ[q}f q[T[pr r[Zfqr[ f\[ri rfTZirfqi if[\r~f @B@C@C* +"C"@* g rq| C+@+@* \]\C5@ @e@n| @+C+5 ig\eBeK@P HKP@n +@+@C ~gBSe@ HKPSPe| g B@SPKPKHK KPSez +@+@+C@ ~gB@P rgBeP@PKPK PKPep C5+@+@+ rCBrg~ |rg@PKPK C+@+5@ |BeSPKPKP PHPSe @+@*@+ |qe@PKPK C5@5+@+@+@* @r@e@eB rzqeS <@e@g HPOHO< @+@5@+@5 e@e@<@ e@PKe@en HO<HO y@e<@<@P C@+@+@+5 \+@+@+ r@e@e@P@<H@<HKen \@+@* e@H<@<K HOHOP \@+*@* HKeqxznePHOP P@ez| e@<@H<@ POHOP e@e@e@<@ HKPeyzne e@e@<@<H<@ @e@e<H@ rgy@e@e@<@<@ |gr@e POPOPO @P<@<@ xdedx mxedx eyxyde xdedx mxded OeOPO eyxyx O<eOPey nePeP yeP<e<O zBe@e cyz|z {ZB{RR{R1{R sssskcsc scRsZcsJ1sJ!sBJs)cs)Js)Bs!Zs kZ{kRckJ9kB{kB!kB k1sk11k)ck!ck ccsccccZRcRscRkcBscBcc1)c!Bc JZZZZR ZJ{Z11Z)JZ RJJRBBRB1R9!R1!R1 JZkJRkJ99J1)J) BZ{BZcBR{BJZBBJB1BB119Z 9Rk1Jk19R19J1)1)Z !1J!)B *.BMP GIF Imag *.TIF *.TIF ~~~~~~~~ *.TIF kkkkkkkk *.TIF *.TIF *.TIF ZskcZ JcZRJ ZcRk{) RckRZ 19JZ1 91J1Js) 1Z1J1 1 JZ1 RBRBR 9J9J9B9B1J1R1R1R 9)!)!)19BJ 9J9RBJ9J9JB9B9JB9J 1R1R1R1R1R1R kZJ1) )J19J J9JBJ9 9BR9J9 9J1J1R k{ks{ks J9JB9RBJ9JB J Zk{k{k BR9BJ9BJ9BJ9R9BJ 1BJRcks )1J9J9J9 9JB9BJB9RB9R k{ksk 91J9B JBJBR9BJ 19JRc k{kZJ1) 91JkZ 1 !1)J1J9J9 {kJB9 1J1J1B BJ1)! 1Z1J1 BJRks{ R1R1R Rk{k1 )1)J)J)J 1R1R1R1J1Z1 1)1)1 1ZJ{k )1)J) 9J9R9R s1B1B{ 1Zk{k 9R1R1R !9!9!9!)!) !9!)!)! )1)1)1) 1R1R1R1R1J1B1 !9!1!)! !1!1! J R1R1R1R1R 1 B19!9!19! 1J1J1J1J s1ZBZ 1)1)1) R 1JR1R1R1R !9!91!1 1!1!1 1R1R1R1R9R1R1R 91!91 Zk{skc 1!1)1!1)!1 RBR9R1R1R1R9R !191!1 !1!1!1 1!1!) R ZR1Z9R9R9 1!)!) 9!9!1! RJ1R1ZJR1R !19!9!9 9!1!1 1!1!1 Z1RJ9R9 !1!1!1!1!1 1!1!1 1!)!) 1J1J91 9!9!19 !1!1! !1)B1B1!) 1!1!9 ZJRJ91! 9!9!1 )!)1) !)1!1 9)!9! JZckckRB19@ 9)JBR 9)!9!9)! !9!9!9!1!19 !1!19JRk {cRJ9 9 !9!9!9!19 ) !)9)!)9!1 !9!9!91 !9JRks 9)1BJ 9)!9)9! 1919BJ1B1B 1!)!91! 1919R9R 91JRcs )9)J) !191RJ9R 919BRk {cRJ)1 9!191 RJBJR )!)!) ck{scJR 9!9!9!9 919J19 J1RJRJ ! )!9!)!9!9 19R9R1J1 1)!1! 919191 191J1 9!)!9!9!9!9 19RJR9RJRBJR 919191 R9RJRJ cRcRc 9!9!9!9!9!9! 91919 cRcRc 9!9!9!9! J919191 191919 91R9RJ R9RJR J19191 91919191 91R)JBJRJRJc 9!9!9! 919191!91!19 9)BJBJB 9!9!9!9! 1 919191919 RJBJBJ RJRJRJ@ 19!1!1!919! 9191!1! )1)R)JBJ 9)!9!9!9! 1!191!9!9191 !9!9! !1!1)!) !19!9 )1B)BJB R1B1B91 9JBJB !1!1!9! J1BJBJBJRJ 9!)!9)9! 1RBRJRZ cRcRcR )1JBJBJB 9)!)9!)!9J19R cRcRcRcRcRc )!1!9 R1B1R1ZB1JRJ cRcRcR c ZRcZRcRcR )1!1)1)!1 1!9!9 )1JBJB BR9R1R1 Z1R1BJRJ ZcRcR BJ1JB 9!9!9!9 J B1R1Z1B1Z ZRcRsRcRcR 9R19BRcZ R1R1R1RB ZRcRZ ZcZcR cZRcR ZcZRcRcR JRJRJ ZRZRZRsRcRsRcZ RcRZR RJRBRB ZRZRZRcR scscscs RZRZRBRBRJ ZRZRZcRZ R1csRc JRBRJRJ ZRZRZ ZRcRZR BRJBRBRJRJRZRZRZR RZRcRcRZ !1!)1) B19c1 ZRZRZR ZRZRZRcR J)1)9!9! BR9BRBRJ ZRZRZRcsc BRcRBR) R JRBRBRBR9 BRJRJ JRJZRZR JRBR9R9R JBJBRBRJRJ BRBJBJ9BRBJBRB JBRJRBJ 9R9R9R9R 9BR9R9R9 RBRBRB J BJBRZcs R9JB9R9R9R9RBJBJBRJ cRJRc 9BR9B9B9 J9BJ9BJ 1ZBRc Rk1R9 J)c{sJk 9J9R1 J9RB9R9JB9RBJBJB1Z1JZ B1)BJR 9B1RJ9B 1ZBRcs{s{ 9J9JB 9JB9B9 1J1JZ s{cRB !9!9!9!9191JRJR J9J9J J1JR1J1 BZBJkRBcJc 1s{k{k{JR! 1J91!1! 1 R1RJ1BZRc B9B9J1J1JR ckRcRB !J9J1J1R1R1R J1BJR !)!)!)1)1!)! 1J1RJB kckZJ 91919 1!9!1! 1)91) 1919RB kRkRk !19!9! 9)191 191)9191 !9!9)9) R cRckZkZJZ kZJB1 1)1)1!1!1)9)1)1 9!9)!)9)!)! 1)1)1)!1 ) 1)9)91)1) 9!)J1 1!)1!1 919B1 1)1)1)! RJZJRJB kZJ19 J91)!1 ! )!)!)!1)! ) !1!1)!1)! 9R1RB 1)1)!)!9 1)!)!1 )!1!1 R1RBR )1B191 1!)!1 9 B9JBJ9J9J 1RBR1 9R191919B9J1J BR9B1R1J1J9BJBRBRJcs !1)!1)!) R1J19J9J1R919BJ1R RZRcs skZJB J1B9J919 J191R9R9BJ1J1 9 J1R19R1J1 91R1J9J1J1 R19191J91J1J9J1J1R1 9R1JB91Z !1)!1!1 B191B 9J919J RB9R91R1R1J19J1J1J1J R91R191J9J1J1 ZRZRs )!1!1 R9JB9J19R9R1R1J9J1J1 !)!)1! 1R1J9J91J9 J1R91R1J1J1 k1J1)1 91B1B1B1 J 9J9JBJ19R R1R1J1J1 9J1B1J1J1B1 91J1R91J9JR9J9 B R1J19J1J1 J9B9BJ1 9J1R9J R9J9J9BR9J1 1R9J9R9J9JB9R B1BJBJ ZRJR1 1R9J9J1 9J9JB9 ZJZks J)B1B ZR9J1R19J9R1R9 BJ9R9RJZJZk BJ9R1R9R1R9J9R9R9J9JR9J9B9B J)B1) R19R1B9J 9 R1J9J9B9J J1RZRks BJB1JB! !JBJ! R1R1R1 R9J1R1J9J9R9J9BJ R9J9R1J9J9R1JB 9 JR1R1R91R RB1J9J9 R9J9R9R9 R9J1R1RJ9R R1RB1R9 JB9)1 1J1B1R 1R1B1J9JR1R )1)1) R1R9R 1R19R R91B1R B 9J9R1RJRJ 919!1 19RB1R1R !)919J1! B1R91 9B9R1 B1J9R 9R1B191B1B1R9J s{cRc !)!1!1 1J1R91B R1B9R 9 1B1BJ1R1R 9)1!) 9R9R1J1 !1!9191 1!1!)!1)! 1R9J1J9 RB919J191B)R sZR{s 9191J1J9 JZRZsZ{ J1J1J19 s {s{ BZBJc J1J1JB1B J1J)B !)!)B !1)J9J cRJ1! )!19) 1B191! B1B1B 1 9B1B)J)J) B)9J)B)B {s{s{ 1B1B1B1 B 1B91J9B9B )JB)B)J RBJRc{cscs{ kcB1!) 1B1B1B1B1B1B)B9B9 )JB9B) 91B1B 1B1J1 B)B)1 1!1)!) B!B)!B!B)B 1B1B!) )9!9! 1B)B!B!)!B!J! 1!1!1! B !B)B)B)B) 9JB9) !91!) J!B!B!J!BJ)1J)J)1JB) B!B!JBJB B)B1B BJBJ) B9J9B)B 1 !J!1J!J1R 1J1)J!JB)B!BJ)BJ)BJ )B1BJ1 )B1B1B191B1 B)J9BJ9 !1R!1! RJ1!)JRBR)J) )R)BJB)R 1B1JB1 B91B1B R1!R!1RZ1!1Z1!ZJ1!RJ!JBRJ! RJB)J JBJ)BJ BJBJRJ cJ{c{R R1R1ZJ JRZBJB JBJRB JBJBJ)R RJRcZsc J1J!RZ1Z1R1R 1ZRZRJ1RZJ RJR1JR BJRB1R9 s{s{s{s RcRJB!B J!RJ! RBR19B B1BJB R1JRJ BR1ZJRB ZJ{JZsZc{ZsJcJc ZB1JRJ9B9J BRZRcZ ZcJcR{ZJZ{RcR{ ZckBZ cZcJR J{BcBcR Z{ZcZRc{JRJ{J RsRcRc RZJR1 J 9JBJBJRBR JBJ9J9J sZRcZ ZB{9{R B JcZJcZJZR ZBJBJ {1R1Z cB{cZJc{cJZcZJZ ZJBR1JB c{cZs B1ZJBJBcZJZ ZJB9{ 9Z9B9c ZJ9{cs ZBJcZcZ Zsc{s BcBZ9JBZJBZcZJBZ ZJc9J JcJcJZcsJcZJc kRZ{sk csJZJBZ JBJBZBZ JBJBc ZcJcBsc sBJBZ R{ZJ{ JscsJsJcJcJZJBJ B JBsBcZscs RJcRZR {s{c{c{ JcBJcBsZsZscZ sZsBcsZ {s{sksJ cBJBcZ Jsc1Z BcZBJBZBscB RcRcRc BZBkB JcRcJBs B9s1JZc B Z9cZ9 BZsJBsJBcB JcJcR {cJcBcBc scBJBcB ZcBcBs scsZBcscs1cBc1c91sB csZscB JsZsc BcJBc RcRZR cscBcJcJcR cBJcJcB sB9cJ1cscBJcJ s 9BcZsB9 BcBJ1 scJcs9 JsZcsJ RkRcRZ BJcBcsZ csZsc ZBZBZs JsBcsk kRcZRZ BJBsJs 1cZcRcJc9 JB{RsR RkRZRZRZ cJZkJkJcRcRkRZRZR BJRZR JsJsJs sZcs1JsB JcBc9 RcRsBcsJB BZsBsJ1sBJR sZsBc cJBcBsJcJs RZRZR cscscs9sc RsBcB cBJcZ RZcZRZR JcBcB ZscsJ BJBJ9 {sRsc{cJB BZBsBc scBcZBZscJBc9BscscBcs ZRZRZR scksJc BscBsR sR1919BcB1B9 JsJZc91s 9BZc19BZcBJcZ cBcBZ cJZcRJ RcZRZ sBsBcJ scZscZcB 1Bcs9Z BcsBcBc cBscBJc RkRZRZ s{c{sJscBsZsZs BcBcBc sBZJZcRc Zsc1s cJBcB BJBJBs9BcJcZcRJ RcRZRZRZ {BscsJcBJZc B1JcBc1 RcsB91 JBJsZcZ c ZsJBcBJcZ cscJZRZ RZRZR sksBsBcs ZscBcJc cs9cB JRZRcRcRZRZ BsZcRBcBJc B{csBcBJc9 cZcRZ {ksBsZsZ cJcJB cBsB{ JsJcZc sZcJZcJBZsBcJB RJ9sZ kJZJs ZJcJZJcBJZcZ{ RcRcJ csJcR k{RkZkJZk ZJZJZBZJcZcBZ{ BZBJB JcRJR ZBZcJZ9 Rc1sZ9BJ scsJs ZJZJZ ZJBsJZJcZcJ sZJZcBcZ9{cB JcB{BcBcsZ sZcsZJ{BsJZcBJs ZJscJZ RZRJ1B1J BkBkRkZ RZJZR ZJRZJRcJZRcRc JcBcZ9BJc{Z RJZJZBJR cRcZR 1J1RB kBkRk cJcJZ{JRcJZ JcZcZ B1B)J kRkJZ cRJcZRc ZcRZR c RZJRcJZRZ RJsJcRZkRZRcJ cRcJZc JcJZJc 1cJZJ{RJ RcJcR ZRs1cZJZ RZcZRBJRZJB JZRJRJ cJZBRcJRcZBR cRcRZRJZRckck RB1JR9 BJR9RB BJBZRJRJcBJZ RJZJR 1J9RJR9RJ9RB RBJBR RBZRJBZ sZRZR JRJRZRJRcJRZRZcRck BR9R1RBR JBZRBRJR RBJZJ JZJBZR J1JR1 1J19J9R R9B9R BZJB@ ZJRZJRJ JRJRBJ RJRk9 1J1J1 R9R9B1BR9R9 BJBJZBZR J 1k1k1kJkZ R9RB9R1 JRZRZRZ 9RBJ9RB kRkRkcR 1J19JRck RJk1k1k1 1J1J1J91R9J BR9BJBJBR9J9BJBJ9JB JBRBJ9 1R9RckcRB9 R J1k1k1k1k R9R)JB 9J9JBR1 9RJRcZcR RBJBJRJR 1k1kJk1k1B1B1J1R J9BJBJ1J BRJRJRJRJZJR R BRBRJBJRB kJ1J1B J9JBJ9J9RB 1R)!B9)J JBJBJBJ9R1J kRcRJ BRBRJBR B1B1R9R 1%J9BJ9J9BJ9J9J9! Z1RBJBJBJBJBJ RcRJB BRBRBR R 1k1kJ1J1B 9J9J9 9J1J1B BRBRBJBR J191R191 BJ)J9J9 J)JB1 B)9)Js 9R1JB cRcRkRkRkc JRkRZJ B1B1Z RJRJR 9 JR)J1B9J) R cRkRkRkcR 1JRB9 9B1R9B9) J9J9k c kJ1B1B1B1 R19B)B9J J1919J1 !J9J)Z R1B1B1B1B1J9 1JBR9 RJRBJB 9)B9)J9B9)B1 9JkBc 9)19)1 RcRJB1B1BJRB9 kcRJ1B1J BRBRBRBJ )1!R1J1J JB1BJcRJ J1JB1 1BJB1B9B RJBJRc cRcRcRc ckcRJ 9JB)B9J cRcRcR JRJRc !)R1) )1)J! 9)91J1)! JRcRc 1B)91J )9!JRcR BJRcs !1!1) 1 9!9RcZcRJ BJ191) 1 91)1)19 )!1!) R Jk1JBJBJ9 ckcRZ 19B1J1 )J1JB1R RBR1Rc 1R19J1J1B)1)1)91 RBRJRJR J1J)J1)1J191 1!1!J 9!9JRJ JRBRBRB BJ19R1J !1!1! B91JR1RBRB BRJZc BJ1J19 91)!9! 9 JRB91RBRB BJZcskc RcRJB B1RJR cRcRc 1!1)1! 1RBRB@ BR1RBJ J)9!91)!) 1!1!1) 1 B1J1J1RBZ R1J19 1!1!1!1! J1J1R1 RB1J1J1)19 )!1!) J1RBJ1JR Z1JR1R1R 9191! )1!1!1! 1!1!1 !1!1! B1J1J1R1 91!)!) 1BJ191J19!1 )!1)1) 91)1!)1) cRcRc 1!)1!)! )1!9)1!1)1!9!1! RZRZR cRcRc ) !1)19191! J1J1J1R1 )1!91!)19! J1J1R1 1 91!1)!1!1 !)1)19 cRcRc cRcRc J1J1B 91R9RB9Z1J1J1R1R1 cRcRc JRJ1B1B919 !1!19)@ 19)!9 JR9B1J RZRZRZ JB9J19 9)91)19 !1!19B RcJRJc JBR1@ RcRcRcRcRcRcRc BJ9191) J1J1JB91!19 RcRcRcRcRc JZJB919 c91J1JB9 ZJR1@ RcRcR 9!19! 9ZJ1J RcRcRc {sJ{cs ZJZJZ JBJ19 91R19 JZsZ{J kZJZJ J919J 1!91R91B! s{J{s JZJ1J9J1R1R 91919J9R1{ ZJZRZ BJ1J1J 1R1J91 1J9J9J19R9R9R JZsZs {s{s{JZ{s {c{c{ Jk1J1Z 1R9JBJR J1kJZ1kR ZRJZRJZ RJRJR {c{c{ {c{R{ ZkZJk BkJB1 Z9ZBR c ZkZcZkckc {s{Z{s { c{c{c{c{c Jk1k1k1 R9R9Z1J RJZR{Z c{c{c{c{c{c{c{ RkJkRJk s1kJ9 Z{J{s 1cZkZkZkZ kJkcsckZk Z1J1J!R 1kZk1 c{J{Z 1ckcZkJ 1k{1k kRJRB1 9ZBRZs ckZkcZk ckckZ RJ1Z1JRc RZRscRZBR9RJRsks ks{s{s 1k1RkZ R1R9RJ {s{s{k{ BR9R9 9R1R1 R 9RBRBRZRc 9R9RJ ZcZcZ{ BRJR9R k scRJR1RBR k1kZJZ scZcZcZ1RcR1ZR1RZJs RckcRc 1RZRZRZ R csk{kscRZ cZcZc Z1J1JR kZkZcZcZcZcZcZk RZRZR {k{k{k RZRcRcR k{k{k{s ckckckc cZkZc ZcZcZcZkckc kcRZcRcRcsksc s{s{s{ ZcZckZ c{ksc ZcZcZ ckckZ kscRZ s{k{k c kscksks{s ZcZcZkZcZcZ k{k{k{ sk{s{@ k{k{k 11111111 ))))))))ccs !!!!!!!!19J 99999999 RRRRRRRR !!!!!!)! BBBBBBBB !!!!! JRJRJJJJ RJJJJJJJ 1111RRRRcRcR RRRRcRRRccc !!!!RcRcRcRR cRcRcRcR RRRRcccccccc {{{{{{{{ !!!!kkkkkkkk kkkkkk{k Users$Body$Flags O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $ViewMapDataset $ViewMapLayout $NavImagemap (Help) cca461_f_WebClientCertificateRequestNetscape 0S0E &Arial 1Fixedsys WebClientCertificateRequestNetscape Request a Client Certificate for Netscape Navigator Use this form to enter the information required for your client certificate request. [<br>] Certificate Information: The following information will be included in your client certificate. Your Full Name: size = 35 CommonName Common Name is required 3S4S CommonName[<SIZE=30 MAXLENGTH=30>] e.g. John Doe Organization: size = 35 Org[<SIZE=30 MAXLENGTH=30>] Organizational Unit: size = 35 OrgUnit (Optional) City: size = 35 Locality[<SIZE=30 MAXLENGTH=70>] (Optional) State/Province: size = 15 State No abbreviations Country: size = 3 Country 2 letter country code, e.g. US E-Mail Address: DNEMail Your e-mail address is required if you will be using this certificate for S/MIME e-mail. [<br>] Additional Contact Information: Return E-mail: size=35 EMail[<SIZE=30 MAXLENGTH=70>] Directions for picking up your certificate will be sent to this email address. Phone Number: size = 15 Phone Comments: size=35 Comments [<br>] Encryption Strength: The security of your certificate depends on the size of the key you choose. Larger keys are more secure. If you use the standard version of Netscape Navigator or Communicator, choose 512 from the list below. If you use the US-only version, you can choose 768 or 1024 for greater security. [<center><KEYGEN TYPE="hidden" NAME="KeyAndChallenge" VALUE=""></center>] Submit Certificate Request ------------- Hidden from Web ------------------ Please choose a challenge phrase: This is a word or phrase you will use if you need to revoke your certificate. Choose something you will remember, but would be unfamiliar to impersonators. Challenge phrase: Challenge[<SIZE=20 MAXLENGTH=32>] ------------- End Hidden from Web ------------- Hidden fields: KeyAndChallenge RealDBName 1S2S8S RealDBName" /ClientCertOutputRequest?RequestCert&TranslateForm=ClientCertRequestNetscape" 0RR1S2S3S4SRequestAction O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO $Info $AppHelpFormula $$Script_O $$ScriptName $Body ClientCertRequestNetscape Supplied by user: Comments EMail EMail[<SIZE=30 MAXLENGTH=70>] Phone The certificate request itself: Certificate Challenge 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 DNEMail KeyAndChallenge Control info: RequestType Serial O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Untitled Untitled2 ValidFrom ValidTo ValidBegDate ValidEndDate $TITLE $Info $$Script_O $$ScriptName $Body Key Ring Created (Help) cca461_f_DlgConfirmCreateCAServerKeyRing 0S0E DlgConfirmCreateCAServerKeyRing The server key ring for the CA server has been created. Key ring file name: KeyRingFileName KeyringFileName Next Step: You can now set up the CA server to allow SSL connections by configuring the "Internet Port & Security Settings" section of the Server record in the Public Address Book. For additional help, see the "Setting Up Security" section of the "Getting Started with the Domino Server" book. Note: Use the Server Certificate Admin application to view and manage the server key ring. O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO $Info $WindowTitle $AppHelpFormula $$ScriptName $Body '++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 (Help) cca461_f_CertPickupMS 0S0E 1Fixedsys &Arial CertPickupMS HTTP_UA_CPU <OBJECT classid="clsid:43F8F289-7A20-11D0-8F06-00C04FC295E1" CODEBASE=" Platform HTTP_UA_CPU Alpha W32ALPHA W32INTEL 2S8S11S13S /System/ActiveXControlView/ Platform" /$File/xenroll.dll" 0R1S2S8S16S17S18S19S20S21S dllURL id=Enroll > </OBJECT> [CertAppDesigner] 1S6S7S <script language="VBScript"> Sub InstallCertificateSub dim result dim szPKCS7 Dim theForm Set theForm = document.forms(0) szPKCS7 = "" szPKCS7 = " PKCS7 On Error Resume Next theForm.Enroll.AcceptPKCS7(szPKCS7) If err.Number = 0 Then result = MsgBox("Certificate Successfully Installed", 64, "Domino Certificate Server") Else result = MsgBox("Error: " & Hex(err)) End If End Sub </script> Pick Up Signed Client Certificate for Microsoft Internet Explorer Your client certificate is ready to be installed in your browser. To install the certificate, click on the following button: <form> <input type="button" name="accept" value="Accept Certificate" onClick="InstallCertificateSub"> </form> [<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 E-Mail Address: SubjDNEMail SubjDNEMail IssDNEMail IssDNEMail 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 Hidden fields: Approved: Approved Request type: RequestType _____Not Hidden_______ Categori_zeK _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From FolderK 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 Untitled Untitled2 ValidFrom ValidTo ValidDays $$PickupCertificate $PickupCertificate_O $FormUsers $Info $WindowTitle $AppHelpFormula $$Script_O $$ScriptName $Body $V5ACTIONS $ACTIONS '++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 (Help) cca461_f_CertPickupNS 0S0E &Arial 5Courier New CertPickupNS <script language="Javascript"> function AcceptCert () { open(" /ClientCertOutputRequest?RequestCert&PickupCert&PickupID= PickupID" 1S2R8S16S17R18S19R NSPickupURL ", "ContentsFrame"); </script> Pick Up Signed Client Certificate for Netscape Navigator Your client certificate is ready to be installed in your browser. To install the certificate, click on the following button: <form name="accept"> <input type="button" name="accept" value="Accept Certificate" onClick="AcceptCert()"></form> [<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 E-Mail Address: SubjDNEMail SubjDNEMail IssDNEMail IssDNEMail 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 [CertAppDesigner] 1S6S7S Hidden fields: Approved: Approved Request type: RequestType Categori_zeK _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From FolderK 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 ."4zK Untitled Untitled2 ValidFrom ValidTo ValidDays $$PickupCertificate $PickupCertificate_O $FormUsers $Info $WindowTitle $AppHelpFormula $$Script_O $$ScriptName $Body $V5ACTIONS $ACTIONS (Help) cca461_f_MailClientCertRequestApprovedRegistered 6S8S MailClientCertRequestApprovedRegistered 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 request for a client certificate has been approved. You can pick up the certficate at the following URL: The certificate has been registered in the Domino Directory (Public Address Book), so you should be able to use your certificate immediately. Contact your Certificate Authority if you have a problem using your certificate. O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO $Info $AppHelpFormula $$ScriptName $Body (Help) cca461_f_MailClientCertRequestApproved 0S0E MailClientCertRequestApproved 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 request for a client certificate has been approved. You can pick up the certficate at the following URL: In order to use your certificate to connect to a Domino-based Web site, you'll need to register the certificate by choosing the "Register Client Certificate" link on the Web site of your Certificate Authority. Contact your Certificate Authority if you have a problem using your certificate. O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO $Info $AppHelpFormula $$ScriptName $Body (Help) cca461_f_WebClientCertificateRequestMicrosoft 0S0E &Arial 1Fixedsys WebClientCertificateRequestMicrosoft HTTP_UA_CPU Request a Client Certificate for Microsoft Internet Explorer Use this form to enter the information required for your client certificate request. [<br>] Certificate Information: The following information will be included in your client certificate. Your Full Name: size = 40 CommonName Common Name is required 3S4S CommonName[<SIZE=30 MAXLENGTH=30>] e.g., John Doe Organization: size = 40 Org[<SIZE=30 MAXLENGTH=30>] Organizational Unit: size = 40 OrgUnit (Optional) City: size = 40 Locality[<SIZE=30 MAXLENGTH=70>] (Optional) State/Province: size = 20 State No abbreviations Country: size = 3 Country 2 letter country code, e.g. US E-Mail Address : DNEMail Your e-mail address is required if you will be using this certificate for S/MIME e-mail. [<br>] Additional Contact Information: Return E-mail: size=40 EMail EMail[<SIZE=30 MAXLENGTH=70>] Directions for picking up your certificate will be sent to this email address. Phone Number: size=20 Phone Comments: size=40 Comments ------------- Hidden from Web ------------------ Please choose a challenge phrase: This is a word or phrase you will use if you need to revoke your certificate. Choose something you will remember, but would be unfamiliar to impersonators. Challenge phrase: Challenge_1[<SIZE=20 MAXLENGTH=32>] ------------- End Hidden from Web ------------- <OBJECT classid=" clsid:43F8F289-7A20-11D0-8F06-00C04FC295E1" CODEBASE=" Platform HTTP_UA_CPU Alpha W32ALPHA W32INTEL 2S8S11S13S /System/ActiveXControlView/ Platform" /$File/xenroll.dll" 0R1S2S8S16S17S18S19S20S21S dllURL id=Enroll > </OBJECT> <!-- prevent generation of a submit button Ignore me <CENTER><INPUT TYPE="BUTTON" NAME="Request" value="Submit Certificate Request" onClick="CertRequestSub" language="VBScript"> <SCRIPT LANGUAGE=VBSCRIPT> Sub CertRequestSub Dim theForm Set theForm = document.forms(0) DN = "" If theForm.CommonName.value <> Empty then DN = "CN=" & theForm.CommonName.value Else result = MsgBox("You must supply a Common Name") Exit sub End If If theForm.Org.value <> Empty then DN = DN & ";O=" & theForm.Org.value Else result = MsgBox("You must supply an Org name") Exit sub End If If theForm.OrgUnit.value <> Empty then DN = DN & ";OU=" & theForm.OrgUnit.value End If If theForm.Locality.value <> Empty then DN = DN & ";L=" & theForm.Locality.value End If If theForm.State.value <> Empty then If Len(theForm.State.Value) > 2 then DN = DN & ";S=" & theForm.State.value Else result = MsgBox("The State must be greater than 2 characters") Exit Sub End If Else result = MsgBox("You must supply a state name") Exit Sub End if If theForm.Country.value <> Empty then If Len(theForm.Country.value) = 2 then DN = DN & ";C=" & theForm.Country.value Else result = MsgBox("You must use the two character country code") Exit Sub End If Else result = MsgBox("You must supply a two character country code") Exit Sub End If If ((theForm.DNEMail.value <> Empty) AND (InStr(theForm.DNEMail.value, "@") <> 0)) then DN = DN & ";E=" & theForm.DNEMail.value Else result = MsgBox("You must supply an E-Mail address componant") Exit Sub End If theForm.Enroll.HashAlgorithm = "MD5" 'we should do SHA1 soon theForm.Enroll.KeySpec = 1 theForm.Certificate.value = theForm.Enroll.CreatePKCS10(DN, 1.3.6.1.5.5.7.3.2 theError = Err.Number On Error Goto 0 if (theForm.Certificate.value = Empty OR theError <> 0) Then sz = "The error '" & theError & "' occurred." & chr(13) & chr(10) & _ "Your credentials could not be generated." result = MsgBox(sz, 0, "Credentials Enrollment") Exit Sub end if theForm.Submit Exit Sub End Sub </script> Certificate[<name="Certificate" type=hidden>] Serial[<name="Serial" type=hidden>] Hidden fields: Submit RealDBName 1S2S8S RealDBName" /ClientCertOutputRequest?RequestCert&TranslateForm=ClientCertRequestMicrosoft 0RR1S2S3S4SRequestAction O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO MS_D@ K.bE{ Oys7j $Info $AppHelpFormula $$Script_O $$ScriptName $Body $UpdatedBy$ACLDigest$Signature$Name$DesignVersion$Version$Formula$FormulaClass$Collation$TITLE$AssistType$AssistLastRun$AssistDocCount$AssistFlags$AssistTrigger$AssistInfo$AssistQuery$AssistAction$AssistAction_Ex$PublicAccess$AssistRunInfo$Flags$AssistVersion$Fonts$Info$Body$LaunchWebDoclink$DefaultNavigatorIconBitmap$FlagsNoRefresh$ViewMapDataset$ViewMapLayout$NavImagemap$Index$ViewFormat$FormFormula$Comment$ACTIONS$Readers$Collation1$Collation2$Collation3$Collation4$Collation5$Collation6$Collation7$Collation8$Collation9$Collation10$AppHelpFormula$V5ACTIONS$Collation11$Collation12$SelQuery$SCRIPTOBJ_6$SCRIPTOBJ_7$SCRIPTOBJ_8$ViewGlobalScript_O$NoBackgroundOverride$$ScriptNameUntitledUntitled2ValidFromValidToValidDays$FormUsers$WindowTitle$$Script_O$$FormScript$$$FormScript_OContactNameEMailPhoneCommentsSubjCommonNameIssCommonNameSubjOrganizationIssOrganizationSubjOrgUnitIssOrgUnitSubjCityIssCitySubjStateIssStateSubjCountryIssCountryValidBegDateValidEndDatePickupIDPickupCertificateApprovedRequestType$FieldsCertificateCommonNameOrgOrgUnitLocalityStateCountryIssuerCommonNameIssuerOrgIssuerOrgUnitIssuerLocalityIssuerStateIssuerCountrySaveOptionsCAKeyFileCASiteUrlREASON$WebFlagsPrivateTitleDNEMailIssuerDNEMail$$Return$ScriptFullNameIssueCountrySendEmailTypeSendToFromSubject$HTMLBodyTagRequestActionValidPeriodValidUnitarg$$PickupCertificate$PickupCertificate_OBodyEndDateHTMLCategoriesDocOrder$$QueryOpenAgentKeyRingFileNamePasswordOrganizationOrganizationalUnitStateProvince$FormLinksPlatformCADLLChallengePKCS7SerialKeySizeCACertLabel$$FormAction2RegisterCertSubmittedSubjDNEMailIssDNEMailKeyAndChallengedllURLNSPickupURLChallenge_1SubmitTempIsRootTempKeyFileNameCatagoriesHideSiteCertCompKeyFileNameEntryLabelCERTKEYSIZECertStartDateCertEndDate$ScriptLib$ScriptLib_OForm$RevisionsGraphicComputedHTML$FILE &Arial Certificate Information (Help) cca461_f_CertificateInformation 0S0E CertificateInformation TempIsRoot 3S4S6S TempIsRoot TempKeyFileName Catagories HideSiteCert CertIsDel 1S2S CertIsDel 1S2S CertIsDel 1S2S CertIsDel 1S2S Certificate Information This form displays the information contained in the certificate you have chosen to examine. EntryLabel ** Certificate Deleted ** 1S2S EntryLabel ** Certificate Deleted ** 1S2S EntryLabel ** Certificate Deleted ** 1S2S You have deleted this certificate. It will no longer be displayed when you view the contents of this key ring. EntryLabel ** Certificate Deleted ** 1S2S Key Ring & Certificate Identification Key Ring File Name TempKeyFileName CompKeyFileName Certificate Label EntryLabel Key Size CertKeySize 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 HideSiteCert CertIsDel 0S6S7S10S11S12S HideSiteCert CertIsDel 0S6S7S10S11S12S 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 wT#eSB $Readers $FormUsers $Info $WindowTitle $AppHelpFormula $$Script_O $$ScriptName $Body Certificate Authority Trusted Root Certificate (Help) cca461_f_CACert 0S0E 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 Certificate Authority Trusted Root Certificate 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 PickupCertificate PickupCertificate 0S0E Done [CertAppDesigner] 1S6S7S Hidden fields: Pickup id: CACert PickupId Request type: RequestType Categori_zeK _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From FolderK 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 Untitled Untitled2 ValidFrom ValidTo ValidDays $FormUsers $Info $WindowTitle $AppHelpFormula $$Script_O $$ScriptName $$FormScript $$$FormScript_O $$PickupCertificate $PickupCertificate_O $Body $V5ACTIONS $ACTIONS Denied Certificate Request (Help) cca461_f_ClientCertRequestDenied 0S0E 5Courier New ClientCertRequestDenied Denied Client 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 '/** do some rudimentary version checking **/ Dim Buf As String * 500 If ProcessSecurityCmd("AdminSecurity","Version=4.61",Buf, 500) <> 0 Then '0 means the ver checked out flag% = workspace.DialogBox("DlgWarnUpgradeTo461",True,True,True,False,False,False,"Warning") Exit Sub End If Buf = "" '/** end of version checking **/ 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 Return E-Mail 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 E-Mail Address DNEMail DNEMail [CertAppDesigner] 1S6S7S Hidden fields: Approved: Approved Request type: RequestType Certificate request: Certificate Categori_zeK _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From FolderK 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 Untitled Untitled2 ValidFrom ValidTo $Readers $FormUsers $Info $WindowTitle $AppHelpFormula $$Script_O $$ScriptName $Body $V5ACTIONS $ACTIONS Trusted Root Certificate Merged (Help) cca461_f_DlgWarnUpgradeTo461 0S0E DlgWarnUpgradeTo461 You must upgrade to Notes and Domino 4.61 in order to use this application. WARNING O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO $Info $WindowTitle $AppHelpFormula $$ScriptName $Body '++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 Declare Public Function ApproveClientCertificateRequest(doc As NotesDocument, keyFile As String, password As String) As Integer Declare Function GetCertFromCACertDoc As String Declare Function GetStringFromCertFile(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 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 Declare Function EnvelopeCert 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 declarations 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 Const ids_CreateServerKeyRingSuccess = 19 Const ids_CAKeyFileTitle = 20 Const ids_CAKeyFilePrompt = 21 Const ids_CAPasswordPrompt = 22 ' 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 Const err_GeneralDLLError = 109 Const err_NoCAKeyFileNameInProfileDocument = 110 '++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" Case ids_CreateServerKeyRingSuccess GetString2 = "Server SSL key ring created" Case ids_CAKeyFileTitle GetString2 = "CA's Key File" Case ids_CAKeyFilePrompt GetString2 = "Enter path for CA's key file" Case ids_CAPasswordPrompt GetString2 = "CA's key file password? " + arg1 ' ' 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" Case err_GeneralDLLError GetString2 = "Error from security library" Case err_NoCAKeyFileNameInProfileDocument GetString2 = "You must make your CA key before making your server key" ' ' 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 If doc.RequestType(0) = "MS" Then DisplayCert = BreakItUp(doc.PKCS7(0)) Else DisplayCert = BreakItUp(doc.Certificate(0)) End If 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 '++LotusScript Development Environment:2:1:ApproveClientCertificateRequest:1:8 Public Function ApproveClientCertificateRequest(doc As NotesDocument, keyFile As String, password As String) As Integer ApproveClientCertificateRequest = 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% If doc.RequestType(0) = "NS" Then ClientCert$ = "ClientCert" Elseif doc.RequestType(0) = "MS" Then ClientCert$ = "" Else ClientCert$ = "" End If cmdArgs$ = "KeyFile=" & keyFile & ";Password=" & password & ";ValidDays=" & doc.ValidDays(0) & ";" & ClientCert$ & ";" certInfo$ = doc.Certificate(0) If dbg Then Messagebox cmdArgs$ ret = SignCertificate(cmdArgs$, certInfo$, certBuf, maxCertBufLen%, msgBuf, maxMsgBufLen%) If ret Then OutMsg(msgBuf$) ApproveClientCertificateRequest = False Else doc.Certificate = certBuf If doc.RequestType(0) = "MS" Then cmdArgs$ = "" 'no args on this call certInfo$ = certbuf 'this is sequential, old certBuf is now new certInfo$ certBuf = "" 'now null certBuf msgBuf = "" ret = EnvelopeCert(cmdArgs$, certInfo$, certBuf, maxCertBufLen%, msgBuf, maxMsgBufLen%) If ret Then OutMsg(msgBuf$) ApproveClientCertificateRequest = False Exit Function End If doc.PKCS7 = certBuf 'MS needs it End If 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) ) If Left$( k, 14) = "SubjectE-mail:" Then doc.SubjDNEMail = Right$(k, (Len(k)-15) ) ' 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) ) If Left$( k, 13) = "IssuerE-mail:" Then doc.IssDNEMail = Right$(k, (Len(k)-14) ) ' 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 doc.Approval = "1" 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" If doc.RegisterCert(0) = "1" Then Call SendNotification("MailClientCertRequestApprovedRegistered", doc, GetString(ids_YourReq), url$) Else Call SendNotification("MailClientCertRequestApproved", doc, GetString(ids_YourReq), url$) End If End If End Function '++LotusScript Development Environment:2:1:GetCertFromCACertDoc:1:8 Function GetCertFromCACertDoc As String Dim sess As New NotesSession Dim db As NotesDatabase Set db = sess.CurrentDatabase Dim view As NotesView Set view = db.GetView("CACertificate") Dim doc As NotesDocument Set doc = view.GetFirstDocument GetCertFromCACertDoc = doc.Certificate(0) End Function '++LotusScript Development Environment:2:1:GetStringFromCertFile:1:8 Function GetStringFromCertFile(fn As String) As String CertLinkList = ReadFromFile(fn) GetStringFromCertFile = "" Forall k In CertLinkList If Left$(k,4) <> "----" Then 'no begin and end lines k = Trim$(k) GetStringFromCertFile = GetStringFromCertFile & k End If End Forall End Function Lotus Product J !5@! ^P!JP! ,|!}H ^,")4 ^,")h J<"5L" Q\"FL" Qh"FL" Qt"}L }4!]L "}h"# J0#5@#< Z@#F@# O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO $TITLE $Flags $PublicAccess $ScriptLib $ScriptLib_O U&V%U ReRe&URer IDU+J ZUUU],L UUU]. [UUUWK, cYt[( \E6\E Z.|Z, WSyU` __8HK *l?%M {ss<) %IEl/ El}V\UUX <lNUUUV <lNUUUV 9UUUX <lNUT [ UUU`J lNUUUV 9UUUX +%LlV m.LlNUUUV 9UUUX 9UUUX LlNUUUV 9UUUX lNUUUV lNUT [ lNUT X $#lEUUU`J %`D#l SlEUUU`J lEUUU`J UUU`J UUUUUq D}C&UX pC"=v"> duPhd U0UWre C8?P: }C&YJ D}L/_ =e"8> dX%P PE@&AL }I*]X 2,QX( 2,QX( 2,QX( 2,QX( 6UUUU N:fyR( UUUU< UV%Uj 7(BVw 7+9WY BVMvpuY> 2p$!+& .rOtw BVw* JZ"mC? aGR9r3 /vwV6 |Ylmb Iicvb B;@2?$r 22\T! !VxHb r&C8tHg V&slW c&m8\}4t C8>#W 4 QbL H]D A (A]D` R!3cp RL8 P 8\|T8 TTTD<< 22\ Q YB 8\|:o "D<DK IH"0D } \ VZL Yi3b% +2&ln6 C8tHg6 &l!8" 3a88l Yi3b% \ VZL D}p1A H[0:/ `Dus!aX (;0:/ ":!$,+ GU$,+ ":<$,+ d9e-@D +-&lD Nwn"mC?' 1dV$Y lTTU8\ D!3ct AN@9p |{b0W! 'Vsh}v YaAH> 2\vild* G(c"m _! Y0@ Yrb;@C TR2QPE *"%`C 8_|v9 #%NNI Q13b;_` q %`\(PEx TI3ad!+ BvlB/+ $rVLD< >2qR8 p:3qrfs 2czMt> O}Vs|AP ~(A@D *"%`Dgr& Mu]DK P} P !Py6q mTP|R [8\|: @<18m? ;bb<jBu 8\|:p !R~O@ }`"JC INEba PyRJlS h88?, RJmeJ \} _/ \ Q3b9x D<.D1w%6 E`"OY {9'&H S/vZ> :"_/9 8\|;4 mR .msed0 Yi3b3 "mC?' D1uGYG 92G%`P =B)XE> T\{)2 3n26Vr Yi3aX Kc8_|pE 2;baX *"%gx8 Yml_{ DrWt:bJ] .FN*{ %] "J rrfna" kb1 P3bh ^5lJ5l$j b1 lj %_%x'&%] {9'&w xn:LO1j* g.F,8 QOlQg|Qd gK~gJ> .g`a~ ;%YC; p9*4H ;(1L6ude ;(1L6v Bud-s 4L=2A 3z&BD UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU^UU&UUUW eUUUUUUQb#l &cF4cF4cF4yyyyyyyyyyyyyyyyyyyyI ef+eUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUE eUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU^S UUU^^ QkeUUU[' YUUUV \UeUU %qUU[ eUbmu FgdyO( 4Kb94 #yU[6 aM"=~ 4Kb94 43y9p}H *M85o UUU~* UUUT 9k'(A X881uB H881uB Pppa 881ubl 881uB \ so= 881uB 1(881uB }[+[d <9[+Z +#yYz 6Vvgo0 ++Zx# ++ZB# A6UT}e bNy,q ?y,ky,ky,Kc y,~^K +.*[U 9Q9Q9Ys Qq_!RB ~E>G| uA]pY dTX .Af(! ?9[vW g#K99g UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUT l_5Km V}K;\L QiaL]O yn/%y yuc,B fC,Z% ,]X~2 V}Z^< '*lOG+ ]Qkct v,^]\R ;b)E6 H[Va\ :^!3:Y O)[<q< ^!$O.bp' 2yd['' 51V,Hj=m:! &qA{D\ H-s?P2 +#,?0 {lYfO *x7<* ~d@1x 1d_08 %8?t$ n e.y //yLT e5/7b x<YH% \Yqy|E 3%/'MIJ| Jy:cYK/:dl dS?7( .y`\<X Ie,y< *lA.W bpx9E JbIy" @)9iG ']yK0 ~*c?o W8|x|V %yXR~ X^}(~ bZ)dR6 XZXAaH] }K/2_ fK:d^d d-xy1D-Is 0;qnY xr-#U eq@j<VK8 <T?aq <W-cx 1'e}w exY,vT ++:O2 9HQYYu }^(JA UUUfc v0E@K5l Q[.,. yUUUY \Iqno *gy[*~ ESj][?S eU~ . v0E@O,[*~ z9[?S ?`5\D> U7gJ@Ql ?n=U'* v0EdT U[+0N &)U[+0N P~KeO 6^(JA UyVf? ?h%yq uP'}U[+0N U[+0N v0Eb0 U[+0N v0Eq` (}U[+0N =&)U[+0N =U[+0N NUyUV U[+0N 0M[*~ }U[+0N v0Ex<- 7x[*~ }U[+0N U[+0N }U[+0N }U[+0N v0E@\ v0E`r +p*[*~ }U[+0N A*}'* T &UV U[+0N *<>+eO ^P%UyV` za4'H~ Sk=[?S 1RryUV ^(J@|_ /^UUUU *QA=$C v0EqL /^UUUs U[+0N ?e^(C yUUV` ^(JAoL }f<iUUU\ {0(dO E:h_u [*}U/ 5[*}U R5[*}U U@F+R UHV+^"5[*} V#+Kz [*}U;J C(L&lUUUSqZ_ GUgeUUfc ^(JAi ^(JAoL ^(JAi .hCQflUU ^(JAm ^(JAoL ]U[+3 9U[+0N ^(JAoL Y9ZQj* ?e^(C efz.hCU H,@S pU^(K ^UY/>)"e K)Z&[+ eyUOq?Q =)0}l eyUj}S T=QnC eyUAj eyUK, QHP}l DkeyU V6:TX DkeyUcK,LF eyUxO+ )nAKeyUb eyU~k[ ^USm# eyUD*Y j|+eyUb |+eyUd eyUNs KeyUM ^UR@b K~L[+ eyU` - ^U^4I@s eyULU eyU@_ eyU@x. )jE[+ eyUqQE yQb l [?^UY [?^U\ u[?^U] u[?^UR u[?^U_ [?^UY [?^U[ [?^U\X ZM[?^UP yUd~=x<- x[?^UP n[?^US [?^UR *[?^U\ *[?^US [?^U] [?^UX yUn9lS [?^UR yUAhx( [?^USa yUdVR VpQn4 [?^U[ [?^U\SyR [?^U_ \[?^US 5[?^U[ HTE[+ ;F-I)yW 4'N:A pvMj[T 4 l4T5` 4 l4T5` 4 l4T5` yt_E@ jWt5` <di!N kgt5` pvMhu dhzdL= 4 l4T5` 0pvHC XvOe^4& pvMjZ q|(() 20<:hN jWt5` 3(CFvt P:X;$&2 )4; q (_Qur:[t (_Qt:[t 4Jov C s"w kQuIm @Mc#^($' l;VH @Mc#^($ l;VH I(_F<d`N Ur_kk@ _kCWJM c"v0MGa {4L=2A wQ~Xa BB{,r't* SQ~XA 0cWJi r8;Ua 202]5 ;(1L6t ;(1L6t ;(1L6wq MjI@C MjI@C `Mc#M K'L;A c#PB^; pvMh: c#PBG =4dMS =4dMS =4dMS ,jWuO ] 4't pvMhu ,jWuO I(^xu7 BCWJtj 4'N:A MjI@C <d`xt p9*4H u7C@b 8L)*W (_Qu== ;(1L6w& .GSt4 Y.A44q X#`A*] C )Ba N:A$) 9:l(A- 4L=2AW KQ~Xa 6wQ~Xa ;4L:k C )Ba RhvHf 9=4H1 A:&BD c"v0Mh WJ`5t ](@5t kQ~Xa l4KQ@ 3Aq|;*V }*P! @cWJtj =CR[& @cWJtj ICWJtj WJ`5t ](r5t CCWJ~ BCWJz5t WJ`5t ](.5t CWJPj ](@5t ](@5t CCWJ~ CWJtj WJz5t WJ`5t C#WJy C#WJl ](p5t WJ`5t WJz5t ]((5t ])<5t WJ`5t WJz5t 0SCWJO WJz5t ])<5t WJz5t WJ`5t ])<5t T4qX! =CRXSF WJz5t =CS*zZx;@ ](p5t .;CWJ P;CWJ_ ])|5t ](p5t ICWJy ](.5t ](.5t \SCWJ~ CCWJE s<:[ rw`a~ X0cWJ ])V5t WJ`5t s%?Ot aA;+v zl('eSQ zl('eSYL0 `sMe0 ~XN:@ J~*4H N:A$) -V;CWJ ,r'ek) 4L=2A %}*P! }*P! ,r'e_ {4L=2A J.g`a~ }6l } KQ~XA:$ kQ~XA sx@xt 3} 2hB ,:h\S E=6`k ;(1L6wYL5~ L9:l(A- l4HP6 6ymvT A:&BD v0Jj( ,3zd_!" wM.p* zl('J C,)}- C,)}- s;09 21s%? s<:[%I ZI, $ .g`a~ Sqs>F NwJ4A !}hu' #Fvt^{ vMjxu c"v0Mh .GSpt za4'g _?,#J 0R[t pvMht pvMht pvMht 4L=2A 4L=2A >]4/\ p 6n2RWE E:h_ i E:h_u uE:h_ i zd_ i zd_ i Fj>05 Fj>05 E:h_u 6<%%wCE _0QEXM 2w`a~ TZA)9UU] UUU?9 [*}?~ )9U^U 5b5UyT UyT~<) b5UyT b5UyVK U^U1 eyO<MY ^=U[+ (}U^U VSi^] z9\k) ^;,RyU^T -EUyT k=P5^U'' |mm]y `64&:jF RX8P; bb\Ne hlq'F } 2B} 4'e}6 } 2B} "_N= /+?>q B}4a5 } 2B} lvb"x Qn,3< 'w?+ cT;y&1P4 cT;y& +R.V5C *"R9<- cT;y& eAecT;y& Lr_@D xenroll.dll xenroll.dll S_)tW' aY*]c PURSAF O=Iris O=Iris x>_/^ PURSAFO .? Kz" O=Iris CN=Andrew Wharton/O=Iris PURSAFO b#~0JC JFA)q xenroll.dll @ @@ @` @ @@ @@@@@`@@ `@ `@@`@``@ 1,.WR1,.WRK,.WK3 MP4=Lotus PIC,0, ,,.GMF,.CGM,,8, [Notes]E Q/bv" h0oF*+qV Zqt{E {Z4yZ4 *GtIv CuD5% jLC{q CuD5% jLC{q 'Yo{N ?)}?3 Fy^U e:%E:,I GjC~ )jCbA" lo~HP ,oz?* Gf# r< e2;+O #@<067 :6-:6P tj7:5 >5d|k ~qZb^ ~qKMBB nC 5% Z|6C/ Hj*hg IC>K & nC 5% R]>kcWi nC 5% VjC N+~ ]:C 5% iEPsD pms(! iERq5 nG*!L{( M15rP ySLM\ QRabEf BA0ztd Dv`"# D^0D\ -D^5Cs gH/s5 GA#0$ DXpJL V&I A ,-E|? [2Gu0 )37Ef 4&I +b tVn%" bq#dz rb/s@Fj m'8'g #zLk! Mdf*m^ GA#0$ tVn%" ]q#Q-E RyY0%K jgtKgJ <h 3SI Z}x._ kd2bB n6C&, GA#0$ "^2Uv 9XUtkO cZ}.R0 g~6C. R]>aR Y[zLR Ja?^sr Ja?^sr JJa?^sr nC 5% nC 5% Ja?^sr VcR]>y nC 5% TJa?^sr VcR]> PJa?^sr nC 5% '~r|n Ar6C. g~65v :C 5% dt&I =,O 'R_D\ XGT,1 }G!I, :C 5% eJED\Xc lnWI.j YAkLW+ 4g~}G 9"vWJ)\ nC 5% !uf./ :C 5% F.RrBZ G9J23 nG*!I nG.!I ;fXGl g~}G71 ' G3< WquXQ NUqu\y*K $XG<l )$nT0w( <g~67. .hln_ p*L!Z nG.!I nP+oP XC 5% 4&I p &I <# nP+:5 dgX/geK dgX/geK 67-MY A%tkO ?vWLb fX[ua 67+5! ~j)a% g~6C$l 6C%a% nG.!I [p]=! :C 5% n/\:/ nG*!I wTG3 "%N ; G\LHd IC>PI& R+7?9 >zB(l vWPI, V'et6 R\tms, uw T# !R6*X[ dlnX$ >sZ|67. rK1cd n/\:/ ms.v$ XC 5% (wzksU (g~ l ]r!QK WUs~f ab5r6 G<^Ds F'#HY iVmuH=z nP+oI &~EsJ Z|}G'Fw g~6Av QI_D\ *<IgJ DSMO+ c<Rw^ @w~qx zeAK" wkC*] IC)=% {@?'+ +77E+ C>PI& ]nC 5% >Yr1Hd imr $ Lpms'z ;kCIw s:nYq5 :C 5% uR6(Ef )!s(g~~ ^p2,1#; @abJ\ ?wY,c XC 5% cRwF[I 5kF"i; nG.!I %&;Y4< W"GmpH T$Gz4 tN%bZ OKX6] eKDJ) iqbpup3M U.d)< 6xg9.d) 9*VO/e ?r$6| q:K%N+\LSmk [z\Xj ]5SbD ^q.xn 1MOwIBHK JOus`R l}.'!= ,t%|N X.%,urgRB)Vj nG*!I Ik#\B% R]>kk R]>kk igB)*D I"]Bo &n+A: $K4mcRO \"[G? 'W[$,? C<O(B nG*!I Q,CT,1 p;=U~!pl #SMms.v nG.4C 5% ?bsqn q> _.p )Br\ ] v$`qH L{N~/ ="Y}ag |gZFuY =(Q?N~ *~q9O 8z+LU }gYo*% /ZZ'_ w=N^k 'km1P OBV/y UL, H7 {L^UQ {L^UU %juyU[/ eMqz- gYo*% c@;Wc@-K #k#B$ )Sc}cB$ "lm^4"@ GGGGGGGGIbX ssssssrLI vvvvw %%%%p %%%%%%| RRRRqU bb,y: <)IIIIIILB ybUyb VB$`X, ,LLLLK w##bM Gdbv.M"G ?"p?L ????-ri4 nNJUyb {K"Z2W T?fA' 3_K"X% x 0L; ."rfB Ogi=A ,0*"_% NV:n 9K& <6;g3aV )IIIIIIPD OA\Z1A =3$k 3r(y8 H_SHs1 (iqw`-O XmRzj; 5~GSa 8o03q D6>?u z2O_U _Y95R4yU ] x#0$"$7 -&_4k _3j|1 b]+U, uM+lU <6;g3aV 1g%0, _oW`x WN\(SJv VLc,+ &F-BN1 CK"VOK Y|p9I wCVhh KCpt7 D7cD4 y_CXx#e *rtoRtk f<k6<o Dl#f<a D5>D6 CXdCQ .ljflj (5SPh Em #@ N#A#D e|tO+KB tO+KB Qgk)k sHhhp sHhh~ QDUm*j &)R<I QIv QE )U(8 ( QE7;l V}O{rA *;\^^ /[iiW H)0@h @ q:%{ @e<1h- Jy~%< JyXJyXJye%< BghUJ h$hmZ b f N 9Z_J`_ vKblM r;,%2d? h@GLB r,"tt %1P:Q (GNEi v*w7: QQiQjh Qb4Tm Em3{B SD*leM [B[O[ ?[$!d($ dygK6 0V#k&u +T#.S vx,jb +/oGLWAy GLWKy +D/Dtw }V#y( {m]az}S 7qRw6 5!-]v LV#7N `F48: o/OOi 7cU7a{566D _W?@B v3'kC8 k+7WJ SVd]KN+ ZW?u; st55v, 2jt:V d]{#n Yb1e* /n-mR -S,+- UB,b.$X PO(%B c)Xif m17?M Tm ;I} Mm m: [y[T- '$!d2 KH#$)d*r !>H#r ;VWVt ,c.&T LB^u2 `/y}m =YRi16kR 27<Z} o/ jak :7}q/ rK("_ Y[m)e$K *'y/_o Q3OLK~ SI}?6 Q^U/_v [p=`/ yywl/ 6*|Z9 eYn?me ?;n}X WZ&U<6 mc*me* 6 P*Anu} )uI2| ZV[h$ vvv}X ;t%ZT Q,4=_ iK)"_ NJkVI _>+LN xenroll.dll xenroll.dll O=tao O=tao PURSAFO O=tao CN=tao/O=tao PURSAFO NAGH43 A|}zq xenroll.dll @ @@ @` @ @@ @@@@@`@@ `@ `@@`@``@ 02/18/98 03:19:10 PM Andrew Wharton/Iris updated [OtherDomainServers] 02/18/98 03:19:05 PM Andrew Wharton/Iris updated [LocalDomainServers] 02/18/98 03:19:03 PM Andrew Wharton/Iris updated OtherDomainServers 02/18/98 03:19:01 PM Andrew Wharton/Iris updated LocalDomainServers 02/18/98 11:33:32 AM Andrew Wharton/Iris updated -Default- 01/12/98 12:10:44 PM Andrew Wharton/Iris updated [OtherDomainServers] 01/12/98 12:10:37 PM Andrew Wharton/Iris added [OtherDomainServers] 01/12/98 12:10:31 PM Andrew Wharton/Iris updated [LocalDomainServers] 01/12/98 12:10:26 PM Andrew Wharton/Iris added [LocalDomainServers] 01/12/98 12:10:18 PM Andrew Wharton/Iris updated [-Default-] 01/12/98 12:10:04 PM Andrew Wharton/Iris added [-Default-] 01/12/98 12:09:54 PM Andrew Wharton/Iris updated -Default- 01/12/98 12:09:44 PM Andrew Wharton/Iris deleted Kevin Giles/Iris 01/12/98 12:09:44 PM Andrew Wharton/Iris deleted John Chamberlain/Iris 01/12/98 12:09:44 PM Andrew Wharton/Iris deleted James Cunningham/Iris 01/12/98 12:09:44 PM Andrew Wharton/Iris deleted Dennis Cunningham/CAM/Lotus 01/12/98 12:09:43 PM Andrew Wharton/Iris deleted Clapton/Iris 01/12/98 12:09:43 PM Andrew Wharton/Iris deleted Andrew Wharton/Iris 01/12/98 12:09:39 PM Andrew Wharton/Iris deleted Maryann Jacobs/Iris 01/12/98 12:09:38 PM Andrew Wharton/Iris deleted Staci O'Neil CAPrivlegedUser -Default- OtherDomainServers LocalDomainServers [-Default-] [LocalDomainServers] [OtherDomainServers]