682 reputation
31
bio website
location Budapest, Hungary
age
visits member for 3 years, 5 months
seen Jul 28 '11 at 9:20

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";

This user has not answered any questions
This user has not participated in any tags
This user has not asked any questions
Super User 682 rep 67
Server Fault 191 rep 5
Information Security 121 rep 3
Stack Overflow 111 rep 4

0 Votes Cast

This user has not cast any votes