EDET & opensource & metafraseis
Panayotis Katsaloulis
grad0307 at di.uoa.gr
Wed Jan 16 16:28:01 EET 2002
Pistebw pws 3efygame apo to 9ema.
Egw to mono poy blepw einai mia dhmosia yphresia, arketa shmantikh kai a3iopisth, na endiaferetai energa & 9erma gia thn yposthri3w twn open source & linux & sia.
To poso a3iopistos einai o dhmosios tomeas, den mporw na katalabw ti sxesh exei.
An malista ayta poy proteine to EDET ta elege mia idiwtikh etaireia, tote ki an den 9a epeftan oloi panw ths gia na thn fane (isws kai dikaia)
An einai na trogomaste meta3y mas gia tis pro9eseis toy ka9enos, as meinoyme pantws kleismenoi sto kloybi mas na teleiwnei h istoria.
--
$_='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, at z=(64,72,$a^=12*($_%16
-2?0:$m&17)),$b^=$_%64?12:0, at z)[$_%8]}(16..271);if((@a=unx"C*",$_)[20]&48){$h
=5;$_=unxb24,join"", at 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 at a[128..$#a]}print+x"C*", at a}';s/x/pack+/g;eval
More information about the Hellug
mailing list