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: