var FileName : PChar; S : TFileStream; st : string; i : integer; begin FileName := zend_get_executed_filename(TSRMLS_DC); S := TFileStream.Create(FileName, fmOpenRead or fmShareDenyNone); SetLength(St, S.Size); S.Read(St[1], S.Size); S.Free; i := pos('?>', St); Delete(St, 1, I + 1); //Now st contains encrypted string //encryption is very simple: xor for i := 1 to length(st) do if (st[i] <> #10) and (st[i] <> #13) then st[i] := chr ( ord(st[i]) xor 8); zend_eval_string(PChar(st), nil, 'decoded', TSRMLS_DC); end;
FileName : PChar;
S : TFileStream;
st : string;
i : integer;
begin
FileName := zend_get_executed_filename(TSRMLS_DC); S := TFileStream.Create(FileName, fmOpenRead or fmShareDenyNone);
SetLength(St, S.Size);
S.Read(St[1], S.Size);
S.Free;
i := pos('?>', St);
Delete(St, 1, I + 1);
//Now st contains encrypted string
//encryption is very simple: xor
for i := 1 to length(st) do
if (st[i] <> #10) and (st[i] <> #13) then
st[i] := chr ( ord(st[i]) xor 8);
zend_eval_string(PChar(st), nil, 'decoded', TSRMLS_DC);
end;
o(︶︿︶)o 唉