Delphi: Unicode <-> Ansi + Algorithmus für Seriennummer

[c.wuensch]

Hallo zusammen,

ich habe ein großes Problem mit Delphi und kann leider nirgendwo im Internet eine passende Antwort finden:

Ich möchte einen String beliebiger Länge in eine Zahlenkette umwandeln, und daraus dann über einen Algorithmus eine Seriennummer erzeugen. Am besten soll diese auch noch umkehrbar sein!

Problem 1:
Der String wird als Unicode übergeben, der Befehl Ord() funktioniert also nicht. Wie kriege ich diesen String denn nur ins ANSI-Format umgewandelt???

Problem 2:
Kennt jemand einen (wenn möglich umkehrbaren) Algorithmus, der aus beliebig vielen Zeichen immer eine Zahlenfolge mit einer festen Zeichenanzahl erzeugt?

Ich würde mich echt freuen, wenn mir jemand helfen könnte!

Cu, chris