@ negaH: keiner von den snippets returned irgendwas. trotzdem danke
@ Christian Seehase: jetzt gehts. VIELEN VIELEN DANK!
mein nächstes prob (ich hab sowas noch nie in delphi gamacht, das ganze $OF und so und #00 ist mir fremd): wie lasse ich das ganze rückwärts laufen? bitte nur vorgehensweiße, ich will das lernen und selber veruschen
also muss ich nur praktisch wissen was das
textneu[i] := char((ord(schluessel[j]) and $0F) xor ord(text[i]));
tut...
MfG Hybrid666