Quellcode des Programms in Delphi übersetzen - Hilfe gesucht

[KSebi]

ok ich möchte ja kein komplettes programm es geht mir um die funktion.

Delphi-Quellcode:

For i = 1 to len(txtName.text)
      EAX = Asc(Mid(txtName.text,i,1)) 'Get char
      EAX = EAX Xor 201527 'Note This might not work with big numbers (Xor)
      EAX = EAX + 3735928559
      EAX = EAX * 1638
      EAX = EAX - 464370355
      EAX = EAX * (2^3) 'SHL EAX, 3 ... EAX * 8 .. SHL is the same as EAX * 2^N
      EAX = EAX Xor 3545092109
      EBX = EBX + EAX
   Next i

   'End Algo

   txtSerial.Text = Hex(EBX) 'Note this will probably cause an overflow in VB

So also ich würde mal sagen, dass das Assembler code ist. Mit Assembler habe ich allerdings nicht sehr viel zu tun, versteh aber zumindest was hier geschieht.

Also ich weiß nur nicht, wie ich diesen Assemblercode so umschreiben kann, dass dieser in Delphi funktioniert.


Wenn mir jemand sagn kann, wie das geht wär ich sehr glücklich ^^

Danke schonmal