Saudacoes!
Bem, gostaria de saber se alguém por aki já utilizou a CAPICOM com o java??? Vi várias implementacoes utilizando VBScript, mas gostaria de algo mais familiar…
se alguém puder traduzir o código a baixo pra javaScript ou java mesmo eu agradeceria muito!!!
Obrigado
script language="VBScript">
function Assina(campo)
on error resume next
if len(campo) <> 0 then
Set oStore = CreateObject("CAPICOM.Store")
Set oCertificate = CreateObject("CAPICOM.Certificate")
Set oCertificates = CreateObject("CAPICOM.Certificates")
Set oCertificates1 = CreateObject("CAPICOM.Certificates")
oStore.open
for each oCertificate in oStore.certificates
oCertificates.add oCertificate
next
set oCertificates1 = oCertificates.select("Selecione o certificado para assinatura","",false)
Set oSigner = CreateObject("CAPICOM.Signer")
oSigner.certificate = oCertificates1(1)
Set DadosParaAssinar = CreateObject("CAPICOM.SignedData")
DadosParaAssinar.Content = campo.value
Assinatura = DadosParaAssinar.Sign(oSigner,true)
document.frmtest.assinatura.value = Assinatura
set oStore = nothing
set oCertificate = nothing
set oCertificates = nothing
set oCertificate1 = nothing
set oSigner = nothing
set DadosParaAssinar = nothing
end if
end function
// FUNCAO VERIFY TESTA A VALIDADE DOS DADOS DE ACORDO COM A ASSINATURA
function Verify(Assinatura2);
// a assinatura estah em Assinatura2.value
on error resume next;
Set oSign = CreateObject("CAPICOM.SignedData");
// Texto cifrado deve ser comparado com o total plano para que seja validado
oSign.Content = "VALOR EM PLAIN TEXT PARA SER TESTADO";
teste = oSign.verify(Assinatura2.value, true, 1);
if err = 0 then;
// ASSINATURA OK
else;
// ASSINATURA FALSA OU DADOS ERRADOS
end if;
end function;