+

[

?

)

(

/

%

$

#

@

6

9#     $9&#     16837[2     &#     &2     !537[2     4&2     5$83?5
&#     2[     3822[     4&2     48[$25
19[6&#7[     (     9#     @6[453     (     76&1&     +8#9753     #56&37&
(     ?56     &2     #567&     765#15     ?68#18?[2
3&?78+[     6[+[     2[45     568&#7[2
483?[6[6     &2     5*5     8])98&645     4&     2[     1[$&][     4&     +9&675
9#[     28#&[     4&     [$&*[     4&2     [6$52
[     76[/&3     4&2     7865     )98#1&     +&7653     %9&6[

1

2

3

4

5

7

8

9

!

&

]

*

Símbolo

Frecuencia

-

Sustitución

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

E   A   O   S   R   N   I   D   L   C   T   U   M   P   B   G   V   Y   Q   H   F   Z   J

codigos = TextToUnicode(criptograma)
S1 = 0
R2 = LetterToUnicode(A2)
R3 = LetterToUnicode(A3)
R4 = LetterToUnicode(A4)
R5 = LetterToUnicode(A5)
R6 = LetterToUnicode(A6)
R7 = LetterToUnicode(A7)
R8 = LetterToUnicode(A8)
R9 = LetterToUnicode(A9)
R10 = LetterToUnicode(A10)
R11 = LetterToUnicode(A11)
R12 = LetterToUnicode(A12)
R13 = LetterToUnicode(A13)
R14 = LetterToUnicode(A14)
R15 = LetterToUnicode(A15)
R16 = LetterToUnicode(A16)
R17 = LetterToUnicode(A17)
R18 = LetterToUnicode(A18)
R19 = LetterToUnicode(A19)
R20 = LetterToUnicode(A20)
R21 = LetterToUnicode(A21)
R22 = LetterToUnicode(A22)
R23 = LetterToUnicode(A23)
R24 = LetterToUnicode(A24)
R25 = 32
S2 = LetterToUnicode(C2)
S3 = LetterToUnicode(C3)
S4 = LetterToUnicode(C4)
S5 = LetterToUnicode(C5)
S6 = LetterToUnicode(C6)
S7 = LetterToUnicode(C7)
S8 = LetterToUnicode(C8)
S9 = LetterToUnicode(C9)
S10 = LetterToUnicode(C10)
S11 = LetterToUnicode(C11)
S12 = LetterToUnicode(C12)
S13 = LetterToUnicode(C13)
S14 = LetterToUnicode(C14)
S15 = LetterToUnicode(C15)
S16 = LetterToUnicode(C16)
S17 = LetterToUnicode(C17)
S18 = LetterToUnicode(C18)
S19 = LetterToUnicode(C19)
S20 = LetterToUnicode(C20)
S21 = LetterToUnicode(C21)
S22 = LetterToUnicode(C22)
S23 = LetterToUnicode(C23)
S24 = LetterToUnicode(C24)
S25 = 32
lista2 = Sequence(Sequence[If[Element[codigos, k] ≟ Object["R" + (s)], Object["S" + (s)], 0], s, 2, 25], k, 1, Length[codigos])
lista3 = KeepIf(x > 0, Join[lista2])
B2 = CountIf(x ≟ R2, codigos)
B3 = CountIf(x ≟ R3, codigos)
B4 = CountIf(x ≟ R4, codigos)
B5 = CountIf(x ≟ R5, codigos)
B6 = CountIf(x ≟ R6, codigos)
B7 = CountIf(x ≟ R7, codigos)
B8 = CountIf(x ≟ R8, codigos)
B9 = CountIf(x ≟ R9, codigos)
B10 = CountIf(x ≟ R10, codigos)
B11 = CountIf(x ≟ R11, codigos)
B12 = CountIf(x ≟ R12, codigos)
B13 = CountIf(x ≟ R13, codigos)
B14 = CountIf(x ≟ R14, codigos)
B15 = CountIf(x ≟ R15, codigos)
B16 = CountIf(x ≟ R16, codigos)
B17 = CountIf(x ≟ R17, codigos)
B18 = CountIf(x ≟ R18, codigos)
B19 = CountIf(x ≟ R19, codigos)
B20 = CountIf(x ≟ R20, codigos)
B21 = CountIf(x ≟ R21, codigos)
B22 = CountIf(x ≟ R22, codigos)
B23 = CountIf(x ≟ R23, codigos)
B24 = CountIf(x ≟ R24, codigos)
texto1 = UnicodeToText(Take[lista3, 1, 67])
texto2 = UnicodeToText(Take[lista3, 68, 105])
texto3 = UnicodeToText(Take[lista3, 106, 177])
texto4 = UnicodeToText(Take[lista3, 178, 228])
texto5 = UnicodeToText(Take[lista3, 229, 266])
texto6 = UnicodeToText(Take[lista3, 267, 346])
texto8 = UnicodeToText(Take[lista3, 395, 455])
texto7 = UnicodeToText(Take[lista3, 347, 394])
texto10: "" + texto1 + "
" + texto2 + "
" + texto3 + "
" + texto4 + "
" + texto5 + "
" + texto6 + "
" + texto7 + "
" + texto8