XDR::Encode - Frage - #160777 (Fragen zu Perl-Modulen)

Gast Florian

2012-08-09 12:33

Morgen!
Ich habe es immerhin mittlerweile schon geschafft ein anderes resultat im server log zu erzeugen ;)

Quote
09.08.2012 14:30:33 FG_SERVER::AddBadClient() - 62.108.37.223 BAD magic number: #

ich baue das paket im moment so:

Code (perl): (dl )

sub xdrencode() {
        use XDR::Encode qw(:all);
        use XDR::Decode;
        my ($args) = opaque (shift);
        my $xid = 0x123;
        my $proc = 42;
        my $vers = 4;
        my $prog = 3;
        my $rpcvers = 2;
        my $packet = call_packet ($xid, $proc, $args, $vers, $prog, $rpcvers);
        return ($packet);
}

zugegeben, ich verstehe das XDR modul immer noch nicht richtig und die $vars sind standart aus dem beispiel des moduls -.-

wie übermittel ich die gewünschte magic number?

Code: (dl )

// magic value for messages
const uint32_t MSG_MAGIC = 0x46474653;  // "FGFS"
// protocoll version
const uint32_t PROTO_VER = 0x00010001;  // 1.1