672 reputation
56
bio website
location Budapest, Hungary
age
visits member for 2 years, 11 months
seen Jul 9 at 19:57

CTO, IT consultant, system administrator, webhosting provider, programmer, musician

My entry for the Obfuscated Perl Competition:

#!/usr/bin/perl
#Tinigma 2011 Usage: enigma.pl 123 rng ini "GHWVYYDVPQGEWQWVT"
($n,$o,$p)=map(ord()-65,split//,uc$ARGV[1]);($z,$y,$x)=map(ord
()-65,split//,uc$ARGV[2]);($l,$m,$r)=map$_-1,split//,$ARGV[0];
$t=uc$ARGV[3];$t=~s/[^A-Z]//g;$b=26;$j=0;@N=qw(7 25 11 6 1);@R
=('EKMFLGDQVZNTOWYHXUSPAIBRCJ'x3,'AJDKSIRUXBLHWTMCQGZNPYFVOE'x
3,'BDFHJLCPRTXVZNYEIWGAKMUSQO'x3,'ESOVPZJAYQUIRHXLNFTGKDCMWB'x
3,'VZBRGITYUPSDNHLXAWMJQOFECK'x3,'YRUHQSLDPXNGOKMIEBFZCWVJAT'x
3);@t=split//,$t;for$v(@R){$i=0;for(split//,$v){$c=ord($_)-65;
$F[$j][$i]=$c;$R[$j][$c+$b*int($i/$b)]=$i%$b;$i++}$j++};$i=0;$
f=$y==$F[$m][$N[$m]]?1:0;for(@t){if($f){$y++;$y%=$b;$z++;$z%=$
b;$f=0}if($x==$F[$r][$N[$r]]){$y++;$y%=$b;if($y==$F[$m][$N[$m]
]){$f=1}}$x++;$x%=$b;$e.=chr(($R[$r][$R[$m][$R[$l][$F[5][$F[$l
][$F[$m][$F[$r][ord()-39+$x-$n]-$x+$n+$y-$o]-$y+$o+$z-$p]-$z+$
p]+$z-$p]-$z+$p+$y-$o]-$y+$o+$x-$n]-$x+$n)%$b+65)}print"$e\n";

10
Dec 24 '11 at 8:09
3
Jul 26 '11 at 19:31
2
Jul 24 '11 at 18:48
0
Jul 25 '11 at 0:53