jueves, 8 de agosto de 2013

Prueba de smtp y pop via telnet...

SMTP

$ telnet 127.0.0.1 25
Trying 127.0.0.1...
Connected to localhost.localdomain (127.0.0.1).
Escape character is '^]'.
220 nombre.dominio ESMTP Sendmail 8.13.1/8.13.1; Thu, 13 Dec 2007 11:51:38 -0600
HELO nombre.dominio
250 nombre.dominio Hello your.host [127.0.0.1], pleased to meet you
MAIL FROM:< fulano@nombre.dominio >
250 2.1.0 ... Sender ok
RCPT TO:< micta@your.host >
250 2.1.5 ... Recipient ok
DATA
354 Enter mail, end with "." on a line by itself
Cliente: Subject: Mensaje de prueba
From: fulano@nombre.dominio
To: micta@your.host

Prueba
.
250 2.0.0 k2IM2RjA0053987 Message accepted for delivery
QUIT
221 2.0.0 nombre.dominio closing connection
Connection closed by foreign host.


POP

$ telnet 127.0.0.1 110
Trying 127.0.0.1...
Connected to localhost.localdomain (127.0.0.1).
Escape character is '^]'.
+OK dovecot ready.
USER fulano
+OK
PASS password
+OK Logged in.
LIST
+OK 1 messages:
1 128
STAT
+OK 1 728
RETR 1
+OK 128 octets
Return-Path:
Received: from localhost.localdomain (localhost.localdomain [192.168.1.254])
by localhost.localdomain (8.13.1/8.13.1) with SMTP id k2IM2RjA003987
for ; Sat, 18 Mar 2006 16:03:21 -0600
Date: Sat, 18 Mar 2006 16:02:27 -0600
Message-Id: <200603182203 .k2im2rja003987="" localhost.localdomain="">
Subject: Mensaje de prueba
From: fulano@localhost.localdomain
To: root@localhost.localdomain
Status: O
Content-Length: 43
Lines: 2
X-UID: 202
X-Keywords:

Prueba. .
QUIT
+OK Logging out.
Connection closed by foreign host.
 

martes, 12 de octubre de 2010

Ubuntu hp elitebook 8440p

Instalando Ubuntu en un HP EliteBook 8440p

* Version 9.04 (Jaunty), no reconoce la interfaz de red

* Version 10.04 (Lucid Lynx), no funciona el video a la hora de instalacion.

Solucion:

= Selecionar la opcion de adicionar parametros de boot =

- sustituir splash por nosplash
- adicionar nomodeset xforcevesa

jueves, 5 de agosto de 2010

Perl regex

Hace unos dias me pregunto alguien como sustituir el $ por un caracter n veces, despues de buscar encontre que es asi:

#!/usr/bin/perl

$cadena="uno";
$cadena =~ s/$/" " x 2 /e;
print $cadena;

Referencia: Perlop

miƩrcoles, 17 de marzo de 2010

Comandos protocolo POP...

telnet machine 110


POP commands:

USER uid Log in as "uid"

PASS password Substitue "password" for your actual password

STAT List number of messages, total mailbox size

LIST List messages and sizes

RETR n Show message n

DELE n Mark message n for deletion

RSET Undo any changes

QUIT Logout (expunges messages if no RSET)

TOP msg n Show first n lines of message number msg

viernes, 12 de febrero de 2010

Just Another Perl / Unix Hacker

#!/usr/bin/perl

@P=split//,".URRUU\c8R";@d=split//,"\nrekcah xinU / lreP rehtona tsuJ";sub p{@p{"r$p","u$p"}=(P,P);pipe"r$p","u$p";++$p;($q*=2)+=$f=!fork;map{$P=$P[$f^ord ($p{$_})&6];$p{$_}=/ $P/ix?$P:close$_}keys%p}p;p;p;p;p;map{$p{$_}=~/^[P.]/&&close$_}%p;wait until$?;map{/^r/&&<$_>}%p;$_=$d[$q];sleep rand(2)if/\S/;print


Referencia:

viernes, 18 de diciembre de 2009

Contador antes del fin del mundo.... perl Tk

#!/usr/local/bin/perl -w
#####################################
# Contador para el fin del mundo
#
#######################


use Date::Calc qw(Delta_DHMS);
use Time::localtime;
use strict;
use Tk;

my @W_End = (2012, 12, 21, 00, 00, 01); # 21 Dec 2012, 0:00:01

my $str = "...";

my $mw = new MainWindow;
$mw->title("Fin del mundo");
$mw->Label(-text => "Faltan para el fin del mundo")->pack;

my $entry = $mw->Entry(
-textvariable => \$str,
-width => 17,
-font => "{Comic Sans MS} 12",
-relief => 'raised',
-highlightthickness => 0,
-state => 'disable',
)->pack();


$mw->Button(-text => 'Quit',
-justify => 'center',
-command => sub{exit} )->pack;

$mw->repeat(1000 => \&downcounter);


MainLoop;

sub downcounter {
# Calculando fecha actual
my @Today = (localtime->year()+ 1900, localtime->mon()+ 1, localtime->mday(), localtime->hour(), localtime->min(), localtime->sec());
my @diff = Delta_DHMS(@Today, @W_End);
if ( $diff[1] <10 ){
$diff[1]="0$diff[1]";
}
if ( $diff[2] <10 ){
$diff[2]="0$diff[2]";
}
if ( $diff[3] <10 ){
$diff[3]="0$diff[3]";
}
$str = "$diff[0] dias, $diff[1]:$diff[2]:$diff[3] ";
}

martes, 8 de diciembre de 2009

Link sobre perl....

Estaba vagando por la red y vi este link que considero esta interesante:

http://perlenespanol.com/articulos/archivo/000112.html