JavaScript — как запустить приложение Delphi на виртуальном хостинге Linux-сервера?
Я пытаюсь преобразовать код Delphi в веб-страницу, но результат не тот.
Я попытался найти какое-нибудь программное обеспечение, которое конвертирует Delphi в веб-страницу, но я нашел только для Windows Server, и проблема в том, что мне нужно запустить этот скрипт на сервере Linux, который является только общим хостингом, поэтому у меня нет доступа к корню использовать вино или другие симуляторы, чтобы я мог использовать только PHP-скрипт или JavaScript
код Delphi:
procedure TForm1.Edit1Change(Sender: TObject);
var
str2 : string;
key : TStringList;
i: integer;
begin
key := TStringList.create;
for i := 0 To pred(length(edit1.Text)) do
begin
str2 := IntTostr(StrToInt(Copy(trim(edit1.Text),i, 1)) + 5);
if (Length(str2) = 1)
then
key.Add(str2)
else
key.Add(Copy(str2,1, 1));
end ;
edit2.Text := key.Text;
end;
HTML-код:
<!DOCTYPE HTML SYSTEM>
<head>
<script type="text/javascript">
function magic() {
var src = document.getElementById('src');
var dst = document.getElementById('dst');
var str = src.value;
var key = '';
var len = str.length;
for (var i = 0; i < len; i++) {
key += str[len - i - 1];
}
dst.value = key;
}
</script>
</head>
<body>
<input type="text" id="src">
<button onclick="magic()">Convert</button>
<input type="text" id="dst">
</body>
результат должен быть для: 0123456789 = 5678901234
С уважением
Решение
это рабочий код
$test = $num1;
$result = $test;
for($i = 0; $i < strlen($test); $i++) {
$result[$i] = ($test[$i] + 5) % 10;
}
Другие решения
Других решений пока нет …