Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / Помогите перевести код с языка Pascal на PHP / 2 сообщений из 2, страница 1 из 1
25.11.2014, 21:21
    #38816712
alexmrs
alexmrs
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите перевести код с языка Pascal на PHP
Всем привет!

Я извиняюсь.

Помогите перевести этот код с языка Pascale, в языки PHP!

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

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Function Crypt(Text, Key: String; Encode: Boolean): String;
Var
I, KeyLength: integer;
Sign: ShortInt;
Begin
KeyLength:=Length (Key);
If Encode=True 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;



Модератор: Тема перенесена из форума "Delphi".
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2014, 06:01
    #38816870
r u
r u
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите перевести код с языка Pascal на PHP
alexmrs,

может так?
Код: php
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
function crypt_from_pascal($Text, $Key, $Encode) {
  $KeyLength = strlen($Key);
  $Sign = $Encode ? -1 : 1; //шифровать или расшифровывать?
  for ($i=0, $m=strlen($Text); $i<$m; ++$i) {
    //код символа исходного текста складывается с кодом символа ключа
    // пароль при этом умножается
    $Text[$i] = chr( ord($Text[$i]) + $Sign * ord($Key[$i % ($KeyLength+1)]) );
  }//for
  return $Text;
}
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / Помогите перевести код с языка Pascal на PHP / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]