unit Blowfish

[Walter Landwehr]

Hallo,

hat jemand Erfahrung mit dieser Unit.

ich rufe die procedure auf.

Delphi-Quellcode:

sEncText := 'EÚ'#$81'?ze,ª¶¯,…'


DecryptCFB(sEncText[1], sEncText[1], Length(sEncText));

procedure TDCP_blowfish.DecryptCFB(const InData; var OutData; Size: longint);
{$ELSE}
procedure BlowfishDecryptCFB;
{$ENDIF}
var
  i: longint;
  TB: array[0..7] of byte;
  b: byte;
begin
  {$IFDEF CFORM}
  if not fInitialized then
    raise Exception.Create('Blowfish: Not initialized');
  {$ELSE}with Data do begin{$ENDIF}
  for i:= 0 to Size-1 do
  begin
    b:= PByteArray(@InData)^[i];
    {$IFDEF CFORM}Encrypt(LB,TB){$ELSE}BlowfishEncryptECB(Data,LB,TB){$ENDIF};
    PByteArray(@OutData)^[i]:= PByteArray(@InData)^[i] xor TB[0];
    Move(LB[1],LB[0],7);
    LB[7]:= b;
  end;
  {$IFNDEF CFORM}end;{$ENDIF}
end;

Unter D2007 wurde folgender Wert zurückgegeben: sEncText = 'IQN4.0WL1951'

unter XE2 wird dieser Wert zurückgegeben: sEncText = 'sQƒ§?ݦàþÒ'#$11'ñ'

Wer weiß hier Rat? Bin schon seit Tagen dabei dies Problem zu lösen.

Vielen Dank im Voraus für einen hoffentlich erfolgreichen Tipp.

[baumina]

sEncText wird kein AnsiString sein.

[Walter Landwehr]

Doch ist AnsiString.

[Bernhard Geyer]

Zitat von Walter Landwehr:

Doch ist AnsiString.

Glaube ich nicht. Hast du es im Debugger per Speicherauszug kontrolliert?

[Walter Landwehr]

Doch ist es:

Hier Speicherauszug.

sEncText: AnsiString $18F9AC : $CCC24DC

[baumina]

Und ShortString (String[20]) geht auch nicht?

[Walter Landwehr]

Nein geht auch nicht.

[Sir Rufo]

Na das ist hier ja mal ein lustiges Rätselraten ... erinnert mich an "Ich sehe was, was du nicht siehst".

@Walter Landwehr

Ob es dir wohl möglich ist ein klitzekleines (kompilierbares) Beispiel-Projekt (Konsolenprogramm sollte ja reichen) zu erstellen?

Bei solchen Sachen ist auch eine Unit-Test-Anwendung sinnvoll, da man hier Eingabe-Parameter und erwartete Ausgabe gleich als Prüfung mit einbringt.

[himitsu]

Zitat von Walter Landwehr:

hat jemand Erfahrung mit dieser Unit.

Nein.

Und werde ich auch nicht, da jemand das Wichtigste vergessen hat.
Welche?

Google meinte, aber die ist es ja nicht.
http://read.pudn.com/downloads139/so...fish.pas__.htm


Nja, wenn der Fehler nicht in deinem Code, sondern in der unbekannten Unit liegt, dann kann dir keiner helfen.

[Sir Rufo]

Heureka, ich habe einen Teil der Schnitzeljagd (oder heißt das jetzt Code-Caching) gelöst.

Hier angesprochen ist DCPcrypt v1.31
http://www.cityinthesky.co.uk/opensource/dcpcrypt/

Die Lösung ergibt sich beim Lesen des Inhaltes, der sich hinter dem Link verbirgt