Mengkosign Dokumen

[CAPICOM adalah komponen 32-bit saja yang tersedia untuk digunakan dalam sistem operasi berikut: Windows Server 2008, Windows Vista, dan Windows XP. Sebagai gantinya, gunakan .NET Framework untuk menerapkan fitur keamanan. Untuk informasi selengkapnya, lihat Alternatif untuk Menggunakan CAPICOM.]

Dokumen dapat ditandatangani oleh lebih dari satu penanda tangan. Ini terjadi ketika, misalnya, dua pihak atau lebih menandatangani kontrak atau laporan pengeluaran. Dalam contoh berikut, dokumen yang sudah ditandatangani diterima oleh penanda tangan kedua. Penanda tangan ini menggunakan metode CoSign untuk melampirkan tanda tangan tambahan ke dokumen.

Jika terjadi kesalahan CAPICOM, nilai negatif dikembalikan dalam properti Err.Number . Untuk informasi selengkapnya tentang kode kesalahan CAPICOM, lihat CAPICOM_ERROR_CODE. Jika kode kesalahan dalam properti Err.Number adalah nilai positif, maka kesalahannya adalah kesalahan Windows. Untuk informasi tentang kode galat Windows, lihat Winerror.h.

Catatan

Penandaan bersama dokumen juga mengharuskan cosigner memiliki sertifikat yang tersedia dengan kunci privat untuk membuat tanda tangan. Jika penanda tangan tidak ditentukan dalam panggilan metode Tanda tangan dan tidak ada sertifikat dalam CAPICOM_MY_STORE dengan kunci privat terkait, metode gagal. Jika ada satu dan hanya satu sertifikat dalam CAPICOM_MY_STORE dengan kunci privat terkait, kunci dan sertifikat tersebut akan digunakan. Jika ada lebih dari satu sertifikat yang dapat digunakan, perintah ditampilkan untuk memungkinkan pengguna memilih sertifikat yang diinginkan.

Jika metode CoSign digunakan dalam aplikasi berbasis web, perintah selalu ditampilkan untuk mendapatkan izin pengguna sebelum tanda tangan dibuat dengan menggunakan kunci privat penanda tangan tersebut.

 

Dalam contoh berikut, file yang berisi dokumen yang akan ditandatangani dan tanda tangan saat ini pada dokumen tersebut dibaca, tanda tangan ditandatangani bersama, dan tanda tangan baru ditulis ke file. Contohnya menggunakan tanda tangan yang dilepas dengan data yang ditandatangani dan tanda tangan dalam file terpisah.

Sub CoSignContent(ByVal InputFile1Name As String, ByVal _
    InputFile2Name As String, ByVal OutputFileName As String)

    On Error GoTo ErrorHandler
    Dim c As String
    Dim s As String
    Dim CS As String
    Dim Signobj As New SignedData
    Open InputFile1Name for Input as #1
    Input #1, s
    Close #1
    Open InputFileName2 for input as #2
    Input #2, c 
    Close #2

    Signobj.Content = c
    Signobj.Verify(s)
    CS = Signobj.CoSign
    Open OutputFileName for output as #3
    Write #3, CS
    Close # 3
    Signobj = Nothing
    MsgBox("Cosign finished. Cosignature saved to a file.")
    Exit Sub
ErrorHandler:
    If err.number > 0 Then
        MsgBox("Visual Basic error found:" & err.description)
    Else
        MsgBox("CAPICOM error found : " & err.number)
    End If
End Sub