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
