From 31cd25a7dd51f9cb8676370fadf630cf4c81c93b Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Fri, 23 Oct 2015 10:18:38 +0200 Subject: Initial import --- tda.erl | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 tda.erl (limited to 'tda.erl') diff --git a/tda.erl b/tda.erl new file mode 100644 index 0000000..978899d --- /dev/null +++ b/tda.erl @@ -0,0 +1,18 @@ +-module(tda). +-export([login/0]). +-include("ACSE-1.hrl"). +-include("CSTA-application-context-information-csta3.hrl"). + +login() -> + Pdu = #'AARQ-apdu'{'application-context-name' = {1, 3, 12, 0, 218}, + 'user-information' = #'EXTERNAL'{ + 'direct-reference' = {1, 3, 12, 0, 285, 200}, + encoding = #'NewACSEUserInformationForCSTA'{ + cSTAVersion = [versionFive] + } + } + }, + + {ok, Bits} = asn1rt:encode('ACSE-1', 'AARQ-apdu', Pdu), + + list_to_binary(Bits). -- cgit v1.2.3