ToNumericForm[m_String]:= Module[ {text},
text=ToLowerCase[m];
If[Length[StringPosition[text," "]]>=1,
text= StringReplace[text," "->""]];
text=ToCharacterCode[text]-97;
Return[text]]
General::spell1:
Possible spelling error: new symbol name
"text" is similar to existing symbol "Text".
;[o]
General::spell1:
Possible spelling error: new symbol name
"text" is similar to existing symbol "Text".
Up to Shift Cipher: