ToCharacterCode["abcd"]
FromCharacterCode[{97}]