c03

public text v1 · immutable
#22038
·published 2005-09-03 15:44 UTC
procedure TForm1.EncryptButtonClick(Sender: TObject);
begin
StringReplace(text, "a", "7", [rfReplaceAll]);
StringReplace(text, "e", "1", [rfReplaceAll]);
StringReplace(text, "n", "3", [rfReplaceAll]);
StringReplace(text, "c", "2", [rfReplaceAll]);
StringReplace(text, "f", "4", [rfReplaceAll]);
StringReplace(text, "t", "5", [rfReplaceAll]);
StringReplace(text, "o", "6", [rfReplaceAll]);
StringReplace(text, "l", "8", [rfReplaceAll]);
StringReplace(text, "m", "9", [rfReplaceAll]);
StringReplace(text, "u", "0", [rfReplaceAll]);
StringReplace(text, "r", "<", [rfReplaceAll]);
StringReplace(text, "h", ">", [rfReplaceAll]);
StringReplace(text, "p", "©", [rfReplaceAll]);
StringReplace(text, "y", "", [rfReplaceAll]);
StringReplace(text, "g", "*", [rfReplaceAll]);
StringReplace(text, "d", "!", [rfReplaceAll]);
StringReplace(text, "w", "&", [rfReplaceAll]);
StringReplace(text, "h", "=", [rfReplaceAll]);
StringReplace(text, "i", "#", [rfReplaceAll]);
end;