[Помогите!] Переписать маленькую функцию с Delphi

[Diamant]

function code(var Text: string; password: string; decode: boolean): string;
var
  i, PasswordLength: integer;
  sign: shortint;
begin
  PasswordLength := Length(password);
  if PasswordLength = 0 then
    Exit;
  if decode then
    sign := -1
  else
    sign := 1;
  for i := 1 to Length(Text) do
    Text[i] := chr(ord(Text[i]) + sign *
      ord(password[i mod PasswordLength + 1]));

  Result := Text;
end;

Выше функция кодирования определенного значения. После передачи шифра на сервер, мне надо ее раскодировать обратно.

В PHP я шарю плохо, но мне жизненно необходимо выполнить задачу.

[Карикатуро]

в конце надо написать end.

[the-boxi]

function code(var Text: string; password: string; decode: boolean): string;
var
  i, PasswordLength: integer;
  sign: shortint;
begin
  PasswordLength := Length(password);
  if PasswordLength = 0 then
    Exit;
  if decode then
    sign := -1
  else
    sign := 1;
  for i := 1 to Length(Text) do
    Text[i] := chr(ord(Text[i]) + sign *
      ord(password[i mod PasswordLength + 1]));

  Result := Text;
end;

РНР

function code ($Text,$password,$decode)
{
$i = 0;
$sign = 1
$PasswordLenght = 0;
$PasswordLenght = strlen($password);
if($passwordLength == 0)
{
 return null; //делай проверку на пустоту :З 
 //Можешь конечно оборвать выполнение скрипта, но так не интересно. Вообще на сервере должна быть проверка на нулевое значение, а не проверять внутри функции кодирования
}
if($decode)
{
$sign = -1;
}
for($i = 1; i<=strlen($Text);i++)
{
$Text[i] = chr(ord($Text[i]) + sing*ord($password[$i % $PasswordLength + 1]));
}
retutn $Text;
}

Делфи непонятен, но думаю функции [Ссылки могут видеть только зарегистрированные пользователи. ] и [Ссылки могут видеть только зарегистрированные пользователи. ]совпадают.
Теперь думай как расскодировать.
И у тебя перебор массва идет не с нулевого элемента, а с первого. Так и нужно?

P.S. Для хранения паролей, все опытные люди используют md5, не нужно изобретать велосипед