Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

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:


Replies are listed 'Best First'.
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 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.


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.


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

      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

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 davies (Parson) 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.


    John Davies

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

    See Firecode for more information.


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

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://904029]
Approved by planetscape
What's the matter? Cat got your tongue?...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (5)
As of 2017-01-22 07:11 GMT
Find Nodes?
    Voting Booth?
    Do you watch meteor showers?

    Results (186 votes). Check out past polls.