Задать вопрос

Yam0lod5y

Комментарии

  • RC4 почему не полный результат?

    @Yam0lod5y Автор вопроса
    kalapanga, ух забыл сказать, что он потом в base64
    Написано

  • RC4 почему не полный результат?

    @Yam0lod5y Автор вопроса
    kalapanga, посмотрел, всё равно не тот результат, я не особо понимаю как и что мне тут менять, javascript куда проще был :(
    Результат который мне нужен
    crypt: "BAnDsMKcwpDDn8K8w63CscOiYsKTBsK4w4bCgsKqw61vwqR/V2LCkkRKwoNvw67DoRhCBkHDgilucVtUwpxjUsOaSDXDnl8rf8KYwq7DgXN+RMKMwp7DvsKRw6rCj8O2MQhpw7DDk3MRdUrDv8KPw4PCv1vDqy8Ew54Sw6XCgmbCvCLCkVRgEcKjdXrDvcOjC8KjLMKUHi1Gw7XCjjhEfMKywrnDgiXCocKuD8KJYcKrBMOdThvCoMOAGD3CqB/CnnHDhSDDpyQNEMOowpjDisOaDcKowrHCisO8YsKTw5jDjsKRw7NGw4PDksObNMO+w7XDkmvCtWnCqV7DjcKIw6rCnijCrinDrgFzwonCssOBU8KzwpNdCgrCr0law7dFbA/CiHNswr3CksK5w7vDg8K/CDdvwoDCh8Kwwq4/X0XDtFJmwoYww4lKw4vDvMKSwp81Yh8hG8K5w6jDlRA8Z8ObZl5TTcKowrzDgMK2c1jDhMOVwowTwqrCuSNyw4Zgw6FlPEYGwrTCv8KjW8KOIcKTw5PCri0Aw67CjQt2w5rClsOdw4Rrw7zDrcOQNwdzw7VVeVLDnEcTwrMawpbDvg/ConVcFmvChV9zw7BWw4o8Dh5pw7bDokRJwrJPw6DDucOaTiFywosib8OJwqLDscKQw7DDpV4eO8KFw550NMKrFMKTUD8jYMOowqgkA11JGcKALsOdLz/DhjIkw7rDtMK8w54CVR9Tw77CvjlVwpjCssKvw7xrf8KGCFw/FF/Dky/DhcO0Wgdqw4XClsKOES03LQvDmMOUbQAgwrnCml7CicO7wqgNV8KHw5Jywq7DoMKUCk4raDJowrgNw4jCjijDqDAfw7UgF8KgFcOlw4HDmcOyw6lrbsKPD8KvHcOFcMO/FA=="

    И результат от твоей функции 

    Memo1
BAnwnJDfvO2x4mKTBrjGgqrtb6R/V2KSREqDb+7hGEIGQcIpbnFbVJxjUtpINd5fK3+YrsFzfkSMnv6R6o/2MQhp8NNzEXVK/4/Dv1vrLwTeEuWCZrwikVRgEaN1ev3jC6MslB4tRvWOOER8srnCJaGuD4lhqwTdThugwBg9qB+eccUg5yQNEOiYytoNqLGK/GKT2M6R80bD0ts0/vXSa7VpqV7NiOqeKK4p7gFzibLBU7OTXQoKr0la90VsD4hzbL2SufvDvwg3b4CHsK4/X0X0UmaGMMlKy/ySnzViHyEbuejVEDxn22ZeU02ovMC2c1jE1YwTqrkjcsZg4WU8Rga0v6NbjiGT064tAO6NC3balt3Ea/zt0DcHc/VVeVLcRxOzGpb+D6J1XBZrhV9z8FbKPA4eafbiREmyT+D52k4hcosib8mi8ZDw5V4eO4XedDSrFJNQPyNg6KgkA11JGYAu3S8/xjIk+vS83gJVH1P+vjlVmLKv/Gt/hghcPxRf0y/F9FoHasWWjhEtNy0L2NRtACC5ml6J+6gNV4fScq7glApOK2gyaLgNyI4o6DAf9SAXoBXlwdny6Wtujw+vHcVw/xQ=

    Правда я только function RC4EncryptB1(Key: String; Text: TBytes): TBytes;
    Эту функцию использовал
    Собственно входные данные
    data: "eyJhcGlrZXkiOiJiZTQzYWQ3YjliNTQxY2NmZjY3Mzk3ZGJiYzMyNTUzOSIsImFwcF91dWlkIjoiMDE1N2MiLCJhcHB0eXBlIjoid2ViIiwiaW50ZXJmYWNlIjoid2ViIiwibG9jYWxlIjoiZW5fVVMiLCJvcGVyYXRvcl9pZCI6IjMwNiIsIm9wZXJhdG9yaWQiOiIzMDYiLCJvcGVyYXRvcklkIjoiMzA2IiwicHBzZXNzaW9uZGF0YSI6IiIsInBwdmVyaWZpZWRwYXJrZXIiOiIiLCJzZXNzX3V1aWQiOiJlNjZlZCIsInRyYW5zYWN0aW9udXVpZCI6IiIsIndoaXRlbGFiZWxfb3BlcmF0b3JfaWQiOiIzMDYiLCJ6b25lY2FzaHB1cmNoYXNldXVpZCI6IiIsInRpbWV6b25lbmFtZSI6IkV0Yy9VVEMifQ=="

key: "9YnfS6zH1Q7r8jqh"


    Я пока как альтернативу node сервак подниму и буду запросы слать на сервер ради rc4)
    Написано

  • RC4 почему не полный результат?

    @Yam0lod5y Автор вопроса
    kalapanga, Готов купить решение, проект сделал, но он сложный оказался для клиента, легче софт было сделать, но проблема с этой же функцией
    Написано

  • RC4 почему не полный результат?

    @Yam0lod5y Автор вопроса
    kalapanga, Шифрование нужно.
    Дальше RSA, но тут всё впорядке.
    RC4 выдавал хороший результат с заменой нулей, пока я не присмотрелся и не увидел, что в середине другие данные.
    Короче я мимо делфи прошёл и сделал всё, что с шифрованием, дальше уже другая часть
    Написано

  • RC4 почему не полный результат?

    @Yam0lod5y Автор вопроса
    kalapanga, Я делал разбор сайта, под него и делаю RC4, функцию искал исходя от js и результата, да оттуда, как бы я эту задачу решил, но в другом языке программирования, но хотелось бы в делфи, т.к. половина работы уже сделана тут.
    Если напрямую байты в base64, то другой результат получается.
    Написано

  • RC4 почему не полный результат?

    @Yam0lod5y Автор вопроса
    OCTAGRAM, в дебагере если не заменять ноль, то он во время шифрования обрезается, TipwNetCode тут не причём
    ct := concat(ct,
      String(char(Ord(char(Text[Y + 1]))
      xor s[((s[i] + s[j]) MOD 256)])));

    Этот код более менее, но он не корректен, не выдаёт требуемый результат
    ct := concat(ct,
      StringReplace(String(char(Ord(char(Text[Y + 1]))
      xor s[((s[i] + s[j]) MOD 256)])), #0, '', [rfReplaceAll]));
    Написано

  • RC4 почему не полный результат?

    @Yam0lod5y Автор вопроса
    OCTAGRAM, 
    function RC4Encrypt(key, Text: String): String;
var
  i, j, X, Y: Integer;
  s: array [0 .. 255] of Integer;
  charCode: Integer;
  ct: String;
  NETCODE: TipwNetCode;
begin
  Result := '';
  NETCODE := TipwNetCode.Create(nil);
  NETCODE.Reset();
  NETCODE.Config('Base64LineBreak=False');

  for i := 0 to 255 do
  begin
    s[i] := i;
  end;
  j := 0;
  for i := 0 to 255 do
  begin
    j := (j + s[i] + Ord(char(key[(i MOD Length(key)) + 1]))) MOD 256;
    X := s[i];
    s[i] := s[j];
    s[j] := X;
  end;
  i := 0;
  j := 0;
  ct := '';
  for Y := 0 to (Length(Text) - 1) do
  begin
    i := (i + 1) MOD 256;
    j := (j + s[i]) MOD 256;
    X := s[i];
    s[i] := s[j];
    s[j] := X;
    ct := concat(ct,
      StringReplace(String(char(Ord(char(Text[Y + 1]))
      xor s[((s[i] + s[j]) MOD 256)])), #0, '', [rfReplaceAll]));
  end;
  NETCODE.Format := fmtBase64;
  NETCODE.DecodedData := ct;
  NETCODE.Encode;
  Result := EncodedData;
  NETCODE.Free;
end;

    У меня почти получилось, что Я и думал, но середина кода другая
    Написано

  • RC4 почему не полный результат?

    @Yam0lod5y Автор вопроса
    Ну как это понять? Поменяйте тот кусок, где режется, и строка сохранится во всей полноте.

    Напрашивается мнение, что Delphi отработала как надо, а проблема в системе отображения, которая закодирована на устаревшем языке программирования с устаревшей системой кодирования длины строки встроенным в конец строки нулевым символом

    Вижу всю строку, в дебагере, но не в результате, что и на что менять, пока не понял
    '8M'#$0095'¨'#$0095'='#$0086'ÎJ'#$0080#$1D#$7F'¾2'#$C'páS'#$A#$008C'ËÁÛ'#$009F'+<TÐWPÒ'#$1A'µ'#$18#$008F' '#$19#$009D'Â\;T'#$1E'YcEÅ'#$009B')PÙ'#9'uø'#$0095#$1B#$1A#$1F#$008A'¥'#$1C#$7F'Ö#zÙë'#$C'í'#$0098#$1F#$1F'|®iu'#2'w)0ø<E~£'#8'ë'#$11#$E#$008C#1'p'#$0098'_'#$009F'øíõT'#$008E'\¥'#7'¡'#$0093'í0c'#$0094'Æ£'#$0094'uúÓÝ;!'#$008F#$0090'T'#$F'ý'#$0095'eHÙ¥W2,W©xN'#$008F#$0081'ñ'#$008F#$B#$D'¯+ðD\'#$0087'ØÈ'#$0082'"óN-'#$19'?ÜS6]'#$0097#$0089'àÝb~( ÁeIq'#0'O'#$1A#$00AD'±'#$0083'®`¢Ú¹'#4#$C't'#$0087'zÒýEÖÿ'#$10'@'#$E'åÚ>óòz'#$009E#$008F'.ý¨'#$A'aG(ËÓgPRÔΨKÙ'#$1E'$a¢7C['#$E#$14#$0082#$7F'³ ÿ4bÇ8ó´ì=ζoS^Û'#$0085'j'#4'ý5'#$A'¿]'#$1B'JNêa}~`r'#$0090'×ë'#$14'´(·Ô'#$008A'é'#$0090'k`'#$13'ÙôB¨þ_îr'#$0091#$18'Íí§uÆ'#$11'ß'#5'f'#$0096'zãÒ'#$11#$0095'²0X.'#$1E'Â'#9'ÿ'#5'ËFMYØLó]ä='#$1D'99îØöA'#$16'4׿Xv'#7'c%ôk]Îw¦Ri'#$11'ø'#$13'K'#$0090'}B'#$008A'.]ycйZ'#5'±ëçR]'#$0097'dò!&hà1'#$0094'¡'#3'ÐÐ%Èù'#$1A'²®øücè.Õh¿'#$008C'ÞÅáFÉ©ûdC®i'#$12#9'Hpò1Ûâ*u[:«'#4'íA×®'#$1B'+Ðô>±qª3ÔÓÇ['#$008C'¯'#$0084'=rD°Õö'#$009B'ó©óÈB£+J¾#}QTÁ'#$0091#$0097'ÍDP'#$0085#$009B#$0085'}¯È'#5'+ÞPJ±¸'#8'Sî'#$0093'C'#$0082'¦®ÔU³à'#$10#$E'ôEH¶N'#$18'÷b'#8'ô´£ '#$D'J¡C -Ö'#8#2#$0081'ªâJþ`^#'#9'ÇÛ'#$0082'$/G'#$008D'º'#$0082'Ú\Ý'#$B'Oòµ<'#$0091'$"7hµßø{êÞÆN@c'#9'ÕÓ°"ª¢'#$12'Z7FßC±7ø¨`l8'#$008B#$1D'F'#$0094#$1A#$7F'ÕðÏj'#0'A!°'#$009A#$B'ËNv'#$009B'Ã'#3#$009E'E}÷'#$0099#6'Â}Ýa'#$19'¼?d£'#$10#$0082#0#$0096#$0087'í'#$0097'`P0ËExzÖ¦C\'#$0096#$0094'ã¸èÜKmâVâ¹=]Á«'#$1F'Ö'#9'íc5T½'#$0094'?'#$0085'ûi'#$0081'rnô´'#$0088']:'#$0094#$009F'rûÌÛ/'#$008E'º÷'#$009C'RiÑÄù,f÷f7'#$009E'ÓåFÎcð'#$11'ºÀiëÊ'#$10'´8µUÎæ'#$008A#$0090'Ê'#$008A#$1A'&@{Øßé¢Æ)='#$1E#$008B#$008F'ªÑѳy'#8#$11'òd([ »q*¨ï×É'#$0080#$0092#$17#$14#8#$10'R'#$0090'>f'#$1E'Îö#âhE³e'#$008E'M'#$009A'ÀlS'#$C'æ'#2'~''Í'#$19'ÄFÍUõM'#1'^ä'#$19'aÃ2ü¢xc>k`'#1'N'#$10#$13'Ñ8'#$009D'ã'#$0099'êýµ'#$1A'¨Æ'#$0083#$008D'¡Å'#$B'É2<4'#1'<'#$0089'ØF1Ç'

    Значение ломается при NULL character
    '#0'
    Написано

  • RC4 почему не полный результат?

    @Yam0lod5y Автор вопроса
    А что именно поменять и на что?) delphi 10.3

    И еще я подправил delphi код, а то обрезанным скинул.

    И такой момент, у меня под text base64 текст
    Написано

  • Счётчик успешных операций в минуту на Delphi?

    @Yam0lod5y Автор вопроса
    Решение было сделано через таймер
    procedure TFormChase.Timer1Timer(Sender: TObject);
begin
CPM :=  (CheckCount - OldCount);
OldCount := CheckCount;
end;
    Написано

  • Счётчик успешных операций в минуту на Delphi?

    @Yam0lod5y Автор вопроса
    Hemul GM, kOFeZPP.gif
    Вот пример где count CPM, но нужно чтоб он показывал кол-во в минуту, а не за всё время
    Написано

  • Счётчик успешных операций в минуту на Delphi?

    @Yam0lod5y Автор вопроса
    Это работает отлично, но всё равно, не тот результат.
    Мне нужно чтобы он считал сколько раз он пройдёт поток в течении минуты.
    Пример

    var Save := GetTickCount;
<do something>
inc(TestedCount);
var Delta := TestedCount div ((GetTickCount - Save) div 60000);

    Данная функция не работает должным образом и результат спустя минуту или же поток может вообще удалится
    Написано