Últimos Temas de: isseu

Mostrar Temas
Páginas: 1 2 [3]

21	Programación / .NET (C#, VB.NET, ASP) / Mini MD5 Cracker De diccionario+ source	en: 17 Febrero 2009, 23:20 pm
echo 90% por mi, icono de otra persona y tuve unos problemas con el hashing md5, me sirvio mucho para practicar, solo funciona a travez de diccionario, algunas partes las hice medias complejas y pudieron ser mucho mas sencillas, pero no importa Descarga: -http://www.mediafire.com/?yxzdwh40hly -http://rapidshare.com/files/199368699/Mini_MD5_Cracker.rar.html

22	Programación / .NET (C#, VB.NET, ASP) / dudas certificado microsoft c#...	en: 29 Enero 2009, 18:58 pm
saludos, bueno me propuse para este año (quiero hacer artas cosas pero por ahora esto) obtener el certificado en c# de microsoft, y queria prejuntar que tan complejo es de obtener, que tipo de prejuntas te hacen etc etc, toda la info que puedan darme, tambien para que me podria servir en un futuro...

23	Programación / Scripting / Uso http::cookies[perl]??	en: 20 Enero 2009, 03:18 am
como se utiliza, la info en cpan no me sirvio, alguen me explica?

Programación / Scripting / 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

Programación / Scripting / Script para ver ip Publica en perl

en: 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,

Código:

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

Páginas: 1 2 [3]