На главную
ПРАВИЛА FAQ Помощь Участники Календарь Избранное DigiMania RSS
msm.ru
! ПРАВИЛА РАЗДЕЛА · FAQ раздела Delphi · Книги по Delphi
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.
Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как "свернуть" программу в трей.
3. Как "скрыться" от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как прочитать список файлов, поддиректорий в директории?
5. Как запустить программу/файл?
... (продолжение следует) ...

Вопросы, подробно описанные во встроенной справочной системе Delphi, не несут полезной тематической нагрузки, поэтому будут удаляться.
Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы. Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.


Внимание
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...
Модераторы: jack128, D[u]fa, Shaggy, Rouse_
  
> Разные MD5 на win и android
Есть процедура получения MD5
ExpandedWrap disabled
    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
Как возможно что один и тот-же код под разные системы РАЗНЫЙ результат
dreyqq
1 прохешируй входной текст онлайн хешировщиками, и пойми на какой стороне ошибка
2 Попробуй использовать стандартные методы вшитые в дельфи, а не сторонние компоненты
ExpandedWrap disabled
    Uses Hash
     
    Var
     Hash: THashMD5;
     S,SHash:String;
     
    Begin
      Hash := THashMD5.Create;
      SHash:=hash.GetHashString(s);
      Hash.Free;
    End;

3 Что за версия дельфи и какой вы используете текст на входе? попробуйте заменить на widestring
"Воля - это то, что заставляет тебя побеждать, когда твой рассудок говорит тебе, что ты повержен" Карлос Кастанеда
Проблема оказалась при получении хеша даты
ExpandedWrap disabled
    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
Моя процедура использует возможности делфи, я не сторонник сторонних компонентов и модулей. Результат одинаковый Вашего кода и моего
dreyqq
Сам пример входящего текста ты так и не привел
"Воля - это то, что заставляет тебя побеждать, когда твой рассудок говорит тебе, что ты повержен" Карлос Кастанеда
Нашел почему так
win дд.мм.гггг
android дд.мм.гг
1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
0 пользователей:


Рейтинг@Mail.ru
[ Script Execution time: 0,0962 ]   [ 20 queries used ]   [ Generated: 21.01.19, 15:55 GMT ]