Verschlüsseln mit DEC

[xZise]

Wie kann man mit DEC eine Datei einfach ver/entschlüsseln?

Also welche Parameter/Funktionen ich aufrufen muss, und vielleicht könnt ihr ein Tipp geben, welche Verschlüsselung gut ist.

Bin absoluter Neuling auf den Gebiet :D

[Balu der Bär]

Dann würde ich dir die Suche empfehlen. :roll: Wann lernst du es endlich? :roll:

Beispiel zu Verschlüsseln wie ich es z.B. in UE mache:

Delphi-Quellcode:

with TCipher_Blowfish.Create do
       begin
        Init(Key);
        DecodeFile(filename, ChangeFileExt(filename, '.ued'))
       end;

[xZise]

Zitat:

Zitat von Balu der Bär

Dann würde ich dir die Suche empfehlen. :roll: Wann lernst du es endlich? :roll:

Sry, aber dann habe ich wohl mit den falschen Parametern gesucht :(

[Zacherl]

DecodeFile ist aber zum Dekodieren ... Verschlüsseln geht mit EncodeFile.

[xZise]

@ Bernd: :D
@ all: Wtf, ist das easy ;) :oops:

[edit]Was macht man jetzt, wenn man einen String verschlüsseln will? Irgendwie irretiert mich die Funktion "Decode/Encode",weil die Parameter irgendwie nichtssagend sind :D[/edit]

[Zacherl]

Deocde / Encode war schon richtig. Der erste Parameter ist der String glaube ich und der zweite das Ausgabefortmat (Hex, Copy, etc)

[xZise]

Ich habe Rijndael benutzt, und da gibt es 3 Paramter:
Source
Dest
???Size

;)

[Zacherl]

Die Funktionen waren overloaded ... einmal für Binärdaten und einmal für Strings. Also gleiche Namen, andere Parameter.

[xZise]

Aber es erscheint nur ein Eintrag :(

[Balu der Bär]

Zitat:

Zitat von xZise

Aber es erscheint nur ein Eintrag :(

Meine Güte, ohne uns deinen Code zu zeigen wird dir auch niemand helfen können.

[xZise]

Welchen Code?

Es geht um eine Grundsätzliche Frage, ganz ohne Code... Meine Güte ...

Und zwar wollte ich eigentlich nur eine verschlüsselte Datei in einen Entschlüsselten String (keine Datei) schreiben!
Und natürlich umgekehrt...

Und "Encode/Decode" gibt es nur einmal als Funktion!

[St.Pauli]

Ob Encode/Decode nun überladen ist oder nicht, es hätte dich 10 Sekunden gekostet in der Source nachzusehen.... :|

[xZise]

Meine Güte!
Mir sagt der Code in dieser Funktion nichts...

Und was mich irretiert, dass die Variablen kein Festgelegten Typ haben.

[edit]Ich habe übrigends nachgeguckt, bevor ich hier gepostet habe, bevor es nicht wieder heißt "guck gefälligst mal nach"[/edit]

[Zacherl]

Ruf die Decode Funktion einfach mit einem String als ersten Parameter auf und den zweiten lässt du leer (ist vordefiniert), also einfach

Result := Decode(String);

Florian

[xZise]

Zitat:

[Pascal Fehler] uSerialManager.pas(187): E2035 Nicht genügend wirkliche Parameter

Delphi-Quellcode:

s := fileCatalog.Text;
with TCipher_Rijndael.Create do
  try
    Init('passwort');
    fileCatalog.Text := Decode(s);
  finally
    Free;
  end;

Delphi-Quellcode:

procedure TDECCipher.Decode(const Source; var Dest; DataSize: Integer);

[DGL-luke]

Tja, schon blöd, wenn man in einer Sprache, die sich für streng typisiert hält, plötzlich mit typenlosen Parametern konforntiert wird... ich würde mal tippen, dass das da abläuft wie beim Streaming, sprich dass das Buffer sind. Du könntest z.B.

Delphi-Quellcode:

Decode(SourceString[1], DestinationString[1], length(SourceString));

mal probehalber übergeben.

[xZise]

Also ich habe es endlich gefunden.
Der Aufruf heißt "En/DecodeBinary".