Перевести этот код с языка Pascal, в язык PHP

@alexmerson · Регистрация: 23.11.2014

Author24 — интернет-сервис помощи студентам

Всем привет!
Я извиняюсь.
Помогите перевести этот код с языка Pascale, в языки PHP!

Вот сам исходный код написанный на языке Pascale:

Delphi

Function Crypt(Text, Key: String; Encode: Boolean): String;
Var
I, KeyLength: integer;
Sign: ShortInt;
Begin
KeyLength:=Length(Key);
If Encode then Sign:=-1 else Sign:=1; 
For I:=1 to Length(Text) do
Text[I]:=Chr(ord(Text[I]) +Sign*ord(Key[I mod KeyLength+1]));
Result:=Text;
End;

@Dealiss · 23.11.2014, 22:10

alexmerson, опишите функцию

@ads · 23.11.2014, 22:23

Сообщение от Dealiss

alexmerson, опишите функцию

ТС шифрует(дешифрует) строку, со сдвигом кода буквы по ключу

@ramm · 25.11.2014, 17:06

PHP

function crypt2($text, $key, $encode) {
    $keylength = strlen($key);
    $sign = $encode ? -1 : 1;
 
    for ($i=0; $i<strlen($text); $i++) { 
        $text[$i] = chr(ord($text[$i])) + $sign * ord($key[$i % $keylength+1]);
    }
    return $text;
}

@Dealiss 296 / 284 / 84 Регистрация: 10.05.2013 Сообщений: 920
	23.11.2014, 22:10	2
	alexmerson, опишите функцию 0

@ads 365 / 372 / 89 Регистрация: 01.12.2013 Сообщений: 1,629
	23.11.2014, 22:23	3
	Сообщение от Dealiss alexmerson, опишите функцию ТС шифрует(дешифрует) строку, со сдвигом кода буквы по ключу 1

	25.11.2014, 17:06