Anti-Spam E-Posta Adresi Oluşturma (Şifreli IP Adresiyle)

Bugün Perl Rahipleri tapınağında okuduğum ve spam e-posta konusu ile ilgili bu önemli makaleyi ve Perl kodunu sizinle paylaşmak istedim.

Eğer bir şekilde web sayfanızda e-posta adresinizi yayınlamak istiyorsanız yukarıdaki makaledeki Perl betiğini (script) kullanarak oluşturacağınız dinamik bir e-mail adresinin içine o anda sizin e-posta adresinizi çekmeye çalışan robota ya da spamciye dair bilgileri gömebiliyorsunuz. Nasıl yani diyenler okumaya devam edebilir ;-)

Yani benimadresim-spamcinin_sifrelenmis_IP_ve_zaman_bilgisi@mydomain.com gibi bir adres üretiliyor dinamik olarak. Eğer qmail gibi benimadresim-hedehodo@mydomain.com şeklindeki adresleri benimadresim@mydomain.com adresinize yönlendirme yeteneğine sahip bir e-posta sunucusu üzerinde iseniz size gelen spam postadaki To: alanına bakarak ve bunu çözerek (deşifre ederek) hangi IP tarafından ne zaman çekilmiş olduğunu öğrenebiliyorsunuz. Bu arada sözkonusu bilgilerin şifrelenmesi için Blowfish şifreleme algoritması kullanılıyor.

İlgili Yazılar

Perl programcısı olmaktan gurur duyanlar için özel !

sundance
23 Temmuz 2003, 1 dakika okuma süresi

Perl'ün yaratıcısı Larry Wall, alışageldiğimiz tarzında yaptığı sunumla, 7. geleneksel Perl Soğanının Durumu isimli toplantıda yine herkesi kırdı, geçirdi :)

'Biz, isteksizler,
cahiller tarafından öncülük edilen bir yolda,
imkansızı gerçekleştirmeye çalışıyoruz.
O kadar uzun süredir o kadar çok şeyi, (elimizdeki) o kadar az şeyle gerçekleştirdik ki
Artık (elimizdeki) hiçbir şeyle, herhangibir şeyi yapabilecek hale yetkinliğe eriştik.'

ePerl ile Kolay Internet Programlama

perlci
19 Ocak 2005, 1 dakika okuma süresi

ePerl modülü ile Perl kodlarini tıpkı ASP ya da PHP gibi HTML dosyalarının içine gömebilirsiniz. Böylelikle daha kolay bir şekilde Perl kullanmış olursunuz. Bu modülü kullanabilmeniz için de tabii ki biraz Perl bilmeniz gerekir.
Daha fazla bilgiyi http://www.eperl.net adresinde bulabilirsiniz.

Editörün Notu: Rıza Çelik'e Perl'e katkılarından ötürü teşekkürler.

Perl 20. Doğum Günü ve Perl 5.10 Çıktı

anonim
23 Aralık 2007, 2 dakika okuma süresi

Geçtiğimiz günlerde Perl'in 20. yaşgünü tüm dünyada coşku ile kutlandı. Doğum gününden 1 gün önce Perl Vakfı Perl 5.10'u duyurdu.

Perl 5.10 da görünen en önemli değişiklik smart match operator. Bir tür karşılaştırma yapmamıza yarayan operatör array içinde aradığımız scalar değeri bulmamızı sağlıyor. Yeni operatörümüz: "~~". Örnek vermek gerekirse $needle scalarimizi array @haystack içinde arıyorsak, kolayca yeni operatörümüzü kullanıyoruz.

if ($needle ~~ @haystack) ...

Sonuç olarak artık Perl'de tüm kaşılaştırmalar doğru şeyi yapmamızı sağlıyor.

Perl ile insanları dans ettirebilir misiniz?

FZ
9 Eylül 2004, 1 dakika okuma süresi

Perl programlama dili ile doğaçlama program yapıp bunun sonuçlarını dinleyen insanların dans etmesini sağlayabilir misiniz? Alex Mclean, Hacking Perl in Nightclubs başlıklı fantastik makalesinde bu soruya olumlu yanıt verip işin nasıl yapılacağını anlatıyor.

Aklıma 1960´lı yıllarda tüm zamanların en fantastik müzikal deneyimlerine imza atan, IBM 7090 kullanarak müzik üreten Xenakis geliyor

Kaynak: http://ileriseviye.org/blog/index.php?p=113

Perl // Küçük Regexp El Kitabı

Ansugo
10 Aralık 2003, 18 dakika okuma süresi

Çok fazla kod yazıyor, ama bazı yerlerde tıkandığınızı hissediyorsunuz; == ile karşılaştırma yapabiliyor, ama string içinde arama yapmakta istiyorsunuz; ve en güzeli herhangi bir stringin altindan cikip cikmak istiyorsunuz, o zaman buyurun düzenli ifade cumhuriyetine.