PC World Komputer 1998 April A/Pcwk4a98.iso/Lotus/Notes46/LOTUS017.DSK/CERTSRV.NTF

Lotus Notes Database | 1997-09-10 | 734KB | 3,399 lines

Server Certificate Admin
#1StdNotes46SSLAdmin
CN=Lotus Notes Template Development/O=Lotus Notes
|a    ~me
|a    ~me
CN=Andrew Wharton/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes5
$Modified
    1S2S3S
$TITLE$FormPrivs$FormUsers$Body$Flags$Class$Modified$Comment$AssistTrigger$AssistType$AssistFlags$UpdatedBy$$FormScript_O
$Flags
    0SL1S4S5S3724
$TITLE
CN=Andrew Wharton/O=Iris###################################
CN=Andrew Wharton/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesUtilss34Q1#######################################
CN=James Cunningham/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################################################
CertAdminFullScreenCertAdminFullScreen
ooooof
CN=James Cunningham/O=IrisCN=Andrew Wharton/O=IrislsPtServer Certificate Admin
#1StdNotes46SSLAdmin###########################################
CertAdminFullScreen | CertAdminFullScreenG3
CN=James Cunningham/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################################
Key Ring Administration|Keyring Administration~
CatagoriesEntryLabelTempIsRoot$Conflict$REF
CertificateInformation
    3S4S
Catagories
CatagoriesEntryLabelCertificate Entry LabelTempIsRootTrusted Root&
538Arial
CN=Andrew Wharton/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################################################
DlgConfirmMergeCertDlgConfirmMergeCertC
CN=Andrew Wharton/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################################################
DlgConfirmCreateKeyringDlgConfirmCreateKeyringC
CN=Andrew Wharton/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^^
$ACLDigest
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Function ViewCert (EncodedCertValue As Variant, PKCS As String) As Variant
Declare Function FixFileName ( fn As String ) As String
Declare Sub NukeIt( fn As String )
Declare Function ReadFromFile (fn As String) As Variant
Declare Sub WriteToFile (FnLinkList As Variant, fn As String)
Declare Function isPKCS (testlist As Variant) As Integer' this function is a no op
Declare Function GetString( Byval sid As Integer ) As String
Declare Sub UpdateKeyProfile (doc As NotesDocument)
'++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
Const sid_CertReqCreate = 1
Const sid_CertReqSubj = 2
Const sid_CertReqCreateMail = 3
Const sid_KeyPair = 4
Const sid_CreateKeyCreate = 5
Const sid_MergeCertIsRoot = 6
Const sid_MergeCertIsNotRoot = 7
Const sid_MergeCertConf = 8
Const sid_MergeTrustConf = 9
Const sid_InputPasswordPrompt = 10
Const sid_InputPasswordTitle = 11
Const sid_KeyRingViewName = 12
Const sid_IsRootYes = 13
Const sid_IsRootNo = 14
Const sid_CertificateDeletedTag = 15
Const sid_InputKeyFilePrompt = 16
Const sid_InputKeyFileTitle = 17
Const sid_KeyRingViewCatCA = 18
Const sid_KeyRingViewSC = 19
Const sid_NoLabelErr = 20
Const sid_NoFileErr = 21
Const sid_NoPasswordErr = 22
Const sid_error = 23
Const sid_InputNewPasswordPrompt = 24
Const sid_PasswordChangeSucc = 25
Const sid_cancel = 26
'++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: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: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: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: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:isPKCS:1:8
Function isPKCS (testlist As Variant) As Integer' this function is a no op
     hacklist = testlist
     Forall k In hacklist
          If Left$( k, 15) = "Originator-Cert" Then
               isPKCS = 0
               Exit Function
          End If
     End Forall
     isPKCS = 1
End Function
'++LotusScript Development Environment:2:1:GetString:1:8
Function GetString( Byval sid As Integer ) As String
     'Here are the strings for international translation
     Select Case sid
     Case sid_CertReqCreate '1
          GetString = "Certificate Request Created"
     Case sid_CertReqSubj '2
          GetString = "Certificate Request"
     Case sid_CertReqCreateMail '3
          GetString = "Certificate Request Created and Mailed"
     Case sid_KeyPair '4
          GetString = "KeyPair"
     Case sid_CreateKeyCreate '5
          GetString = "Key Ring Created"
     Case sid_MergeCertIsRoot '6
          GetString = "This Certificate is a Trusted Root"
     Case sid_MergeCertIsNotRoot '7
          GetString = "This Certificate is not a Trusted Root"
     Case sid_MergeCertConf '8
          GetString = "Merge Signed Certificate Confirmation"
     Case sid_MergeTrustConf '9
          GetString = "Merge Trusted Root Certificate Confirmation"
     Case sid_InputPasswordPrompt '10
          GetString = "Input password for "
     Case sid_InputPasswordTitle '11
          GetString = "Password Input"
     Case sid_KeyRingViewName ''12
          GetString = "Keyring Administration"
     Case sid_IsRootYes '13
          GetString = "yes"
     Case sid_IsRootNo '14
          GetString = "no"
     Case sid_CertificateDeletedTag '15
          GetString = "** Certificate Deleted **"
     Case sid_InputKeyFilePrompt '16
          GetString = "Enter the Key Ring File to Access"
     Case sid_InputKeyFileTitle '17
          GetString = "Key Ring File Access"
     Case sid_KeyRingViewCatCA '18
          GetString = "Certification Authorities"
     Case sid_KeyRingViewSC '19
          GetString = "Site Certificates"
     Case sid_NoLabelErr '20
          GetString = "No Entry Label for Selected Certificate"
     Case sid_NoFileErr '21
          GetString = "No Key File Selected"
     Case sid_NoPasswordErr '22
          GetString = "No Password Entered"
     Case sid_error '23
          GetString = "Error"
     Case sid_InputNewPasswordPrompt '24
          GetString = "Input New Password for "
     Case sid_PasswordChangeSucc '25
          GetString = "Key Ring File Password Successfully Changed"
     Case sid_Cancel
          GetString = "Operation Cancelled" '26
     Case Else
          GetString = "Unknown sid"
     End Select
End Function
'++LotusScript Development Environment:2:2:UpdateKeyProfile:1:8
Sub UpdateKeyProfile (doc As NotesDocument)

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

     prof.KeyFileName = doc.KeyRingFileName(0)

     Call prof.Save(True, False)

End Sub
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$ScriptLib
$ScriptLib_O
$TITLE
$Flags
$PublicAccess
&Arial
<>$$Web
    8S11S13S14R21S24S
3cZ!cd
dBqkl
ZqfeM
!!!)))111999BBBJJJRRRZZZccckkksss{{{
sRRB!
sJsc9
BkZ)cR!
s9sc1
{9{k1
s{sRskJ
{RkcB
{1{k)
9sc!B9
{skBkc9
{Bsk9
J{s9kc)
7.RIP
    When accessing the Server Certificate Administration application, make sure you are working at the server machine and are accessing the database locally. The Server Certificate Administration application must access files on the server hard drive.
    The Certificate Authority application contains the following navigator options:
    Create Key Rings & Certificates
    Use this option to create a signed server certificate or create a self-certified certificate.
    1. Create Key Ring File
    Creates a password-protected file on the server's hard drive that holds the server certificate and trusted roots.
    2. Create Certificate Request
    Creates an unsigned certificate and several default trusted root certificates, and lets you submit this request to an internal or external CA for signing.
    3. Install Trusted Root Certificate into Key Ring
    Adds the CA's certificate as a trusted root to the server key ring file so the server trusts certificates signed by this CA.
    4. Install Certificate into Key Ring
    Adds the signed certificate from the CA to the server's key ring file.
    5. Create Key Ring with Self-Certified Certificate
    Creates a key ring and server certificate that is not signed by a CA, but can be used to test SSL on the server.
    View & Edit Key Rings
    View information in the server certificate, display certificates in another key ring file, and change the password for the key ring file.
    View Certificate Request Log
    View information about server certificate requests submitted to an internal or external CA.
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$Info
$Body
HotspotRectangle9
KeyringAdmin
    1S4S
HotspotRectangle10
CertLog
    1S4S
HotspotRectangle12
CertAdminCreateKeyRing
    4S5S6S7S8S
HotspotRectangle13
CertAdminCreateCertRequest
    4S5S6S7S8S
HotspotRectangle14
CertAdminMergeTrustedRootIntoKeyring
    4S5S6S7S8S
HotspotRectangle15
CertAdminMergeCertIntoKeyring
    4S5S6S7S8S
HotspotRectangle16
CertAdminCreateKeyRingWithSelfCert
    4S5S6S7S8S
HotspotRectangle8e
CertAdminFullScreen
    1S4S6S
GraphicButton10P
    skY4m
|~|~|
-;-8-8.b5
;713<13<1m
5.N85
47`]4><=7
86286N
58m;m;m
]4]>`
7>1LB;
82@8gD8N8D8
NDgBLBDO<B8
B;Nb;
8;8;b
1`=<>
<]<L>L<L7<L
gDSDgPN
D    NDPBLPBLg
58m;m5
OL><LBLO
@    gDgUPDOgU
8N8N858b=b=4=
bm;mb8b
PLBgO
gTSghgUg
D@SDgSOgPgL
bm87bL8b8B
BCLCLP
9|^SUSU
UShVSU
USOIdUVP
DgODND
8D8B`L
]m`=`m
|trurtr|
8L8BLPgD
TPUSgUgS@ptSE@S@EUSE
UVSEUhUd
@OBLO
t9tut9t
;b;bDN7DBNgD
gDOSOUg
[CE^r
poh?tr^g
PhgOUS
1=b;=
NSgUD
PUSPUV
9KStGS^[XKUQr^io
rcOpI
TWUVEVUV
OBOLB`
rtpt9
yZwlw
_    9lE@SEUEW
WPhESPgT
|rtrt
m5;b8
UXWVi
iVWVXWhUhSWXU
rupt9
;m;NL8N
cXRfd
MEWr[UECI
ViWXEWhWUWU
PTPOPO
rprtr
rtr9t
ut|~|
uwlwl
turtr
;    NbgDNgSD@
hWX@E@
pa_XEG
EWXWEXWEWEhE
ThSQPNTBOL
tut9t
{}u}u~
SUXVU
YWiXiWjXEX
XjWXWEWjXi
E    UEUESWhUS
rtrpr
|tutut
{u}~}
t|9u{|
rtptpt9r9t
t9trtr
bgBPgUgUSES
WEWEWXW
WEiEX
jEWXijEjXj
T    UPOTLNL58
t9t9t
t9ut9|
|tptrt
rt9t9t
ut9t9r9r
trprp
r    prpr|rpr
8LOUTVSiSUSXSWEWViWX
MnjWjiWXWEjEW
SWhWV
SUPNBL8-
|u9u9r
|tptp
t9t9t
{9u9t
rtr9tp
rtr9r
TWUPUgUg
tu9{u
trtrt
|prtr
    |ptprtr
ThThV
RiEiEij
E    WEi
Jhp_E
TUPD@858;
|tr9r9t
t9u9u9u{
|t9rtr
9tur|
=mNbgTUTUVh
WjXWX
_9rUWjJr
fcpio[n
rt9t9r
u9u9|
|tu9t
{u{u{u
tu{u{
|ut9t|
eVran
GnrGj_
njpri[rif
fXnRjX
WEWEW
9t9t|
rt9r9
prptr
rt9rt
9t9r|
SUVWUji
[r[Xjo
_n9[R
P8N8;
prprprp
r    trprprtrt
rtptp|
9u9u9
}u{u{~
u    9ut
|tr9tr
rprtrp
rt9tr
prprprp
DhUSVX
_a_IEr\[_iEWXd
MXprXn
jrGjYrpiEdp
85-m-
|rtrt
pt9t9
|tu9{
u9tu|
r9tr|
b1NgNg
_EVQEIr
i[rea
pX_K_
QEiE_
EUg@ND2N5-
rt9tp
{u{t}|
9trpr
rt9rt9t9r
tutur
rprpr
bN7gB
E    XWiXipoiX
ifpfjX9
c!9WcpjiopWjnpap[i_9[KWiEWiG
r\a9CX
SP@N8N0
rtr9t
tu9ut
t{u{u
~}{u{u~|~
ut9t|
rt9tr9|
tu9t|
b8b8gOPUSUWijiXEX
iEXiXiXW
RXifraW
jXijXi
XWXiEX
rprpr
|ptr9
trtp9t
|9t9ut|
|}|}~t
ptr9r
|rprpr
urptr
gNUDP
XWXorp
XiXWj
iEJrp
DN8-8
|}tu}
}{u{u
|u9t9|
rt9t9rt9
;mL7BPgPU
XnfWj_pCIci
iTdRj
WUSESU
|rt9t9
}u{u{
u{u9|
9t9t|
    ptrt
prtrt
tr9rtr9ru9t9|
tu9tu|
turu|
gPhVhVU
WiWfnW
XEWXU
@USE@gSgDL60-0
prprprp
prprprpr
rtrpt
|9t9u9
tu9u{u{u{u{}|}|
rprprt
tr9tr
|t9tu
rtutu9t
rtur|
r    prprpr
trprpr
r    trprprpr
r    trprprtr
8OLgPTP
oWEQEX
iXiXW
WhUE@S
r|rt|t
|}|}~
    rtr9r|r
|rt|t|
E,WQG
rMX^ap9p
r_EpI_r
pC^_WR\
D@SDBP0N
;7bNbNLPBgThTUTShUWUE
E<WXnrXo
dPp9WG
QVRiMXM
f[rEOQEXEiVX
hVSUh
=m=m78NLOLg
EUEUEU
_EWEWhrpna
Er_EX
@SDND6N282
TPSOP
S[rhW
9pXr^XWj_rQE
\r_anKUQ[
XTVhVTUhUPDgS
[QhJh^rQXfVp9EUE
Cif[rQa
dUOQaMJ
OUOg@SN6DNDN6
bL1LbLBLBgBgSDS@g
pE{IEI9
trprt
|~|~|
DgDS@PgSUg
PWPUhVhUSE
hSWhUEWi
SUhPhUgU
m7b7bLb7bDN
P    gUPUgUShg
gEPESUS
EPUEShPh
TUSgShU
OBPBPOB
8N@8N8NLNBgLPDBSDUgOgU
SUPSUS
UPUgUPTPUgOTDP
P@gNLB
N808-
mb8b858Nb
gPDNB
SPSgSgS
PUgUPOPOPgD
SgODgDgDg68DL
*L8L2N
-8b=bLbL
NDNOg
BSPD@DPSPNDOgPSN6S@gP
g8g8Dg6D@6N68L<
1<1<7L82
5=mbm
N28NDN
gO6DNg
g6N6NDg5
;=m=1b
8B5N85D.D2
N6D82;
-m8;mN;
    |}|}
|    t|}|}|}|t
|~|~|
|~|~|
|t|t}
!!!)))999BBB{{{
kkkBB
cRsRJsRB
9Bs9B{BJ
11cJB{91kkc
RJ{JBs1)Zsk
ZRs)!B1!JR9s
kRsZ)kJ)RB!JsJ{k9sZ!c
Z9ZJ)J1
9c!cZ
ZkBcZ1RZ
JB!9k1Z
JZ)Jc
9sJcc9Rc
Rks1Rs!J{BZ
cskBR
BRk)9{1B
lScreen"; "1")
}}}}}}}}
uuuuuuuu
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
CertificateInformation
Categori_zep
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderB
Select Key Ring to Display'++LotusScript Development Environment:2:5:(Options):0:74
Use "Utils"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:10
Declare Function ProcessSecurityCmd Lib "_dmsecadm" (Byval cmdName As String,_
Byval cmdArgs As String, Byval OutBuf As String, Byval szOutBuf As Integer) As Integer
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

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

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

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

     Call NukeIt(filename$)

     KeyRingFileName$ = Inputbox( GetString( sid_InputKeyFilePrompt ),GetString( sid_InputKeyFileTitle ) )
     If KeyRingFileName$ = "" Then
          Messagebox GetString( sid_NoFileErr )
          Exit Sub
     End If
     Password$ = Inputbox$( GetString( sid_InputPasswordPrompt ) & KeyRingFileName$, GetString( sid_InputPasswordTitle ) )
     If Password$ = "" Then
          Messagebox GetString( sid_NoPasswordErr )
          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( sid_error )
          Exit Sub
     End If

     Set db = sess.CurrentDatabase
     Set view = db.GetView( GetString( sid_KeyRingViewName ) )

     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 = "CertificateInformation"
               doc.Catagories = GetString( sid_KeyRingViewCatCA )

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

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

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

          If (Left$ (k, 12) = "TrustedRoot:") Then
               On Error Resume Next
               If linklist(Cint(Listtag(k)) + 1) =  "PrivateKey" Then doc.Catagories = GetString( sid_KeyRingViewSC )
               If linklist(Cint(Listtag(k)) + 1) =  "PrivateKey" Then doc.HideSiteCert = "1"
               If linklist(Cint(Listtag(k)) + 1) <> "PrivateKey" Then doc.HideSiteCert = "0"
               On Error Goto 0
               doc.TempIsRoot = Right$(k, (Len(k)-13) )
               Call doc.save (False, False)
               incr = incr + 1
          End If

     End Forall

     Call workspace.ViewRefresh

End Sub
Change Key Ring Password'++LotusScript Development Environment:2:5:(Options):0:74
Use "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 Buf As String * 500
     Dim CmdArgs As String

     KeyRingFileName$ = Inputbox( GetString( sid_InputKeyFilePrompt ), GetString( sid_InputKeyFileTitle ) )
     If KeyRingFileName$ = "" Then
          Messagebox GetString( sid_NoFileErr )
          Exit Sub
     End If
     KeyRingFileName$ = FixFileName(KeyRingFileName$)
     Password$ = Inputbox( GetString( sid_InputPasswordPrompt ) & KeyRingFileName$, GetString( sid_InputPasswordTitle ) )
     If Password$ = "" Then
          Messagebox GetString( sid_NoPasswordErr )
          Exit Sub
     End If
     NewPassword$ = Inputbox(GetString( sid_InputNewPasswordPrompt ) & KeyRingFileName$, GetString( sid_InputPasswordTitle ) )
     If NewPassword$ = "" Then
          Messagebox GetString( sid_NoPasswordErr )
          Exit Sub
     End If

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

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

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

     If rc% = 0 Then
          Messagebox GetString( sid_PasswordChangeSucc )
     Else
          Messagebox TrimBuf$, 48, GetString( sid_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 Menuc@
CertAdminFullScreen
    1S4S6S
    0    0
^     )l
~@    #JT
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
$SelQuery
$ViewFormat
$Comment
$ACTIONS
$SCRIPTOBJ_6
$SCRIPTOBJ_7
$SCRIPTOBJ_8
$ViewGlobalScript_O
Certificate Merge Confirmation
 DlgConfirmMergeCert
    The certificate will be merged into your key ring.  Check the information below, then click Ok to install the certificate, or Cancel to stop the operation.
    Key ring file name:
KeyRingFileName
KeyringFileName
    Certificate Subject:
StartDateField
StartDateField
EndDateField
EndDateField
    Certificate Issuer:
    Certificate Information:
SubListField
SubListField
IssListField
IssListField
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Info
$WindowTitle
$$Script_O
$$ScriptName
$Body
Key Ring Created
 DlgConfirmCreateKeyring
    Your key ring has been created.
    Key ring file name:
KeyRingFileName
KeyringFileName
    The following Distinguished Name will be used for all certificates created for this key ring:
    Common name:
CommonName
CommonName
Organization
Organization
    Organization:
    Organizational unit:
OrganizationalUnit
OrganizationalUnit
    State:
    City:
StateProvince
StateProvince
Locality
Locality
    Next Step:
    You can now add certificates to your key ring.  Choose "Create Certificate Request" from the main menu to generate a certificate request.
    Country:
Country
Country
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Info
$WindowTitle
$$ScriptName
$Body
DlgConfirmCreateCertReqByEmailDlgConfirmCreateCertReqByEmailC
CN=Scott Davidson/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####################
DlgConfirmCreateSelfCertDlgConfirmCreateSelfCertC
CN=Scott Davidson/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################################
DlgConfirmCreateCertReqByClipboardDlgConfirmCreateCertReqByClipboardC
CN=Scott Davidson/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
CN=Andrew Wharton/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################################################
CertReqEmailCertReqEmailCD
CN=Scott Davidson/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######
DlgConfirmMergeCertDoneDlgConfirmMergeCertDoneC
CN=Scott Davidson/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################################################
DlgConfirmMergeTrustedRootDoneDlgConfirmMergeTrustedRootDoneC
CN=Scott Davidson/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####################################
CertLog | CertlogG3
CN=James Cunningham/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####################
KeyringAdminG3
CN=James Cunningham/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################
DlgConfirmMergeTrustedRootC
CN=Andrew Wharton/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############
DlgAlreadyHaveKey1CD
CN=Andrew Wharton/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####################
CertAdminHeader | CertAdminHeader
CertAdminMergeTrustedRootIntoKeyringCertAdminMergeTrustedRootIntoKeyringC
CN=Andrew Wharton/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
##########################################################
##########################################################
##########################################################
Certificate Request Created
 DlgConfirmCreateCertReqByEmail
    Your certificate request has been created.
    The Distinguished Name you entered:
    Next Step:
    The Certification Authority will send you instructions for picking up the signed certificate.  The details depend on the CA, but a common approach is to e-mail you a URL where you can access the signed certificate and further instructions.
    The certificate request has been sent to:
CAEmailAddress
CAEmailAddress
TempCertView
TempCertView
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Info
$WindowTitle
$$Script_O
$$ScriptName
$Body
Keyring Created
 DlgConfirmCreateSelfCert
    Your key ring has been created with a self-certified certificate.
    Key ring file name:
KeyRingFileName
KeyringFileName
    Distinguished Name:
    Common name:
CommonName
CommonName
Organization
Organization
    Organization:
    Organizational unit:
OrganizationalUnit
OrganizationalUnit
    State:
    City:
StateProvince
StateProvince
Locality
Locality
    Next Step:
    You are now ready to enable SSL on your server.  See the Domino User's Guide for instructions on how to configure the Server Record in the Address Book to enable SSL.
    This certificate is valid from:
StartDate
    2S15SEndDate
    Country:
Country
Country
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Info
$WindowTitle
$$Script_O
$$ScriptName
$Body
Certificate Request Created
5Courier New
 DlgConfirmCreateCertReqByClipboard
    Your certificate request has been created.
    The Distinguished Name in this certificate request is:
    Next Step:
    After copying the PKCS-encoded certificate to the clipboard, choose "Request Server Certificate" from the main menu of the Certificate Authority Web site to submit the request..
    Below is your certificate request in PKCS format.  Copy the certificate to the clipboard by selecting all the text, including the BEGIN and END statements, and pressing CTRL+C.
PasteCert
PasteCert
TempCertView
TempCertView
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Info
$WindowTitle
$$Script_O
$$ScriptName
$Body
&Arial
    The "Maximum Internet name & password access" setting in the Advanced panel of the Access Control
    dialog should be set to "No Access" so that Web users cannot access this database.  If this is not appropriately set,
    the following is displayed to users who access this application from a Web browser:
The Server Certificate Administration application must be accessed
from a Notes client (Release 4.6 or later).
s_z_x
os_zPUi3
!!!)))111999BBBJJJRRRZZZccckkksss{{{
{ZRB!
{ccZB
s9sc1
{9{k1
{RkcB
sZR1cZ1
{1{k)
9sc!91
{skBkc9
{J{sB
{Bsk9
{s1kc!
W33F/V0
    Welcome to the Server Certificate Administration application. Use this application if you're a server administrator and you want to secure your servers with SSL 3.0. You must use Domino and Notes Releases 4.6 to use this application.
    Before you begin, make sure you understand Internet and intranet security issues. For more information, see
    Getting Started with Domino
     or online administration Help (HELPADMN.NSF).
    The Server Certificate Administration application (CERTSRV.NSF) lets you request server certificates from either an internal or external Certification Authority (CA) and manage your server certificates in a key ring file. You must access the application using a Notes workstation or administration client at the server machine.
    The Server Certificate Administration application lets you:
    -Create the server certificate and key ring file, which holds your server certificate.
    -Send a request to a CA to sign the server certificate.
    -View requests that you submitted to CAs.
    -Add a CA's certificate as a trusted root to the server certificate.
    -View information about certificates in the key ring file.
    -Control client access to the server by adding or removing trusted root certificates from the key ring file.
    -Create a self-certified certificate for testing purposes.
    For information on using the Server Certificate Administration application, see the Using document
Certificate Administration
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$Info
$Body
 CertReqEmail
SubmitMethod
    1S2S
$HideMailHeader
    0S0E
SendTo}
    0S0E
SendTo^
No names found to send mail.{
    1S6S7S8S9S11S16S
SendToList of primary people to send memo.
    From:
    Subject:
Certificate Request
Subject
    Site contact:
RequestorName
    Email address:
RequestorEmail
    Phone:
RequestorPhone
    Server:  Domino 4.6
    Comments:
RequestorComments
PKCSCertReq
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
Trusted Root Certificate Merged
 DlgConfirmMergeCertDone
    The certificate has been merged into your key ring.
    Next Step:
    You are now ready to enable SSL on your server.  See the Domino User's Guide for help in setting up the Server record for SSL.
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Info
$WindowTitle
$$ScriptName
$Body
Trusted Root Certificate Merged
 DlgConfirmMergeTrustedRootDone
    The trusted root certificate has been merged into your key ring.
    Next Step:
    You can now install certificates signed by this CA into your key ring.  To obtain your certificate, go to the URL provided by your CA, or choose "Pick Up Certificate" from the Certificate Authority site and provide the Pickup ID of the signed certificate.
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
/;RKt
~a9,{gvh
$TITLE
$Info
$WindowTitle
$$ScriptName
$Body
Certificate Request Log
HotspotRectangle8
CertAdminFullScreen
    1S4S6S
HotspotRectangle9
KeyringAdmin
    1S4S
HotspotRectangle10
CertLog
    1S4S
GraphicButton8
    skY4m
6 .62-2.
b;b-b73171=
*    ,*<,%A
6N6L2.65b;-L
><K>K]
,L+>)
L02N07
 DB6B26
>%>K>)K><L17
mb=4`4`]4
*8,<(>
>4=878
8LBLD
8bB<CLK<>C>
KLCOC>C>LC<L;N7;L7<`<4`4
N    7DOLOCLOC
K<CO<OBLBg
4`1`]>
OTCOCOTOCPOCP
TCgPLBgD
LO7LOL<B
8&<&7<
L1<1<L<L
@SgOTP
I    TOTPOTOTO
BgSDOS
OBLBLBL>`>
2#*B,B&8
87LN<
7LODO@
@S@S@^
?9pPTVP
OUTOPg
PBLb8BNB7L7`
#B,SO*L*L
8BN@O
@SPSh
VTUS@E@S@E
UVhVTh
PTPSg
ONLOLB
L    8L=b1=
P*S*P,gL8ODL@
S@SUSU
Sr[SEt\E
pdQ9?Vo9JVc\SEUSE
EPUSVSP
PgPUOgDO
7ObBL`=b
TSPSOPSPBDPD
E    @E^
EH9Qc
GV9GU
hVUVEhUV
bLb]b=4
L,O,STS#E*STSPSP
USESU
SUESU
9pX|9n_
EUhPhESUPTOPTPTOQ
L=1]4
1<,CBOQOT
Wir\9^WEp9Er9
ViVWVX
UVPhXTUhPUTUTOPB
OBL>`<
&KL+B
WEVWh
E_rgEfiXrpniprG
i    WiEWVWUWU
UhUhTU
><>`]
iWjf9G
n^ETG
GjicpCio9M
EhXWEiWUWEhE
ThUThSTOgPgOLOCL>4>4]
>,L,B,
U/ESE@ESUVX
iWiXiWYXEW
jijXjWXWEW
ESEWVESPTPh
<><>]>
OVPVUWUW
XijEjXj
VPOQLO<
&,B,hS
SMCXEWXiWX
iXWEQ_QET[pX_KWXEiX
jXijWjiWXWEjEW
SXhXV
T    PTO<C<>
QafEd
XdajijiX
jWijXi
jXjEXEi
iWEO^X
8*O*PU*
CEXQX
ijEiEji
WEiji
XSEUTUP
L,SQhVWiXiXYi
[OXpor[p
rcCpf9
    pipcif[
rpERG
rfjXiE_
9KECp
pojCp
gBPBL`1
><O*S
XWi9\E\[E
nirpRi
RfrpeE_pho
nGpoW_rUI
E[rRf
njp\W\pC
IXfRG
E    hUhTBL><=
4&%LP
WiWEYM
dXEiWO
dXiXRH
WSUPSTP<L7
1>8*U*UXEUiX
GiEjWO
JiEip[id
ijr9_
Qr_EXp9X
USgOLg
niPKEp[SEOE
_Er9RTQ
Mj[piEHrQEC
i_rPECE[tUC
oM[rXc
g    LB18bm
&<BOP
hEUWE
IE9oWjX[
nfpCE
pcEC[
opfYf
GXjXWop
fpMU\
G\IEC[
oTGp\RXQp
UEWYjiXEXW
WXEWEjXE
iEXiXiXW
UPUgDNLb=bm
iWXEWE
iEWEW
8,LKOCOTPQUVXi
gSBNL7m
&<,O<OCBOQTVihVhVhEh
iXiXi
WiEiXW
XEWXU
gO7b`
>L,COBCQOP
VhVWV
XiWEWEX
iXiXW
&<,O,
BCPQOPT
9JWRG
pHpiXEiWEXEW
iXiWiXWi
WUXEiVX
TVgUh
0'L*<C<
WUEWEWEWXWXi
c[pEVn
XEXEX
XiXhXEWE
iViVhTVTVThTUTgSgB@L
XVhiX
oGtXWG
XhUTQ
TQTVTPhPONDSN
bNb=m=
{pKdKO
hEXEhV
PBgDP78N8N8;
1%)><1;bLbBbLONBgN
TPTUhWh
VhUXUE
tJSicp
UEUWVWThThPUSUSU
=3m7b
NODSgPgSPgh
VhUPU
SVEUPh
XiUXVPXQp[
g    POTPQOQTQ
Lb78NbN8DN8NDgND
SPUSTPUhPTPUT
b8NB8b8NLNDONPDBUDP
SPTOUPQUQTQPQ
PQdChT
SPOPO
O    L<L>L>L>7
`7bL1Lm
b85bNb
B    LBgLBDOLO
O    TCTCOQTOT
OPTOC
BO7<B<
<>`L`7L
73bm1
L>L<B>
L<QOCL
QBCO<C
4`4<3
34b`4`4]>]<ALC
C<KLORLOBQ*BPO*O*
Q    L<LK<BCLB
`]4`>A]
?K>KA
KA>CB<BC,O,LOL
O*B8'L<K>A
A>]>A>
>)AKA%><L,K*
OK><L&LB,D8
A>(s)
<>L,>,O,<L8L><>)
A(,>,
,<*,<>)
>(A:x
)]%>%>&
>&<&<%(>
!!!)))999BBB{{{
kkkBB
cRsRJsRB
9Bs9B{BJ
11cJB{91kkc
RJ{JBs1)Zsk
ZRs)!B1!JR9s
kRsZ)kJ)RB!JsJ{k9sZ!c
Z9ZJ)J1
9c!cZ
ZkBcZ1RZ
JB!9k1Z
JZ)Jc
9sJcc9Rc
Rks1Rs!J{BZ
cskBR
BRk)9{1B
avigator]; "Cert
*.PCX
TIFF 5.
ator]; "Cert
ator]; "Cert
ator]; "Cert
ator]; "Cert
ator]; "Cert
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
Keyring Administration
HotspotRectangle8
CertAdminFullScreen
    1S4S6S
HotspotRectangle9
KeyringAdmin
    1S4S
HotspotRectangle10
CertLog
    1S4S
GraphicButton10
    skY4m
6.6.62
-05;0-0;
m=mb-2.860
m;m5-;5
525.26
m85-;NL5L08
5b;5N6
8    @D@6B6D6D
m;m=b=
8    ND8DN28N8
NDNPgP@P
D@6D6.D
N2B0<B082
L1bL7
DSDSD
S@Dg@D6
2B6B2L<8173
BLb8N
TS@hSPSUSUS@
@SPDS6Dg
LO#OB8L81L;-5.
b7BOB
@Ng@g
gPUSP
SThShSUShUSUhUS
USUSg@S@D@SD
;bDBL@
S@SUP
SUSVWS
@SETSh@Sg@D@g
LgNOLDL6
8260.20.-
m    =8;=bNLNb
UWE@UXhWUW
EWS@E@SUhU
6N6862.-
;    DNbDNDgDO
DgSPSg
SEWSWE
SWSUSh@g
2582.
;8DODL
BSgSD@g
UPWTS
WEWEXUXE
8DN582-.
hEUK^
XCfWXWE
P_OQnR
EUEShUSUSV
VhUSh
.602.262
ESESES?
WhWhU
NLbLDg@
PTEShSE
hEWhEWhUhTSTSD@NDND$N 6
m=8bO
Ei\rEIp
aE\_jf9_EC9Q
IGrVWXEiX_
dfpfGr
pWEXWEWEWEhWhU
hWUhU@h
;OBLPDN
E    SEhVUESE@
|f[rin9rW_r
9RQnXiXia
efr9M
TS@D@
bOLPgUgUSE
iGr_nroJ
Pp^EXjX^
KMKEa
UhXhSV
bLBThVSXSUSiSWE
iXE\rHp
XrGWG
oWEiEn
MW9piXj
hVSThD
EWXiXj
KiRQXG
MKMTO
ej[rY
i    YiXjWXWXW
hXhUhSUS@D
7LNTUThVijW
p9UEWcpWE_r
MpoifpaijijiCp
rIpCfpfWQ
jijiji
8bDTPhTVhiVWiXW
S@U@S
m`=8NOSPT
i    jijEWEWji
WiXWjYjX
WEWEX
=LNgDSPXWU
EWXEXW
XjWiEjE
UEUSUS6
m=N8ghUSVX
IEXEXEiEWiE
WXiEi
b=BgNg
iT[rW
ijijiE
jiXiX
XEX@E
;LbOL
aTpJiQpeiWE_
jnGX_
rfEor
HpcX_
P    SEWijiXEX
Cp[XJ
QXjW_
_nrej
oifjXj
;BDU@P
oWXGr_nrao
XWjE_
_9rfj
i9rij
;mB8BP
fEGr_
Gjp9Y
riEWi
m8;D7NBgPhV
iXiXM
KWQRE\r
iE9pi
_CIf[rEXi
XEWXEU
Pg@PDL6.
m;bBD8gNDPUP
XiWCpCifpninr
IpWEC9e
iHGXE_^EQ\[?
cOGpGf
@ESE@
b;N8NBgPOgU
WjWjXiYiXEjETWEc
@gNDSL
UhUhUhUE
WYEWX
WEWEiWX
VihVXhWS
DBL8L713;
bm;mN8
gDgSUhPUPU
EWUEXEW
XCdTX
WXWEWEhXViW
@S@D@BLB8L1713m
;8N8D
g8B7<
WiWXE
UiXEUEUEXEU
81b31=
hUhXhUXUEU
SiUiXhX
0.0BL
PSTPSP
hXhESE
PXPUT@USES@S@TUhg
B6856581
L0O"OLOCO,hO,SPSP@Th
SUShSUS
hPhEUSU
@SgDgDPgNDOgL
'L,B,O,STP,@DPDO
SUSESUSUEUSUS
@    D6N6N6N86
N5N-80-5
,COPO,B
@UgUSPSTgUPOUOSODgDOD
OSgON
@D@N6DN@DN86D26
8N08;8
2'L+,B
BL#BL"OL
@S@S@
SDgPBNP
O6g8Dg2
6585.5-8-8b;
Bf,O,O*'B"8L
NL!D"g@D6D6D@
8DO25858NB5N8.8585
LB8N6D
 6D6@D
@6BN2N2N5252
-;8.b8.m
 D6 D6 D
5.0.8582N;-08N
26.8-
b;m5m
m-m;0m0
#    "#"'(
!!!)))999BBB{{{
kkkBB
cRsRJsRB
9Bs9B{BJ
11cJB{91kkc
RJ{JBs1)Zsk
ZRs)!B1!JR9s
kRsZ)kJ)RB!JsJ{k9sZ!c
Z9ZJ)J1
9c!cZ
ZkBcZ1RZ
JB!9k1Z
JZ)Jc
9sJcc9Rc
Rks1Rs!J{BZ
cskBR
BRk)9{1B
avigator]; "Cert
*.PCX
TIFF 5.
ator]; "Cert
BMP Image
ator]; "Cert
]; "Cert
ows 6.0
F_IGI
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
[W|lW
*:ERl
$ViewMapDataset
$ViewMapLayout
$NavImagemap
Trusted Root Certificate Merge Confirmation
DlgConfirmMergeTrustedRoot
    This certificate will be merged into your key ring as a Trusted Root.  Check the information below, then click Ok to install the certificate, or Cancel to stop the operation.
    Key ring file name:
KeyRingFileName
KeyringFileName
    Certificate Subject:
StartDateField
StartDateField
EndDateField
EndDateField
    Certificate Issuer:
    Certificate Information:
SubListField
SubListField
IssListField
IssListField
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Info
$WindowTitle
$$ScriptName
$Body
Certificate Request Log|CertificateRequestLog
TimeStamp
T0S1V
    1S4S
SubmitMethod
Email
Clipboard
    1S3S4S6S8S
$9$7$Conflict$REF
CertReqLogEntry
CertReqLogEntry
    3S4S6S7S9S10S1
$9Time0
TimeStamp
T0S1V
    1S4S
$7Request Type^
SubmitMethod
Email
Clipboard
    1S3S4S6S8S
CN=Scott Davidson/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################
CertAdminMergeCertIntoKeyringCertAdminMergeCertIntoKeyringCD
CN=Andrew Wharton/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
CertAdminCreateKeyringCertAdminCreateKeyringCD
CN=Andrew Wharton/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###########################
CertAdminCreateKeyringWithSelfCertCertAdminCreateKeyringWithSelfCertCD
CN=Andrew Wharton/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###########
CertAdminAppProfileCertAdminAppProfileC
CN=James Cunningham/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################################
CertificateInformationCertificateInformationCD
CN=Michael Decoteau/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#
CertAdminCreateCertRequestCertAdminCreateCertRequestCD
CN=Andrew Wharton/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
CertReqLogEntryCertReqLogEntryCD
CN=Andrew Wharton/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################################
##########################################################
##########################################################
CertReqLogEntry|CertReqLogEntry
Categori_ze
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From Foldert
Main Menu
CertAdminFullScreen
    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
$SelQuery
$ViewFormat
$Comment
$ACTIONS
DlgAlreadyHaveKey
A key ring file for this server has already been created.
WARNING!
Are you sure you want to proceed?
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$NoBackgroundOverride
$Info
$$ScriptName
$Body
Merge Trusted Root Certificate Into Keyring
5Courier New
 CertAdminMergeTrustedRootIntoKeyring
SubListField
IssListField
StartDateField
EndDateField
TrustedRootField
SaveOptions
Install Trusted Root Certificate
    Use this form to install the Certificate Authority Trusted Root certificate into the server key ring.  If you haven't already done so, first obtain the Certificate Authority Trusted Root certificate by choosing "Accept This Authority In Your Server" from the main menu of Certificate Authority Web site.
    Note:
    This step of installing the Certificate Authority Trusted Root certificate into your server key ring is required before you can install other certificates signed by this Certificate Authority into the key ring.
    Key Ring Information
    Quick Help
    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
PasswordPassword for the key ring file (at least 6 alphanumeric characters recommended)
    Specify the name and password of the key ring you created with "Create Key Ring".
    Certificate Information
    Certificate Label
CertificateName
Certificate Label is required
    3S4S
CertificateNameName to display when viewing the certificates in a key ring
    The identifier you'll see for this certificate when you choose "View & Edit Key Ring" from the main menu.
    Certificate Source
CertificateSource
File | 0Clipboard | 1
    The source of the certificate can be from a file or from the clipboard.
CertificateSource
    1S2S
    File Name
CertificateFileNameName of the file that contains the CA trusted root certificate, including the path (e.g. c:\temp\cacert.crt)
    The name of the file containing the CAs Trusted Root certificate.
CertificateSource
    1S2S
    Certificate from Clipboard
CertificateTextPress CTRL-V to paste the clipboard contents into the field, including the Begin and End lines
    Paste clipboard contents into this field.
    Note:
     The pasted certificate must include the "Begin Certificate" and "End Certificate" lines.
'++LotusScript Development Environment:2:5:(Options):0:74
Use "Utils"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button) 'resourced for international
'++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) 'resourced for international
     Dim wsp As New notesuiworkspace
     Dim uidoc As notesuidocument
     Set uidoc = wsp.CurrentDocument
     Dim doc As notesdocument
     Dim filename As String
     Dim Buf As String * 500
     Dim CmdArgs As String
     Dim item As NotesItem
     Dim item2 As NotesItem
     Dim IssList List As String
     Dim SubList List As String

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

     Call uidoc.Save
     Set doc = uidoc.Document

     KeyRingFileName$ = FixFileName( doc.KeyRingFileName(0) )
     Call uidoc.FieldSetText( "KeyRingFileName", KeyRingFileName$ )
     Password$ = doc.Password(0)
     CertSource$ = doc.CertificateSource( 0 )
     CertificateName$ = doc.CertificateName(0)

     Call uidoc.FieldClear( "Password" )
     Call uidoc.save

     CmdArgs = ""
     If KeyRingFileName$ > "" Then CmdArgs = CmdArgs & "KeyFile=" & KeyRingFileName$ & ";"
     If CertificateName$ > "" Then CmdArgs = CmdArgs & "EntryLabel=" & CertificateName$ & ";"
     If Password$ > "" Then CmdArgs = CmdArgs & "Password=" & Password$ & ";"

     If CertSource$ = "0" Then
          CertFileName$ = FixFileName( doc.CertificateFileName( 0 ) )
          CertText = ReadFromFile( CertFileName$ )
          If isPKCS( CertText ) = 1 Then
               ItIsPKCS$ = "1"
          Else
               ItIsPKCS$ = "0"
          End If
          DecodeCert = ViewCert( CertText, "0" )
          CmdArgs = CmdArgs & "CertReqFile=" & CertFileName$ & ";"
     Else
          CertText = doc.CertificateText
          If isPKCS( CertText ) = 1 Then
               ItIsPKCS$ = "1"
          Else
               ItIsPKCS$ = "0"
          End If
          DecodeCert = ViewCert( CertText, "0" )
          Call NukeIt( filename$ )
          Call WritetoFile( CertText, filename$ )
          CmdArgs = CmdArgs & "CertReqFile=" & filename$ & ";"
     End If

     If ItIsPKCS$ = "1" Then CmdArgs = CmdArgs & "UsePKCS;"

     SubCount = 1
     IssCount = 1
     Forall k In DecodeCert
          If Left$(k, 3) = "Sub" Then
               SubList(SubCount) = k
               SubCount = SubCount + 1
          Elseif Left$(k, 3) = "Iss" Then
               IssList(IssCount) = k
               IssCount = IssCount + 1
          Elseif Left$(k,3) = "Sta" Then
               StartDate$ = k
          Elseif Left$(k,3) = "End" Then
               EndDate$ = k
          Elseif k = "TrustedRoot: yes" Then
               TrustedRoot$ = GetString( sid_MergeCertIsRoot )
          Elseif k = "TrustedRoot: no" Then
               TrustedRoot$ = GetString( sid_MergeCertIsNotRoot )
          End If
     End Forall
     Call uidoc.FieldClear( "SubListField" )
     Call uidoc.FieldClear( "IssListField" )
     Call uidoc.FieldClear( "StartDateField" )
     Call uidoc.FieldClear( "EndDateField" )
     Call uidoc.FieldClear( "TrustedRootField" )
     Call uidoc.save
     Set item = doc.GetFirstItem("SubListField")
     Forall i In SubList
          Call item.AppendToTextList(i)
     End Forall
     Set item2 = doc.GetFirstItem("IssListField")
     Forall j In IssList
          Call item2.AppendToTextList(j)
     End Forall
     Call uidoc.FieldSetText( "StartDateField", StartDate$ )
     Call uidoc.FieldSetText( "EndDatefield", EndDate$ )
     Call uidoc.FieldSetText( "TrustedRootField", TrustedRoot$ )

     flag% = wsp.DialogBox("DlgConfirmMergeTrustedRoot",True,True,False,False,False,False,GetString( sid_MergeTrustConf ))
     If flag% <> True Then
          Call uidoc.save
          Exit Sub
     End If

     rc%  = ProcessSecurityCmd("ReceiveRootCert",CmdArgs,Buf,500)
     TrimBuf$ = Left$(Buf,Instr(Buf,Chr$(0))-1)
     Call NukeIt( filename$ )
     If rc% = 0 Then

          endflag% = wsp.DialogBox("DlgConfirmMergeTrustedRootDone",True,True,True,False,False,False,TrimBuf$)
          Call uidoc.save
          Call uidoc.close
     Else
          Messagebox TrimBuf$,48,GetString( sid_error )
     End If

End Sub
P    P    x
^8    )P    ^
    ^8    #
^8    }h
    ^8    #
^8    }h
New Button
Need a newer version of Notes to execute this button.
    0S0E
    Merge Trusted Root Certificate into Key Ring
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$SubForms
$TITLE
$Info
$WindowTitle
$$Script_O
$$ScriptName
$Body
Merge Certificate Into Key Ring
5Courier New
 CertAdminMergeCertIntoKeyring
SubListField
IssListField
StartDateField
EndDateField
TrustedRootField
SaveOptions
Install Certificate into Key Ring
    The Certificate Authority will notify when your signed certificate is ready. The specifics depend on the Certificate Authority, but typically you will receive an e-mail specifying a URL where you can pick up the certificate. Once you have obtained the signed certificate, this form lets you install it into your key ring.
    Note:
     Before installing this certificate, the certificate of the signing Certificate Authority must be installed in your key ring as a Trusted Root.  If you haven't already done so, choose "Accept This Authority In Your Server" from the main menu of the Certificate Authority Web site to obtain the CA certificate.
    Key Ring Information
    Quick Help
    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
PasswordPassword for the key ring file (at least 6 alphanumeric characters recommended)
    Specify the name and password of the key ring you created with "Create Key Ring".
    Certificate Information
    Certificate Source
CertificateSource
File | 0Clipboard | 1
    The source of the certificate can be from a file or from the clipboard.
CertificateSource
    1S2S
    File Name
CertificateFileNameName of the file that contains the CA trusted root certificate, including the path (e.g. c:\temp\cacert.crt)
    The name of the file that holds the signed certificate.
CertificateSource
    1S2S
    Certificate from Clipboard:
CertificateTextPress CTRL-V to paste the clipboard contents into the field, including the Begin and End lines
    Paste clipboard contents into this field.  (Note: The pasted certificate must include the "Begin Certificate" and "End Certificate" lines.)
'++LotusScript Development Environment:2:5:(Options):0:74
Use "Utils"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button) 'resourced for international
'++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) 'resourced for international
     Dim wsp As New notesuiworkspace
     Dim uidoc As notesuidocument
     Set uidoc = wsp.CurrentDocument
     Dim doc As notesdocument
     Dim filename As String
     Dim Buf As String * 500
     Dim CmdArgs As String
     Dim item As NotesItem
     Dim item2 As NotesItem
     Dim IssList List As String
     Dim SubList List As String

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

     Call uidoc.Save
     Set doc = uidoc.Document

     KeyRingFileName$ = FixFileName( doc.KeyRingFileName(0) )
     Call uidoc.FieldSetText( "KeyRingFileName", KeyRingFileName$ )
     Password$ = doc.Password(0)
     CertSource$ = doc.CertificateSource( 0 )

     Call uidoc.FieldClear( "Password" )
     Call uidoc.save

     CmdArgs = ""
     If KeyRingFileName$ > "" Then CmdArgs = CmdArgs & "KeyFile=" & KeyRingFileName$ & ";"
     If Password$ > "" Then CmdArgs = CmdArgs & "Password=" & Password$ & ";"
     CmdArgs = CmdArgs & "KeyName=" & GetString( sid_KeyPair ) & ";"

     If CertSource$ = "0" Then
          CertFileName$ = FixFileName( doc.CertificateFileName( 0 ) )
          CertText = ReadFromFile( CertFileName$ )
          If isPKCS( CertText ) = 1 Then
               ItIsPKCS$ = "1"
          Else
               ItIsPKCS$ = "0"
          End If
          DecodeCert = ViewCert( CertText, "0" )
          CmdArgs = CmdArgs & "CertReqFile=" & CertFileName$ & ";"
     Else
          CertText = doc.CertificateText
          If isPKCS( CertText ) = 1 Then
               ItIsPKCS$ = "1"
          Else
               ItIsPKCS$ = "0"
          End If
          DecodeCert = ViewCert( CertText, "0" )
          Call NukeIt( filename$ )
          Call WritetoFile( CertText, filename$ )
          CmdArgs = CmdArgs & "CertReqFile=" & filename$ & ";"
     End If

     If ItIsPKCS$ = "1" Then CmdArgs = CmdArgs & "UsePKCS;"

     SubCount = 1
     IssCount = 1
     Forall k In DecodeCert
          If Left$(k, 3) = "Sub" Then
               SubList(SubCount) = k
               SubCount = SubCount + 1
          Elseif Left$(k, 3) = "Iss" Then
               IssList(IssCount) = k
               IssCount = IssCount + 1
          Elseif Left$(k,3) = "Sta" Then
               StartDate$ = k
          Elseif Left$(k,3) = "End" Then
               EndDate$ = k
          Elseif k = "TrustedRoot: yes" Then
               TrustedRoot$ = GetString( sid_MergeCertIsRoot )
          Elseif k = "TrustedRoot: no" Then
               TrustedRoot$ = GetString( sid_MergeCertIsNotRoot )
          End If
     End Forall
     Call uidoc.FieldClear( "SubListField" )
     Call uidoc.FieldClear( "IssListField" )
     Call uidoc.FieldClear( "StartDateField" )
     Call uidoc.FieldClear( "EndDateField" )
     Call uidoc.FieldClear( "TrustedRootField" )
     Call uidoc.save
     Set item = doc.GetFirstItem("SubListField")
     Forall i In SubList
          Call item.AppendToTextList(i)
     End Forall
     Set item2 = doc.GetFirstItem("IssListField")
     Forall j In IssList
          Call item2.AppendToTextList(j)
     End Forall
     Call uidoc.FieldSetText( "StartDateField", StartDate$ )
     Call uidoc.FieldSetText( "EndDatefield", EndDate$ )
     Call uidoc.FieldSetText( "TrustedRootField", TrustedRoot$ )

     flag% = wsp.DialogBox("DlgConfirmMergeCert",True,True,False,False,False,False,GetString( sid_MergeCertConf ))
     If flag% <> True Then
          Call uidoc.save
          Call NukeIt( filename$ )
          Exit Sub
     End If

     rc%  = ProcessSecurityCmd("ReceiveCert",CmdArgs,Buf,500)
     TrimBuf$ = Left$(Buf,Instr(Buf,Chr$(0))-1)
     Call NukeIt( filename$ )
     If rc% = 0 Then
          endflag% = wsp.DialogBox("DlgConfirmMergeCertDone",True,True,True,False,False,False,TrimBuf$)
          Call uidoc.save
          Call uidoc.close
     Else
          Messagebox TrimBuf$,48,GetString( sid_error )
     End If

End Sub
    ~p    #
New Button
Need a newer version of Notes to execute this button.
    0S0E
    Merge Certificate into Key Ring
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
L}o)M
4F0o0
$TITLE
$Info
$WindowTitle
$$Script_O
$$ScriptName
$Body
Create Key Ring
 CertAdminCreateKeyring
SaveOptions
Create Key Ring
    The first step in setting up SSL on a server is to create the key ring.
When the key ring is created, a public/private keypair is automatically generated and stored in the key ring.
    Key Ring Information
    Quick Help
    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:
PasswordPassword for the key ring file (at least 6 alphanumeric characters recommended)
    Specify the file name and password for the key ring.
    Note:
    You'll be referring to the key ring information you enter here in subsequent steps as you create and install certificates into the key ring.
    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 exported versions of the Domino server, the key size is always set to 512 bits.
    Distinguished Name
    Common Name:
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)
    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 about your site that will appear in any certificates you create.
    Note:
    Make sure the Common Name matches the URL of your 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 "Utils"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button) 'resourced for international
'++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) 'resourced for international
     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

     Dim db As NotesDatabase
     Set db = doc.ParentDatabase
     Dim prof As NotesDocument
     Set prof = db.GetProfileDocument("CertAdminAppProfile")
     ProfKeyFileName$ = prof.KeyFileName(0)

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

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

     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)

     Call uidoc.FieldClear( "Password" )
     Call uidoc.save

     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=" & GetString( sid_KeyPair ) & ";"
     CmdArgs = CmdArgs & "CertReqFile=" & filename$ & ";"

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

     TrimBuf$ = Left$(Buf,Instr(Buf,Chr$(0))-1)  ' strip nulls
     If rc% = 0 Then
          Call NukeIt( filename$ )
          flag% = wsp.DialogBox("DlgConfirmCreateKeyring",True,True,True,False,False,False,GetString( sid_CreateKeyCreate ))
          Call UpdateKeyProfile( doc )
          Call uidoc.save
          Call uidoc.close
     Else
          Messagebox TrimBuf$,48,GetString( sid_error )
     End If

End Sub
New Button
Need a newer version of Notes to execute this button.
    0S0E
Create Key Ring
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Info
$WindowTitle
$$Script_O
$$ScriptName
$Body
Create Key Ring With Self-Certified Certificate
 CertAdminCreateKeyringWithSelfCert
SaveOptions
Create Key Ring with Self-Certified Certificate
    This form lets you easily create a key ring with a self-certified certificate for testing purposes. The resulting key ring is ready for use with SSL, but is not appropriate for a production internet or intranet site due to the certificate being signed by yourself instead of a Certificate Authority.
    Key Ring Information
    Quick Help
    Key Ring File Name
selfcert.kyr
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
PasswordPassword for the key ring file (at least 6 alphanumeric characters recommended)
    Specify the file name and password for the key ring.
    Note:
    You'll be referring to the key ring information you enter here in subsequent steps as you create and install certificates into the key ring.
    Distinguished Name
    Common Name
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)
    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 about your site that will appear in any certificates you create.
    Note
    : Make sure the Common Name matches the URL of your 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 "Utils"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button) 'resourced for international
'++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) 'resourced for international
     Dim wsp As New notesuiworkspace
     Dim uidoc As notesuidocument
     Set uidoc = wsp.CurrentDocument
     Dim doc As notesdocument
     Dim Buf As String * 500
     Dim CmdArgs As String
     Dim item As NotesItem

     Call uidoc.Save
     Set doc = uidoc.Document

     ServerName$ = doc.CommonName(0)
     OrganizationalUnit$ = doc.OrganizationalUnit(0)
     Organization$ = doc.Organization(0)
     State$ = doc.StateProvince(0)
     Locality$ = doc.Locality(0)
     Country$ = doc.Country(0)
     KeyRingFileName$ = doc.KeyRingFileName(0)
     Password$ = doc.Password(0)

     Call uidoc.FieldClear( "Password" )
     Call uidoc.save

     CmdArgs = ""
     If Organization$ > "" Then CmdArgs = CmdArgs & "Org=" & Organization$ & ";"
     If OrganizationalUnit$ > "" Then CmdArgs = CmdArgs & "OrgUnit=" & OrganizationalUnit$ & ";"
     If ServerName$ > "" Then CmdArgs = CmdArgs & "CommonName=" & ServerName$ & ";"
     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=" & GetString( sid_KeyPair ) & ";"
     If Password$ > "" Then CmdArgs = CmdArgs & "Password=" & Password$ & ";"
     CmdArgs = CmdArgs & "UsePKCS=1;"

     KeyRingFileName$ = FixFileName( doc.KeyRingFileName(0) )
     Call uidoc.FieldSetText( "KeyRingFileName", KeyRingFileName$ )

     rc%  = ProcessSecurityCmd("CreateSelfSigned",CmdArgs,Buf,500)
     TrimBuf$ = Left$(Buf,Instr(Buf,Chr$(0))-1)  ' strip nulls
     If rc% = 0 Then
          flag% = wsp.DialogBox("DlgConfirmCreateSelfCert",True,True,True,False,False,False,TrimBuf$)
          Call uidoc.save
          Call uidoc.close
     Else
          Messagebox TrimBuf$,48,GetString( sid_error )
     End If

End Sub
0)$    ~x
New Button
Need a newer version of Notes to execute this button.
    0S0E
    Create Key Ring with Self-Certified 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
$WindowTitle
$$Script_O
$$ScriptName
$Body
Domino Certificate Authority Application Profile
 CertAdminAppProfile
Server Certificate Administration Profile
    This form is used to store information used by the Server Certificate Administration application.
    This is a system form that is not seen by users.
    Stored Information
    Quick Help
    Key Ring File Name
KeyFileName
    The name of the key ring file is stored here when it's created.  This enables the application to display an alert message if the user tries to create more than one key ring.
     Close
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^^
$TITLE
$Info
$WindowTitle
$$ScriptName
$Body
$ACTIONS
Certificate Information
 CertificateInformation
TempIsRoot
    3S4S6S
TempIsRoot
TempKeyFileName
Catagories
HideSiteCert
CertIsDel
CertIsDel
    1S2S
Certificate Information
CertIsDel
    1S2S
    This form displays the information contained in the certificate you have chosen to examine.
You can use this form to mark or unmark the certificate as a trusted root, or to delete the certificate.
    You have deleted this certificate. It will no longer be displayed when you view the contents
of this key ring.
    Key Ring & Certificate Identification
    Key Ring File Name
TempIsRoot
HideSiteCert
CertIsDel
    3S4S6S7S13S14S17S18S19S
CertIsDel
    3S4S5S
TempKeyFileName
CompKeyFileName
    Certificate Label
EntryLabel
    Certificate Subject & Issuer
    Certificate Subject
    Certificate Issuer
    Common Name
SubjCommonName
IssCommonName
    Organization
SubjOrganization
IssOrganization
    Organizational Unit
SubjOrgUnit
IssOrgUnit
    City
SubjCity
IssCity
    State
SubjState
IssState
    Country
SubjCountry
IssCountry
    Certificate Validity Dates
    Start Date
CertStartDate
    End Date
CertEndDate
HideSiteCert
    0S0E
    Trusted Root Status
    Quick Help
    Status
TempIsRoot
HideSiteCert
CertIsDel
    2S3S4S6S7S13S14S17S18S19S
    Certificate is a Trusted Root
TempIsRoot
HideSiteCert
CertIsDel
    3S4S6S7S13S14S17S18S19S
    Certificate is not a Trusted Root
HideSiteCert
CertIsDel
    0S6S7S10S11S12S
'++LotusScript Development Environment:2:5:(Options):0:74
Use "Utils"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Function FixFileName( fn As String ) As String
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: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:2:Click:1:12
Sub Click(Source As Button)

     Dim workspace As New NotesUIWorkspace
     Dim uidoc As NotesUIDocument
     Set uidoc = workspace.CurrentDocument
     Dim doc As NotesDocument
     Dim db As NotesDatabase
     Dim view As NotesView
     Dim sess As New NotesSession

     Dim Buf As String * 500
     Dim CmdArgs As String

     Set doc = uidoc.Document

     EntryLabel$ = doc.EntryLabel( 0 )
     KeyFileName$ = FixFileName( doc.TempKeyFileName( 0 ) )
     Password$ = Inputbox$( GetString( sid_InputPasswordPrompt ) & KeyFileName$, GetString( sid_InputPasswordTitle ) )

     CmdArgs = ""

     If EntryLabel$ > "" Then
          CmdArgs = CmdArgs & "EntryLabel=" & EntryLabel$ & ";"
     Else
          Messagebox GetString( sid_NoLabelErr )
          Exit Sub
     End If

     If KeyFileName$ > "" Then
          CmdArgs = CmdArgs & "KeyFile=" & KeyFileName$ & ";"
     Else
          Messagebox GetString( sid_NoFileErr )
          Exit Sub
     End If

     If Password$ > "" Then
          CmdArgs = CmdArgs & "Password=" & Password$
     Else
          Messagebox GetString( sid_NoPasswordErr )
          Exit Sub
     End If

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

     TrimBuf$ = Left$(Buf,Instr(Buf,Chr$(0))-1)
     If rc% = 0 Then
          doc.TempIsRoot = GetString( sid_IsRootYes )
          Call doc.save(True, True)
          Set db = sess.CurrentDatabase
          Set view = db.GetView(GetString( sid_KeyRingViewName ) )
          Call workspace.viewrefresh
          Call uidoc.close
     Else
          Messagebox TrimBuf$,48,GetString( sid_error )
     End If
End Sub
P    P    l
~@    #J
New Button
Need a newer version of Notes to execute this button.
    0S0E
    Trust This Certificate
TempIsRoot
HideSiteCert
CertIsDel
    2S3S4S6S7S13S14S17S18S19S
'++LotusScript Development Environment:2:5:(Options):0:74
Use "Utils"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Function FixFileName( fn As String ) As String
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: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:2:Click:1:12
Sub Click(Source As Button)
     Dim workspace As New NotesUIWorkspace
     Dim uidoc As NotesUIDocument
     Set uidoc = workspace.CurrentDocument
     Dim doc As NotesDocument
     Dim db As NotesDatabase
     Dim view As NotesView
     Dim sess As New NotesSession

     Dim Buf As String * 500
     Dim CmdArgs As String

     Set doc = uidoc.Document

     EntryLabel$ = doc.EntryLabel( 0 )
     KeyFileName$ = FixFileName( doc.TempKeyFileName( 0 ) )
     Password$ = Inputbox$( GetString( sid_InputPasswordPrompt ) & KeyFileName$, GetString( sid_InputPasswordTitle ) )

     CmdArgs = ""

     If EntryLabel$ > "" Then
          CmdArgs = CmdArgs & "EntryLabel=" & EntryLabel$ & ";"
     Else
          Messagebox GetString( sid_NoLabelErr )
          Exit Sub
     End If

     If KeyFileName$ > "" Then
          CmdArgs = CmdArgs & "KeyFile=" & KeyFileName$ & ";"
     Else
          Messagebox GetString( sid_NoFileErr )
          Exit Sub
     End If

     If Password$ > "" Then
          CmdArgs = CmdArgs & "Password=" & Password$ & ";"
     Else
          Messagebox GetString( sid_NoPasswordErr )
          Exit Sub
     End If

     CmdArgs = CmdArgs & "NoTrust;"

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

     TrimBuf$ = Left$(Buf,Instr(Buf,Chr$(0))-1)
     If rc% = 0 Then
          doc.TempIsRoot = GetString( sid_IsRootNo )
          Call doc.save(True, True)
          Set db = sess.CurrentDatabase
          Set view = db.GetView(GetString( sid_KeyRingViewName ) )
          Call workspace.viewrefresh
          Call uidoc.close
     Else
          Messagebox TrimBuf$,48,GetString( sid_error )
     End If
End Sub
P    P    l
~@    #J
New Button
Need a newer version of Notes to execute this button.
    0S0E
    Do Not Trust This Certificate
    You can choose whether or not to mark this certificate as a trusted root.
HideSiteCert
CertIsDel
    6S7S10S11S12S
    Delete Certificate
'++LotusScript Development Environment:2:5:(Options):0:74
Use "Utils"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Function FixFileName( fn As String ) As String
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: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:2:Click:1:12
Sub Click(Source As Button)

     Dim workspace As New NotesUIWorkspace
     Dim uidoc As NotesUIDocument
     Set uidoc = workspace.CurrentDocument
     Dim doc As NotesDocument
     Dim db As NotesDatabase
     Dim view As NotesView
     Dim sess As New NotesSession

     Dim Buf As String * 500
     Dim CmdArgs As String

     Set doc = uidoc.Document

     EntryLabel$ = doc.EntryLabel( 0 )
     KeyFileName$ = FixFileName( doc.TempKeyFileName( 0 ) )
     Password$ = Inputbox$( GetString( sid_InputPasswordPrompt ) & KeyFileName$, GetString( sid_InputPasswordTitle ) )

     CmdArgs = ""

     If EntryLabel$ > "" Then
          CmdArgs = CmdArgs & "EntryLabel=" & EntryLabel$ & ";"
     Else
          Messagebox GetString( sid_NoLabelErr )
          Exit Sub
     End If

     If KeyFileName$ > "" Then
          CmdArgs = CmdArgs & "KeyFile=" & KeyFileName$ & ";"
     Else
          Messagebox GetString( sid_NoFileErr )
          Exit Sub
     End If

     If Password$ > "" Then
          CmdArgs = CmdArgs & "Password=" & Password$
     Else
          Messagebox GetString( sid_NoPasswordErr )
          Exit Sub
     End If

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

     TrimBuf$ = Left$(Buf,Instr(Buf,Chr$(0))-1)
     If rc% = 0 Then
          doc.EntryLabel = GetString( sid_CertificateDeletedTag )
          doc.CertIsDel = "1"
          Call doc.save(True, True)
          Set db = sess.CurrentDatabase
          Set view = db.GetView(GetString( sid_KeyRingViewName ) )
          Call workspace.viewrefresh
          Call uidoc.close
     Else
          Messagebox TrimBuf$,48,GetString( sid_error )
     End If

End Sub
P    P    l
~@    #J
New Button
Need a newer version of Notes to execute this button.
    0S0E
    Delete Certificate
    You can delete this certificate from the key ring.
    Note:
     You cannot undo this operation.
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Info
$WindowTitle
$$Script_O
$$ScriptName
$Body
Create Certificate Request
5Courier New
 CertAdminCreateCertRequest
[CertAppDesigner]
    1S6S7S
TempCertView
SaveOptions
SubmitMethod
    0S0E
    Hidden - Certificate request in PKCS format:
PasteCert
PasteCert
Create Server Certificate Request
    A certificate is required for the public key in the key ring you created.  To obtain a certificate, you create a certificate request, and provide it to a Certificate Authority for signing.  Use this form to create the certificate request.
    Note:
      Before proceeding you should read the documentation provided by the Certificate Authority you are using to see how they require the certificate request to be delivered.
    Key Ring Information
    Quick Help
    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
PasswordPassword for the key ring file (at least 6 alphanumeric characters recommended)
    Specify the name of the key ring that this certificate is for.
    Note:
     The key ring contains the Distinguished Name information that will be included in the certificate request.
    Certificate Request Information
    Log Certificate Request
LogCertReqYes logs requests in the application; No does not log requests
Yes | 1No | 0
    Log certificate requests for future reference.
    Note:
     Choose "View Certificate Request Log" in the main menu page to see a listing of all logged requests.
    Method
SubmitMethod
Paste into form on CA's site | 0Send to CA by e-mail | 1
    Choose how to submit the certificate request to the Certificate Authority.
    Note:
     The "Paste" method is recommended if it is supported by the Certificate Authority you are using.
SubmitMethod
    1S2S
    CA's E-Mail Address
CAEmailAddressE-mail address for the CA, including any additional Internet addressing requirements at your organization
    Your Name
RequestorNameName the CA can use to contact you
    Your E-Mail Address
RequestorEmailE-mail address the CA can use to contact you
    Your Phone Number
RequestorPhonePhone number the CA can use to contact you
    Your Comments
RequestorCommentsAny additional comments that you want to send to the CA, or that are required by the CA
    E-Mail Requirements:
    - The CA's e-mail address is required to send the certificate request by e-mail.
    - The information about you is needed in case the CA needs to contact you.
'++LotusScript Development Environment:2:5:(Options):0:74
Use "Utils"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button) 'resourced for international
'++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) 'resourced for international
     Dim wsp As New notesuiworkspace
     Dim uidoc As notesuidocument
     Set uidoc = wsp.CurrentDocument
     Dim doc As notesdocument
     Dim Buf As String * 500
     Dim CmdArgs As String
     Dim item As NotesItem
     Dim linklist As Variant
     Dim db As NotesDatabase
     Dim sess As New NotesSession
     Set db = sess.CurrentDatabase
     Dim LogDoc As NotesDocument
     Dim MailDoc As NotesDocument
     Dim LogCertItem As NotesItem
     Dim LogViewItem As NotesItem
     Dim MailCertItem As NotesItem

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

     Call uidoc.Save
     Set doc = uidoc.Document

     KeyRingFileName$ = FixFileName(doc.KeyRingFileName(0))
     SubmitMethod$ = doc.SubmitMethod( 0 )

     If SubmitMethod$ = "1" Then
          CAEmail$ = doc.CAEmailAddress( 0 )
          RequestorName$ = doc.RequestorName( 0 )
          RequestorEmail$ = doc.RequestorEmail( 0 )
          RequestorPhone$ = doc.RequestorPhone( 0 )
          RequestorComments$ = doc.RequestorComments( 0 )
     End If

     Password$ = doc.Password(0)

     Call uidoc.FieldClear( "Password" )
     Call uidoc.save

     CmdArgs = ""
     If KeyRingFileName$ > "" Then CmdArgs = CmdArgs & "KeyFile=" & KeyRingFileName$ & ";"
     CmdArgs = CmdArgs & "KeyName=" & GetString( sid_KeyPair ) & ";"
     If Password$ > "" Then CmdArgs = CmdArgs & "Password=" & Password$ & ";"
     CmdArgs = CmdArgs & "CertReqFile=" & filename$ & ";UsePKCS;"
     Call NukeIt(filename$)

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

     If rc% = 0 Then
          linklist = ReadFromFile( filename$ )
          Call NukeIt(filename$)
          Call uidoc.FieldClear( "PasteCert" )
          Call uidoc.save

          Set item = doc.GetFirstItem( "PasteCert" )
          Forall k In linklist
               Call item.AppendToTextList( k )
          End Forall

          CertView = ViewCert( linklist, "1" )
          Call uidoc.FieldClear( "TempCertView" )
          Call uidoc.save
          Set item = doc.GetFirstItem( "TempCertView" )
          Forall k In CertView
               Call item.AppendToTextList( k )
          End Forall

          If SubmitMethod$ = "0" Then
               flag% = wsp.DialogBox("DlgConfirmCreateCertReqByClipboard",True,True,True,False,False,False,GetString( sid_CertReqCreate ))
          Else
               Set MailDoc = New NotesDocument(db)
               MailDoc.form = "CertReqEmail"
               MailDoc.SendTo = CAEMail$
               MailDoc.Subject = GetString( sid_CertReqSubj )
               MailDoc.From = RequestorName$
               MailDoc.RequestorName = RequestorName$
               MailDoc.RequestorEmail = RequestorEmail$
               MailDoc.RequestorPhone = RequestorPhone$
               MailDoc.RequestorComments = RequestorComments$
               MailDoc.PKCSCertReq = ""
               Set MailCertItem = MailDoc.GetFirstItem( "PKCSCertReq" )
               Forall b In linklist
                    Call MailCertItem.AppendToTextList( b )
               End Forall
               Call MailDoc.Send(True)
               mailflag% = wsp.DialogBox("DlgConfirmCreateCertReqByEmail",True,True,True,False,False,False,GetString( sid_CertReqCreateMail ))
          End If

          If doc.LogCertReq(0) = "1" Then
               Set LogDoc = New NotesDocument(db)
               Logdoc.form = "CertReqLogEntry"
               If SubmitMethod$ = "0" Then
                    LogDoc.SubmitMethod = "0"
               Else
                    LogDoc.SubmitMethod = "1"
               End If
               LogDoc.TimeStamp = Date() & " " & Time()
               LogDoc.KeyringFileName = KeyRingFileName$
               LogDoc.CAEMailAddress = CAEMail$
               LogDoc.RequestorName = RequestorName$
               LogDoc.RequestorEmail = RequestorEmail$
               LogDoc.RequestorPhone = RequestorPhone$
               LogDoc.RequestorComments = RequestorComments$
               LogDoc.PKCSCertReq = ""
               Set LogCertItem = LogDoc.GetFirstItem( "PKCSCertReq" )
               Forall j In linklist
                    Call LogCertItem.AppendToTextList( j )
               End Forall
               LogDoc.DecodeCert = ""
               Set LogViewItem = LogDoc.GetFirstItem( "DecodeCert" )
               Forall a In CertView
                    Call LogViewItem.AppendToTextList( a )
               End Forall
               Call LogDoc.save( False, False )
          End If

          Call uidoc.save
          Call uidoc.close

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

End Sub
h    h    `
Q@    J0
Q\    JL
Qx    Jh
Q@    J0
Q\    JL
Qx    Jh
New Button
Need a newer version of Notes to execute this button.
    0S0E
    Create Certificate Request
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Info
$WindowTitle
$$Script_O
$$ScriptName
$Body
Certificate Request Log Entry
5Courier New
 CertReqLogEntry
    ---------------------------------------------------------------------------------------------
    Hidden Fields:
SubmitMethod
Paste into form on CA's site | 0Send to CA by e-mail | 1
     By email or my clipboard.
    --------------------------------------------------------------------------------------------------------------------
Certificate Request Log Entry
    Certificate Request Information
    Certificate Request Type
SubmitMethod
    1S2S
    E-Mail
SubmitMethod
    1S2S
    Clipboard
    Date & Time Created
TimeStamp
    Key Ring
KeyringFileName
    Distinguished Name
DecodeCert
    E-Mail Information
    This request has been sent to
CAEmailAddress
    You submitted the following additional information in the email:
    Your Name
RequestorName
    Your E-Mail Address
RequestorEmail
    Your Phone Number
RequestorPhone
    Your Comments
RequestorComments
    Certifica
     Request in PKCS Format
PKCSCertReq
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Info
$WindowTitle
$$ScriptName
$Body
Default
CN=Andrew Wharton/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################################
Default|Default
TimeStamp
T0S1V
    1S4S
SubmitMethod
Email
Clipboard
    1S3S4S6S8S
$9$7$Conflict$REF
CertReqLogEntry
CertReqLogEntry
    3S4S6S7S9S10S1
$9Time0
TimeStamp
T0S1V
    1S4S
$7Request Type^
SubmitMethod
Email
Clipboard
    1S3S4S6S8S
CN=Andrew Wharton/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####################################################
badtrip.iris.commassCertAdminCreateKeyringWithSelfCertQuickstart - for Trying Out SSLCreate Keyring With Self-Certified Certificate1caca.kyrbourque.iris.comirisinternoteswestfordmassus
CN=Scott Davidson/O=IrisCN=Andrew Wharton/O=IrisCN=Michael Decoteau/O=IrisCN=Andrew Wharton/O=IrisCN=Michael Decoteau/O=IrisL
##########################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
Default
Default Form
Provided to support Internationalization of this application.  Not used in any documents or views.
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
CertReqLogEntry|CertReqLogEntry
Categori_ze
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From Folder_
Main MenuA@
CertAdminFullScreen
    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
$SelQuery
$ViewFormat
$Comment
$ACTIONS
ed$UpdatedBy$ACLDigest$Signature$DesignVersion$Version$Formula$FormulaClass$Collation$ScriptLib$ScriptLib_O$TITLE$Flags$PublicAccess$Fonts$Info$Body$DefaultWebNavigator$DefaultNavigatorIconBitmap$FlagsNoRefresh$ViewMapDataset$ViewMapLayout$NavImagemap$Index$SelQuery$ViewFormat$Comment$ACTIONS$SCRIPTOBJ_6$SCRIPTOBJ_7$SCRIPTOBJ_8$ViewGlobalScript_O$WindowTitle$$Script_O$$ScriptNameOrganizationOrganizationalUnitTempCertViewCommonNameStateProvinceLocalityStartDateEndDateCountryPasteCert$FormLinksSendToFromSubjectRequestorNameRequestorEmailRequestorPhoneRequestorCommentsPKCSCertReq$Collation1$Collation2$Collation3$Collation4$NoBackgroundOverride$SubFormsSubListFieldIssListFieldStartDateFieldEndDateFieldTrustedRootFieldSaveOptionsKeyRingFileNamePasswordCertificateNameCertificateSourceCertificateFileNameCertificateTextKeySizeKeyFileNameTempIsRootTempKeyFileNameCatagoriesHideSiteCertCertIsDelCompKeyFileNameEntryLabelSubjCommonNameIssCommonNameSubjOrganizationIssOrganizationSubjOrgUnitIssOrgUnitSubjCityIssCitySubjStateIssStateSubjCountryIssCountryCertStartDateCertEndDateLogCertReqSubmitMethodCAEmailAddressTimestampDecodeCertStateFORMCategoriesPrivateTitleDocOrderKeyNameServerName$Revisions$REF$Conflict
08/20/97 03:53:13 PM Andrew Wharton/Iris updated OtherDomainServers
08/20/97 03:53:01 PM Andrew Wharton/Iris updated OtherDomainServers
08/20/97 03:52:53 PM Andrew Wharton/Iris updated LocalDomainServers
08/20/97 03:27:44 PM Andrew Wharton/Iris updated [-Default-]
08/20/97 03:27:10 PM Andrew Wharton/Iris updated OtherDomainServers
08/20/97 03:27:06 PM Andrew Wharton/Iris added OtherDomainServers
08/20/97 03:26:58 PM Andrew Wharton/Iris updated LocalDomainServers
08/20/97 03:26:50 PM Andrew Wharton/Iris added LocalDomainServers
08/20/97 03:26:32 PM Andrew Wharton/Iris updated -Default-
08/20/97 01:44:49 PM Andrew Wharton/Iris updated [LocalDomainServers]
08/20/97 01:44:40 PM Andrew Wharton/Iris updated -Default-
08/20/97 01:44:00 PM Andrew Wharton/Iris updated [Anonymous]
08/20/97 01:43:54 PM Andrew Wharton/Iris added [Anonymous]
08/20/97 01:43:49 PM Andrew Wharton/Iris updated [OtherDomainServers]
08/20/97 01:43:42 PM Andrew Wharton/Iris added [OtherDomainServers]
08/20/97 01:43:32 PM Andrew Wharton/Iris updated [LocalDomainServers]
08/20/97 01:43:21 PM Andrew Wharton/Iris added [LocalDomainServers]
08/20/97 01:43:09 PM Andrew Wharton/Iris updated [-Default-]
08/20/97 01:42:59 PM Andrew Wharton/Iris added [-Default-]
08/13/97 11:18:22 AM Andrew Wharton/Iris deleted Andrew Wharton/Iris
-Default-
[-Default-]
[LocalDomainServers]
[OtherDomainServers]
[Anonymous]
LocalDomainServers
OtherDomainServers