Alten Code von Delphi 5 benutzen

[KodeZwerg]

Könntest Du eventuell ein kleinen beispiel code zeigen der all das beinhaltet?
also wo man alles sehen wie, wie dein encrypt, auch decrypt und wie du beides aufrufst meine ich.
Vielleicht ist ja decrypt falsch, oder du rufst es falsch auf? Hier kann ich nur raten.

PS: es kann gut sein das deine Routine aus einem String einen kaputten String macht (falls eines deiner Bytes ein $00 ist zum beispiel)