Ganz einfache Dateiverschlüsselung

[S2B]

Hab ich drinne! :wink:
Also wenn ich die Komponenten installieren will, dann werden 2 Units nicht gefunden: BigNum, BNG! :gruebel:

[negaH]

Schmeiß diese Units aus der Uses Klausel raus, sie sind nicht bestandteil des Parts I.

Gruß Hagen

[S2B]

Jetzt kommen aber andere Fehler:

Code:

[Fehler] OTPass.pas(18): Undefinierter Bezeichner: 'TBase'
[Fehler] OTPass.pas(21): Undefinierter Bezeichner: 'TRandom_BBS'
[Fehler] OTPass.pas(99): Operator oder Semikolon fehlt
[Fehler] OTPass.pas(111): Undefinierter Bezeichner: 'TNumSettings'
[Fehler] OTPass.pas(114): Undefinierter Bezeichner: 'NumSettings'
[Fehler] OTPass.pas(119): Undefinierter Bezeichner: 'StrBase'
[Fehler] OTPass.pas(120): Undefinierter Bezeichner: 'StrBlocks'
[Fehler] OTPass.pas(121): Undefinierter Bezeichner: 'StrSeparator'
[Fehler] OTPass.pas(123): Undefinierter Bezeichner: 'StrPadding'
[Fehler] OTPass.pas(125): Operator oder Semikolon fehlt
[Fehler] OTPass.pas(129): Operator oder Semikolon fehlt
[Fehler] OTPass.pas(134): Operator oder Semikolon fehlt
[Fehler] OTPass.pas(134): Inkompatible Typen
[Fehler] OTPass.pas(135): Operator oder Semikolon fehlt
[Fehler] OTPass.pas(135): Nicht genügend wirkliche Parameter
[Fehler] OTPass.pas(140): Operator oder Semikolon fehlt
[Fehler] OTPass.pas(141): Operator oder Semikolon fehlt
[Fehler] OTPass.pas(141): Operator oder Semikolon fehlt
[Fehler] OTPass.pas(165): Operator oder Semikolon fehlt
[Fehler] OTPass.pas(165): Zu viele Parameter
[Fehler] OTPass.pas(166): Operator oder Semikolon fehlt
[Fehler] OTPass.pas(166): Anweisung erforderlich, aber Ausdruck vom Typ 'Integer' gefunden
[Fehler] OTPass.pas(167): Operator oder Semikolon fehlt
[Fehler] OTPass.pas(176): Operator oder Semikolon fehlt
[Fataler Fehler] DEC.dpk(45): Verwendete Unit '..\Lib\DEC\OTPass.pas' kann nicht compiliert werden

Oder muss ich diese Unit vielleicht gar nicht installieren!?

[negaH]

Korrekt, OTPass.pas kannste ebenfalls rausschmeisen. Wo hast du denn diese krumme DEC Version her ? Normalerweise sind diese Units per DEFINES deaktiviert. Es gibt DEFINES für die unterschiedlichen DEC Distibutionen, nur der Part I ist publiziert. Aber alle diese Units sind oder waren Bestandteil des damaligen Part II vom DEC.
Die einzigste Unit die du instalieren musst, ist DECReg.pas. Normalerweise musste sogar garnichts installieren, denn das Konzept der DEC Klassenhierarchie benötigt keine wichtigen Komponenten. D.h. einfach einen Suchpfad zum DEC anlegen, Units in die Uses Klausel deines Projektes einbinden, die TCipher_XXX/THash_XXX oder TStringFormat_XXX Klassen direkt benutzen und compilieren, fertig.

Gruß Hagen

[S2B]

Zitat:

Zitat von negaH

Normalerweise musste sogar garnichts installieren, denn das Konzept der DEC Klassenhierarchie benötigt keine wichtigen Komponenten. D.h. einfach einen Suchpfad zum DEC anlegen, Units in die Uses Klausel deines Projektes einbinden, die TCipher_XXX/THash_XXX oder TStringFormat_XXX Klassen direkt benutzen und compilieren, fertig.

Genau das geht bei mir nicht! :wink:
Naja, ich probiers heut im Lauf des Tages nochmal...

[negaH]

Hm, das kann doch garnicht sein. Ich habe von Zeit zu zeit immer mal wieder EMails von Leuten denen es genauso geht wie dir. Aber das sind nur 10 bis 12 Leute von 1000'enden.

Du entpackst das DEC aus dem ZIP mit Ordnern. Danach sollte ein Verzeichnisbaum enstehen wie ..\DEC\Source\ usw. In deinem Projekt wird nun im Suchpfad exakt der Pfad ..\DEC\SOURCE\ hinzugefügt. Nun brauchst du in der Uses Klausel deiner Unit nur noch die Units DECUtil, Hash, Cipher einbinden. Danach sollte es SOFORT laufen. Dein beschriebenes Unit Problem kann nur entstehen wenn du die Unit DECReg.pas benutzt. Diese wird aber AUSSCHLIESSLICH nur in DesignTime Packages eingebunden, und auch dann nur wenn man die beiden Komponenten TCipherManager und THashManager benötigt um Zb. das DEMO Projekt neu zu compilieren.

Gruß Hagen

[S2B]

Also, ich hab das jetzt mal genau so versucht, wie du es gesagt hast, es geht aber immer noch nicht! :cry:

Delphi-Quellcode:

uses [...] , DECUtil, Hash, Cipher;

procedure TForm1.Button1Click(Sender: TObject);
begin
  //Verschlüsseln:
  with TCipher_Rijndael.Create('Passwort', nil) do
  try
    EncodeFile(app + 'Bild1.jpg', app + 'Bild2.jpg');
  finally
    Free;
  end;
end;

Und das sind die Fehler:

Code:

[Fehler] Unit1.pas(1137): Undefinierter Bezeichner: 'TCipher_Rijndael'
[Fehler] Unit1.pas(1137): 'DO' erwartet, aber Bezeichner 'Create' gefunden
[Fehler] Unit1.pas(1139): Undefinierter Bezeichner: 'EncodeFile'
[Fataler Fehler] Browser.dpr(20): Verwendete Unit 'alt\Unit1.pas' kann nicht compiliert werden

[negaH]

Könnte es sein das du ein anderes Fremdprodukt benutzt das ebenfalls eine Unit "Cipher" enthält ??
Anders kann ich's mir nicht erklären.

Gruß hagen

[Meflin]

bei mir gehts auch nicht. und ich hab bestimmt keine andere unit cipher...

[negaH]

Oh mann ihr macht mich fertig, heute ;)
Geht mal auf DSP = Delphi Super Page und downlaoded von dort das DEC.
Dann installiert ihr das ZIP mit Verzeichnissen.
Nun fügt ihr in den Projektoptionen den Pfad zu den Sourcen hinzu.
Dann obigen Source ins projekt kopiert.
Das MUSS laufen, es sind doch nur 5 Zeilen Source.

Gruß Hagen