CaNaBiS_XoR
Guest
Подскажите чего не так я делаю
Меня попросили написать (перевести) на пхп вот такую функцию из Delphi:
Function XESH(A:String;Len:Integer):Cardinal;
Var
i,Osn:Cardinal;
begin
Result:=0;
Osn:=7;
For i:=1 to length(A) do
begin
Result:=Result+ord(A)* Osn;
Osn:=Osn*7;
end;
If Length(A)<Len then Result:=XESH(A+intToStr(Result),Len);
end;
Вот как я это все перевел на пхп
Меня попросили написать (перевести) на пхп вот такую функцию из Delphi:
Function XESH(A:String;Len:Integer):Cardinal;
Var
i,Osn:Cardinal;
begin
Result:=0;
Osn:=7;
For i:=1 to length(A) do
begin
Result:=Result+ord(A)* Osn;
Osn:=Osn*7;
end;
If Length(A)<Len then Result:=XESH(A+intToStr(Result),Len);
end;
Вот как я это все перевел на пхп
PHP:
<?
function gen($A,$len){
$Osn=7;
$Result=0;
$A = trim ($A); // Удаляем пробелы
$Kol_Symbols = strlen($A); // Количество символов
For ($i = 0 ;$i != $Kol_Symbols;$i++){
$Result = $Result+ord($A[$i]) * $Osn;
$Osn=$Osn * 7;
}
if ($Kol_Symbols < $len)
{
$Result=gen ($A+$Result,$len);
}
return $Result;
}
$c= gen ('CaNaBiS_XoR',30);
echo $c;
?>[PHP]
Но это не работает.И в апаче происходит ошибка. С таким маленьким куском кода мучаюсь уже более 4 часов. Помогите пожалуйста сил больше нет !