[Script]Informações do Clã

Bom galera, nao fui eu Que Fiz roteiro este.
E hum roteiro ¿Qué fornece varias clas Informações Sobre mínimos.

1. 
   
2. ?
   
3. 
   
4. cuint função ($ data)
   
5. {
   
6. if ($ data <64)
   
7. voltar strrev (pack ("C", $ data));
   
8. else if ($ data <16384)
   
9. voltar strrev (pack ("S", ($ data | 0x8000)));
   
10. else if ($ data <536870912)
    
11. voltar strrev (pack ("I", ($ data | 0xC0000000)));
    
12. voltar strrev (pack ("c", -32) pack ("I", $ dados).);
    
13. }
    
14. if (isset ($ _GET ['fid'])) {
    
15. $ Fid = $ _GET ['fid'];
    
16. $ Sock = socket_create (AF_INET, SOCK_STREAM, SOL_TCP);
    
17. if (! $ sock)
    
18. morrer (socket_strerror (socket_last_error ()));
    
19. if (socket_connect ($ sock, "192.168.0.51", "29400"))
    
20. {
    
21. socket_set_block ($ sock);
    
22. .. $ Data = cuint (4608) "\ x08 \ x80 \ x00 \ x00 \ x01" strrev (pack ("I", $ fid));
    
23. socket_send ($ sock, $ Dados, 8192, 0);
    
24. socket_recv ($ sock, $ buf, 8192, 0);
    
25. socket_set_nonblock ($ sock);
    
26. socket_close ($ sock);
    
27. $ Pos14 = ord (substr ($ buf, 14, 1));
    
28. 
    
29. if (ereg ("[^ 0-9a-zA-Z_-]", $ pos14, $ pos14)) {
    
30. $ Fnamelen = ord (substr ($ buf, 15, 1));
    
31. $ Pholder = 15;
    
32. Else {}
    
33. $ Fnamelen = ord (substr ($ buf, 16, 1));
    
34. $ Pholder = 16;}
    
35. $ Fname = iconv ("UCS-2LE", "UTF-8", substr ($ buf, pholder $ 1, $ fnamelen));
    
36. $ Flvl = ord (substr ($ buf, pholder $ + $ fnamelen +1, 1)) +1;
    
37. $ Fmasterid = hexdec (bin2hex (substr ($ buf, pholder $ + $ fnamelen +2, 4)));
    
38. $ Fcommentlen = ord (substr ($ buf, pholder $ + $ fnamelen 6, 1));
    
39. $ Fcomment = iconv ("UCS-2LE", "UTF-8", substr ($ buf, pholder $ + $ fnamelen +7, $ fcommentlen));
    
40. $ Fcount = ord (substr ($ buf, pholder $ + $ + $ fnamelen fcommentlen 8, 1));
    
41. echo " ID Faction: ".. $ fid "
    nome Faction : ".. fname $ "
    nível Faction : ID mestre Faction "$ flvl..": ".. $ fmasterid"
    informação Faction : ". fcomment $."
    Facção contagem de membros: "$ fcount;
    
42. echo "
    
    membros Faction:
    

    Papel id

    nome da função

    classificação Papel

    título Papel

    nível Papel

    classe de papel "; $ Titular = $ pholder + $ fnamelen + $ fcommentlen 9; for ($ i = 0; $ i <$ fcount; $ i + +) { $ Rid = hexdec (bin2hex (substr ($ buf, titular $, 4))); $ Rlvl = ord (substr ($ buf, titular $ 4, 1)); $ RCLs = ord (substr ($ buf, titular $ 5, 1)); if ($ RCLs == 0) {$ RCLs = 'Blademaster';} else { if ($ RCLs == 1) {$ RCLs = 'Wizard';} else { if ($ RCLs == 2) {$ RCLs = 'Monk';} else { if ($ RCLs == 3) {$ RCLs = 'Venomancer';} else { if ($ RCLs == 4) {$ RCLs = 'Barbarian';} else { if ($ RCLs == 6) {$ RCLs = 'Archer';} else { if ($ RCLs == 7) {$ RCLs = 'Cleric';} else {$ RCLs = "IDK";}}}}}}} $ Rrank = ord (substr ($ buf, titular $ 6, 1)); if ($ rrank == 2) {$ rrank = 'Master';} else { if ($ rrank == 3) {$ rrank = 'Director';} else { if ($ rrank == 4) {$ rrank = 'Marechal';} else { if ($ rrank == 5) {$ rrank = 'Executor';} else { if ($ rrank == 6) {$ rrank = 'Comissário';}}}}} $ Rnamelen = ord (substr ($ buf, titular $ 10, 1)); $ Rname = iconv ("UCS-2LE", "UTF-8", substr ($ buf, titular $ 11, $ rnamelen)); $ Rtitlelen = ord (substr ($ buf, titular $ + $ rnamelen 11, 1)); $ Rtitle = iconv ("UCS-2LE", "UTF-8", substr ($ buf, titular $ + $ rnamelen +12, $ rtitlelen)); echo "