Der DEC x32 ASM in x64/PurePascal Konvertierungsthread

[Schorschi5566]

Hallo gammatester,

Zitat von gammatester:

Das geht so überhaupt nicht! Es liegt aber nicht an meinen Routinen, sondern an den häufigen selbstgestrickten DEC-Routinen:

Ok, verstehe. Ist zwar schlecht, weil's dann wohl darauf rausläuft, dass ich sämtliche Programme, die ich künftig noch pflegen muss und die irgendwo diese Routine verwendet haben um irgendwas zu verschlüsseln, in einer 32-Bit-Version auf ein neues Verfahren umkonvertieren muss um dann in einer künftigen 64-Bit-Version mit beispielsweise Deinen Routinen zu arbeiten. Das wird kein Spaß.

Wie sieht's denn damit aus? Das ist zumindest auch unter (beispielsweise) PHP verwendbar...

Delphi-Quellcode:

function EncryptStringForPHP(Text, Password: RawByteString): RawByteString;
var
  Salt : Binary;
begin
  Salt := RandomBinary(8);
  with TCipher_Blowfish.Create do
    try
      mode := cmCFB8; 
      Init(Password, Salt, Context.KeySize);
      Result := TFormat_MIME64.Encode(Salt + EncodeBinary(Text, TFormat_Copy));
    finally
      Free;
      ProtectBinary(Salt);
      ProtectBinary(Password);
    end;
end;

Grüße,
Uwe

[gammatester]

Zitat von Schorschi5566:

Wie sieht's denn damit aus? Das ist zumindest auch unter (beispielsweise) PHP verwendbar...

Delphi-Quellcode:

function EncryptStringForPHP(Text, Password: 
//...
with TCipher_Blowfish.Create do
    try
      mode := cmCFB8; 
      Init(Password, Salt, Context.KeySize);
      Result := TFormat_MIME64.Encode(Salt + EncodeBinary(Text, TFormat_Copy));

Mein Blowfish-CFB arbeitet mit Blockgröße; die einzige Chiffre, die CFB8 unterstützt, ist auf spezielle Useranfrage AES. Wenn es denn unbedingt das ineffektive CFB8 sein muß (eigentlich für langsame byteweise Übertragung gedacht), kann man als Vorlage die beiden kleinen AES-Funktionen aus aes_cfb8.pas nehmen.

[Schorschi5566]

Hallo gammatester,

Zitat von gammatester:

Wenn es denn unbedingt das ineffektive CFB8 sein muß (eigentlich für langsame byteweise Übertragung gedacht), kann man als Vorlage die beiden kleinen AES-Funktionen aus aes_cfb8.pas nehmen.

Nein, muss es nicht unbedingt sein. War nur die erste Funktion, die ich damals so unter Delphi und PHP zum Laufen gebracht habe...

Ich habe Dir mal 'ne PM geschickt.


Grüße,
Uwe

[gammatester]

Zitat von Schorschi5566:

Zitat von gammatester:

... kann man als Vorlage die beiden kleinen AES-Funktionen aus aes_cfb8.pas nehmen.

... War nur die erste Funktion, die ich damals so unter Delphi und PHP zum Laufen gebracht habe...

Gestern abend habe ich die Routinen nach dem Rezept erstellt und hänge sie hier an (falls mehr Interessenten gibt) mit Testprogrammen für DEC und die Unit, beide liefern byte-identische Ergebnisse. Ein großes Problem ist, das es offensichtliche keine oder nur sehr schwierig zu findende veröffentlichte Testvektoren für Blowfish-CFB8 gibt.