Mensajes

www.000webhost.com
» Free Web Hosting
Disk Space    1500 MB
Bandwidth    100,000 MB = 100 GB!
Domains Allowed    Unlimited
Control Panel    cPanel, view demo
Ads on your pages?    No Ads or Banners!
Your own ads allowed?    Yes
» Package Details
Website Builder    
PHP Scripts Autoinstaller    
Unrestricted PHP Support    
MySQL Databases    
Instant Backups    
FTP Support    
Web File Manager    
99.9% Uptime    
Instant Activation    
» Supported Features
PHP and MySQL    Details
Cron Jobs    
Curl    
GD    
Image Magick    
Streaming Video    
PHP Pear Modules    
» E-mail Features
POP3 Accounts    
Web Mail    
Auto Responders    
Spam Protection    
Mail Forwarding    
IMAP Support    
Modify MX Entry    
» Control Panel Features
Latest cPanel    View Demo
Website Builder    Details
Fantastico Autoinstaller    Details
Getting Started Wizard    
Video Tutorials    
Multi Language Support    
Hotlink Protection    
IP Deny Manager    
Redirect URL    
Password Protected Directories    
Web Based File Manager    
phpMyAdmin    

GRATIS

Mi chat envia post a una pagina web que escribe los datos en un archivo de texto y tu los pudes visualizar, soportando arta gente, es decir, todos estos chat o clientes se conectan a la web y escriben y reciben por hay, para poner un sistema de identificacion solo hay que poner que estos post tengan de contenido la clave y hacer algo como:

Código [Seleccionar] Expandir

if ($_POST['obtener']){
$hola=$_POST['obtener'];
if ($hola eq "clave"){
#codigo;
}}

client.pl

Código [Seleccionar] Expandir

#!usr/bin/perl
#msn perl
use Time::HiRes qw(gettimeofday);
use LWP::UserAgent;
use HTTP::Request;
use MIME::Base64;
#ej http://www.google.com/path/msn.php
#coded by isseu#
$ip='http://www.google.com/path/msn.php';
$puerto="80";
$clave="juan";
&a;
sub a{
while(1){
print "--Msn perl, put !refresh to refresh the chat !clear to clear--\n";
my $query = ("obtener=1");
my $ua = LWP::UserAgent->new;
$ua->agent("Perl Msn");
my $req = HTTP::Request->new(POST => $ip);
$req->content_type('application/x-www-form-urlencoded');
$req->content($query);
my $response = $ua->request($req);
my $content = $response->content();
@content2=split("<!-- www.000webhost.com A",$content);
#esta ultima linea solo es para sacar la publicidad de mi web
print @content2[0];
print "Mensaje a Enviar: \n";
$enviar=<STDIN>;
chomp($enviar);
if ($enviar eq '!refresh'){
system("cls");
system("clear");
&a;}elsif($enviar eq '!clear'){

my $query = ("clear=1");
my $ua = LWP::UserAgent->new;
$ua->agent("Perl Msn");
my $req = HTTP::Request->new(POST => $ip);
$req->content_type('application/x-www-form-urlencoded');
$req->content($query);
my $response = $ua->request($req);
my $content = $response->content();
system("cls");
system("clear");
&a;
}else {
my $query = ("postear=$enviar");
my $ua = LWP::UserAgent->new;
$ua->agent("Perl Msn");
my $req = HTTP::Request->new(POST => $ip);
$req->content_type('application/x-www-form-urlencoded');
$req->content($query);
my $response = $ua->request($req);
my $content = $response->content();
system("cls");
system("clear");
&a;
}
}
}

msn.php

Código [Seleccionar] Expandir

<?php
if($_POST['obtener']){
$f=fopen ('mensajes.txt','r');
$mensaje=fread($f, filesize('mensajes.txt'));
fclose($f);
echo $mensaje;

}
if($_POST['postear']){
$apostear=$_POST['postear'];
$archivo = 'mensajes.txt';
$fp = fopen($archivo, "a");
$string = "$apostear\n";
$write = fputs($fp, $string);
fclose($fp);
}
if($_POST['clear']){
$apostear=$_POST['postear'];
$archivo = 'mensajes.txt';
$fp = fopen($archivo, "w");
$string = ' ';
$write = fputs($fp, $string);
fclose($fp);}
?>


problemas:
-el primer mensaje saldra como:
hola
como estas
es decir el espacio el principio xd
- a veces el servidor me daba error 500
-nose sabe quien dio el mensaje pero se podria hacer asi si lo desean:

Código [Seleccionar] Expandir


$user:'pablo';

y cuando envie el mensaje ponen

Código [Seleccionar] Expandir

$envia2="$user: $enviar";
#lo que mandaria cosas como pablo: hola
my $query = ("postear=$enviar2");


waw ultimamente me gustaron mucho estos 2 lenguajes

ooo creo que ya te entendi, bueno gracias, tratare de hacer otras cosas......

Bueno eso de if function_exist, lo saque antes que lo cambiaran, perdon pero quede como 3 dias sin internet y no pude ver que hacian para cambiarlo, y lo programe cuando estaba sin inernet, xd!
Bueno no me importa que hagas los cambios que quieras, y creo que deberiamos sacar el echo como dice y devolver el valor con return, esque nunka habia echo esto de librerias para php, y trate de copiar la "estructura", de las otras XD!, sobre lo primero creo que no te entendi, pero son 2 funciones distintas, numerodearchivos y nombredearchivos, si me equivoco en algo que dijo ahora es pq no entiendo mucho de librerias en php, haz lo que quieras con el codigo, por el bien del proyecto... 

mm se ve muy weno creo que lo descargare despues, gracias

Un script en perl que hize como parte de uno de mis "proyectos":
usa ip.interchile.com, metodo de uso perl ippublica.pl <interfaz>
# lo de "interfaz" solo sirve para ver la ip privada, ya que la publica es determinada por GET,

Código [Seleccionar] Expandir

#!/usr/bin/perl
##################################
##  Por Isseu "El hacker Gris"  ##
####### Powered by Miip.es #######
############ V 1.0 ###############
### Argumentos perl ip.pl wlan1 ##
$interfaz = $ARGV[0];
if (!$ARGV[0]){
open (o ,"> configipviewer");
@contenido=<o>;
    if(@contenido=""){
    print o "wlan1";
}
close o;
open (p, "< configipviewer");
@contenido2 = <p>;
close p;
    $interfaz = @contenido2[0];
print q "
Nose dio Ninguna Interfaz se hara con la interfaz predeterminada...
######### Metodo de uso: perl ip.pl <interfaz> #########";
print "\n           Interfaz por defecto actual $interfaz \n"; 

  }  
@ipprivada2=`GET ip.interchile.com`;
$ipprivada3=@ipprivada2[7];
my @data = split(">", $ipprivada3);
$ipprivada4=@data[5];
my @data2 = split("<", $ipprivada4);
$ip=@data2[0];

print "\n   Interfaz: $interfaz\n";
@ipprivada = `ifconfig $interfaz | grep inet`;
$ipprivada2=@ipprivada[0];
my @ipprivada3=split(":", $ipprivada2);
my @ipprivada4=split(" ", @ipprivada3[1]);
$ipprivada=@ipprivada4[0];

@ipprivada = `ifconfig $interfaz | grep inet`;
$ipprivada2=@ipprivada[0];
my @ipprivada3=split(":", $ipprivada2);
my @ipprivada4=split(" ", @ipprivada3[1]);
$ipprivada=@ipprivada4[0];

print "   Ip Publica: $ip\n";
print "   Ip Privada: $ipprivada\n";

Editado: bueno como no me respondieron pondre un script aqui:
creo qu lo hize segun la estructura que lo estan haciendo,
sirven para:
*contar el numero de archivos de cierta carpeta determinada
*hacer una lista de los archivos de una carpeta determinada(incluso uno decide como se arma la lista, si con <li> <p> o lo que tu quieras
probado, pero no estaria mal que ustedes lo analizen por si esta mal

Código [Seleccionar] Expandir

<?php
/* 2 nuevas funciones:
$string = numeroarchivos($dir)
$string = listararchivos($dir,$htmlantes,$htmldespues)*/
/*Devuelve el numero de archivos de cierto directorio declarado en $buffer 
Uso:
$buffer=textos;
En la carpeta textos existen <?php echo numeroarchivos($buffer); ?> archivos
*/
if(!function_exists('numeroarchivos')){
function listararchivos($dir){
$archivos = scandir($dir);
$total_archivos = count($archivos);
$total = $total_archivos-2; /* elimina . y .. */
return echo "$total";
}}
/*Devuelve una lista de los archivos en cierto directorio, cada nombre de archivo entre lo que une declare
$dir=carpeta donde buscar
$htmlantes= que se pone al inicio de cada nombre (ej <p align=center>, preferiblemente sin comillas)
$htmldespues= que se pone al final de cada nombre (ej </p>, para que quede <p align=center>archivo1</p>
Uso:
En la carpeta textos estan los archivos:
<?php
$carpeta=textos;
nombresdearchivos($carpeta,'<p align=center>','</p>)'; ?>
*/
if(!function_exists('nombredearchivos')){
function listararchivos($dir,$htmlantes,$htmldespues){
$archivos1 = scandir($dir);
for($a=2;$a<count($archivos1);$a++){
return echo "$htmlantes$archivos1[$a]$htmldespues\n";
}}}
?>

DESCARGANDO.......................
..............................................
.............................................
....................................LISTO
ANALIZANDO......................
................................... LISTO
GRACIAS ESTA MUY BUENA

esta muy buena la libreria, util, espero que sigas mejorandola...

jajaja chucha que me costo..... y eso que ya me havia tocado cosas asi en otros wargamez,, ya vei los colores raros