Кто может загнать под php

# aNNiMON (21.11.2016 / 14:10)
Наверняка где-то пара ошибок осталась — проверить не на чем. Но, в целом, как-то так:

# muhago97 (21.11.2016 / 14:36)
работает???

# ДоХтор (21.11.2016 / 14:39)
Запусти код и посмотри. Кроме тебя его проверить некому.

# Koenig (21.11.2016 / 14:50)
muhago97, ну так это же функции, а вызов уже твой, где ты код этот взял вообще? по сути одна из функций тебе должна вернуть нужное

TS := TStringList.Create;
TS.Delimiter := ' ';
TS.DelimitedText := Wsocket1.ReceiveStr;
Memo1.Lines.add(UTF8DECODE(TS.DelimitedText));
try
  if TS[0] = 'HAAAPSI' then
  Begin
    hash := Hash152.CreateHash(TS[1]);
    WSocket1.Sendline(':ru IDENT 152 -1 4030 1 2 :GALA');
    WSocket1.Sendline('RECOVER ' + Trim(Edit1.Text));
  End
  ...

hash := Hash152.CreateHash(TS[1]);

...
require 'ghash.php'
$hash = CreateHash($TS[1]);

# aNNiMON (21.11.2016 / 14:59)
muhago97, Ну вот там

TS := TStringList.Create;
TS.Delimiter := ' ';
TS.DelimitedText := Wsocket1.ReceiveStr;
Memo1.Lines.add(UTF8DECODE(TS.DelimitedText));
try
if TS[0] = 'HAAAPSI' then

$fsock = fsockopen("galaxy.mobstudio.ru", "6667");
        $exp = explode(' ', fread($fsock, 1024));
$out = substr($file, -10);
        echo 'HAAAPSI: '.$exp[1].', hash: '.$out.'..<br />';