Lettres, culture et autres....

[Patrick Andrieu]

Hallo henman!

wenn mir jemand 'lol' ins gesicht sagt, antworte ich mit 'preg_replace("/[^a-zA-Z, ]/","","L)(&e%räön#+ s=()p32456r+##e01c/7hen, -..d*~u V/&(=o32145g###e()l");' ...

#!/usr/bin/perl -w  
  
use strict;  
  
my $_a = sub {  
  my $_n = substr $_[0],16;  
  my @_a;  
  for (split /\D{1,}/, $_n) { $_+=ord " " if $_ =~/82|73/; push(@_a, chr $_);}  
  local $" = "";  
  return "@_a";  
};  
  
sub v {  
  my $o = "Iss!";  
  my $cd = lc "HENMAN";  
  my $v = "L";  
  return $_a->('$a=$a?"a":$b;$d=87')."".  
  chr(int(sqrt 10222))."r"." ".lc(substr($o,0,2)).  
  $_a->('abcdefghijklmnop116')." ".substr($cd,0,1).  
  (split('',lc $o))[0].(split('',lc $cd))[1]."r".  
  " ".chr(10*10)."e".(split('',lc 'PATRICK'))[3].  
  " ".uc((split('',lc $o))[1]).lc substr  
  ('PATRICK',0,2).  
  # tell me what you are, baby!  
  $_a->('$a=$a?"a":$b;$d=115;$/="a".115x118;  
         unlink $bf if m"-" and $b=111*103;  
         map{$->101},@w,sort{$a<=>$b},@w_a,  
         map{$_->$a}@a;$ENV{REMOTE_ADDR}').  
  lc $v.$_a->('dann mal gucken 63');  
}  
  
print v();

Viele Grüße aus Frankfurt/Main,
Patrick