Шифрование методом AES (Delphi)

[kr4kker]

Здравствуйте.
Нашел в сети приложение, которое выполняет шифрование текста методом AES. Оно работает, шифрует и расшифрует. Интересует такой вопрос: можно ли сделать так, чтобы источником мог быть не только файл, но и непосредственно вводимый в MemoIn текст ? Если такая возможность есть, помогите с ее реализацией. Заранее спасибо.

[Stilet]

Да. Можно. Опиши переменку типа TStringStream.
Далее создавать так: БлаБла:=TStringStream.Create(MemoIn .Lines.Text);
и БлаБла передавай в EncryptAESStreamECB, как делаешь это в клике Button2

[kr4kker]

Спасибо. Создал еще одну кнопку, для шифрования чисто текста. Поставил все как надо, но все равно не работает, ругается вот на эту строку

        Dest := TStringStream.Create(DestFile, fmCreate);//Создаем новый файл или переписываем уже имеющийся

Я так понимаю это осталось от процедуры сохранения. Как ее реализовать чисто для вводимого текста? И еще, как сделать чтобы зашифрованный текст отображался в MemoOut? Извиняюсь если вопросы глупые, у нас Delphi плохо преподавали..

[WinCoder]

И еще, как сделать чтобы зашифрованный текст отображался в MemoOut?

Видимо так

Stream.Position := 0;
MemoOut.Text :=  Stream.ReadString(Stream.Size);

[Stilet]

(DestFile, fmCreate)

Что это? Ты вообще понимаешь что пишешь? Ил итак, на обум абы написано было?
еще раз внимательно прочти что я тебе написал, а потом открой Хелп и прочти подробности.

как сделать чтобы зашифрованный текст отображался в MemoOut?

БлаБла.Position:=0;
MemoOut.Lines.LoadFromStream(БлаБла);

[WinCoder]

Или так.

MemoOut.Lines.Add(Stream.ReadString(Stream.Size));

[kr4kker]

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

Что это? Ты вообще понимаешь что пишешь? Ил итак, на обум абы написано было?
еще раз внимательно прочти что я тебе написал, а потом открой Хелп и прочти подробности.

Я понимаю что эти команды значат, но все равно не понятно как тогда реализовать шифровку. Удаление этих строк приводит к ошибке.

Иными словами, чем код для текста будет отличаться от кода для файла? Как я понимаю надо создать новый класс Stream (а то пишет, что он не обозначен) но дальше я даже не знаю что делать.

[Stilet]

Как я понимаю надо создать новый класс Stream

Не просто Stream. Еще раз посмотри как в твоем коде создается стрим из файла - пройди в хелп почитай о его конструкторе, а потом посмотри какой класс я предлагаю использовать. Опять таки пройди в хелп и почитай о нем. Они все одинаковые в плане того что это стрим, но один открывает файл, а другому передается обычная строка.

TStringStream.Create(AString: string)
TFileStream.Create(const FileName: string; Mode: Word)

Разницу видишь?
Ладно, если ты читать не хочешь хелпы, ну хотя бы читай внимательно что я пишу.

[WinCoder]

Dest := TStringStream.Create(DestFile, fmCreate);//Создаем новый файл или переписываем уже имеющийся

Какой на фиг файл? Это строковый поток, а ты пытаешься инициализировать его методами инициализации файлового потока. Учись смотреть входные параметры конструктора (процедур, функций). Наведи мышь на слово Create с зажатым Shift, и кликни мышью. Попадёшь в саму процедуру. Смотри какие параметры стоят в скобках. И сравнивай с тем, что ты туда пытаешься запихать.

[kr4kker]

Спасибо, буду дальше пробовать..