elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Introducción a Git (Primera Parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Desarrollo Web
| | |-+  PHP (Moderador: #!drvy)
| | | |-+  Perfiles del Foro en PHP
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Perfiles del Foro en PHP  (Leído 1,246 veces)
Dacan

Desconectado Desconectado

Mensajes: 237



Ver Perfil WWW
Perfiles del Foro en PHP
« en: 19 Enero 2009, 00:29 am »



Así se verán sus perfiles solo deben cambiar el id por el de ustedes para poder visualizarlo.

Código:

Código
  1. <?
  2. if($_GET['id'] == NULL){
  3. header("Location: http://dacanphp.net46.net/perfiles.php?id=230112");
  4. }
  5. // Url Perfil
  6. $perfil = file_get_contents("http://foro.elhacker.net/index.php?&action=.xml;sa=profile;u=".$_GET['id']);
  7.  
  8. // Nombre
  9. $nombre = explode('<username><![CDATA[', $perfil);
  10. $nombre = explode(']]></username>', $nombre[1]);
  11.  
  12. // Post
  13. $post = explode('<posts>', $perfil);
  14. $post = explode('</posts>', $post[1]);
  15.  
  16. // Genero
  17. $genero = explode('<gender><![CDATA[', $perfil);
  18. $genero = explode(']]></gender>', $genero[1]);
  19. if (!eregi("</gender>", $perfil)){
  20. $genero[0] = "No definid@";
  21. }
  22.  
  23. // Edad
  24. $edad = explode('<age>', $perfil);
  25. $edad = explode('</age>', $edad[1]);
  26. if (!eregi("</age>", $perfil)){
  27. $edad[0] = "No definida";
  28. }
  29.  
  30. // Localizacion
  31. $local = explode('<location><![CDATA[', $perfil);
  32. $local = explode(']]>', $local[1]);
  33.  
  34. if (!eregi("<location>", $perfil)){
  35. $local[0] = "No definida";
  36. }
  37.  
  38. header("Content-type: image/png");
  39.  
  40. $im = imagecreate(350, 110);
  41.  
  42. $fondo = imagecolorallocate($im, 0, 0, 0);
  43. $texto = imagecolorallocate($im, 255, 255, 255);
  44. $texto2 = imagecolorallocate($im, 255, 0, 0);
  45. $texto3 = imagecolorallocate($im, 0, 0, 255);
  46.  
  47. imagestring($im, 12, 20, 5, "Nick: ".$nombre[0], $texto);
  48. imagestring($im, 12, 20, 20, "Post's: ".$post[0], $texto);
  49. imagestring($im, 12, 20, 35, "Genero: ".$genero[0], $texto);
  50. imagestring($im, 12, 20, 50, "Edad: ".$edad[0], $texto);
  51. imagestring($im, 12, 20, 65, "Localizacion: ".$local[0], $texto);
  52. imagestring($im, 12, 20, 85, "Creado por Dacan", $texto2);
  53. imagestring($im, 12, 180, 85, "Elhacker.net", $texto3);
  54. imagepng($im);
  55.  
  56. ?>

Si tienen algún comentario o sugerencia no duden en postearlo.

Edit: Mejorados ahora si no tienes algo definido te lo muestra.

Saludos, Dacan  :D

 


« Última modificación: 19 Enero 2009, 22:52 pm por Dacan » En línea

Jecth

Desconectado Desconectado

Mensajes: 102


The hacktivismo is not crime


Ver Perfil WWW
Re: Perfiles del Foro en PHP
« Respuesta #1 en: 19 Enero 2009, 05:03 am »

Me ah quedado una duda, cosa de que yo lo quiera modificar para un foro en especial.

Código:
$perfil = file_get_contents("http://foro.elhacker.net/index.php?&action=.xml;sa=profile;u=".$_GET['id']);
Esa parte de:
Código:
("http://foro.elhacker.net/index.php?&action=.xml;sa=profile;u=".$_GET['id'])
Para un foro normal seria
Código:
("http://foro.elhacker.net/index.php?&action=profile;u=".$_GET['id'])
¿O me equivoco?.

Saludos.


En línea

Many critic, Few are those who help
Erik#


Desconectado Desconectado

Mensajes: 1.138


Gundam


Ver Perfil
Re: Perfiles del Foro en PHP
« Respuesta #2 en: 19 Enero 2009, 08:41 am »

Muy bueno, me lo quitaste de las manos :(
En línea

Dacan

Desconectado Desconectado

Mensajes: 237



Ver Perfil WWW
Re: Perfiles del Foro en PHP
« Respuesta #3 en: 19 Enero 2009, 20:13 pm »

Seria lo mismo con todo y el action=.xml solo que cambia la parte de http://tuforo.com/index.php.

Me imagino que es para viluxcity o mixforo si quieres te lo hago no hay problema alguno..

Saludos, Dacan  :D
« Última modificación: 19 Enero 2009, 20:16 pm por Dacan » En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Borrar perfiles
Scripting
esmetaw 1 1,003 Último mensaje 25 Agosto 2011, 01:35 am
por тαптяα
PERFILES
Foro Libre
cker 0 589 Último mensaje 2 Agosto 2014, 20:50 pm
por cker
MOver perfiles W10
Windows
huerto123 1 873 Último mensaje 9 Noviembre 2016, 02:40 am
por andavid
Ver perfiles de red
Programación C/C++
lSources 2 549 Último mensaje 25 Agosto 2018, 07:00 am
por EdePC
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines