Current section
Files
Jump to
Current section
Files
src/ppp_frame.erl
%% This Source Code Form is subject to the terms of the Mozilla Public
%% License, v. 2.0. If a copy of the MPL was not distributed with this
%% file, You can obtain one at http://mozilla.org/MPL/2.0/.
-module(ppp_frame).
-export([decode/1, encode/1]).
-ignore_xref([decode/1, encode/1]).
-compile(bin_opt_info).
-compile(inline).
-compile({inline,[decode_lcp/3, decode_lcp_option/2, decode_ipcp_option/2]}).
-define(PPP_IP, 16#21). %% Internet Protocol
-define(PPP_AT, 16#29). %% AppleTalk Protocol
-define(PPP_IPX, 16#2b). %% IPX protocol
-define(PPP_VJC_COMP, 16#2d). %% VJ compressed TCP
-define(PPP_VJC_UNCOMP, 16#2f). %% VJ uncompressed TCP
-define(PPP_IPV6CP_COMP, 16#004f).
-define(PPP_IPV6, 16#57). %% Internet Protocol Version 6
-define(PPP_COMP, 16#fd). %% compressed packet
-define(PPP_IPCP, 16#8021). %% IP Control Protocol
-define(PPP_ATCP, 16#8029). %% AppleTalk Control Protocol
-define(PPP_IPXCP, 16#802b). %% IPX Control Protocol
-define(PPP_IPV6CP, 16#8057). %% IPv6 Control Protocol
-define(PPP_CCP, 16#80fd). %% Compression Control Protocol
-define(PPP_ECP, 16#8053). %% Encryption Control Protocol
-define(PPP_LCP, 16#c021). %% Link Control Protocol
-define(PPP_PAP, 16#c023). %% Password Authentication Protocol
-define(PPP_LQR, 16#c025). %% Link Quality Report protocol
-define(PPP_CHAP, 16#c223). %% Cryptographic Handshake Auth. Protocol
-define(PPP_CBCP, 16#c029). %% Callback Control Protocol
-define(PPP_EAP, 16#c227). %% Extensible Authentication Protocol
-define(IPCP_VJC_COMP, 16#2d). %% Van Jacobson Compressed TCP/IP [RFC1144][RFC1332]
-define(IPCP_IPH_COMP, 16#61). %% Robust Header Compression (ROHC) [RFC3241]
-define(IPCP_ROG_COMP, 16#03). %% IP Header Compression [RFC2507][RFC3544]
-define('CP-VendorSpecific', 0).
-define('CP-Configure-Request', 1). %% [RFC1661]
-define('CP-Configure-Ack', 2). %% [RFC1661]
-define('CP-Configure-Nak', 3). %% [RFC1661]
-define('CP-Configure-Reject', 4). %% [RFC1661]
-define('CP-Terminate-Request', 5). %% [RFC1661]
-define('CP-Terminate-Ack', 6). %% [RFC1661]
-define('CP-Code-Reject', 7). %% [RFC1661]
-define('CP-Protocol-Reject', 8). %% [RFC1661]
-define('CP-Echo-Request', 9). %% [RFC1661]
-define('CP-Echo-Reply', 10). %% [RFC1661]
-define('CP-Discard-Request', 11). %% [RFC1661]
-define('CP-Identification', 12). %% [RFC1570]
-define('CP-Time-Remaining', 13). %% [RFC1570]
-define('CP-Reset-Request', 14). %% [RFC1962]
-define('CP-Reset-Reply', 15). %% [RFC1962]
cp_code(?'CP-VendorSpecific') -> 'CP-VendorSpecific';
cp_code(?'CP-Configure-Request') -> 'CP-Configure-Request';
cp_code(?'CP-Configure-Ack') -> 'CP-Configure-Ack';
cp_code(?'CP-Configure-Nak') -> 'CP-Configure-Nak';
cp_code(?'CP-Configure-Reject') -> 'CP-Configure-Reject';
cp_code(?'CP-Terminate-Request') -> 'CP-Terminate-Request';
cp_code(?'CP-Terminate-Ack') -> 'CP-Terminate-Ack';
cp_code(?'CP-Code-Reject') -> 'CP-Code-Reject';
cp_code(?'CP-Protocol-Reject') -> 'CP-Protocol-Reject';
cp_code(?'CP-Echo-Request') -> 'CP-Echo-Request';
cp_code(?'CP-Echo-Reply') -> 'CP-Echo-Reply';
cp_code(?'CP-Discard-Request') -> 'CP-Discard-Request';
cp_code(?'CP-Identification') -> 'CP-Identification';
cp_code(?'CP-Time-Remaining') -> 'CP-Time-Remaining';
cp_code(?'CP-Reset-Request') -> 'CP-Reset-Request';
cp_code(?'CP-Reset-Reply') -> 'CP-Reset-Reply';
cp_code('CP-VendorSpecific') -> ?'CP-VendorSpecific';
cp_code('CP-Configure-Request') -> ?'CP-Configure-Request';
cp_code('CP-Configure-Ack') -> ?'CP-Configure-Ack';
cp_code('CP-Configure-Nak') -> ?'CP-Configure-Nak';
cp_code('CP-Configure-Reject') -> ?'CP-Configure-Reject';
cp_code('CP-Terminate-Request') -> ?'CP-Terminate-Request';
cp_code('CP-Terminate-Ack') -> ?'CP-Terminate-Ack';
cp_code('CP-Code-Reject') -> ?'CP-Code-Reject';
cp_code('CP-Protocol-Reject') -> ?'CP-Protocol-Reject';
cp_code('CP-Echo-Request') -> ?'CP-Echo-Request';
cp_code('CP-Echo-Reply') -> ?'CP-Echo-Reply';
cp_code('CP-Discard-Request') -> ?'CP-Discard-Request';
cp_code('CP-Identification') -> ?'CP-Identification';
cp_code('CP-Time-Remaining') -> ?'CP-Time-Remaining';
cp_code('CP-Reset-Request') -> ?'CP-Reset-Request';
cp_code('CP-Reset-Reply') -> ?'CP-Reset-Reply';
cp_code(X) when is_integer(X) -> X.
protocol(ipcp) -> ?PPP_IPCP;
protocol(ipv6cp) -> ?PPP_IPV6CP;
protocol(lcp) -> ?PPP_LCP;
protocol(pap) -> ?PPP_PAP;
protocol(chap) -> ?PPP_CHAP;
protocol(?PPP_IPCP) -> ipcp;
protocol(?PPP_IPV6CP) -> ipv6cp;
protocol(?PPP_LCP) -> lcp;
protocol(?PPP_PAP) -> pap;
protocol(?PPP_CHAP) -> chap;
protocol(X) when is_integer(X) -> X.
cp_auth_protocol(?PPP_PAP) -> pap;
cp_auth_protocol(?PPP_CHAP) -> chap;
cp_auth_protocol(?PPP_EAP) -> eap;
cp_auth_protocol(pap) -> ?PPP_PAP;
cp_auth_protocol(chap) -> ?PPP_CHAP;
cp_auth_protocol(eap) -> ?PPP_EAP.
chap_md_type(md5) -> 5;
chap_md_type(sha1) -> 6;
chap_md_type('MS-CHAP') -> 128;
chap_md_type('MS-CHAP-v2') -> 129;
chap_md_type(5) -> md5;
chap_md_type(6) -> sha1;
chap_md_type(128) -> 'MS-CHAP';
chap_md_type(129) -> 'MS-CHAP-v2'.
-define(CI_VENDOR, 0). %% Vendor Specific
-define(CI_MRU, 1). %% Maximum Receive Unit [RFC1661]
-define(CI_ASYNCMAP, 2). %% Async Control Character Map
-define(CI_AUTHTYPE, 3). %% Authentication Type [RFC1661]
-define(CI_QUALITY, 4). %% Quality Protocol [RFC1661]
-define(CI_MAGICNUMBER, 5). %% Magic Number [RFC1661]
-define(CI_PCOMPRESSION, 7). %% Protocol Field Compression [RFC1661]
-define(CI_ACCOMPRESSION, 8). %% Address/Control Field Compression [RFC1661]
-define(CI_CALLBACK, 13). %% callback [RFC1570]
-define(CI_MRRU, 17). %% max reconstructed receive unit; multilink [RFC1990]
-define(CI_SSNHF, 18). %% short sequence numbers for multilink [RFC1990]
-define(CI_EPDISC, 19). %% endpoint discriminator [RFC1990]
-define(CI_LDISC, 23). %% Link-Discriminator [RFC2125]
-define(CI_ADDRS, 1). %% IP Addresses [RFC1332]
-define(CI_COMPRESSTYPE, 2). %% Compression Type [RFC1332]
-define(CI_ADDR, 3). %% IP-Address [RFC1332]
-define(CI_MS_DNS1, 129). %% Primary DNS value [RFC1877]
-define(CI_MS_WINS1, 130). %% Primary WINS value [RFC1877]
-define(CI_MS_DNS2, 131). %% Secondary DNS value [RFC1877]
-define(CI_MS_WINS2, 132). %% Secondary WINS value [RFC1877]
-define(CI_IFACEID, 1). %% Interface-Identifier [RFC5072]
-define(CI_IPV6_COMPRESSTYPE, 2). %% IPv6-Compression-Protocol [RFC5172]
-define('PAP-Authentication-Request', 1).
-define('PAP-Authenticate-Ack', 2).
-define('PAP-Authenticate-Nak', 3).
pap_code(?'PAP-Authentication-Request') -> 'PAP-Authentication-Request';
pap_code(?'PAP-Authenticate-Ack') -> 'PAP-Authenticate-Ack';
pap_code(?'PAP-Authenticate-Nak') -> 'PAP-Authenticate-Nak';
pap_code('PAP-Authentication-Request') -> ?'PAP-Authentication-Request';
pap_code('PAP-Authenticate-Ack') -> ?'PAP-Authenticate-Ack';
pap_code('PAP-Authenticate-Nak') -> ?'PAP-Authenticate-Nak'.
-define('CHAP-Challenge', 1).
-define('CHAP-Response', 2).
-define('CHAP-Success', 3).
-define('CHAP-Failure', 4).
chap_code(?'CHAP-Challenge') -> 'CHAP-Challenge';
chap_code(?'CHAP-Response') -> 'CHAP-Response';
chap_code(?'CHAP-Success') -> 'CHAP-Success';
chap_code(?'CHAP-Failure') -> 'CHAP-Failure';
chap_code('CHAP-Challenge') -> ?'CHAP-Challenge';
chap_code('CHAP-Response') -> ?'CHAP-Response';
chap_code('CHAP-Success') -> ?'CHAP-Success';
chap_code('CHAP-Failure') -> ?'CHAP-Failure'.
%% ----------------------------------------
% decoder API
%% ----------------------------------------
decode(<<?PPP_IP:8/integer, Info/binary>>) ->
{ipv4, Info};
decode(<<?PPP_IP:16/integer, Info/binary>>) ->
{ipv4, Info};
decode(<<?PPP_IPV6:8/integer, Info/binary>>) ->
{ipv6, Info};
decode(<<?PPP_IPV6:16/integer, Info/binary>>) ->
{ipv6, Info};
decode(<<?PPP_IPCP:16/integer, Code:8/integer, Id:8/integer, Length:16/integer, Rest/binary>>) ->
DataLen = Length - 4,
<<Data:DataLen/bytes, _Pad/binary>> = Rest,
decode_ipcp(Data, Id, Code);
decode(<<?PPP_IPV6CP:16/integer, Code:8/integer, Id:8/integer, Length:16/integer, Rest/binary>>) ->
DataLen = Length - 4,
<<Data:DataLen/bytes, _Pad/binary>> = Rest,
decode_ipv6cp(Data, Id, Code);
decode(<<?PPP_LCP:16/integer, Code:8/integer, Id:8/integer, Length:16/integer, Rest/binary>>) ->
DataLen = Length - 4,
<<Data:DataLen/bytes, _Pad/binary>> = Rest,
decode_lcp(Data, Id, Code);
decode(<<?PPP_PAP:16/integer, Code:8/integer, Id:8/integer, Length:16/integer, Rest/binary>>) ->
DataLen = Length - 4,
<<Data:DataLen/bytes, _Pad/binary>> = Rest,
decode_pap(Data, Id, Code);
decode(<<?PPP_CHAP:16/integer, Code:8/integer, Id:8/integer, Length:16/integer, Rest/binary>>) ->
DataLen = Length - 4,
<<Data:DataLen/bytes, _Pad/binary>> = Rest,
decode_chap(Data, Id, Code);
decode(<<Protocol:16/integer, Code:8/integer, Id:8/integer, _:16/integer, Data/binary>>)
when Protocol >= 16#8000 ->
{Protocol, cp_code(Code), Id, Data}.
%% ----------------------------------------
% encoder API
%% ----------------------------------------
encode({lcp, Code, Id, Options})
when Code == 'CP-Configure-Request';
Code == 'CP-Configure-Ack';
Code == 'CP-Configure-Nak';
Code == 'CP-Configure-Reject' ->
Data = encode_lcp_options(Options),
encode(<<?PPP_LCP:16>>, cp_code(Code), Id, Data);
encode({lcp, Code, Id, Data})
when Code == 'CP-Terminate-Request';
Code == 'CP-Terminate-Ack' ->
encode(<<?PPP_LCP:16>>, cp_code(Code), Id, Data);
encode({lcp, 'CP-Code-Reject', Id, RejectedPacket}) when is_binary(RejectedPacket)->
encode(<<?PPP_LCP:16>>, ?'CP-Code-Reject', Id, RejectedPacket);
encode({lcp, 'CP-Code-Reject', Id, RejectedPacket}) ->
BinRejectedPacket = encode(RejectedPacket),
encode(<<?PPP_LCP:16>>, ?'CP-Code-Reject', Id, BinRejectedPacket);
encode({lcp, 'CP-Discard-Request', Id}) ->
encode(<<?PPP_LCP:16>>, ?'CP-Discard-Request', Id, <<>>);
encode({lcp, 'CP-Echo-Request', Id, Magic}) ->
encode(<<?PPP_LCP:16>>, ?'CP-Echo-Request', Id, <<Magic:32>>);
encode({lcp, 'CP-Echo-Reply', Id, Magic}) ->
encode(<<?PPP_LCP:16>>, ?'CP-Echo-Reply', Id, <<Magic:32>>);
encode({lcp, 'CP-Protocol-Reject', Id, RejectedProtocol, RejectedInfo}) ->
encode(<<?PPP_LCP:16>>, ?'CP-Protocol-Reject', Id, <<(protocol(RejectedProtocol)):16, RejectedInfo/binary>>);
encode({lcp, 'CP-Identification', Id, Magic, Message}) ->
encode(<<?PPP_LCP:16>>, ?'CP-Identification', Id, <<Magic:32, Message/binary>>);
encode({lcp, 'CP-Time-Remaining', Id, Magic, Remaining, Message}) ->
encode(<<?PPP_LCP:16>>, ?'CP-Time-Remaining', Id, <<Magic:32, Remaining:32, Message/binary>>);
encode({pap, 'PAP-Authentication-Request', Id, PeerId, Passwd}) ->
PeerLength = size(PeerId),
PassLength = size(Passwd),
encode(<<?PPP_PAP:16>>, ?'PAP-Authentication-Request', Id,
<<PeerLength:8, PeerId/binary, PassLength:8, Passwd/binary>>);
encode({pap, Code, Id, Msg})
when Code == 'PAP-Authenticate-Ack';
Code == 'PAP-Authenticate-Nak'->
MsgLength = size(Msg),
encode(<<?PPP_PAP:16>>, pap_code(Code), Id,
<<MsgLength:8, Msg/binary>>);
encode({chap, Code, Id, Value, Name})
when Code == 'CHAP-Challenge';
Code == 'CHAP-Response' ->
ValueSize = size(Value),
encode(<<?PPP_CHAP:16>>, chap_code(Code), Id,
<<ValueSize:8, Value/binary, Name/binary>>);
encode({chap, Code, Id, Msg})
when Code == 'CHAP-Success';
Code == 'CHAP-Failure' ->
encode(<<?PPP_CHAP:16>>, chap_code(Code), Id, Msg);
encode({ipcp, Code, Id, Options})
when Code == 'CP-Configure-Request';
Code == 'CP-Configure-Ack';
Code == 'CP-Configure-Nak';
Code == 'CP-Configure-Reject' ->
Data = encode_ipcp_options(Options),
encode(<<?PPP_IPCP:16>>, cp_code(Code), Id, Data);
encode({ipcp, Code, Id, Data})
when Code == 'CP-Terminate-Request';
Code == 'CP-Terminate-Ack' ->
encode(<<?PPP_IPCP:16>>, cp_code(Code), Id, Data);
encode({ipcp, 'CP-Code-Reject', Id, RejectedPacket}) when is_binary(RejectedPacket)->
encode(<<?PPP_IPCP:16>>, ?'CP-Code-Reject', Id, RejectedPacket);
encode({ipcp, 'CP-Code-Reject', Id, RejectedPacket}) ->
BinRejectedPacket = encode(RejectedPacket),
encode(<<?PPP_IPCP:16>>, ?'CP-Code-Reject', Id, BinRejectedPacket);
encode({ipcp, 'CP-Protocol-Reject', Id, RejectedProtocol, RejectedInfo}) ->
encode(<<?PPP_IPCP:16>>, ?'CP-Protocol-Reject', Id, <<(protocol(RejectedProtocol)):16, RejectedInfo/binary>>);
encode({ipv6cp, Code, Id, Options})
when Code == 'CP-Configure-Request';
Code == 'CP-Configure-Ack';
Code == 'CP-Configure-Nak';
Code == 'CP-Configure-Reject' ->
Data = encode_ipv6cp_options(Options),
encode(<<?PPP_IPV6CP:16>>, cp_code(Code), Id, Data);
encode({ipv6cp, Code, Id, Data})
when Code == 'CP-Terminate-Request';
Code == 'CP-Terminate-Ack' ->
encode(<<?PPP_IPV6CP:16>>, cp_code(Code), Id, Data);
encode({ipv6cp, 'CP-Code-Reject', Id, RejectedPacket}) when is_binary(RejectedPacket)->
encode(<<?PPP_IPV6CP:16>>, ?'CP-Code-Reject', Id, RejectedPacket);
encode({ipv6cp, 'CP-Code-Reject', Id, RejectedPacket}) ->
BinRejectedPacket = encode(RejectedPacket),
encode(<<?PPP_IPV6CP:16>>, ?'CP-Code-Reject', Id, BinRejectedPacket);
encode({ipv6cp, 'CP-Protocol-Reject', Id, RejectedProtocol, RejectedInfo}) ->
encode(<<?PPP_IPV6CP:16>>, ?'CP-Protocol-Reject', Id, <<(protocol(RejectedProtocol)):16, RejectedInfo/binary>>);
encode({Protocol, Code, Id, Data})
when Protocol >= 16#8000 ->
encode(<<Protocol:16>>, cp_code(Code), Id, Data).
%% ----------------------------------------
%% decoder helper
%% ----------------------------------------
decode_lcp(Data, Id, Code)
when Code == ?'CP-Configure-Request';
Code == ?'CP-Configure-Ack';
Code == ?'CP-Configure-Nak';
Code == ?'CP-Configure-Reject' ->
{lcp, cp_code(Code), Id, decode_lcp_options(Data)};
decode_lcp(Data, Id, Code)
when Code == ?'CP-Terminate-Request';
Code == ?'CP-Terminate-Ack' ->
{lcp, cp_code(Code), Id, Data};
decode_lcp(RejectedPacket, Id, ?'CP-Code-Reject') ->
{lcp, 'CP-Code-Reject', Id, RejectedPacket};
decode_lcp(_Data, Id, ?'CP-Discard-Request') ->
{lcp, 'CP-Discard-Request', Id};
decode_lcp(<<Magic:32/integer, _Data/binary>>, Id, ?'CP-Echo-Request') ->
{lcp, 'CP-Echo-Request', Id, Magic};
decode_lcp(<<Magic:32/integer, _Data/binary>>, Id, ?'CP-Echo-Reply') ->
{lcp, 'CP-Echo-Reply', Id, Magic};
decode_lcp(<<RejectedProtocol:16/integer, RejectedInfo/binary>>, Id, ?'CP-Protocol-Reject') ->
{lcp, 'CP-Protocol-Reject', Id, protocol(RejectedProtocol), RejectedInfo};
decode_lcp(<<Magic:32/integer, Message/binary>>, Id, ?'CP-Identification') ->
{lcp, 'CP-Identification', Id, Magic, Message};
decode_lcp(<<Magic:32/integer, Remaining:32/integer, Message/binary>>, Id, ?'CP-Time-Remaining') ->
{lcp, 'CP-Time-Remaining', Id, Magic, Remaining, Message}.
decode_pap(<<PeerLength:8/integer, Rest/binary>>, Id, ?'PAP-Authentication-Request') ->
<<PeerId:PeerLength/bytes, PassLength:8/integer, More/binary>> = Rest,
<<Passwd:PassLength/bytes, _/binary>> = More,
{pap, 'PAP-Authentication-Request', Id, PeerId, Passwd};
decode_pap(<<MsgLength:8/integer, Rest/binary>>, Id, Code)
when Code == ?'PAP-Authenticate-Ack';
Code == ?'PAP-Authenticate-Nak'->
<<Msg:MsgLength/bytes, _/binary>> = Rest,
{pap, pap_code(Code), Id, Msg}.
decode_chap(Msg, Id, Code)
when Code == ?'CHAP-Success';
Code == ?'CHAP-Failure' ->
{chap, chap_code(Code), Id, Msg};
decode_chap(<<ValueSize:8/integer, Rest/binary>>, Id, Code)
when Code == ?'CHAP-Challenge';
Code == ?'CHAP-Response' ->
<<Value:ValueSize/bytes, Name/binary>> = Rest,
{chap, chap_code(Code), Id, Value, Name}.
decode_ipcp(Data, Id, Code)
when Code == ?'CP-Configure-Request';
Code == ?'CP-Configure-Ack';
Code == ?'CP-Configure-Nak';
Code == ?'CP-Configure-Reject' ->
{ipcp, cp_code(Code), Id, decode_ipcp_options(Data)};
decode_ipcp(Data, Id, Code)
when Code == ?'CP-Terminate-Request';
Code == ?'CP-Terminate-Ack' ->
{ipcp, cp_code(Code), Id, Data};
decode_ipcp(RejectedPacket, Id, ?'CP-Code-Reject') ->
{ipcp, 'CP-Code-Reject', Id, RejectedPacket};
decode_ipcp(<<RejectedProtocol:16/integer, RejectedInfo/binary>>, Id, ?'CP-Protocol-Reject') ->
{ipcp, 'CP-Protocol-Reject', Id, protocol(RejectedProtocol), RejectedInfo}.
decode_ipv6cp(Data, Id, Code)
when Code == ?'CP-Configure-Request';
Code == ?'CP-Configure-Ack';
Code == ?'CP-Configure-Nak';
Code == ?'CP-Configure-Reject' ->
{ipv6cp, cp_code(Code), Id, decode_ipv6cp_options(Data)};
decode_ipv6cp(Data, Id, Code)
when Code == ?'CP-Terminate-Request';
Code == ?'CP-Terminate-Ack' ->
{ipv6cp, cp_code(Code), Id, Data};
decode_ipv6cp(RejectedPacket, Id, ?'CP-Code-Reject') ->
{ipv6cp, 'CP-Code-Reject', Id, RejectedPacket};
decode_ipv6cp(<<RejectedProtocol:16/integer, RejectedInfo/binary>>, Id, ?'CP-Protocol-Reject') ->
{ipv6cp, 'CP-Protocol-Reject', Id, protocol(RejectedProtocol), RejectedInfo}.
decode_lcp_option(<<MRU:16/integer>>, ?CI_MRU) ->
{mru, MRU};
decode_lcp_option(<<ACCM:32/integer>>, ?CI_ASYNCMAP) ->
{asyncmap, ACCM};
decode_lcp_option(<<Auth:16/integer>>, ?CI_AUTHTYPE)
when Auth == ?PPP_EAP; Auth == ?PPP_PAP ->
{auth, cp_auth_protocol(Auth)};
decode_lcp_option(<<Auth:16/integer, MDType:8/integer>>, ?CI_AUTHTYPE)
when Auth == ?PPP_CHAP ->
{auth, {cp_auth_protocol(Auth), chap_md_type(MDType)}};
decode_lcp_option(<<QP:16/integer, Period:32/integer>>, ?CI_QUALITY) ->
{quality, QP, Period};
decode_lcp_option(<<Magic:32/integer>>, ?CI_MAGICNUMBER) ->
{magic, Magic};
decode_lcp_option(<<>>, ?CI_PCOMPRESSION) ->
pfc;
decode_lcp_option(<<>>, ?CI_ACCOMPRESSION) ->
acfc;
decode_lcp_option(<<Op:8/integer, Message/binary>>, ?CI_CALLBACK) ->
{callback, Op, Message};
decode_lcp_option(<<MRRU:16/integer>>, ?CI_MRRU) ->
{mrru, MRRU};
decode_lcp_option(<<>>, ?CI_SSNHF) ->
ssnhf;
decode_lcp_option(<<Class:8/integer, Address/binary>>, ?CI_EPDISC) ->
{epdisc, Class, Address};
decode_lcp_option(<<LDisc:16/integer>>, ?CI_LDISC) ->
{ldisc, LDisc};
decode_lcp_option(Data, Type) ->
{Type, Data}.
decode_lcp_options(Options) ->
decode_lcp_options(Options, []).
decode_lcp_options(<<>>, Acc) ->
lists:reverse(Acc);
%% variable length options decoding
decode_lcp_options(Data = <<Type:8/integer, Length:8/integer, Rest/binary>>, Acc) ->
PayLoadLen = Length - 2,
case Rest of
<<PayLoad:PayLoadLen/binary, Next/binary>> ->
Opt = decode_lcp_option(PayLoad, Type),
decode_lcp_options(Next, [Opt|Acc]);
_ ->
%% invalid Length value
{raw, Data}
end.
decode_ipcp_option(Addresses, ?CI_ADDRS) ->
{addresses, Addresses};
decode_ipcp_option(<<?PPP_VJC_COMP:16/integer, MaxSlotId:8/integer, CompSlotId:8/integer>> ,?CI_COMPRESSTYPE) ->
{compresstype, vjc, MaxSlotId, CompSlotId};
decode_ipcp_option(<<Addr:4/bytes>>, ?CI_ADDR) ->
{addr, Addr};
decode_ipcp_option(<<Addr:4/bytes>>, ?CI_MS_DNS1) ->
{ms_dns1, Addr};
decode_ipcp_option(<<Addr:4/bytes>>, ?CI_MS_WINS1) ->
{ms_wins1, Addr};
decode_ipcp_option(<<Addr:4/bytes>>, ?CI_MS_DNS2) ->
{ms_dns2, Addr};
decode_ipcp_option(<<Addr:4/bytes>>, ?CI_MS_WINS2) ->
{ms_wins2, Addr};
decode_ipcp_option(Data, Type) ->
{Type, Data}.
decode_ipcp_options(Options) ->
decode_ipcp_options(Options, []).
decode_ipcp_options(<<>>, Acc) ->
lists:reverse(Acc);
%% variable length options decoding
decode_ipcp_options(Data = <<Type:8/integer, Length:8/integer, Rest/binary>>, Acc) ->
PayLoadLen = Length - 2,
case Rest of
<<PayLoad:PayLoadLen/binary, Next/binary>> ->
Opt = decode_ipcp_option(PayLoad, Type),
decode_ipcp_options(Next, [Opt|Acc]);
_ ->
%% invalid Length value
{raw, Data}
end.
decode_ipv6cp_option(IFaceId, ?CI_IFACEID) ->
{ifaceid, IFaceId};
decode_ipv6cp_option(<<?PPP_IPV6CP_COMP:16/integer>>, ?CI_IPV6_COMPRESSTYPE) ->
{compresstype, ipv6_hc};
decode_ipv6cp_option(Data, Type) ->
{Type, Data}.
decode_ipv6cp_options(Options) ->
decode_ipv6cp_options(Options, []).
decode_ipv6cp_options(<<>>, Acc) ->
lists:reverse(Acc);
%% variable length options decoding
decode_ipv6cp_options(Data = <<Type:8/integer, Length:8/integer, Rest/binary>>, Acc) ->
PayLoadLen = Length - 2,
case Rest of
<<PayLoad:PayLoadLen/binary, Next/binary>> ->
Opt = decode_ipv6cp_option(PayLoad, Type),
decode_ipv6cp_options(Next, [Opt|Acc]);
_ ->
%% invalid Length value
{raw, Data}
end.
%% ----------------------------------------
%% encoder helper
%% ----------------------------------------
encode(Type, Code, Id, Data) ->
Length = 4 + size(Data),
<<Type/binary, Code:8, Id:8, Length:16, Data/binary>>.
%% encode options
encode_lcp_option(Type, Data) ->
Length = size(Data) + 2,
<<Type:8, Length:8, Data/binary>>.
%% allow empty list elements to simplify contructing the option list
encode_lcp_option([]) ->
<<>>;
encode_lcp_option({mru, MRU}) ->
encode_lcp_option(?CI_MRU, <<MRU:16/integer>>);
encode_lcp_option({asyncmap, ACCM}) ->
encode_lcp_option(?CI_ASYNCMAP, <<ACCM:32/integer>>);
encode_lcp_option({auth, Auth})
when Auth == eap; Auth == pap ->
encode_lcp_option(?CI_AUTHTYPE, <<(cp_auth_protocol(Auth)):16/integer>>);
encode_lcp_option({auth, {Auth, MDType}})
when Auth == chap ->
encode_lcp_option(?CI_AUTHTYPE, <<(cp_auth_protocol(Auth)):16/integer, (chap_md_type(MDType)):8/integer>>);
encode_lcp_option({quality, QP, Period}) ->
encode_lcp_option(?CI_QUALITY, <<QP:16/integer, Period:32/integer>>);
encode_lcp_option({magic, Magic}) ->
encode_lcp_option(?CI_MAGICNUMBER, <<Magic:32/integer>>);
encode_lcp_option(pfc) ->
encode_lcp_option(?CI_PCOMPRESSION, <<>>);
encode_lcp_option(acfc) ->
encode_lcp_option(?CI_ACCOMPRESSION, <<>>);
encode_lcp_option({callback, Op, Message}) ->
encode_lcp_option(?CI_CALLBACK, <<Op:8/integer, Message/binary>>);
encode_lcp_option({mrru, MRRU}) ->
encode_lcp_option(?CI_MRRU, <<MRRU:16/integer>>);
encode_lcp_option(ssnhf) ->
encode_lcp_option(?CI_SSNHF, <<>>);
encode_lcp_option({epdisc, Class, Address}) ->
encode_lcp_option(?CI_EPDISC, <<Class:8/integer, Address/binary>>);
encode_lcp_option({ldisc, LDisc}) ->
encode_lcp_option(?CI_LDISC, <<LDisc:16/integer>>);
encode_lcp_option({Type, Data}) ->
encode_lcp_option(Type, Data).
encode_lcp_options(Options) ->
<< <<(encode_lcp_option(O))/binary>> || O <- Options >>.
%% encode options
encode_ipcp_option(Type, Data) ->
Length = size(Data) + 2,
<<Type:8, Length:8, Data/binary>>.
%% allow empty list elements to simplify contructing the option list
encode_ipcp_option([]) ->
<<>>;
encode_ipcp_option({addresses, Addresses}) ->
encode_ipcp_option(?CI_ADDRS, Addresses);
encode_ipcp_option({compresstype, vjc, MaxSlotId, CompSlotId}) ->
encode_ipcp_option(?CI_COMPRESSTYPE, <<?PPP_VJC_COMP:16, MaxSlotId:8, CompSlotId:8>>);
encode_ipcp_option({addr, Addr}) ->
encode_ipcp_option(?CI_ADDR, Addr);
encode_ipcp_option({ms_dns1, Addr}) ->
encode_ipcp_option(?CI_MS_DNS1, Addr);
encode_ipcp_option({ms_wins1, Addr}) ->
encode_ipcp_option(?CI_MS_WINS1, Addr);
encode_ipcp_option({ms_dns2, Addr}) ->
encode_ipcp_option(?CI_MS_DNS2, Addr);
encode_ipcp_option({ms_wins2, Addr}) ->
encode_ipcp_option(?CI_MS_WINS2, Addr);
encode_ipcp_option({Type, Data}) ->
encode_ipcp_option(Type, Data).
encode_ipcp_options(Options) ->
<< <<(encode_ipcp_option(O))/binary>> || O <- Options >>.
%% encode options
encode_ipv6cp_option(Type, Data) ->
Length = size(Data) + 2,
<<Type:8, Length:8, Data/binary>>.
%% allow empty list elements to simplify contructing the option list
encode_ipv6cp_option([]) ->
<<>>;
encode_ipv6cp_option({ifaceid, IFaceId}) ->
encode_ipv6cp_option(?CI_IFACEID, IFaceId);
encode_ipv6cp_option({compresstype, ipv6_hc}) ->
encode_ipv6cp_option(?CI_IPV6_COMPRESSTYPE, <<?PPP_IPV6CP_COMP:16>>);
encode_ipv6cp_option({Type, Data}) when is_integer(Type), is_binary(Data) ->
encode_ipv6cp_option(Type, Data).
encode_ipv6cp_options(Options) ->
<< <<(encode_ipv6cp_option(O))/binary>> || O <- Options >>.