Пакет Interlude

[NLObP]

Rzone, здесь исходники http://coderx.ru/showpost.php?p=13769&postcount=33

[PornoTraktor]

Rzone, на чем пишешь то?

[Rzone]

Сделал=) Я в игре Спасибо NLObP
и огромное спасибо
PornoTraktor

[PornoTraktor]

Ключ верный, у меня тоже такой 6B 60 CB 5B 82 CE 90 B1 CC 2B 6C 55 6C 6C 6C 6C. Видимо в алгоритме обшибка...

[Rzone]

Блин... можешь своим алгоритмом мой пакет расшифровать? Пожалуйста

[PornoTraktor]

BA000076F596E5B02F5AD7913AA5EFF9
B71F235A07CFBF98D6D3E78709BE9953
282F2AB12B1BE76198BBFC99C8D4A5B7
1DD646C83D0E5CF32A1DBF15D4563200
248A33EA603DB932B3005DFDAFEEAD0E
54E92804637EA9DA410F02EACED59F99
4D7F57B94C6450170C0BAD0F63038015
5250711CCF8C580B951066FD3466EDC0
F65CC999D03011E5787C32777F0159C9
1B6390758BE3E9BAFEB182FFE30F8F67
1536B62076AE018BFB30C5696047C669
C9FFED69B270C94F390E

Добавлено через 53 секунды
это сразу после дешифрации статичным bf ключиком

[Rzone]

Хих, нашел ошибку - размер ключа у себя не указал, было 21, сделал 16 - все заработало Щас буду ксорить. Алгоритм тотже что и в С4?

[Rzone]

Эххх... не могу зашифровать лог пасс. Устал уже... Сделал из этой функции дллку подключил FGint, все скомпилилось. При вызове функции RSAEncrypt
получаю ошибку. Дальше сделал в делфи тестовую программу, что-бы посмотреть как работает функция. Тут вообще не пойми что... Прописал прям внутри функции "от балды" лог пасс и ключ 128 символов (rsakey:string), вывел результат на форму - то работает, то нет. Стоит поменять пару символов в ключе (при том же размере) - все крит эррор.
Я в замешательстве. Есть где-нибудь другие сорцы RSA/ECB/NoPadding? Или готовые библиотеки. посоветуйте что-нибудь.

Вот сорц длл:

library Project1;
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, FGint;


function RSAEncrypt(aa,pp,rsakey:PChar):integer;
var
  sD,sR,sM:string;
  m,e,d,r:TFGInt;
  a,p:string;
begin
  a:=string(aa);
  p:=string(pp);
  if length(a)>14 then setlength(a,14);
  while length(a)<14 do a:=a+#0;
  if length(p)>16 then setlength(p,16);
  while length(p)<16 do p:=p+#0;
  for i:=0 to 13 do

  sD:=a+p+#0#0#0#0;
  sM:=string(rsakey);
  Base10StringToFGInt('65537',e);
  Base256StringToFGInt(sD,d);
  Base256StringToFGInt(sM,m);
  FGIntMontgomeryModExp(d,e,m,r); //тут ловлю крит...
  FGIntToBase256String(r,sR);

  //rsakey:=PChar(sR);
  //result:=PChar(sR);
end;

exports RSAEncrypt;

begin
end.

[PornoTraktor]

терпи казак, атаманом станешь

[Rzone]

Стал атаманом фух... два дня возился... пришлось склеить логин пасс и ключ в один PChar передавать в длл одним массивом, там рассортировывать по sD, sM. Шифрует точно как в логе, все пашет, я так рад)
Логин сервер пройден)