как зашифровать Hex to base64?(Delphi)

MavRikoZ

MavRikoZ

Опытный
Регистрация
27 Янв 2015
Сообщения
481
Реакции
546
Баллы
145
Допустим есть тект которые получаю полсле хеширования в sha, пусть это будет 7f87e5ffa10517a367cb4c1ac3de5b6506c8b12465b35c6567fb7ac6d6b64855
если его шифровать как обычный текст то мы получим N2Y4N2U1ZmZhMTA1MTdhMzY3Y2I0YzFhYzNkZTViNjUwNmM4YjEyNDY1YjM1YzY1NjdmYjdhYzZkNmI2NDg1NQ==
но еслли его зашифровать как Hex то мы получим f4fl/6EFF6Nny0waw95bZQbIsSRls1xlZ/t6xta2SFU=
возникает вопрос как его зашифровать как Hex в делфи, гуглил но ничего толком не нашел
 
Egorthik

Egorthik

Эксперт
Регистрация
14 Июл 2017
Сообщения
815
Реакции
665
Баллы
170
если у тебя вопрос на счёт как правильно , то hex -> base64

если на счёт кода - NerfDoriftar
 
Автор
Автор
MavRikoZ

MavRikoZ

Опытный
Регистрация
27 Янв 2015
Сообщения
481
Реакции
546
Баллы
145
Egorthik, ты ведь тру кодер, если не затруднит можешь написать дллку на плюсах с функцией шифрования из хекс в бейс, а я ее к себе в проект потрублю
 
Egorthik

Egorthik

Эксперт
Регистрация
14 Июл 2017
Сообщения
815
Реакции
665
Баллы
170
Egorthik, ты ведь тру кодер, если не затруднит можешь написать дллку на плюсах с функцией шифрования из хекс в бейс, а я ее к себе в проект потрублю
я не кодер и такого не умею)
 
Egorthik

Egorthik

Эксперт
Регистрация
14 Июл 2017
Сообщения
815
Реакции
665
Баллы
170
MavRikoZ,
 
Автор
Автор
MavRikoZ

MavRikoZ

Опытный
Регистрация
27 Янв 2015
Сообщения
481
Реакции
546
Баллы
145
Egorthik

Egorthik

Эксперт
Регистрация
14 Июл 2017
Сообщения
815
Реакции
665
Баллы
170
MavRikoZ, пиши не на дельфине))
А что пилишь уже ?)
 
Автор
Автор
MavRikoZ

MavRikoZ

Опытный
Регистрация
27 Янв 2015
Сообщения
481
Реакции
546
Баллы
145
MavRikoZ, пиши не на дельфине))
А что пилишь уже ?)
кроме дельфина больше ничего не знаю
да так ничего серьезного, как раньше дурью маюсь, авторизацию разбираю
 
spiner

spiner

Местный
Регистрация
26 Ноя 2017
Сообщения
125
Реакции
114
Баллы
85
Код:
uses
  System.SysUtils, System.Classes, System.NetEncoding;

function HexToBase64(hexStr : string) : string;
var source, dest : TBytes;
begin
  source := TEncoding.UTF8.GetBytes(LowerCase(hexStr));
  SetLength(dest, Length(source) shr 1);
  HexToBin(source, 0, dest, 0, Length(source));
  result := TNetEncoding.Base64.EncodeBytesToString(dest);
end;
 
Автор
Автор
MavRikoZ

MavRikoZ

Опытный
Регистрация
27 Янв 2015
Сообщения
481
Реакции
546
Баллы
145
Код:
uses
  System.SysUtils, System.Classes, System.NetEncoding;

function HexToBase64(hexStr : string) : string;
var source, dest : TBytes;
begin
  source := TEncoding.UTF8.GetBytes(LowerCase(hexStr));
  SetLength(dest, Length(source) shr 1);
  HexToBin(source, 0, dest, 0, Length(source));
  result := TNetEncoding.Base64.EncodeBytesToString(dest);
end;
Ты чуть опоздал, я уже сделал, только чуть по другому, заюзал бейз из инди
Но все же спасибо