67 72 65 61 74 20 6a 6f 62 20 64 61 76 65 20 6f 72 20 79 6f 75 20 63 6f 75 6c 64 20 68 61 76 65 20 68 61 64 20 74 6f 20 6c 65 61 72 6e 20 74 6f 20 63 6f 64 65 20 6c 69 6b 65 20 74 68 69 73 20 69 6e 20 74 68 65 20 64 61 79
67 72 65 61 74 20 6a 6f 62 20 64 61 76 65 20 6f 72 20 79 6f 75 20 63 6f 75 6c 64 20 68 61 76 65 20 68 61 64 20 74 6f 20 6c 65 61 72 6e 20 74 6f 20 63 6f 64 65 20 6c 69 6b 65 20 74 68 69 73 20 69 6e 20 74 68 65 20 64 61 79
Me transmitte sursum, caledoni!
I am totally against political jokes....I've seem to many of them elected!!
If anyone has VB6, I wrote an app to between Hex, Dec and Bin
Code:Function BinToDec(value As String) As Long Dim result As Long, i As Integer, exponent As Integer For i = Len(value) To 1 Step -1 Select Case Asc(Mid$(value, i, 1)) Case 48 ' "0", do nothing Case 49 ' "1", add the corresponding power of 2 result = result Or Power(exponent) Case Else Err.Raise 5 ' Invalid procedure call or argument End Select exponent = exponent + 1 Next BinToDec = result End Function Function DecToBin(ByVal value As Long, Optional digits As Long = -1) As String Dim result As String, exponent As Integer ' this is faster than creating the string by appending chars result = String$(32, "0") Do If value And Power(exponent) Then ' we found a bit that is set, clear it Mid$(result, 32 - exponent, 1) = "1" value = value Xor Power(exponent) End If exponent = exponent + 1 Loop While value If digits < 0 Then ' trim non significant digits, if digits was omitted or negative Bin = Mid$(result, 33 - exponent) Else ' else trim to the requested number of digits DecToBin = Right$(result, digits) End If End Function Function Power(ByVal exponent As Long) As Long Static res(0 To 31) As Long Dim i As Long ' rule out errors If exponent < 0 Or exponent > 31 Then Err.Raise 5 ' initialise the array at the first call If res(0) = 0 Then res(0) = 1 For i = 1 To 30 res(i) = res(i - 1) * 2 Next ' this is a special case res(31) = &H80000000 End If ' return the result Power = res(exponent) End Function
Last edited by spikey_richie; 02-03-2008 at 09:26 AM.
I just love these puzzles so early in the morning! Gatekeeper53 would you like this translated to what particularly? Back to binary, or into a legible assemblers code to enable something you have in mind?
Challenge me, or correct me, but don't ask me to die quietly.
…Pursuit is always hard, capturing is really not the focus, it’s the hunt ...
We used to have to read core dumps (from paper) in Hex most of the time more than a thousand pages of one part paper. And that was from a machine with 512k of RAM. You just got used to it after awhile. Since it wasn't uncommon to have the mainframe lock up 4 or 5 times a day. LOL and people think Windoze is unstable. Believe me when I tell you that the "Good old days" in computers sucked!
Me transmitte sursum, caledoni!
I am totally against political jokes....I've seem to many of them elected!!
49 20 64 69 64 20 73 6f 6d 65 20 4d 41 53 4d 20 62 75 74 20 49 20 77 61 73 20 73 74 69 6c 6c 20 74 6f 6f 20 79 6f 75 6e 67 2e 20
Heh. I'll call that one a "Burn"
First one to hack spikey's code into an EBCDIC-ASCII converter in VB6 wins !
I'm off to bed. LOL
Last edited by AMDave; 02-03-2008 at 10:30 AM.
. . . . . ___
. . . . . . .\___/\______
. . . . . . . \__AMD___\\__
---------------------------------------------
Yes that is correct Spikey.
I was just looking through the list of results returned, and the number of primes found. The only user who has found a prime is dobesj (Jan Dobes), who it would seem is developer of the app (see the project authors list on the main project window).
http://www.elmath.org/index.php?id=nearwp shows the result, with a link to dobesj's profile. He only crunched one work unit, which turned out to be a prime and scored him 15 points.
For some reason that tweaked my interest receptors, so I though I'd share with the group Maybe I'm reading too much into it, and there's more that one Jan Dobes (who shares his name with one of the projects authors).
Last edited by spikey_richie; 02-03-2008 at 06:18 PM.
That is pretty strange...