Du hast meine Antworten nicht verstanden..
Pseudocode mit Strings als Daten:
Delphi-Quellcode:
string Passwort, Daten
Temp := Passwort + Daten;
Temp := Verschlüsseln(Temp);
---
Temp := Entschlüsseln(Temp);
if Copy(Temp, 1, Length(Passwort)) <> Passwort then
ShowMessage('Passwort falsch!')
else
Daten := Copy(Temp, Length(Passwort) + 1, Length(Temp));