Vegard Hanssens hjemmeside

My name

If you haven't understood what my name is yet, you can run this program:

#!/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;}}}}

The program should be self-explaining. You can always try to switch the @l-line with this line:

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

and see what happens.

For those that's only interested in my firstname you can run this program:

#!/usr/bin/perl ----
$/=';'.''.'' ;open $f,$0;$_=0;while(<$f>){$_=length;&V($_)};
sub V{print chr($_[0]>26?$_[0]-36:$_[0]+92)}

Should also be self-explaining.