下了个Delphi开发包,开发PHP的扩展发现里面有个Demo,是关于PHP代码加密的,忒简单原来这么简单,但是实际软件却很少只不过这个开发包只支持生成DLL文件,对于*nix下就不能用了

解决方案 »

  1.   

    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;
      

  2.   

    哦,不会delphi
    o(︶︿︶)o 唉
      

  3.   

    看不明白 delphi的,呵呵,最好注释下吧
      

  4.   

    获取每个字符的ascii码,再和8做异或运算,
      

  5.   

    看不明白 delphi的…………
      

  6.   

    我很快能出第一版PHP加密程序不过PHP服务端要加载我指定的扩展 ***.dll有人要吗?
      

  7.   

    就做一个xor也有人要 的话,那主要是现在男女比例太失调所致!