Berkeley CSUA MOTD:Entry 20732
Berkeley CSUA MOTD
 
WIKI | FAQ | Tech FAQ
http://csua.com/feed/
2024/12/25 [General] UID:1000 Activity:popular
12/25   

2001/3/9-14 [Computer/SW/Languages/Perl] UID:20732 Activity:nil
3/13    How do you change the logging behaviour of sudo after it has
        been installed?  (i want to log all actions taken as sudo).

#!/usr/bin/perl -w
# 531-byte qrpff-fast, Keith Winstein and Marc Horowitz
<sipb-iap-dvd@mit.edu>
# MPEG 2 PS VOB file on stdin -> descrambled output on stdout
# arguments: title key bytes in least to most-significant order
$_='while(read+STDIN,$_,2048){$a=29;$b=73;$c=142;$t=255;@t=map{$_%16or$t^=$c^=(
$m=(11,10,116,100,11,122,20,100)[$_/16%8])&110;$t^=(72,@z=(64,72,$a^=12*($_%16
-2?0:$m&17)),$b^=$_%64?12:0,@z)[$_%8]}(16..271);if((@a=unx"C*",$_)[20]&48){$h
=5;$_=unxb24,join"",@b=map{xB8,unxb8,chr($_^$a[--$h+84])}@ARGV;s/...$/1$&/;$
d=unxV,xb25,$_;$e=256|(ord$b[4])<<9|ord$b[3];$d=$d>>8^($f=$t&($d>>12^$d>>4^
$d^$d/8))<<17,$e=$e>>8^($t&($g=($q=$e>>14&7^$e)^$q*8^$q<<6))<<9,$_=$t[$_]^
(($h>>=8)+=$f+(~$g&$t))for@a[128..$#a]}print+x"C*",@a}';s/x/pack+/g;eval
        \_ So, what's the purpose of using "eval" here? -perl newbie
           \_ RTFM. most single-arg perl commands take $_ as the default arg
              if they're not given one. so eval at the end evals everything else,
              which is stored in $_.
                \_ I know what eval and $_ stand for. I did not ask this
                   correctly I guess. I am wondering what's the purpose of
                   doing this fancy '$_=".."; eval' stuff? Looks like
                   redundant to me.
                   \_ (1) obfuscation; (2) compression by being able to use "x"
                      instead of "pack+", which occurs frequently in the actual
                      executed code (i.e. note the s/x/pack+/g). -alexf
                   \_ just being clever about it.  It isn't strictly required
                      but it sure looks cool.
Cache (741 bytes)
mit.edu
skip to search friday, may 14, 2004 About this site massachusetts institute of technology spotlight: creative intelligence an exhibit from MIT's visual arts program news creative collisions spark research at Stata education courses, admissions, OpenCourseWare research labs, centers and programs, libraries offices+services resources, jobs, business, giving to MIT community groups students, faculty, parents, alumni/ae events calendar, athletics, arts, commencement about mit facts, campus map, evolving campus search Google-MIT MIT People search terms Go MIT MIT today's homepage: Andrew Smiles massachusetts institute of technology 77 massachusetts avenue cambridge, ma 02139-4307 tel 617.253.1000 tty 617.258.9344 about this site contact