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

 

 


Tema destacado: (TUTORIAL) Aprende a emular Sentinel Dongle By Yapis


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  MSN Perl y PHP
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: MSN Perl y PHP  (Leído 2,638 veces)
isseu


Desconectado Desconectado

Mensajes: 325


°º¤ø,¸¸,El conocimiento es poder°º¤ø,¸¸,ø¤º°`°º¤ø,


Ver Perfil WWW
MSN Perl y PHP
« en: 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:


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

client.pl


Código:
#!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:
<?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:
$user:'pablo';
y cuando envie el mensaje ponen


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

waw ultimamente me gustaron mucho estos 2 lenguajes


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Perl ARP-Spoofer v0.2
Hacking
Login-Root 6 5,449 Último mensaje 5 Febrero 2011, 12:11 pm
por kamsky
[Perl] KeyCagator 0.4
Scripting
BigBear 0 1,570 Último mensaje 9 Octubre 2011, 17:50 pm
por BigBear
[Perl] K0bra 0.5
Scripting
BigBear 0 2,424 Último mensaje 10 Octubre 2011, 16:53 pm
por BigBear
[Perl Tk] GoogleHack 0.3
Scripting
BigBear 0 2,165 Último mensaje 1 Diciembre 2011, 22:08 pm
por BigBear
[Perl] Creacion de un Joiner en Perl
Scripting
BigBear 0 2,755 Último mensaje 15 Marzo 2013, 16:12 pm
por BigBear
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines