estou reprogramando um sistema de um cliente e preciso converter uma função em Delphi para o PHP para concluir uma etapa do sistema e estou com dificuldades quanto a isso... poderiam me dar um help.. agradeço desde já.. segue o código abaixo que precisa ser convertido para o PHP:
Function CalcRegistro(Codigo: String): String;
Var vCod: Extended;
vCnt, vAsc: LongInt;
vStr: String[128];
Begin
vCod:= 0;
vStr:= Copy(Codigo + RepeatStr(' ',128), 1, 128);
For vCnt := 1 to 128 do
Begin
vAsc:= Ord(vStr[vCnt]);
vAsc:= (vAsc + (128-vCnt));
vCod:= vCod + Power(vAsc,6);
End;
Result:= FloatToStrF(vCod, ffFixed, 16, 0);
End;
System.Math
, no seu exemplo estão usando Funções básicas do Delphi.