Шифрование текстового

[Dux]

Добрый день, необходимо сделать функцию, с помощью которой его можно зашифровать текстовый файл и при необходимости обратно де-шифровать. В файле содержаться как кириллические, так и латинские символы. Может у кого есть готовые наработки?

[Stilet]

http://www.programmersforum.ru/showt...oto=nextnewest
http://www.programmersforum.ru/showthread.php?t=58277
Там в моих примерах малость устаревшие методы работы с файлом, но смысл все же тот же.

[Serge_Bliznykov]

мой любимый XOR однозначно поможет.
вот только чуток напрягает, зачем Вы уточняете, что

В файле содержаться как кириллические, так и латинские символы.

...
Программе шифрования с помощью "исключающего ИЛИ" == XOR - всё равно, какие у Вас там символы, хоть текстовый файл шифруйте, хоть MP3, хоть картинку.
один нюанс - после шифрации набор символов становится НЕПЕЧАТНЫЙ, его нельзя просто так посмотреть или, тем паче, отобразить с помощью визуальных компонентов.
Это, конечно, тоже решается (например, с помощью base64), но, с другой стороны, зачем кому-то смотреть на ШИФРОВАННЫЙ код. Очевидно, что там для стороннего зрителя просто "шум"..

[JUDAS]

Моя псевдошифровка пароля при сохранении пароля в ИНИШНИК
Пароль может быть набран как угодно

procedure  WritePassword(Ini:TIniFile; const Section, Value, Password : string);
var str : TMemoryStream;
    S   : string;
    dmp : array[0..63] of byte;
    i,j : integer;
begin
  if not Assigned(Ini) then exit;
  if Password='' then
  begin
    Ini.Writestring(Section, Value, '');
    exit;
  end;

  str := TMemoryStream.Create;
  for i:=0 to 63 do
  case i of
   00..31: dmp[i]:= I xor $C9;
   32..63: dmp[i]:= I xor $CC;
  end;
  S:='';
  while Length(S)<30 do
   S:=S+Password;
  SetLength(S,30);
  dmp[51]:= Length(Password) xor $7E;
  for i:=1 to Length(Password) do
  begin
    case i of
     1,3,5,6  : j:=i*7; // 7,21,35,42
     9,8,10   : j:=i*6; // 54,48,60
     2,4,7,11 : j:=i*4; // 8,16,28,44
     12..15,17..20,30 : j:=i;   //12..15,17..20
     23,25,26,28,29   : j:=i*2; //46.50.52.56.58
     16,27   : j:=i-16; //0,9
     21,22,24: j:=i-19; //2,3,5
    end;
    dmp[j]:=ord(Password[i]) xor dmp[j];
  end;
  str.Write(dmp[0], 64);
  str.Position:=0;
  Ini.WriteBinaryStream(Section, Value, str);
  str.Free;
end;

function ReadPassword(Ini:TIniFile; const Section, Value : string) : string;
var str : TMemoryStream;
    dmp,M : array[0..63] of byte;
    len : integer;
    i,j : integer;
begin
  result := '';
  FillChar(dmp[0],64,0);
  if not Assigned(Ini) then exit;
  str := TMemoryStream.Create;
  Ini.ReadBinaryStream(Section, Value, str);
  if str.Size=64 then str.Read(dmp[0],64);
  str.Free;
  if dmp[51]=0 then exit;

  for i:=0 to 63 do
  case i of
   00..31: M[i]:= I xor $C9;
   32..63: M[i]:= I xor $CC;
  end;

  len := dmp[51] xor $7E;
  for i:=1 to len do
  begin
    j:=-1;
    case i of
      1,3,5,6  : j:=i*7; // 7,21,35,42
      9,8,10   : j:=i*6; // 54,48,60
      2,4,7,11 : j:=i*4; // 8,16,28,44
      12..15,17..20,30 : j:=i;   //12..15,17..20
      23,25,26,28,29   : j:=i*2; //46.50.52.56.58
      16,27   : j:=i-16; //0,9
      21,22,24: j:=i-19; //2,3,5
    end;
    if J>-1 then result := result+chr(M[j] xor dmp[j]);
    if Length(result)=len then break;
  end;
end;

алгоритм можно перемутить как угодно, весь прикол в функции ReadBinaryStream которая превращает любой символ в его код в текстовом Нех виде (пробел => 32 => $20 => '20')

[Serge_Bliznykov]

Judas, позвольте поинтересоваться, а зачем этот страшный ужас?
разве код (взял его в теме Парное шифрование с ключом из 15 букв):

function Crypt(text, password:String):String;
var N, i:integer;
begin
   crypt := text;
   N := 1;
   for i:=1 to length(text) do begin
      Crypt[i] := chr(ord(text[i]) xor ord(password[N]));
      inc(N);
      if N > length(password) then N := 1;
   end;
end;

var S:String;
begin
   S := Crypt('Длинная шифруемая строка текста. Помните об ограничениях String в Pascal max 255 символов.',
              'железный шпиц дома лежит');
   S := Crypt(S, 'железный шпиц дома лежит');   // расшифровать

не проще?!!

[Человек_Борща]

Judas, позвольте поинтересоваться, а зачем этот страшный ужас?

У каждого свои методы и свои велосипеды на счет усложнения жизни сферическим ломателям этих алгоритмов в вакууме.

[Serge_Bliznykov]

Человек_Борща, это да, согласен.

[Dux]

Дело в том, что я шифровал текстовый файл следующим образом:

function cd(s:string):string;
var
i:integer;
begin
result:=s;
for i:=1 to length(result) do
if (result[i] in ['a'..'z', 'а'..'я','!'..'ї']) then
result[i]:=chr(ord(result[i])+321);
end;

Но в DelphiXE7 конструкция in для кириллицы не работает, теперь ломаю голову как реализовать такую же функцию.

[Dux]

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

мой любимый XOR однозначно поможет.
вот только чуток напрягает, зачем Вы уточняете, что ...
Программе шифрования с помощью "исключающего ИЛИ" == XOR - всё равно, какие у Вас там символы, хоть текстовый файл шифруйте, хоть MP3, хоть картинку.
один нюанс - после шифрации набор символов становится НЕПЕЧАТНЫЙ, его нельзя просто так посмотреть или, тем паче, отобразить с помощью визуальных компонентов.
Это, конечно, тоже решается (например, с помощью base64), но, с другой стороны, зачем кому-то смотреть на ШИФРОВАННЫЙ код. Очевидно, что там для стороннего зрителя просто "шум"..

А можно пример?

[ДралсяСошибками]

Сомневаюсь, что кто-то будет разбирать алгоритм, а не подсмотрит результат этого алгоритма