Forum: Programmieren allgemein
by Ykcim,
27. Aug 2018
Endlich! Das klappt so! Ich habe es mit Delphi XE2 und es klappt. :-D:thumb:
Ich habe auch getestet, ob ich die Werte in einer Datei zwischenspeichern kann und nach dem Auslesen funktioniert das DeCrypt auch.
VIELEN DANK!
Patrick
Forum: Programmieren allgemein
by Ykcim,
24. Aug 2018
Ich bin auch für andere Verfahren offen.
Allerdings sollten die angemessen sein und einfach implementierbar. Ich benötige für diese Anwendung keine Hochsicherheit und habe auch zu wenig Ahnung davon, als das ich jetzt mal eben auf die Schnelle umgesetzt bekomme... Bislang kam ich ganz ohne aus, aber langsam muss ich mir meine Gedanken machen.
Hoffe, dass ich nachvollziehbar
Patrick
Forum: Programmieren allgemein
by Ykcim,
24. Aug 2018
Hallo Zusammen,
ich muss das Thema noch einmal aufgreifen.
function XORCrypt(Text,Passwort:string):string;
var
x,y,lg : integer;
begin
if length(Text)>0 then begin
y:=1;
Forum: Programmieren allgemein
by Ykcim,
22. Aug 2018
Ja, das stimmt.
Ich habe das hier gefunden.
function XORCrypt(Data, Key: string): string;
var
KeyLen: INTEGER;
i: INTEGER;
begin
KeyLen := Length(Key);
for i := 1 to Length(Data) do
Forum: Programmieren allgemein
by Ykcim,
21. Aug 2018
Vielen Dank - ich werde mich morgen mal dransetzen. und mich dann melden.
Schönen Feierabend
Forum: Programmieren allgemein
by Ykcim,
21. Aug 2018
Wie geht das denn? Ich hatte gehofft, dass das ich das so machen kann, aber ich weiß leider nicht, wie man das umsetzen kann...
Hast Du eine Starthilfe für mich?
Vielen Dank
Patrick