My message, consisting of 4 words (none of them esoteric) is endorsed by many followers, so I will not bother to define it as a proverb, catch phrase or quotation.
I will rather provide now few details how the process of coding was done and if you are willing to take chances you will easily solve it analytically.
So, here we go:
a. The 4 words of my message are of distinct lengths.
b. Prior to the coding I've erased the 3 spaces to form a continuous chain.
c. Then I've partitioned this chain of letters into triplets - the order was not disturbed.
d. Each triplet then was replaced by the product of the numerical values of all its letters (i.e. 1 for A, 2 for B, ..., 26 for Z).
To illustrate the process let's start with a sample phrase -
MONEY TIME NOW:
a.
MONEYTIMENOW
c.
MON EYT IME NOW
d.
2730, 2500, 585, 4830
It looks terrifying? It is not!!
Now my text, coded accordingly:
1620, 5880, 30, 5940, 3040, 150, 48.
After recovering the original text, please comment upon its source and meaning.
Bonne pioche!
DefDbl A-Z
Dim crlf$, triplet As Variant
Private Sub Form_Load()
Text1.Text = ""
crlf$ = Chr(13) + Chr(10)
Form1.Visible = True
triplet = Array(0, 1620, 5880, 30, 5940, 3040, 150, 48)
alpha$ = "abcdefghijklmnopqrstuvwxyz"
For nset = 1 To 7
n = triplet(nset)
For a = 1 To 26
If n Mod a = 0 Then
r = n / a
For b = a To 26
If r Mod b = 0 Then
c = r / b
If c <= 26 And c >= b Then
Text1.Text = Text1.Text & Mid(alpha, a, 1)
Text1.Text = Text1.Text & Mid(alpha, b, 1)
Text1.Text = Text1.Text & Mid(alpha, c, 1)
Text1.Text = Text1.Text & crlf
End If
DoEvents
End If
Next
End If
Next
Text1.Text = Text1.Text & crlf & crlf
Next
Text1.Text = Text1.Text & " done"
DoEvents
End Sub
err ntu abo orv hst afy abx
for acj jps ajo acp
iit aef bcy adl
ijr bce beo afh
ilo cej bbl
eef bch
bdf
cdd
fortune favors the fe???
ef???
bo???
ob???
fortune favors the bold
with an A left over.
The A is just a 1. The phrase was 1 less than a multiple of 3 in length, to the last set is just a product of the values of l and d. The A is an artifact of being the multiplicative identity.
|
|
Posted by Charlie
on 2020-06-26 14:34:05 |
VB program and solution
