Шифрование файлов любого формата. RSA

[Anzhela]

Добрый день!
помогите пожалуйста, как зашифровать файл любого формата(delphi)? мне посоветовали сделать через filestream, но что-то я не понимаю.

var
  FS,FD: TFileStream;
  Buf: string;
  Len: Integer;
  DestStr: String;
  w:TStringList;
begin
w:=TStringList.Create;
if OpenDialog1.Execute then
  begin
    if SaveDialog1.Execute then
     begin
      FS := TFileStream.Create(OpenDialog1.FileName,fmOpenRead);
  try
    FD := TFileStream.Create(SaveDialog1.FileName,fmCreate);
    try
      Len := FS.Size;
      SetLength(Buf,Len);
      FS.Read(Buf[1],Len);
      //Здесь шифруем строку
      DestStr := cryptstr(buf);
      FD.Write(DestStr[1],Length(DestStr));
    finally
      FD.Free;
    end;
  finally
    FS.Free;
  end;
     end;
  end;
но в данном случае doc и jpeg файлы к примеру не загружаются в буфер.
можно использовать массив байт тогда будет выглядеть так:
var
  FS,FD: TFileStream;
  Buf: array of byte;
  Len: Integer;
  DestStr: String;
  w:TStringList;
begin
w:=TStringList.Create;
if OpenDialog1.Execute then
  begin
    if SaveDialog1.Execute then
     begin
      FS := TFileStream.Create(OpenDialog1.FileName,fmOpenRead);
  try
    FD := TFileStream.Create(SaveDialog1.FileName,fmCreate);
    try
      Len := FS.Size;
      SetLength(Buf,Len);
      FS.Read(Buf[1],Len);
      //Здесь шифруем строку
      DestStr := cryptstr(buf);
      FD.Write(DestStr[1],Length(DestStr));
    finally
      FD.Free;
    end;
  finally
    FS.Free;
  end;
     end;
  end;

Вопрос состоит в следущем: как правильно организовать функцию? function cryptstr(s1:array of byte):string - мне не нравится string как конечный результат...или нельзя представлять в виде массива байт?
вот вам cryptstr (для массива байт):
function cryptstr(s1:array of byte):string;
var i:integer;
    p:integer;
    convert_p:integer;
    s2:char;
    r:string;
begin
e:=7;
multiply:=13231;
 for i := 1 to length(s1)  do
 begin
    convert_p:=MyPwMod(s1[i],e,multiply);
    //r:=r+(char(convert_p));
 end;
//Result:=r;
end;

P.S.
MyPwMod(a,b,c) = (a в степени b) mod c

[Stilet]

Я бы попробовал что-то типа:

uses     Classes,
  SysUtils;
 var f:TFileStream;s:TStringStream;i:integer;  b:Byte;
begin
 f:=TFileStream.Create('C:\temp\q.txt',fmOpenReadWrite);
  s:=TStringStream.Create;
  s.CopyFrom(f,f.Size);

  for i:=0 to s.Size do begin
   // Тут типа шифруем побайтно
    s.Bytes[i]:=s.Bytes[i] xor 2;
  end;

 f.Position:=0;;
 f.Write(s.Bytes,s.Size);
 f.Free;   s.Free;
end.

[lennon]

stilet, а как обратно расшифровать потом?

Anzhela, может сгенерировать открытые и закрытые ключи перед шифрованием? а затем читать по одному байту, а не массиву байт и шифровать его(байт этот). и Вообще у вас RSA алгоритм НЕВЕРНЫЙ

[Stilet]

stilet, а как обратно расшифровать потом?

Дык этой же операцией )
Посмотри внимательно на метод который я поставил.

и Вообще у вас RSA алгоритм НЕВЕРНЫЙ

Это уже другое дело, я пример на FileStream показывал а не на RSA.

[lennon]

перепутал с mod . Но тогда очень слабый алгоритм проще не шифровать вовсе, т.к. это бесполезно. и не про ваш, stilet, алгоритм я говорил, а про алгоритм автора

[Stilet]

и не про ваш, stilet, алгоритм я говорил, а про алгоритм автора

Я понял. Автору неплохо бы на Delphi World заглянуть

[Anzhela]

алгоритм RSA работает, но пока только для текстовых данных.
я неправильно делаю для файла любого формата, но если делать шифрование побайтно, то мой алгоритм не катит? Но ведь алгоритм RSA оперирует непосредственно с числовыми данными
Алгоритм RSA состоит из следующих пунктов:

1. Выбрать простые числа p и q
2. Вычислить n = p * q
3. Вычислить m = (p - 1) * (q - 1)
4. Выбрать число d взаимно простое с m
5. Выбрать число e так, чтобы e * d = 1 (mod m)

Числа e и d являются ключами. Шифруемые данные необходимо разбить на блоки - числа от 0 до n - 1. Шифрование и дешифровка данных производятся следующим образом:

* Шифрование: b = a в степени e (mod n)
* Дешифровка: a = b в степени d (mod n)

Как в этом случае мне поступить?

[lennon]

у вас в функции cryptstr только

* Шифрование: b = a в степени e (mod n)

соблюдаеться.

Вы же знает какие числа взаимнопростые?

алгоритм RSA работает

естественно меняеться символ после MyPwMod, но вопрос в том, как вы восстановите прежний символ? Вы поняли что такое открытый и закртый ключ? Говорю что у вас не RSA а калиберда какае-то.

Но ведь алгоритм RSA оперирует непосредственно с числовыми данными

Да, а ведь все символы прдеставлены в кодах чисел. поэтому называеться "Цифровая фотография" , "цифровые технологии" каждый символ имеет число. для наглядности смотрите codes.txt
И RSA оперирует не просто с числоыми данными, А БОЛЬШИМИ числовыми данными. Вы же наверняка слышали словосочетания "кодирование по 256 бит", "... по 1024 бита". здесь 256 и 1024 это не что иное, как размер числа. таких огромных типов данных нету, для этого нужно написать класс или ряд функций.