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

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at webmaster@entercad.forsenergy.ru to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Additionally, a 500 Internal Server Error error was encountered while trying to use an ErrorDocument to handle the request.