msg5.pl

ftam等标准协议服务器和客户端的源代码。

( CONT 0x0
    ( UNIV SET
        ( APPL 0x0
            ( UNIV SEQ
                ( APPL 0x1
                    ( UNIV PRTS 0x0 )
                )
                ( APPL 0x2
                    ( UNIV PRTS 0x0 )
                )
                ( CONT 0x2
                    ( UNIV PRTS 0x4
                        "cern"
                    )
                )
            )
            ( UNIV SEQ
                ( UNIV SEQ
                    ( UNIV PRTS 0x0 )
                    ( UNIV PRTS 0x5
                        "stev"
                        "e"
                    )
                )
                ( UNIV SEQ
                    ( UNIV PRTS 0x0 )
                    ( UNIV PRTS 0x5
                        "pria"
                        "m"
                    )
                )
            )
        )
        ( APPL 0x5
            ( UNIV BITS 0x2
                0x0640
            )
        )
        ( APPL 0xa 0x3
            0x343334
        )
        ( APPL 0x7 0x1
            0x00
        )
        ( CONT 0x2
            ( UNIV SET
                ( APPL 0x0
                    ( UNIV SEQ
                        ( APPL 0x1
                            ( UNIV PRTS 0x0 )
                        )
                        ( APPL 0x2
                            ( UNIV PRTS 0x0 )
                        )
                        ( CONT 0x2
                            ( UNIV PRTS 0x2
                                "uk"
                            )
                        )
                    )
                    ( UNIV SEQ
                        ( UNIV SEQ
                            ( UNIV PRTS 0x0 )
                            ( UNIV PRTS 0x18
                                "alin"
                                "a@ea"
                                "n.va"
                                "x2.c"
                                "s.uc"
                                "l.ac"
                            )
                        )
                    )
                )
                ( CONT 0x1 0x2
                    0x0388
                )
                ( CONT 0x0 0x1
                    0x01
                )
            )
        )
        ( APPL 0x6 0x1
            0x02
        )
        ( APPL 0x4
            ( APPL 0x3
                ( APPL 0x1
                    ( UNIV PRTS 0x0 )
                )
                ( APPL 0x2
                    ( UNIV PRTS 0x0 )
                )
                ( UNIV PRTS 0x4
                    "cern"
                )
            )
            ( UNIV IA5S 0xc
                "8511"
                "1500"
                "4138"
            )
        )
        ( APPL 0x9
            ( UNIV SEQ
                ( APPL 0x3
                    ( APPL 0x1
                        ( UNIV PRTS 0x0 )
                    )
                    ( APPL 0x2
                        ( UNIV PRTS 0x0 )
                    )
                    ( UNIV PRTS 0x4
                        "cern"
                    )
                )
                ( UNIV SET
                    ( CONT 0x0 0x11
                        0x38353131
                        0x31343233
                        0x34313338
                        0x2d303130
                        0x30
                    )
                    ( CONT 0x2 0x1
                        0x00
                    )
                )
            )
        )
    )
)
( CONT 0x0
    ( UNIV SET
        ( CONT 0x2
            ( UNIV SET
                ( CONT 0x0
                    ( APPL 0x0
                        ( UNIV SEQ
                            ( APPL 0x1
                                ( UNIV PRTS 0x0 )
                            )
                            ( APPL 0x2
                                ( UNIV PRTS 0x0 )
                            )
                            ( CONT 0x2
                                ( UNIV PRTS 0x4
                                    "cern"
                                )
                            )
                        )
                        ( UNIV SEQ
                            ( UNIV SEQ
                                ( UNIV PRTS 0x0 )
                                ( UNIV PRTS 0xb
                                    "stev"
                                    "e@pr"
                                    "iam"
                                )
                            )
                        )
                    )
                )
                ( CONT 0x1 0x2
                    0x0640
                )
            )
        )
        ( CONT 0x3
            ( UNIV SET
                ( CONT 0x0
                    ( APPL 0x0
                        ( UNIV SEQ
                            ( APPL 0x1
                                ( UNIV PRTS 0x0 )
                            )
                            ( APPL 0x2
                                ( UNIV PRTS 0x0 )
                            )
                            ( CONT 0x2
                                ( UNIV PRTS 0x2
                                    "uk"
                                )
                            )
                        )
                        ( UNIV SEQ
                            ( UNIV SEQ
                                ( UNIV PRTS 0x0 )
                                ( UNIV PRTS 0xe
                                    "CERN"
                                    " loo"
                                    "p te"
                                    "st"
                                )
                            )
                            ( UNIV SEQ
                                ( UNIV PRTS 0x0 )
                                ( UNIV PRTS 0x12
                                    "ean."
                                    "vax2"
                                    ".cs."
                                    "ucl."
                                    "ac"
                                )
                            )
                        )
                    )
                )
                ( CONT 0x1 0x2
                    0x0640
                )
            )
        )
        ( CONT 0x8
            ( UNIV T61S 0x1c
                "Thu "
                "Nov "
                "14 2"
                "3:14"
                ":16 "
                "GMT "
                "1985"
            )
        )
        ( CONT 0x0
            ( CONT 0x0 0x9
                0x45414e20
                0x536c6176
                0x65
            )
            ( APPL 0x0
                ( UNIV SEQ
                    ( APPL 0x1
                        ( UNIV PRTS 0x0 )
                    )
                    ( APPL 0x2
                        ( UNIV PRTS 0x0 )
                    )
                    ( CONT 0x2
                        ( UNIV PRTS 0x2
                            "uk"
                        )
                    )
                )
                ( UNIV SEQ
                    ( UNIV SEQ
                        ( UNIV PRTS 0x0 )
                        ( UNIV PRTS 0x3
                            "ean"
                        )
                    )
                    ( UNIV SEQ
                        ( UNIV PRTS 0x0 )
                        ( UNIV PRTS 0x12
                            "ean."
                            "vax2"
                            ".cs."
                            "ucl."
                            "ac"
                        )
                    )
                )
            )
        )
        ( APPL 0xb
            ( APPL 0x0
                ( UNIV SEQ
                    ( APPL 0x1
                        ( UNIV PRTS 0x0 )
                    )
                    ( APPL 0x2
                        ( UNIV PRTS 0x0 )
                    )
                    ( CONT 0x2
                        ( UNIV PRTS 0x2
                            "uk"
                        )
                    )
                )
                ( UNIV SEQ
                    ( UNIV SEQ
                        ( UNIV PRTS 0x0 )
                        ( UNIV PRTS 0x3
                            "ean"
                        )
                    )
                    ( UNIV SEQ
                        ( UNIV PRTS 0x0 )
                        ( UNIV PRTS 0x12
                            "ean."
                            "vax2"
                            ".cs."
                            "ucl."
                            "ac"
                        )
                    )
                )
            )
            ( UNIV PRTS 0x3
                "434"
            )
        )
        ( CONT 0xe 0x1
            0xff
        )
    )
)