Лучший метод шифрования текста

[RIO]

Доброго времени суток Какой метод шифрования текста по вашему мнению лучший ? Если можно, то с примерами

[Vedrus]

"Одноразовый блокнот" - АБСОЛЮТНО неломаемый метод шифрования.

[RIO]

Улыбнуло Но, а если серьезно ? ? ? В интернете исходников, статей, на эту тему, но вот не знаю, что выбрать, нужно хороший метод шифрования текста, что бы душа была спокойна

[Vedrus]

Вполне серьёзно, это официальный термин, погуглите. Суть: у отправителя и получателя есть N текстовых файлов, которые кроме них никто не знает. Шифрование происходит тупо xor'ом, т.е. исходный текст ксорится одним из этих N текстовых файлов. Результат передаётся получателю. Тот опять ксорит его и получает исходное сообщение.

Первое письмо ксорится первым файлом, второе - вторым и т.д. В альфабанке по похожему принципу система интернетбанкинга работает.

[JTG]

Анекдот про Неуловимого Джо знаете? От кого нужно защитить текст? Действительно ли нужно шифровать каким-нибудь навороченным блочным шифром с длинным ключом?

Вот компактная реализация RC4, быстрый и достаточно надёжный потоковый симметричный шифр, если конечно предстоит шифровать не банковские данные

var s: array [0..255] of Byte;
    i, j: Byte;

//Инициализация S-Box'а
procedure InitRC4Cipher(key: ShortString);
var k: array [0..255] of Byte;
    t: Byte;
    l: Cardinal;
    i0,j0: Byte;
begin
  for i0 := 0 to 255 do s[i0] := i0;
  j0 := 1;
  l := Length(key);
  for i0 := 0 to 255 do
  begin
    k[i0] := Ord(key[j0]);
    if j0 = l then j0 := 0;
    Inc(j0);
  end;

  for i0 := 0 to 255 do
  begin
    j0 := (j0 + k[i0] + s[i0]) mod 256;
    t := s[i0];
    s[i0] := s[j0];
    s[j0] := t;
  end;
  i := 0;
  j := 0;
end;

//Зашифровать конкретный символ
function GetRC4ByteCiphered(bt: Byte): Byte;
var t: Byte;
begin
  i := (i + 1) mod 256;
  j := (j + s[i]) mod 256;
  t := s[i];
  s[i] := s[j];
  s[j] := t;
  t := (s[i] + s[j]) mod 256;
  Result := bt XOR s[t];
end;

//Применить RC4 шифр к потоку данных
function ApplyRC4ToData(Data: TStream; var Buffer: TStream; key: ShortString): Boolean; stdcall;
var i: Cardinal;
    d: Byte;
    pos: Cardinal;
begin
  if (key = '')OR(Buffer = Data)OR(Buffer = nil)OR(Data = nil)OR(Data.Size = 0)OR(Buffer.Size <> 0) then
  begin
    Result := false;
    Exit;
  end;

  pos := Data.Position;
  Data.Position := 0;
  Buffer.CopyFrom(Data,Data.Size);
  Buffer.Position := 0;
  Data.Position := 0;

  try
    InitRC4Cipher(key);
    for i := 0 to Buffer.Size-1 do
    begin
      Data.ReadBuffer(d,1);
      d := GetRC4ByteCiphered(d);
      Buffer.WriteBuffer(d,1);
    end;
  except
    Result := false;
    Exit;
  end;

  Data.Position := pos;
  Buffer.Position := 0;
  Result := true;
end;

Вот куча других http://freem2.googlecode.com/svn/tru...dcp2b/Ciphers/

[Greek9000]

Однажды была необходимость шифрования - собрал вот такую библиотечку (см. вложение)
Вас там интересует шифрование алгоритмом RC6.
Функции -
EncryptCopy - Зашифровать в новый поток
DecryptCopy - Расшифровать в новый поток
EncryptStream - Расшифровать поток
DecryptStream - Зашифровать поток
так же есть пара функций специально адаптированных для передачи по http:
function MyRC6Encrypt(Msg,Password:string):s tring;
function MyRC6Decrypt(Msg,Password:string):s tring;
первая зашифровывает Msg по ключу Password и возврашает текст в кодировке Base64, который можно без опасения передавать по интернету, не боясь что URL кодирование/декодирование изменит данные,
а вторая расшифровывает то, что зашифровала первая.

Так же в библиотеке есть функции работы с RSA (генерация ключей, шифрование, расшифровка, добавление цифровй подписи, верификация).
Есть URL кодирование/декодирование, получение md5 и ещё много чего нужного.

Библиотека в своё время использовалась для обмена сообщениями с терминалами быстрой оплаты.

[RIO]

Всем спасибо

[RIO]

Кстати, друзья, можно как-то перевести зашифрованную строку в числа?

[mihali4]

Ord(mystring[i])

[RIO]

А обратно числа в строку ?