шифрование и дешифрование

[Dima170792]

Помогите пожалуста !мне необходимо создать программу,которая будет зашифровывать слово ,поставив букве её номер в алфавите,и идентичную только для расшифровки!если кто-нибудь знает как это организовать помогите пожалуста.пишу на delphi ,если можно-приведите код

[was3110]

Вопрос Dima170792:
Приведите цифровые коды символов в В ё Ё я Я
И какое-нибудь простое слово закодируйте...

[Dima170792]

Сообщение от was3110

Вопрос Dima170792:
Приведите цифровые коды символов в В ё Ё я Я
И какое-нибудь простое слово закодируйте...

мне покаместь хотя-бы просто больших-или просто маленьких!а ещё лучше-чтоб функция была не чуствительна к регистру

[Dima170792]

Сообщение от was3110

Вопрос Dima170792:
И какое-нибудь простое слово закодируйте...

к примеру слово "Привіт "
в украинском алфавите буквы
П-20 по счёту.
р-21 по счёту.
и-11 по счёту.
в-3 по счёту.
і-12 по счёту.
т-23 по счёту.

примерно должно выйти так: 20 21 11 3 12 23(между цифрами можно ставить раздел.знаки-главное,чтоб программа их распознавала и правильно дешифровала!

[Dima170792]

Спасибо за старания!но уже не надо -я нашел

var
  i: Integer;
begin
  Edit2.Text:='';
  Edit3.Text:='';
  // шифруемся
  for i:=1 to Length(Edit1.Text) do
    Edit2.Text:=Edit2.Text+Format('%.3d', [Ord(Edit1.Text[i])]);
  // дешифруемся
  for i:=0 to (Length(Edit2.Text) div 3)-1 do
    Edit3.Text:=Edit3.Text+Chr(StrToInt(Edit2.Text[i*3+1]+Edit2.Text[i*3+2]+Edit2.Text[i*3+3]));
end;

(взято из сайта

http://www.delphisources.ru/forum/showthread.php?p=78419&posted=1#post78419

[was3110]

Ну, и отлично. Хотя здесь ASCII коды символов, а не номера букв в алфавите.

[Dima170792]

Сообщение от was3110

Ну, и отлично. Хотя здесь ASCII коды символов, а не номера букв в алфавите.

Да вы правы-оно не подходит-можете подсказать правильный вариант ?например-А=1,Б=2,В=3,и т.д.
слово ''пример''за шифруется так-17181014618