RcX die Hundertste

[Jo78]

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