KeyLength Example |
Using Programming Languages other than VBA
Sub Example_KeyLength() ' This example encrypts and saves a file. Dim acad As New AcadApplication Dim sp As New AcadSecurityParams acad.Visible = True sp.Action = AcadSecurityParamsType.ACADSECURITYPARAMS_ENCRYPT_DATA sp.Algorithm = AcadSecurityParamsConstants.ACADSECURITYPARAMS_ALGID_RC4 sp.KeyLength = 40 sp.Password = UCase("mypassword") 'AutoCAD converts all passwords to uppercase before applying them sp.ProviderName = "Microsoft Base Cryptographic Provider v1.0" sp.ProviderType = 1 acad.ActiveDocument.SaveAs "C:\MyDrawing.dwg", , sp End Sub
Comments? |