@Frühlingsrolle
könnte man diese String-Funktion vielleicht so einbauen?
Delphi-Quellcode:
procedure StringToStream(aStream: TStream; const aString: AnsiString);
begin
aStream.Write(PAnsiChar(AString)^, Length(AString));
end;
procedure TfrXTEA.EncryptString(const Str: string);
begin
FIsFromFile := false;
if Assigned(FStream) then
FStream.Free;
StringToStream(FStream, Str);
end;
Über OpenSSL finde ich zu dem Thema nicht viel oder ich suche falsch.
Hier habe ich zwar was gefunden, aber da muss man Streams übergeben statt Strings.
Außerdem braucht man hier ein Zertifikat oder so wenn ich das richtig sehe.
Geht das nicht einfacher? Einfach nur String rein, String raus?
OpenSSL enc -base64 -aes256 -in text.plain -out text.aes256 -k secure
Delphi-Quellcode:
var
EncUtil :TEncUtil;
begin
EncUtil := TEncUtil.Create;
try
EncUtil.UseBase64 := True;
EncUtil.Passphrase := 'secure';
EncUtil.Cipher := 'AES-256';
EncUtil.Encrypt('text.plain', 'text.aes256');
finally
EncUtil.Free;
end;
end;
Würde es hier reichen einen TStringStream zu übergeben?
https://github.com/lminuti/Delphi-OpenSSL
Ich habe auch die Units von Gammatester. Kennt sich damit jemand aus?
Ich glaube am liebsten wäre es mir, wenn die von mir eingangs erwähnten Zeilen mehrere Zeichensätze abdecken könnten.
OpenSSL ist viel zu kompliziert, gammatesters Funktionen auch.