PC Toledo

Código: Selecionar todos

STATIC FUNCTION TestSignedEXE( cFileName )

   LOCAL oSignedCode, lOk := .F.

   BEGIN SEQUENCE WITH __BreakBlock()
      oSignedCode := win_OleCreateObject( "CAPICOM.SignedCode" )
      oSignedCode:FileName := cFileName
      oSignedCode:Verify()
      lOk := .T.
   ENDSEQUENCE
   IF ! lOk
      ShowAlert( "Not installed CAPICOM and/or EXE not signed" )
      IF .F.
         SignEXE( cFileName )
      ENDIF
   ENDIF

   RETURN lOk

Código: Selecionar todos

STATIC FUNCTION SignEXE( cFileName )

   LOCAL oSignedCode, oSigner, lOk := .F.

   BEGIN SEQUENCE WITH __BreakBlock()
      oSignedCode := win_OleCreateObject( "CAPICOM.SignedCode" )
      oSignedCode:FileName := cFileName
      oSigner := win_OleCreateObject( "CAPICOM.Signer" )
      oSigner:Certificate := CAPICOMCertificado( "Jose Quintas" )
      oSignedCode:Sign( oSigner )
      oSignedCode:TimeStamp( "http://timestamp.digicert.com" )
      lOk := .T.
   ENDSEQUENCE
   IF ! lOk
      ShowAlert( "Not installed CAPICOM and/or EXE not signed" )
   ENDIF

   RETURN lOk