7875 90 19 720 19 7875 1800
The above seven numbers represent seven words, the last word being the longest.
The numbers represent the product of the numerical values of words' letters: e.g. LOVE would be represented by 19800 (12*15*22*5).
What is the hidden message?
1 you
2 are
2 area
2 baccae
2 cafe
2 cob
2 ear
2 er
2 era
2 face
2 oaf
2 of
2 re
3 aas
3 as
4 abrade
4 adit
4 aided
4 alcade
4 ardeb
4 babied
4 balboa
4 barde
4 bared
4 beard
4 blob
4 box
4 brat
4 bread
4 bred
4 capo
4 chafe
4 chef
4 clade
4 cop
4 debar
4 decal
4 died
4 dit
4 dita
4 dol
4 ell
4 fable
4 foh
4 haji
4 hare
4 hear
4 her
4 laced
4 leal
4 load
4 old
4 pie
4 rabat
4 rhea
4 talc
5 aas
5 as
6 you
7 adobo
7 baccate
7 baffy
7 bite
7 bole
7 celeb
7 deer
7 deface
7 dere
7 dray
7 dree
7 dry
7 eared
7 echo
7 exec
7 facet
7 feel
7 feod
7 flay
7 flee
7 fly
7 lobe
7 oft
7 oho
7 ooh
7 rate
7 reata
7 rebbe
7 rede
7 reed
7 ret
7 tare
7 tear
7 yard
The above is the sorted output from
DefDbl A-Z
Dim crlf$, vlu As Variant
Private Sub Form_Load()
Form1.Visible = True
Text1.Text = ""
crlf = Chr$(13) + Chr$(10)
vlu = Array(0, 7875, 90, 19, 720, 19, 7875, 1800)
Open "\words\words.txt" For Input As #1
Do
Line Input #1, l$
prod = 1
For i = 1 To Len(l)
prod = prod * InStr("abcdefghijklmnopqrstuvwxyz", Mid(l, i, 1))
Next
For i = 1 To 7
If prod = vlu(i) Then
Text1.Text = Text1.Text & i & " " & l & crlf
End If
Next
Loop Until EOF(1)
Close
Text1.Text = Text1.Text & crlf & " done"
End Sub
with blank lines introduced between different word position identifiers.
The choice of words:
You are as old as you feel.
|
Posted by Charlie
on 2015-11-02 14:48:09 |