Blowfish File decoden ECB mit DEC aber wie?

[R0BIN]

Hallo,


ich möchte eine Datei mittels Blowfish ECB decoden...
Dafür würde ich gerne DEC benutzen, doch ich bekomme es nichtmal hin es zu starten.

Hier mal mein bisheriger Code:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,DECUtil, DECCipher, DECHash, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var 
  CipherClass: TCipherClass; 
begin 
  TCipher_Blowfish.Register; 
  TCipher_Rijndael.Register;  
  THash_MD5.Register; 
  THash_SHA1.Register; 

  CipherClass := DECClassByname('Blowfish', TDECCipher); 
  with CipherClass.Create('Passwort hier', nil) do 
  try 
    EncodeFile(); 
  finally 
    Free; 
  end;
end;

end.

Und es kommt folgende Meldung:

Code:

[Pascal Fehler] Unit1.pas(28): E2003 Undefinierter Bezeichner: 'TCipherClass'
[Pascal Fehler] Unit1.pas(36): E2029 'DO' erwartet, aber Bezeichner 'Create' gefunden
[Pascal Fehler] Unit1.pas(38): E2003 Undefinierter Bezeichner: 'EncodeFile'
[Pascal Fataler Fehler] Project1.dpr(5): F2063 Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

Ich hoffe mir kann jemand helfen.

R0BIN

[Zacherl]

Mach doch einfach so:

Delphi-Quellcode:

with TCipher_Blowfish.Create do
begin
  Init(Key);
  EncodeFile();
  Done;
  Free;
end;

Florian

[R0BIN]

Danke, scheint zu gehen....!

[R0BIN]

Aber wo kann ich angeben, dass es eine 128 bit ecb ver/entschlüsselung sein soll?

[Zacherl]

Musst du nagaH mal fragen ...

[R0BIN]

Hab ihm jetzt mal ne PM geschickt....hab zudem auch noch das Problem, dass die Netzwerkadministratoren ne Blockverschiebung eingebaut haben...ich denke aber das sollte ich dann alleine hinbekommen.

[negaH]

Zitat:

.hab zudem auch noch das Problem, dass die Netzwerkadministratoren ne Blockverschiebung eingebaut haben...ich denke aber das sollte ich dann alleine hinbekommen.

Das musst du auch, denn DEC unterstützt mit Absicht nicht solche speziellen Protokolle.

Mit

Delphi-Quellcode:

  Cipher.Mode = cmECB;
  Cipher.Init();
  Cipher.EncodeXXXX();

stellst du den ECB Mode ein. Beachte dabei das

1.) ECB alleine benutzt unsicher ist
2.) ECB nut Nachrichten korrekt bearbeiten kann die ein Mehrfaches an Bytes der Blockgröße des Ciphers sind. Also Length(Nachricht) mod Cipher.Context.BlockSize == 0.

Ansonsten mal hier http://www.delphipraxis.net/internal...794&highlight= reinschauen, dort siehst du auch das es TDECCipherClass statt TCipherClass heissen muß. Bei der Umstellung vom DEC 3/4 auf 5 habe ich einige Bereinigungen vorgenommen.

Gruß Hagen

[R0BIN]

vielen dank, ich werde mir das unter diesem aspekt mal ansehen.

R0BIN