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

0
FZ
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: Engellilere Yardım Eden Programlama Dili

FZ

Perl'ü hemen her şey için kullanıyoruz; Web geliştirimi, veri işleme, sistem yönetimi hatta biyolojik araştırmalar için. Çoğumuz Perl'ü bu işlerden birisi için kullandık. Ancak sadece bir kaç kişi Perl'ü grafik arabirimli (GUI) son-kullanıcı programları oluşturmak için kullanmıştır ve bildiğim kadarıyla, bu dünyada sadece iki kişi Perl'ü engellilerin hayatını kolaylaştırmak için kullandı: Jon Bjornstad ve ben. Bazı insanlar, bizim Perl'ü kullanma şeklimizi özel bir durum olarak görebilirler fakat benim hikayem size, yazılım geliştirebilen herhangi bir babanın, çocuğu için yapacağını yaptığımı gösterecek.

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

anonim

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 Öğreniyoruz - 2

cayfer

Geçen hafta çözdüğümüz örneği bir de Perl'in özelliklerinden yararlanarak çözelim.

Editörün notu: Perl öğreniyoruz yazı dizisinin ikincisini okuyorsunuz. Sabırsız olanlarınız için cayfer.bilkent.edu.tr incelenmesi gereken bir adres.

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

sundance

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.'

Perl için FMOD Kütüphanesi

mustafa_

Fmod for Perl, FMOD müzik ve ses efektleri sistemleri kütüphanesine erişmek için geliştirilmiş bir Perl eklentisidir.