Corona QR програмирование сертификата не проходящего проверку

[Delphi_RTTI]

К сожалению, как у питона нет. Я смог перевести приблизительно, но увы, не могу правильно получить массив байт.
Исходящий поток пуст. что-то не правильно...
Вот часть кода Pascal (Delphi) :

unit Base45;

interface

uses Classes;

procedure Base45_Decode(const AInput, AOutput: TStream);

implementation

const
DecodeTable: array[0..255] of byte = (
255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255,
255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255,
36, 255, 255, 255, 37, 38, 255, 255, 255, 255, 39, 40, 255, 41, 42, 43,
0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 44, 255, 255, 255, 255, 255,

255, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22,
23, 24, (* UpperCase *)
25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 35, 255, 255, 255, 255,
255, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22,
23, 24, (* LowerCase *)
25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 35, 255, 255, 255, 255,

255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255,
255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255,
255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255,
255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255,

255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255,
255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255,
255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255,
255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255);

procedure Base45_Decode(const AInput, AOutput: TStream);
var
ch, a, b: byte;
x: word;
begin
ch:= 0;
repeat // Запускаем цикл
// Чтение входящего потока
AInput.Read(ch, 1);
a:= DecodeTable[ch];
// Дублируем чтение
AInput.Read(ch, 1);
b:= DecodeTable[ch];
// Если закончили, выходим из процедуры
if (a = 255) or (b = 255) then exit;
// Алгоритм кодирования
x:= a + 45 * b;
// Если текущая позиция (указатель) не достиг конца
if AInput.Position < AInput.Size then
begin
AInput.Read(ch, 1);
a:= DecodeTable[ch];
//
if a = 255 then exit;
x:= x + (a * 45 * 45);
// Сдвиг вправо на 8 байт
ch:= x shr 8;
// Записываем в исходящий поток
AOutput.Write(ch, 1);
end;
ch:= x and $FF;
AOutput.Write(ch, 1);
until AInput.Position = AInput.Size;
// Достигли конца - выход из цикла
end;

end. 

[Zahlesel]

перевести алгоритм бейс45 на делфи с какого языка?
неужто нет готовой библиотеки как у питона? какой отстой

[Delphi_RTTI]

Всем привет!
Пишу программу на Delphi для генерации QR-кода.
С библиотекой "Base64" проблем нет, строка отлично кодируется и расшифровуется. Сам QR генерируется динамически, по мере ввода в редактор и безупречно считывается любым сканером, прямо с экрана ноута :


Но вот с библиотекой "Base45" возникла проблема.
Я не могу перевести исходник на Delphi, так как не знаю синтаксис языка.
Кто-нибудь может помочь с переводом?

[HelloWorld_x0123]

а эти приват кии для каждого куара свои? или для региона свои? и куда они вводятся при кодировании, в какое поле?

{ "ver": "1.2.1", "nam": { "fn": "Musterfrau-G\u00f6\u00dfinger", "gn": "Gabriele", "fnt": "MUSTERFRAU<GOESSINGER", "gnt": "GABRIELE" }, "dob": "1998-02-26", "v": [ { "tg": "840539006", "vp": "1119349007", "mp": "EU\/1\/20\/1528", "ma": "ORG-100030215", "dn": 1, "sd": 2, "dt": "2021-02-18", "co": "AT", "is": "Ministry of Health, Austria", "ci": "URN:UVCI:01:AT:10807843F94AEE0EE5093FBC254BD8 13#B " } ] }

куда его вставлять, например, здесь

Начни с теории, представь что вместо "Hello" поставлен твой текст { "ver" ..... }

[Zahlesel]

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


Trust List / Business Rules Signer
это и есть ключ

[VICTOR]

потомучто для декодирования не нужен ключ, а для кодировки нужен оригинальный приват кий, который лежит за семью печатями.
об этом писалось в данной теме и не раз

а эти приват кии для каждого куара свои? или для региона свои? и куда они вводятся при кодировании, в какое поле?

{ "ver": "1.2.1", "nam": { "fn": "Musterfrau-G\u00f6\u00dfinger", "gn": "Gabriele", "fnt": "MUSTERFRAU<GOESSINGER", "gnt": "GABRIELE" }, "dob": "1998-02-26", "v": [ { "tg": "840539006", "vp": "1119349007", "mp": "EU\/1\/20\/1528", "ma": "ORG-100030215", "dn": 1, "sd": 2, "dt": "2021-02-18", "co": "AT", "is": "Ministry of Health, Austria", "ci": "URN:UVCI:01:AT:10807843F94AEE0EE5093FBC254BD8 13#B " } ] }

куда его вставлять, например, здесь

[VICTOR]

а почему тогда после кодирования получившийся сертификат проверяется нормально вот здесь: https://www.sslshopper.com/certificate-decoder.html ?

[Zahlesel]

потомучто для декодирования не нужен ключ, а для кодировки нужен оригинальный приват кий, который лежит за семью печатями.
об этом писалось в данной теме и не раз

[VICTOR]

Привет! Насущный вопрос: я декодирую рабочий куар тут: https://ehealth.vyncke.org/, потом кодирую его тут: https://dgc.a-sit.at/ehn/. Он становится нерабочим. Как так?

[Zahlesel]

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

[Chel007]

система хитрая в шифровке.
ключь которым подписывают имеет "отпечаток"(паблик кий). он считывается из любого куера.
все подписаные одним ключем имеют один и тотже отпечаток и именно он хранится в приложении. их всего сотня
его и проверяют оффлайн.
не имея приватный ключ невозможно подписать куер, чтобы при проверке вылазил нужный паблик ключ

газета куриер пишет что хакеры украли коды, статья вышла в октябре, значит можно его как то взломать.

[Zahlesel]

система хитрая в шифровке.
ключь которым подписывают имеет "отпечаток"(паблик кий). он считывается из любого куера.
все подписаные одним ключем имеют один и тотже отпечаток и именно он хранится в приложении. их всего сотня
его и проверяют оффлайн.
не имея приватный ключ невозможно подписать куер, чтобы при проверке вылазил нужный паблик ключ

[Zahlesel]

этот ключик, доступ к деньгам. никто его не выложит для всех
рабочие коды гитлера может сделать любой аптекарь приколист
ну или вакцинист в импфцентре или дом. врач с доступом к базе для получения куера

[k76k76]

not valid!!!!

да, это уже недействительно

[k76k76]

да, это уже недействительно