Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - isseu

#191
Desarrollo Web / Re: Recomendando host
30 Diciembre 2008, 16:56 PM
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
#192
Scripting / MSN Perl y PHP
30 Diciembre 2008, 14:36 PM
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:


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


client.pl


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

<?php
if($_POST['obtener']){
$f=fopen ('mensajes.txt','r');
$mensaje=fread($ffilesize('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:


$user:'pablo';

y cuando envie el mensaje ponen


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


waw ultimamente me gustaron mucho estos 2 lenguajes
#193
ooo creo que ya te entendi, bueno gracias, tratare de hacer otras cosas......
#194
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...  ;D
#195
mm se ve muy weno creo que lo descargare despues, gracias
#196
Scripting / Script para ver ip Publica en perl
27 Diciembre 2008, 04:31 AM
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,
#!/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";
#197
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

<?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";
}}}
?>
#198
DESCARGANDO.......................
..............................................
.............................................
....................................LISTO
ANALIZANDO......................
................................... LISTO
GRACIAS ESTA MUY BUENA
#199
esta muy buena la libreria, util, espero que sigas mejorandola... ;D
#200
WarZone / Re: Hack-Web_Molto Facil
20 Diciembre 2008, 04:12 AM
jajaja chucha que me costo..... y eso que ya me havia tocado cosas asi en otros wargamez,, ya vei los colores raros