pascal/synapse
1
0
Fork 0
Code Issues Releases Activity

Big OID support in ASN.1 BER

Browse Source 
git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@176 7c85be65-684b-0410-a082-b2ed4fbef004
This commit is contained in:
geby 2013-02-08 09:21:03 +00:00
parent b3a48acebb
commit e76062c638
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
asn1util.pas
View File

@ -90,11 +90,11 @@ const
ASN1_OPAQUE = $44; ASN1_OPAQUE = $44;
{:Encodes OID item to binary form.} {:Encodes OID item to binary form.}
function ASNEncOIDItem(Value: Integer): AnsiString; function ASNEncOIDItem(Value: Int64): AnsiString;
{:Decodes an OID item of the next element in the "Buffer" from the "Start" {:Decodes an OID item of the next element in the "Buffer" from the "Start"
position.} position.}
function ASNDecOIDItem(var Start: Integer; const Buffer: AnsiString): Integer; function ASNDecOIDItem(var Start: Integer; const Buffer: AnsiString): Int64;
{:Encodes the length of ASN.1 element to binary.} {:Encodes the length of ASN.1 element to binary.}
function ASNEncLen(Len: Integer): AnsiString; function ASNEncLen(Len: Integer): AnsiString;
@ -132,9 +132,10 @@ function ASNdump(const Value: AnsiString): AnsiString;
implementation implementation
{==============================================================================} {==============================================================================}
function ASNEncOIDItem(Value: Integer): AnsiString; function ASNEncOIDItem(Value: Int64): AnsiString;
var var
x, xm: Integer; x: Int64;
xm: Byte;
b: Boolean; b: Boolean;
begin begin
x := Value; x := Value;
@ -152,7 +153,7 @@ begin
end; end;
{==============================================================================} {==============================================================================}
function ASNDecOIDItem(var Start: Integer; const Buffer: AnsiString): Integer; function ASNDecOIDItem(var Start: Integer; const Buffer: AnsiString): Int64;
var var
x: Integer; x: Integer;
b: Boolean; b: Boolean;