На главную
ПРАВИЛА 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,0860 ]   [ 15 queries used ]   [ Generated: 27.05.19, 09:19 GMT ]