Antéchrist

Vous soupçonnez votre voisin de bureau d'être une créature du Diable ?
Démasquez le sans qu'il s'en aperçoive ! La recette est simple. Sauvegardez ce petit script Perl et lancez le en lui donnant comme argument de ligne de commande l'adresse email de votre collègue. Si avec des combinaisons d'additions et de soustractions, un 666 apparait, c'est qu'il n'y a plus de doute....le démon est là !

#!/usr/local/bin/perl
#  antichrist.pl -- search for evidence of the antichrist

 $NUMBER_OF_THE_BEAST = 666;
 @nums = map(ord, split(//, $ARGV[0]));
 @ops = qw(+ -);   # or whatever you want
 if ($deriv=inferno(undef, @nums)) {
     foreach (@nums) { print chr($_), "\t$_\n" };
     print "$deriv\nCoincidence?  I think not!\n"
 }
 
 sub inferno {
     my($n, @nums) = @_;
     if ($#nums == -1) {
       int($n) == $NUMBER_OF_THE_BEAST ? " = $NUMBER_OF_THE_BEAST" : 0;
     } else {
       for $op (@ops) { 
           my($deriv);
           if ($deriv=inferno(eval("$n$op$nums[0]"), @nums[1..$#nums])) {
               return("$op$nums[0]$deriv");
           }
       }
     }
 }