Esta funci贸n fue escrita en cSharp y, tiene el objetivo de firmar el xml con certificado digital tipo A3, mi idea y hacer la misma funcionalidad tambi茅n para los certificados A1 y poder utilizar en el harbour y en el xharbour, la parte m谩s dif铆cil ser铆a posibilitar la DLL se utiliza en cualquier lenguaje de programaci贸n y el DLL ya est谩 con esta aplicaci贸n, ahora tengo un ejemplo de consumir es DLL en Delphi y me gustar铆a hacer esto tambi茅n en xHarbour, cuento con el apoyo de los amigos.
{$R *.dfm}
uses StrUtils, Certfly;
procedure TForm2.Button1Click(Sender: TObject);
var
Ret: Integer;
function ExtraiURI(const AXML: String): String;
var
I, J: integer;
begin
Result := '';
I := PosEx('Id=', AXML, 6);
if I = 0 then
I := PosEx('id=', AXML, 6);
if I = 0 then // XML n茫o tem URI
exit ;
I := PosEx('"', AXML, I + 2);
J := PosEx('"', AXML, I + 1);
Result := copy(AXML, I + 1, J - I - 1);
end;
var
URI: string;
Xml: TStringList;
begin
Xml := TStringList.Create;
try
xml.LoadFromFile('C:\xml\R1000_N.xml');
URI := ExtraiURI(xml.Text)
finally
Xml.Free
end;
* Faz a assinatura do xml
Ret := TCertfly.Assinar('C:\xml\R1000_N.xml', 'C:\xml\R1000_ASS.xml', 'MinhaTag','0', '1ce63d4dcefb45e9', '1234');
if Ret = 0 then
ShowMessage('Sucesso')
else
ShowMessage('False');
end;
end.