md5 в delphi: проблема с русскими буквами

[myosotis]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,IdHashMessageDigest, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    bbOK: TBitBtn;
    bbClean: TBitBtn;
    procedure bbCleanClick(Sender: TObject);
    procedure bbOKClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function md5(S: string): String;
begin
  Result := '';
  with TIdHashMessageDigest5.Create do
  try
    Result:=AnsiLowerCase(HashStringAsHex(s));
  finally
    Free;
  end;
end;

procedure TForm1.bbCleanClick(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
end;

procedure TForm1.bbOKClick(Sender: TObject);
begin
edit2.text:=md5(Edit1.Text)
end;

end.

Алгоритм md5 использовала через пакет Indy - класс TIdHashMessageDigest5
Функция правильно работает c числами и английскими буквами (проверено через онлайн генератор).
:
А вот с русскими буквами не хочет: для слов одинаковой длины выдает один и тот же хеш.
Почему так происходит и как это исправить?

[Serge_Bliznykov]

Delphi какой версии? >= Delphi 2009 ?

1) попробуйте конвертировать строку в AnsiString
или хотя бы задать тип, вместо String -> AnsiString:

function md5(S: AnsiString):AnsiString;
begin
  Result := '';
  with TIdHashMessageDigest5.Create do
  try
    Result:=AnsiLowerCase(HashStringAsHex(s));
  finally
    Free;
  end;
end;

....
procedure TForm1.bbOKClick(Sender: TObject);
var s : AnsiString;
begin
  s := Edit1.Text;
  edit2.text:=md5(s);
end;

2) в той теме, где Вы нашли этот способ получения хеша, были и другие библиотеки получения хэша MD5.
попробуйте их.
(но замечание насчёт использования AnsiString вместо String всё равно остаётся в силе!!)

[myosotis]

у меня Delphi 2010. я вот и думаю, что все дело в версии. т.к некоторые программы, ранее созданные в Delphi 2007 и нормально работающие с русскими буквами, теперь не работают в Delphi 2010((
Замена String -> AnsiString мне ничего не дала

[veniside]

В данном случае вы пали жертвой мего-мозга создателей инди. Ваша строчка должна выглядеть примерно так:

Result:=AnsiLowerCase(HashStringAsHex(s, TIdMBCSEncoding.Create()));

Это если с утечкой памяти. Чтобы утечек не было, храните TIdMBCSEncoding.Create() как глобальный объект.

function md5(S: AnsiString):AnsiString;

тут это не помогает, т.к. мего-мозг уже позаботился о нас Вот в этих самых строчках позаботился:

    // replace illegal characters > $7F
    if Word(AChars^) > $007F then begin
      ABytes^ := Byte(Ord('?'));
    end else begin
      ABytes^ := Byte(AChars^);
    end;

Я не знаю, что курят RLebeau и Ко, но, судя по последним релизам, что-то очень нездоровое

[Arigato]

Юнит md5hash:

[psycho-coder]

(но замечание насчёт использования AnsiString вместо String всё равно остаётся в силе!!)

Как уже сказали выше, это не поможет. К тому же по умолчанию используется AnsiString, потому что String = Паскалевскому String[255].

[myosotis]

TIdMBCSEncoding.Create()

это что? как описать это имя?

[veniside]

К тому же по умолчанию используется AnsiString

начиная с Дельфи 2009 string = UnicodeString;

потому что String = Паскалевскому String[255].

перепутали string и ShortString.

это что? как описать это имя?

var
  enc: TIdMBCSEncoding;
begin
  enc := TIdMBCSEncoding.Create(); // один раз при старте
...
  enc.Free(); // при выходе
end;

там, где в инди нужна кодировка:

Result:=AnsiLowerCase(HashStringAsHex(s, enc));

Но, следует учесть, что эти пляски с кодировкой могут дать не тот результат, который ожидается по стандарту. Нужно внимательно читать, что там стандарт говорит про хэш от не-ASII символов. Если стандарта нет, можно забить. (Речь не про стандарт MD5, а про ту часть, которая требует брать хэш от строки).

[Serge_Bliznykov]

сорри за оффтоп

Сообщение от psycho-coder

К тому же по умолчанию используется AnsiString, потому что String = Паскалевскому String[255].

абсолютно неверное утверждение.
ибо
1) в Delphi это всегда задавалось параметром {$H+}
по умолчанию String == AnsiString
можно было включить {$H-}. Тогда String станет равным ShortString

2) в версиях Delphi c unicode (версия >=2009) String по умолчанию равен WideString (UnicodeString).