googlet und verschiedene Quelltexte gefunden, aber beim "abtippen" in delphi sozusagen, hauts nicht mehr hin.
Das ist nicht verwunderlich, weil Du nur kopiertest, ohne den Algorithmus verinnerlicht zu haben. Asche auf jedermanns Haupt, wer tat das bisher noch nie, aber die Gefahr ist immer groß, auf diese bequeme Weise Schiffbruch zu erleiden.