Seoane, solo que yo veo un error al traducir el código
en la linea
Cita:
P$ = P$ & Asc(Mid$(PASSWORD$, i, 1))
|
Estan convirtiendola así
Código Delphi
[-]
S:= S + IntToStr(Ord(Password[i]));
Y estan usando una suma en lugar de AND, eso cambia todo el resultado.
Saludos.