summaryrefslogtreecommitdiff
path: root/tda.erl
diff options
context:
space:
mode:
Diffstat (limited to 'tda.erl')
-rw-r--r--tda.erl18
1 files changed, 18 insertions, 0 deletions
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).