Club Builder

[ironcatan]

Hola, llevo tiempo programando en VBasic y al final me he enganchado con esta maravilla del C++ Builder
Bueno la duda es esta (para vosotros seguro que facil)
En Visual Basic, cuando programo una aplicacion y la quiero proteger con Nombre de usuario y clave, creo una Funcion para que me genere un numero correspondiente al Nombre que se introduzca. El Código de la funcion es este:
-------------------------------------------------------------
Function aNumero(cambia As String) As Long
Dim longitud%, numero&, i%
'calcula la longitud de la cadena introducida
longitud = Len(cambia)
'inicializa la variable a 0
numero = 0
For i = 1 To longitud
'convierte a Ascii cada una de las letras
'y las va sumando a las anteriores hasta
'que llega al final (la longitud obtenida)
'Todo ello queda sumado en la variable numero
numero = numero + Asc(Mid(cambia, i, 1))
Next i
'toma la suma de caracteres, los multiplica por
'121 dividido entre 5
'y lo convierte en entero, después lo devuelve
'a la función aNumero
aNumero = numero * (121 / 5)
'aNumero es Long. Las variables de tipo Long
'(entero largo) se almacenan como números con
'signo de 32 bits (4 bytes) en el rango comprendido
'entre los valores -2.147.483.648 y 2.147.483.647.
'Si sobrepasa estos valores dará error.
End Function
-----------------------------------------------------------------

¿Se podria pasar esto a codigo C++ Builder?
A ver si me podeis ayudar, ya que me he quedado pillado y no encuentro la solucion?
¿Como seria el codigo en Builder?

Gracias a todos y espero vuestra ayuda

ironcatan

[R. Porcar]

A ver...

[ironcatan]

PERFECTO, y con solo 5 lineas de código

MUCHAS GRACIAS y seguiré aprendiendo con maestros como vosotros

Un saludo
ironcatan