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
...Насколько я понял, от сокета приходит строка вида "HAAAPSI 123456abc", её разбивают по пробелу и вызывают CreateHash для второго слова:
hash := Hash152.CreateHash(TS[1]);В твоём случае это будет:
...
require 'ghash.php'
$hash = CreateHash($TS[1]);