Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

what is for key pls

by Kadir
on May 10, 2011 at 20:50 UTC ( #904029=perlquestion: print w/ replies, xml ) Need Help??
Kadir has asked for the wisdom of the Perl Monks concerning the following question:

7c9695cb23a71d851688cc0d7f8b1072

Comment on what is for key pls
Re: what is for key pls
by Fletch (Chancellor) on May 10, 2011 at 21:22 UTC

    What I want to know is how the frak did you get the combination to my luggage?

    The cake is a lie.
    The cake is a lie.
    The cake is a lie.

Re: what is for key pls
by Old_Gray_Bear (Bishop) on May 10, 2011 at 21:32 UTC
    Please note: by appropriate ternary arithmetical manipulations this string of hex-digits reduces to "42". Congratulations.

    ----
    I Go Back to Sleep, Now.

    OGB

      I made a quick and dirty script to see if some combination of + and -'s between all the digits of that string would return 42.

      my $str = '7c9695cb23a71d851688cc0d7f8b1072'; my @nums = map {hex} split '', $str; my @ops = qw(+ -); my @iter = (0) x (length($str) - 1); MAIN: while (1) { my @set = (@ops[@iter], ''); my $newstr = join '', map {$nums[$_] . $set[$_]} (0..$#nums); print "$newstr\n" if 42 == eval $newstr; # Increment my $i = $#iter; while (++$iter[$i] == @ops) { $iter[$i--] = 0; last MAIN if $i < 0; } }

      After running for an hour though, I decided that I needed to test this by hand:

      use List::Util qw(sum); my $str = '7c9695cb23a71d851688cc0d7f8b1072'; print sum map {hex} split '', $str; =prints 231 =cut

      Unfortunately, as you can see, the string contains an odd number of odd digits. This means that no combination of + and -'s between all the digits can return an even number. So there is no simple solution that equals 42

      this string of hex-digits reduces to "42"
      A few of which are:

      7+c+9+6+9+5+c+b+2+3+a+7+1+d+8+5+1+6+8+8+c+c+0+d+7-f*8-b+1*0-7*2 7-c-9-6-9-5-c-b-2-3-a-7-1-d-8-5-1-6-8-8-c-c-0+d*7+f*8-b*1+0-7+2 7*c*9*6*9*5*c*b*2*3*a*7*1*d*8*5*1*6*8*8*c*c*0*d-7+f+8+b+1-0+7*2 7*c*9*6*9*5*c*b*2*3*a*7*1*d*8*5*1*6*8*8/c/c*0-d+7+f+8+b-1*0+7*2

      #!/usr/local/bin/perl use 5.010; use strict; use warnings FATAL => 'all'; my $hex = '7c9695cb23a71d851688cc0d7f8b1072'; my @num = map {hex} split '', $hex; forty_two(42 => @num); sub forty_two { my ($target, $expr, $first, @rest) = @_; state $count_hit = 0; state $count_total = 0; unless (defined $first) { $count_total++; if (eval $expr == $target) { $count_hit++; $expr =~ s/(\d+)/sprintf "%x", $1/eg; say "$count_hit/$count_total: $expr == 42"; } return; } forty_two($target, "$expr+$first", @rest); forty_two($target, "$expr-$first", @rest); forty_two($target, "$expr*$first", @rest); if ($first) { my ($last_term) = $expr =~ m{(\d+(?:[*/]\d+)*)$}; forty_two($target, "$expr/$first", @rest) if eval "$last_term % $first == 0"; } }

      Please don't wait for it to finish running ;)

Re: what is for key pls
by davies (Vicar) on May 10, 2011 at 21:52 UTC

    It's poetry, like this. Upvotes should really go to whoever mentioned the link in the CB a day or two ago.

    Regards,

    John Davies

Re: what is for key pls
by davido (Archbishop) on May 10, 2011 at 22:20 UTC

    It looks to me as though that is probably the self-destruct sequence to your computer's processor. Specifically, if you have an Intel processor, as soon as that sequence appears on your monitor your CPU starts an internal counter. The process is irreversible. In 9.567e224 hours from initial sequence a crontab will execute the final instruction set, and the CPU's core will go super critical. The purpose of this instruction set is to prevent unwanted tampering by other beings.

    I read in this article (near the bottom) that there has been limited success in disarming the code by disassembling your computer's power supply, and removing the crystals. Be sure to disconnect it from main-line power first. The only way to know if it worked is to wait until 9.567e223 hours pass. If that time passes without the warning flash then you're in the clear. There is no way to monitor this other than by visual verification.


    Dave

Re: what is for key pls
by ww (Bishop) on May 11, 2011 at 00:30 UTC
    NB: this response is NOT to be included in those mentioned in the consideration!

    Revealing the top-secret Tri-Lateral Commission authentication code will result in black helicopters orbiting your location until the Special Committee on TLC Security Breaches determines whether your offense deserves immediate execution or some lesser punitive action.

Re: what is for key pls
by planetscape (Canon) on May 11, 2011 at 00:39 UTC

    See Firecode for more information.

    HTH,

    planetscape
Re: what is for key pls
by Anonymous Monk on May 11, 2011 at 09:02 UTC
    Lady Gaga chastity belt combination

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://904029]
Approved by planetscape
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (9)
As of 2014-07-23 12:12 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (140 votes), past polls