Option Explicit

Public Function SignPdf(FileName As String, Certificat As String, CertificatKey As String) As Boolean
  'Input :
  ' FileName = the name of the PDF to sign
  ' Certificat = the name of the Certificat file (Extension pfx)
  ' CertificatKey = the password for the certificat
  'Output :
  ' True if the pdf as been signed correctly, otherwise false
  '
  'remark :
  ' A temp file is generated during the process : signed.pdf
  Dim strTemp As String
  Dim RepFile As String
  RepFile = FileNamePath(FileName)
  'gen the command line
  strTemp = "java -jar " & Chr(34) & App.Path & "\TBSSignaturePDFInvisble.jar" & Chr(34) & " "
  strTemp = strTemp & "-in " & Chr(34) & FileName & Chr(34) & " "
  strTemp = strTemp & "-pkcs12 " & Chr(34) & Certificat & Chr(34) & " "
  strTemp = strTemp & "-passwd " & CertificatKey & " "
  'kill the old temp file if any
  On Error Resume Next
  Kill RepFile & "signed.pdf"
  On Error GoTo 0
  'synchronized shell , use your own function to replace the following SyncShell function
  SyncShell strTemp, , , True
  'control if we got the signed.pdf
  If Dir(RepFile & "signed.pdf") <> "" Then
    ' signing is ok
    SignPdf = True
    'copy the temp file , overwriting the original pdf
    Kill FileName
    Name RepFile & "signed.pdf" As FileName
  Else
    ' signing has failed
    SignPdf = False
  End If
End Function

Private Function FileNamePath(FileName As String) As String
  'return the path of a file
  Dim iPosit As Integer
  iPosit = InStrRev(FileName, "\")
  If iPosit Then
    FileNamePath = Left(FileName, iPosit)
  Else
    FileNamePath = ""
  End If
End Function

 

it should be easy to translate in others languages

The problem, it's in french

I've used it from Vb6 and it  work fine