Sign PDF with Certificates

The problem, it's in french

I've used it from Vb6 and it  work fine

 

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