• » PDF To Word ActiveX DLL
• » TIFF To PDF ActiveX DLL
• » PDF Security ActiveX DLL
• » PDF Decrypt ActiveX DLL
  

  Product Info
  Download Now
  Buy Now

• » PDF Encrypt ActiveX DLL
• » PDF Split Merge ActiveX DLL

• » HardwareID DLL

• » MD5 ActiveX DLL

• » Clients
• » Links

Desktop

Server

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  obj: OleVariant;
  iRtn: Integer;
  sInFile, sOutFile: String;
begin
  OpenDialog1.InitialDir:= ExtractFilePath(Application.ExeName);
  if not OpenDialog1.Execute then
  begin
    Exit;
  end else
  begin
    sInFile:= OpenDialog1.FileName;
    sOutFile := ChangeFileExt(sInFile, '') + '_By_ActiveX_Decrypt.pdf';
  end;

  try
    obj := CreateOleObject('PDFDecryptX.DecryptLib');  //Create object
  except
    on E:Exception do
    begin
      ShowMessage('Please install AzSDK PDF Decrypt ActiveX DLL first.');
      Exit;
    end;
  end;

  obj.SetLicenseKey('License Code');  //Set your license key

  iRtn := obj.LoadFromFile(sInFile, ''); //Load PDF file
  {
    iRtn = 1: loaded successful
    iRtn = 0: Can not Load
    iRtn =-1: File not exist
  }

  //if load file successful, then get relational property.
  if iRtn = 1 then
  begin
    if obj.IsEncrypted = 1 then   //Encrypted PDF ?
      edtEncrypted.Text := '1->YES'
    else edtEncrypted.Text := '0->NO';

    edtPage.Text := IntToStr(obj.PageCount); //Page count of PDF

    edtSize.Text := IntToStr(obj.FileSize);  //File size of PDF
  end;

  iRtn := obj.Decrypt(sOutFile); //Decrypt method
  case iRtn of
    0: edtResult.Text := '0->Decrypt failed';
    1: edtResult.Text := '1->Decrypt successful';
    2: edtResult.Text := '2->File not encrypted';
  end;

  obj.Close;  //Close file

  Obj := Unassigned;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Close;
end;

end.

Private Sub Command1_Click()
    Dim obj As Object
    Dim iRtn As Integer
  
    Set obj = CreateObject("PDFDecryptX.DecryptLib")   'Create object
      
    obj.SetLicenseKey ("License Code")          'Set your license key
  
    iRtn = obj.LoadFromFile(".\PDFDecryptX.pdf", "")    'Load PDF file
    'iRtn = 1: loaded successful
    'iRtn=0:Load Failed;
     
    'if load file successful, then get relational property.
    If iRtn = 1 Then
        If obj.IsEncrypted = 1 Then     'Encrypted PDF ?
            Text1.Text = "YES"
        Else
            Text1.Text = "NO"
        End If
        
        Text2.Text = obj.PageCount      'Page count of PDF
        
        Text3.Text = obj.FileSize       'File size of PDF
    End If
    
    iRtn = obj.Decrypt(".\PDFDecryptX-Decrypted.pdf")   'Decrypt method
    If iRtn = 0 Then
        Text4.Text = "0->Decrypt failed"
    ElseIf iRtn = 1 Then
        Text4.Text = "1->Decrypt successful"
    ElseIf iRtn = 2 Then
        Text4.Text = "2->File not encrypted"
    End If
    
    obj.Close       'Close file
    
    Set obj = Nothing
End Sub

Private Sub Command2_Click()
  Unload Form1
End Sub

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using PDFDecryptX;

namespace Application1
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        private void button1_Click(object sender, EventArgs e)
        {

            DecryptLibClass obj = new PDFDecryptX.DecryptLibClass();

            obj.SetLicenseKey("License Code");

            int iRtn = obj.LoadFromFile(".\\PDFDecryptX.pdf", "");

            if (iRtn == 1)
            {
                if (obj.IsEncrypted == 1)
                {
                    textBox1.Text = "YES";
                }
                else
                {
                    textBox1.Text = "NO";
                }
                textBox2.Text = obj.PageCount.ToString();
                textBox3.Text = obj.FileSize.ToString();
            }

            int iValue = obj.Decrypt(".\\PDFDecryptX-Decrypted.pdf");
            switch(iValue)
            {
                case 0: textBox4.Text = "0->Decrypt failed"; break;
                case 1: textBox4.Text = "1->Decrypt successful"; break;
                case 2: textBox4.Text = "2->File not encrypted"; break;
            }
        }

        private void button2_Click(object sender, EventArgs e)
        {
            Close();
        }
    }
}

<%
  Set obj = server.createobject("PDFDecryptX.DecryptLib")	'Create object

  obj.SetLicenseKey("License Code")							'Set your license key

  If  1 = obj.LoadFromFile(".\PDFDecryptX.PDF", "") Then	'Load PDF file
    If 1 = obj.Decrypt(".\PDFDecryptX-Decrypted.pdf") Then	'Decrypt Method
      Response.Write("Decrypt successful.")
    End If
    obj.Close()	'Close file
  End If

  Set obj = Nothing	
%>

SetLicenseKey("License Code");  //Set your license key

  if ( 1 == $obj->LoadFromFile("c:/PDFDecryptX.pdf", "") )  //Load PDF file
  {
    if ( 1 == $obj->Decrypt("c:/PDFDecryptX-Decrypted.pdf") )  //Decrypt Method
	{
	  echo "Decrypt successful." ;
	}
    $obj->Close();  //Close file
  }

  $obj = null;
?>