Assinar xml

[MarceloPeron]

boa tarde, alguém sabe como fazer para assinar um xml que não seja DFe?

Antes eu fazia assim:

       A := TDFeSSL.Create;
       A.SSLLib :=  libOpenSSL;
       A.ArquivoPFX := trim(cdsCertificadosDIRET_CERT.AsString);
       A.Senha := trim(cdsCertificadosSENHA.AsString);

       Var_SL.Text := A.SSLXmlSignClass.Assinar(Var_SL.Text,'OT','infOT');
       Var_SL.Text := StringReplace(Var_SL.Text,'<?xml version="1.0" encoding="utf-8"?>','<?xml version="1.0" encoding="utf-8"?>' + S1,[rfReplaceAll]);
       Var_SL.Text := StringReplace(Var_SL.Text,'</OT>','</OT>'#13 + S2,[rfReplaceAll]);

 

mas agora não funciona pq TSSLLib, aparentemente, não existe mais.