Verschlüsseln mit DEC

[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;

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.

Decode(SourceString[1], DestinationString[1], length(SourceString)); mal probehalber übergeben.

[xZise]

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