Viss du ikkje har fått med deg namnet mitt enno, kan du berre køyre dette programmet:
#!/usr/bin/perl
@l=(132,4,107,111,723,7,5843,930,5571,981,129,107,19);$d=657;$s=57689;
$t="1"x$s;for$i(2..sqrt($s)){if(substr($t,$i-1,1)==1){for
($y=$i*2;$y<=$s;$y+=$i){substr($t,$y-1,1,"0");}}}for(@l){$p.=
&S($_);}for($i=0;$i<length($p);$i+=3){$t=substr($p,$i,3)-$d;print chr($t);}
sub S{($q)=@_;$c=0;for($i=2;$i<=length($t);$i++){if(substr($t,$i-1,1)==1)
{$c++;if($c==$q){return$i;}}}}Programmet er sjølvforklarande. Du kan jo alltids prøve å byte ut @l-linja med denne linja:
@l=(2,96,119,122,112,4,23,117,412,2,2,119,132,132,119,1003,6,119,27,132,4,3);$d=264;$s=7937;
og sjå kva som skjer då.
For dei som berre er interesserte i førenamnet, kan dei køyre dette programmet:
#!/usr/bin/perl ----
$/=';'.''.'' ;open $f,$0;$_=0;while(<$f>){$_=length;&V($_)};
sub V{print chr($_[0]>26?$_[0]-36:$_[0]+92)}Burde òg vere sjølvforklarande.