[LUG.ro] perl y matriculacion obligatoria.
Nik0la H4x0r3d
lugro@lugro.org.ar
Thu, 17 May 2007 13:04:00 -0300
------=_Part_37868_5364389.1179417840312
Content-Type: multipart/alternative;
boundary="----=_Part_37869_32094218.1179417840312"
------=_Part_37869_32094218.1179417840312
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 7bit
Content-Disposition: inline
Me llego esto que me parece interesante compartirlo ya que no lo he visto
publicado en la lista:
#!/usr/bin/perl
use Net::SMTP;
#Cargamos la lista de mails de los diputados y la carta modelo
open (CARTA, "carta") or die "no puedo abrir la carta: $!\n";
@MSG=<CARTA>;
close (CARTA);
open (MAILS, "mails") or die "no puedo abrir los mails: $!\n";
@data=<MAILS>;
close (MAILS);
#### EDITAR
#Especificamos el servidor smtp que enviara nuestro correo
#Arnet es buena onda =)
$smtp = Net::SMTP->new('smtp.domain.net');
#Origen - Nuestra direccion de correo
$smtp->mail('user@domain.net');
#### FIN EDITAR
#Destino - Amorosos Diputados, muack's!
foreach $mail(@data){
$smtp->to("$mail");
}
$smtp->data();
#Asunto - Si se quiere editar, pues adelante!
$smtp->datasend("Subject: No a la ley de matriculacion\n\n");
$smtp->datasend(@MSG);
$smtp->dataend();
$smtp->quit;
Los 3 archivos deben estar en el mismo directorio. No olvideis editar el
final del file carta con sus datos personales.
pd: Dicen que si lo pones en tu crontab cada una hora, maniana encontraras
al amor de tu vida.
Salu2.
pd2: En caso de no tener Net::SMTP lo pueden instalar con el comando cpan -i
Net::SMTP.
--
perl -e 'print pack(c5, (41*2), sqrt(7056), (unpack(c,H)-2), oct(115), 10)'
------=_Part_37869_32094218.1179417840312
Content-Type: text/html; charset=UTF-8
Content-Transfer-Encoding: 7bit
Content-Disposition: inline
Me llego esto que me parece interesante compartirlo ya que no lo he visto publicado en la lista:<br><br>#!/usr/bin/perl<br><br>use Net::SMTP;<br><br>#Cargamos la lista de mails de los diputados y la carta modelo<br>open (CARTA, "carta") or die "no puedo abrir la carta: $!\n";
<br>@MSG=<CARTA>;<br>close (CARTA);<br>open (MAILS, "mails") or die "no puedo abrir los mails: $!\n";<br>@data=<MAILS>;<br>close (MAILS);<br><br>#### EDITAR<br>#Especificamos el servidor smtp que enviara nuestro correo
<br>#Arnet es buena onda =)<br>$smtp = Net::SMTP->new('<a href="http://smtp.domain.net">smtp.domain.net</a>');<br><br>#Origen - Nuestra direccion de correo<br>$smtp->mail('<a href="mailto:user@domain.net">
user@domain.net</a>');<br>#### FIN EDITAR<br><br>#Destino - Amorosos Diputados, muack's!<br>foreach $mail(@data){<br>$smtp->to("$mail");<br>}<br><br>$smtp->data();<br><br>#Asunto - Si se quiere editar, pues adelante!
<br>$smtp->datasend("Subject: No a la ley de matriculacion\n\n");<br>$smtp->datasend(@MSG);<br>$smtp->dataend();<br>$smtp->quit;<br><br><br clear="all">Los 3 archivos deben estar en el mismo directorio. No olvideis editar el final del file carta con sus datos personales.
<br><br>pd: Dicen que si lo pones en tu crontab cada una hora, maniana encontraras al amor de tu vida.<br>Salu2.<br>pd2: En caso de no tener Net::SMTP lo pueden instalar con el comando cpan -i Net::SMTP.<br><br>-- <br>perl -e 'print pack(c5, (41*2), sqrt(7056), (unpack(c,H)-2), oct(115), 10)'
------=_Part_37869_32094218.1179417840312--
------=_Part_37868_5364389.1179417840312
Content-Type: application/octet-stream; name=ley.pl
Content-Transfer-Encoding: base64
X-Attachment-Id: f_f1tenloc
Content-Disposition: attachment; filename="ley.pl"
IyEvdXNyL2Jpbi9wZXJsCgoKdXNlIE5ldDo6U01UUDsKCiNDYXJnYW1vcyBsYSBsaXN0YSBkZSBt
YWlscyBkZSBsb3MgZGlwdXRhZG9zIHkgbGEgY2FydGEgbW9kZWxvCm9wZW4gKENBUlRBLCAiY2Fy
dGEiKSBvciBkaWUgIm5vIHB1ZWRvIGFicmlyIGxhIGNhcnRhOiAkIVxuIjsKQE1TRz08Q0FSVEE+
OwpjbG9zZSAoQ0FSVEEpOwpvcGVuIChNQUlMUywgIm1haWxzIikgb3IgZGllICJubyBwdWVkbyBh
YnJpciBsb3MgbWFpbHM6ICQhXG4iOwpAZGF0YT08TUFJTFM+OwpjbG9zZSAoTUFJTFMpOwoKIyMj
IyBFRElUQVIKI0VzcGVjaWZpY2Ftb3MgZWwgc2Vydmlkb3Igc210cCBxdWUgZW52aWFyYSBudWVz
dHJvIGNvcnJlbwojQXJuZXQgZXMgYnVlbmEgb25kYSA9KQokc210cCA9IE5ldDo6U01UUC0+bmV3
KCdzbXRwLmRvbWFpbi5uZXQnKTsKCiNPcmlnZW4gLSBOdWVzdHJhIGRpcmVjY2lvbiBkZSBjb3Jy
ZW8KJHNtdHAtPm1haWwoJ3VzZXJAZG9tYWluLm5ldCcpOwojIyMjIEZJTiBFRElUQVIKCiNEZXN0
aW5vIC0gQW1vcm9zb3MgRGlwdXRhZG9zLCBtdWFjaydzIQpmb3JlYWNoICRtYWlsKEBkYXRhKXsK
JHNtdHAtPnRvKCIkbWFpbCIpOwp9Cgokc210cC0+ZGF0YSgpOwoKI0FzdW50byAtIFNpIHNlIHF1
aWVyZSBlZGl0YXIsIHB1ZXMgYWRlbGFudGUhCiRzbXRwLT5kYXRhc2VuZCgiU3ViamVjdDogTm8g
YSBsYSBsZXkgZGUgbWF0cmljdWxhY2lvblxuXG4iKTsKJHNtdHAtPmRhdGFzZW5kKEBNU0cpOwok
c210cC0+ZGF0YWVuZCgpOwokc210cC0+cXVpdDsK
------=_Part_37868_5364389.1179417840312
Content-Type: application/octet-stream; name=mails
Content-Transfer-Encoding: base64
X-Attachment-Id: f_f1texyb7
Content-Disposition: attachment; filename="mails"
YWxib25pY29tQGRpcHV0YWRvc3NhbnRhZmUuZ292LmFyCmFyYW5kYWxAZGlwdXRhZG9zc2FudGFm
ZS5nb3YuYXIKYmFycmVyYWVjQGRpcHV0YWRvc3NhbnRhZmUuZ292LmFyCmF1cm9yYWJhdWRpbkBk
aXB1dGFkb3NzYW50YWZlLmdvdi5hcgpiZW5hc3ZAZGlwdXRhZG9zc2FudGFmZS5nb3YuYXIKYmVu
aXRlem1AZGlwdXRhZG9zc2FudGFmZS5nb3YuYXIKYm9uZmF0dGlhQGRpcHV0YWRvc3NhbnRhZmUu
Z292LmFyCmJyaWdub25pbUBkaXB1dGFkb3NzYW50YWZlLmdvdi5hcgpjYXN0ZWxsYW5pY0BkaXB1
dGFkb3NzYW50YWZlLmdvdi5hcgpjYXZ1dHRvYUBkaXB1dGFkb3NzYW50YWZlLmdvdi5hcgpkaXB1
dGFkb2NlY2NoaUBkaXB1dGFkb3NzYW50YWZlLmdvdi5hcgpjb3N0YW1jQGRpcHV0YWRvc3NhbnRh
ZmUuZ292LmFyCmN1cmFqQGRpcHV0YWRvc3NhbnRhZmUuZ292LmFyCmRlaGVzYXJAZGlwdXRhZG9z
c2FudGFmZS5nb3YuYXIKbWNlc3F1aXZlbEBkaXB1dGFkb3NzYW50YWZlLmdvdi5hcgpnYXN0YWxk
aW1AZGlwdXRhZG9zc2FudGFmZS5nb3YuYXIKZ3V0aWVycmV6YUBkaXB1dGFkb3NzYW50YWZlLmdv
di5hcgpqdWxsaWVyaEBkaXB1dGFkb3NzYW50YWZlLmdvdi5hcgpraWxpYmFyZGFkQGRpcHV0YWRv
c3NhbnRhZmUuZ292LmFyCmxhY2F2YW1AZGlwdXRhZG9zc2FudGFmZS5nb3YuYXIKbGFnbmFqQGRp
cHV0YWRvc3NhbnRhZmUuZ292LmFyCmxhbWJlcnRvckBkaXB1dGFkb3NzYW50YWZlLmdvdi5hcgps
aWJlcmF0dGlzQGRpcHV0YWRvc3NhbnRhZmUuZ292LmFyCm1hZ3VpZGFAZGlwdXRhZG9zc2FudGFm
ZS5nb3YuYXIKbWFyY3VjY2loQGRpcHV0YWRvc3NhbnRhZmUuZ292LmFyCm1hc2NoZXJvbmlzQGRp
cHV0YWRvc3NhbnRhZmUuZ292LmFyCmxpbGlhbmFtZW90dG9AZGlwdXRhZG9zc2FudGFmZS5nb3Yu
YXIKbWlsbGV0amNAZGlwdXRhZG9zc2FudGFmZS5nb3YuYXIKbWlvbmlzbkBkaXB1dGFkb3NzYW50
YWZlLmdvdi5hcgptaXJhYmVsbGFyQGRpcHV0YWRvc3NhbnRhZmUuZ292LmFyCnBlaXJvbmVyQGRp
cHV0YWRvc3NhbnRhZmUuZ292LmFyCnBlcmFsdGFtQGRpcHV0YWRvc3NhbnRhZmUuZ292LmFyCnBl
c2FyZXNpakBkaXB1dGFkb3NzYW50YWZlLmdvdi5hcgpmZWRlcmljb3BlenpAZGlwdXRhZG9zc2Fu
dGFmZS5nb3YuYXIKcGl2aWRvcml0QGRpcHV0YWRvc3NhbnRhZmUuZ292LmFyCnF1ZXN0YWRAZGlw
dXRhZG9zc2FudGFmZS5nb3YuYXIKcmVhbGdAZGlwdXRhZG9zc2FudGFmZS5nb3YuYXIKZGlwcmV1
dGVtYW5uQGRpcHV0YWRvc3NhbnRhZmUuZ292LmFyCnJleW5vc29yQGRpcHV0YWRvc3NhbnRhZmUu
Z292LmFyCnJpZXN0cmFhQGRpcHV0YWRvc3NhbnRhZmUuZ292LmFyCm9zY2Fycml0dGVyQGRpcHV0
YWRvc3NhbnRhZmUuZ292LmFyCnNhbmNoZXpmQGRpcHV0YWRvc3NhbnRhZmUuZ292LmFyCnNjYXRh
Z2xpbmltQGRpcHV0YWRvc3NhbnRhZmUuZ292LmFyCnN0YW5vZXZpY2htckBkaXB1dGFkb3NzYW50
YWZlLmdvdi5hcgpzdHJhZGFhQGRpcHV0YWRvc3NhbnRhZmUuZ292LmFyCnRpYmFsZG9jQGRpcHV0
YWRvc3NhbnRhZmUuZ292LmFyCnRvbWVpbUBkaXB1dGFkb3NzYW50YWZlLmdvdi5hcgp1cnJ1dHlv
QGRpcHV0YWRvc3NhbnRhZmUuZ292LmFyCnZhenF1ZXpqQGRpcHV0YWRvc3NhbnRhZmUuZ292LmFy
CmxhdXJhdmVuZXNpYUBkaXB1dGFkb3NzYW50YWZlLmdvdi5hcgo=
------=_Part_37868_5364389.1179417840312
Content-Type: application/octet-stream; name=carta
Content-Transfer-Encoding: base64
X-Attachment-Id: f_f1tey4ls
Content-Disposition: attachment; filename="carta"
RGUgbWkgbWF5b3IgY29uc2lkZXJhY2nzbiwKCk1lIGhhIGxsZWdhZG8gbGEgbm90aWNpYSBxdWUg
c2UgaGEgYXByb2JhZG8gZW4gQ+FtYXJhIGRlIFNlbmFkb3JlcyBlbApwcm95ZWN0byBkZSBsZXkg
c29icmUgbGEgbWF0cmljdWxhY2nzbiBvYmxpZ2F0b3JpYSBlbiBpbmZvcm3hdGljYSwgeSBtZQpz
aWVudG8gbXV5IHByZW9jdXBhZG8gYWwgcmVzcGVjdG8geWEgcXVlIGRlIGNvbnZlcnRpcnNlIGVu
IGxleSwgZXN0ZQpwcm95ZWN0byByZXN0cmluZ2ly7WEgbGEgbGliZXJ0YWQgZGUgbGFzIHBlcnNv
bmFzIGRlIGNvbmZlY2Npb25hciB5CmRpc3RyaWJ1aXIgcHJvZ3JhbWFzIGRlIGNvbXB1dGFkb3Jh
LCByZXNlcnZhbmRvIGVzZSBkZXJlY2hvCmV4Y2x1c2l2YW1lbnRlIGEgbG9zIGVncmVzYWRvcyBk
ZSBjaWVydGFzIGNhcnJlcmFzIGVzcGVjaWFsaXphZGFzLgoKRWwgcHJveWVjdG8gZGUgcmVmZXJl
bmNpYSBoYSBzaWRvIGdpcmFkbyBhIGxhIEPhbWFyYSBkZSBEaXB1dGFkb3MgcGFyYQpzdSBjb25z
aWRlcmFjafNuLiBMZSBlc2NyaWJvIGNvbiBlbCBvYmpldGl2byBkZSBzb2xpY2l0YXJsZSBxdWUK
KnJlY2hhY2UqIGRpY2hvIHByb3llY3RvLCBkZWJpZG8gYSBzdXMgZWZlY3RvcyBwZXJuaWNpb3Nv
cyBwYXJhIGxhCnNvY2llZGFkIHNhbnRhZmVzaW5hIGVuIGdlbmVyYWwsIHBhcmEgZWwgZWplcmNp
Y2lvIGRlbCBhcnRlIGRlIGxhCmluZm9ybeF0aWNhIGVuIFNhbnRhIEZlLCB5IHBhcmEgZWwgZGVz
YXJyb2xsbyB5IGRpZnVzafNuIGRlbCBTb2Z0d2FyZQpMaWJyZSBlbiBwYXJ0aWN1bGFyLgoKTnVt
ZXJvc2FzIG9yZ2FuaXphY2lvbmVzIGFjYWTpbWljYXMgY29tbyBsYSBVbml2ZXJzaWRhZCBOYWNp
b25hbCBkZQpCdWVub3MgQWlyZXMgKFVCQSksIGxhIFNvY2llZGFkIEFyZ2VudGluYSBkZSBJbmZv
cm3hdGljYSAoU0FESU8pLCBsYQpBc3NvY2lhdGlvbiBmb3IgQ29tcHV0ZXIgTWFjaGluZXJ5IChB
Q00pLCBlbCBJbnN0aXR1dGUgb2YgRWxlY3RyaWNhbCBhbmQKRWxlY3Ryb25pYyBFbmdpbmVlcnMg
KElFRUUpLCBhc+0gY29tbyBvcmdhbml6YWNpb25lcyBlbXByZXNhcmlhcyBkZQpBcmdlbnRpbmEg
Y29tbyBDSUNPTVJBLCBDQUJBU0UsIENFU1NJIGhhbiBhZHZlcnRpZG8geSBhcmd1bWVudGFkbyBx
dWUgbm8KZXMgY29udmVuaWVudGUgZXhpZ2lyIG1hdHJpY3VsYWNp824gcGFyYSBlbCBlamVyY2lj
aW8gZGUgbGEgaW5mb3Jt4XRpY2EuCgpBbGd1bm9zIGVubGFjZXMgZGUgaW50ZXLpcyBwYXJhIHBv
ZGVyIGNvbm9jZXIgbWFzIGVuIHByb2Z1bmRpZGFkIGxhcwphbWVuYXphcyBxdWUgZXN0ZSBwcm95
ZWN0byBkZSBsZXkgcmVwcmVzZW50YToKCmh0dHA6Ly93d3cudmlhbGlicmUub3JnLmFyLz9wPTM3
NzEKaHR0cDovL25vYWxhbWF0cmljdWxhLndvcmRwcmVzcy5jb20vCgpNdWNoYXMgZ3JhY2lhcyBw
b3Igc3UgdGllbXBvLgoKTm9tYnJlIHkgQXBlbGxpZG8gLSBETkkK
------=_Part_37868_5364389.1179417840312--