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
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;
{: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"
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.}
function ASNEncLen(Len: Integer): AnsiString;
@@ -132,9 +132,10 @@ function ASNdump(const Value: AnsiString): AnsiString;
implementation
{==============================================================================}
function ASNEncOIDItem(Value: Integer): AnsiString;
function ASNEncOIDItem(Value: Int64): AnsiString;
var
x, xm: Integer;
x: Int64;
xm: Byte;
b: Boolean;
begin
x := Value;
@@ -152,7 +153,7 @@ begin
end;
{==============================================================================}
function ASNDecOIDItem(var Start: Integer; const Buffer: AnsiString): Integer;
function ASNDecOIDItem(var Start: Integer; const Buffer: AnsiString): Int64;
var
x: Integer;
b: Boolean;