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

#!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;	
}	
}
}

<?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);}
?>

$user:'pablo';

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

#!/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";

<?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";
}}}
?>