Hallo zusammen,
also ich muss zugeben ich schäme mich schon fast dieses Thema jetzt eröffnen zu müssen
Ich versuche seit mehreren Tagen eine RcX Verschlüsselung und Entschlüsselung hinzubekommen. Dazu nutze ich folgende
Unit (vielen Dank an den Verfasser):
http://www.delphipraxis.net/301240-post3.html
Ich möchte aus einer Textdatei mit der Endung.ini verschlüsselten Text in eine Listbox laden (listbox3) und diese dann in die Listbox2 entschlüsseln. In der Textdatei sind Zahlen die mittels | als Seperator getrennt sind.
Mein Problem ist, es funktioniert zwar grundsätzlich, aber nicht zuverlässig. Ich habe das Gefühl nicht sauber zu arbeiten und dadurch bei kleinen Abweichungen sofort keine gültige Verschlüsselung mehr zu haben.
Hier meine Prozedur:
Code:
procedure TForm1.encode;
var
I: Integer;
R: TRCxContext;
begin
listbox3.Items.LoadFromFile('sec.ini');
ListBox3.Items.BeginUpdate;
try
RCxInit(R, 'pass1234');
ListBox2.Items.Clear;
for I := 0 to ListBox3.Items.Count -1 do
ListBox2.Items.Add(RCxencode(R, listBox3.Items[I]));
finally
ListBox3.Items.EndUpdate;
RCxDone(R);
end;
end;
Zum Decoden das gleiche in grün mit RCxdecode.
1) Ist das grundsätzlich in Ordnung? Ich denke mal nicht
Zusätzlich habe ich auch das beschriebene Problem:
http://www.delphipraxis.net/301240-post3.html
Allerdings kann ich mit der TStream Lösung nichts anfangen, da ich ja eben nicht die verschlüsselte Datei entschlüsselt speichern möchte, sondern nur temporär für das laufende Programm entschlüsseln.
2) Bei der
Unit von Hagen wird GetTickCount reklamiert wenn ich nicht Zusatzangaben im uses Bereich mache, ist korrekt?
Ich mache Delphi nur Hobbymäßig und komm normalerweise mit meinen Sachen und über die Suche gut zurecht. Aber das ist für mich wohl noch ein Level zu hoch. Demnach würde ich mich wirklich freuen, wenn ihr mir weiterhelfen könntet.
Vielen Dank,
Gruß
Joachim