Разные MD5 на win и android

[dreyqq]

Есть процедура получения MD5

procedure md5(in_md:string; var out_md:string);
begin
  with TIdHashMessageDigest5.Create do
  try
    out_md:= AnsiLowerCase(HashStringAsHex(in_md));
  finally
    Free;
  end;
end;

Один и тот-же проэкт, одни и теже входные данные, НО!!!
Под WIN один результат, а под Android совсем другой...
подскажите пожалуйста
win 730a8328e0c7628fa6e4e6e2b34ad03c
andr 3c539ab3df9f0704463c6ba88555fe82
Как возможно что один и тот-же код под разные системы РАЗНЫЙ результат

[^D^ima]

dreyqq
1 прохешируй входной текст онлайн хешировщиками, и пойми на какой стороне ошибка
2 Попробуй использовать стандартные методы вшитые в дельфи, а не сторонние компоненты

Uses Hash
 
Var
 Hash: THashMD5;
 S,SHash:String;
 
Begin
  Hash := THashMD5.Create;
  SHash:=hash.GetHashString(s);
  Hash.Free;
End;

3 Что за версия дельфи и какой вы используете текст на входе? попробуйте заменить на widestring

[dreyqq]

Проблема оказалась при получении хеша даты

procedure md5(in_md:string; var out_md:string);
begin
  with TIdHashMessageDigest5.Create do
  try
    out_md:= AnsiLowerCase(HashStringAsHex(in_md));
  finally
    Free;
  end;
end;
 
 
md=datetostr(now);

На win один хеш, на android другой...
Что может теперь быть?

for ^D^ima
Моя процедура использует возможности делфи, я не сторонник сторонних компонентов и модулей. Результат одинаковый Вашего кода и моего

[^D^ima]

dreyqq
Сам пример входящего текста ты так и не привел

[dreyqq]

Нашел почему так
win дд.мм.гггг
android дд.мм.гг