Fritzbox AVM Mesh/Router Schnittstelle für Delphi

[David1]

Zitat von supermulti81:

Ich hatte das mal angepasst und es läuft unter Delphi 11.
Der Login musste nochmal geändert werden, da hat AVM immer wieder Änderungen vorgenommen. Und ich hatte die Fritzbox IP anpassbar gemacht. Muss ich mal nachschauen.

Klingt gut, wenn Sie mal nachschauen könnten und den Code in dieses Thema hochladen könnten, wäre dies natürlich toll.

[himitsu]

Das aktuelle Wie kann man in der Doku finden, wenn sich was ändert.

Hoffen wir das bleibt so, auch wenn AVM demnächst vermutlich an Ausländer verkauft wird. (die Cheffs gehen in Rente)

[supermulti81]

Ab FritzBox OS >= 7.24 hat sich der Login geändert, da kommt dann eine andere Challenge zurück.
Man muss dann ein neues Response erzeugen.

Das habe ich damals nur mit einer alten IPWorks Encrypt Version hinbekommen, da würde dir die geänderte Datei nichts bringen.
Vielleicht kennt ja einer eine freie Kommponente, mit der man das auch lösen kann.

Delphi-Quellcode:

  ipcPBKDFHash1 := TipcPBKDF.Create(nil);
  ipcPBKDFHash2 := TipcPBKDF.Create(nil);
  try
    Result      := '';
    fChallenge  := fSession.Challenge;

    if not fChallenge.Trim.IsEmpty then
    begin
      ipcPBKDFHash1.KeyLength := 256;
      ipcPBKDFHash1.Algorithm := pbHMACSHA256;
      ipcPBKDFHash1.UseHex    := True;

      ipcPBKDFHash2.KeyLength := 256;
      ipcPBKDFHash2.Algorithm := pbHMACSHA256;
      ipcPBKDFHash2.UseHex    := True;

      ipcPBKDFHash1.Iterations := StrToIntDef(fChallenge.Split(['$'])[1], 10000);
      ipcPBKDFHash1.SaltB      := HexStringToByteArray(fChallenge.Split(['$'])[2]);
      ipcPBKDFHash1.Password   := fPassword;
      ipcPBKDFHash1.CreateKey;

      ipcPBKDFHash2.Iterations := StrToIntDef(fChallenge.Split(['$'])[3], 1000);
      ipcPBKDFHash2.SaltB      := HexStringToByteArray(fChallenge.Split(['$'])[4]);
      ipcPBKDFHash2.PasswordB  := HexStringToByteArray(ipcPBKDFHash1.Key.ToLower);
      ipcPBKDFHash2.CreateKey;

      Result := fChallenge.Split(['$'])[4] + '$' + ipcPBKDFHash2.Key.ToLower;
    end;
  finally
    ipcPBKDFHash1.Free;
    ipcPBKDFHash2.Free;
  end;

[noisy_master]

vielleicht hilft das hier weiter :
https://github.com/stijnsanders/tool.../HashUtils.pas

[himitsu]

PBKDF2 ist auch da mit drin
https://github.com/Xor-el/HashLib4Pascal
https://blogs.embarcadero.com/powerf...s-development/

[supermulti81]

Ah danke, dann versuche ich das mal am Wochenende. Falls es klappt kann ich die uFritzbox.pas ja mal schicken.

[MaFu]

Zitat von supermulti81:

Ah danke, dann versuche ich das mal am Wochenende. Falls es klappt kann ich die uFritzbox.pas ja mal schicken.

Konntest Du irgendwelche Erfolge erzielen?

[TurboMagic]

Zitat von himitsu:

PBKDF2 ist auch da mit drin
https://github.com/Xor-el/HashLib4Pascal
https://blogs.embarcadero.com/powerf...s-development/

Oder das hier:
Delphi Encryption Compendium

Da sind verschiedenste Hashes und KDFs drin...

Grüße
TurboMagic

[Jolero]

Hallo,

ich verwende bei mir die HashLib4Pascal.

Anbei eine kleine Demo zum Anzeigen der Anruferliste. (FritzBox 6690, Exe mit D10.4 erstellt.)

Viele Grüße

Jochen