Public Function veryEncryptPDFEx(ByVal inFileName As String, ByVal outFileName As String, EnctyptLen As Long, permission As Long, ByVal OwnerPassword As String, ByVal UserPassword As String) As Long

    veryEncryptPDFEx = veryEncryptPDF(inFileName, outFileName,

    EnctyptLen, permission, OwnerPassword, UserPassword)

End Function

void main()

{

    int encyptlevel,permission=0;

    char srcpath[_MAX_PATH];

    char despath[_MAX_PATH];

    BOOL m_bIsSucceed = FALSE;

    memset(srcpath,0,_MAX_PATH);

    memset(despath,0,_MAX_PATH);

    //example 1

    GetModulePath(srcpath,"test1.pdf");

    GetModulePath(despath,"test1Encrypt.pdf");

    encyptlevel=128;

    permission=GetPermission(TRUE,TRUE,TRUE,TRUE);

    veryEncryptPDF(srcpath,despath,encyptlevel,permission,

    "owner","user");

    m_bIsSucceed = veryTestEncryptedPDF(despath,"owner","user");

    //example 2

    GetModulePath(srcpath,"test2.pdf");

    GetModulePath(despath,"test2Encrypt.pdf");

    encyptlevel=40;

    permission=GetPermission(FALSE,FALSE,FALSE,FALSE);

    veryEncryptPDF(srcpath,despath,encyptlevel,permission,

    "owner","user");

    m_bIsSucceed = veryTestEncryptedPDF(despath,

    "owner","user");

}

Private Sub Command1_Click()

Dim very_ID

    Encrypt "test1.pdf", "test1_encrypt.pdf", "owner", "user"

End Sub