String Blowfish verschlüsseln OHNE DEC

[Alexander]

@Hagen Ist eigentlich auch eine .NET Version geplant?

[mirage228]

Zitat von Alexander:

@Hagen Ist eigentlich auch eine .NET Version geplant?

Hi,

Ich meine .NET hätte bereits eine Verschlüsselungskomponente integriert...
über die Qualität kann ich Dir aber nicht viel sagen.

mfG
mirage228

[negaH]

About .NET:

Nein. (muß ich so sagen da ja keine Hoffnungen geweckt werden sollen)

Davon abgesehen ist ein großer "Vorteil" von .NET dessen strikte Implementation von Kryptrographie als essentieller Bestandteil. Ich selber habe keine Ahnung wie gut das in .NET gelösst ist und wie sicher diese Kryptographie ist. Aber es wäre logisch anzunehmen das das keine Anfänger konstrukiert und umgesetzt haben.

Aus meiner Sicht hat es also keinerlei Sinn eine Kryptolib für .NET zu schreiben, weil es doppeltgemoppelt wäre.
Und ein entscheidender "Negativpunkt" alle nicht-.NET Libraries ist deren strenge Integration in das OS. Das hat man bei .NET aber schon von Anfang an so vorgesehen.

Gruß Hagen

[Alexander]

Schade . Aber kann man wohl nicht ändern...

[Escalade]

Hallo Hagen,
vielen Dank für Deine so ausführliche Hilfe! Ich werde das jetzt mal implementieren und Dir nochmal Feedback geben.
Danke nochmal!

Edit: Ich habe Probleme

Zitat:

[Error] uBlowfish.pas(14): Undeclared identifier: 'TDECCipherMode'
[Error] uBlowfish.pas(16): Undeclared identifier: 'TDECFormat'
[Error] uBlowfish.pas(16): Undeclared identifier: 'TFormat_MIME64'
[Error] uBlowfish.pas(52): There is no overloaded version of 'Init' that can be called with these arguments

Als uses habe ich eingebunden:
uses DECCipher, DECUtil, DECRandom, DECHash; Fehlt da was?

[negaH]

TDECCipherMode -> TCipherMode
TDECFormat -> TDECFormatClass
TFormat_MIME64 -> TFormat_MIME64 und DECFmt.pas in uses Klausel
.Init -> .Init(Password, SizeOf(Password), '', 0);


Sorry für diese Verwirrungen, aber ich musste einige Klassennamen etc.pp. verändern weil es Kollisionen zu einer anderen 3'rd Library gab.

Gruß Hagen

[Escalade]

Ok super, die Fehler sind weg. Allerdings bekomme ich jetzt einen neuen Fehler:
[Fatal Error] uBlowfish.pas(54): Internal error: C1030 Wenn ich die Zeilen mit dem
Init(Password, SizeOf(Password), '', 0); auskommentiere, kommt dieser Fehler nicht mehr.
Neustarten von Delphi hat auch nichts gebracht.

Hilfe!

[negaH]

C1030 das C deutet auf einen Fehler im Compiler hin, sprich Parser etc.pp. Lxxxx Fehler sind zb. Fehler im Linker.

Probiere mal folgendes

Init(Password, SizeOf(Password), #0, 0); ich teste das heute abend mal, jetzt muß ich erstmal geschäftlich los.

Ach, welche Delphi Version benutzt du ?

Gruß Hagen

[Escalade]

Mit

Init(Password, SizeOf(Password), #0, 0); kommt

Zitat:

[Error] uBlowfish.pas(48): There is no overloaded version of 'Init' that can be called with these arguments

Ich benutze Delphi 7 Professional Build 4.453

[negaH]

Ok, machen wirs richtig !

Delphi-Quellcode:

var
  DummyIV: Byte;
begin
  ...blabla
  Init(Password, SoizeOf(Password), DummyIV, 0); 
  ...blabla
end;

Das muß aber gehen.

Gruß Hagen