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, Divx, altyazı ve başının çaresine bakabilmek üzerine

sundance
6 Aralık 2004, 9 dakika okuma süresi

Uzun zamandır izlemek istediğim, The Hustler'ı seyretmek için sonunda zaman bulabildim. Paul Newman'ın 1962'de başrolünü oynadığı bu film, yıllar sonra Color of Money'e de konu olacak Fast Eddie Felson'ın hikayesini anlatıyordu. Dahası Unix Junkie makalemde bahsettiğim insan modelinin belki de en iyi örneklerinden biriydi.

Fakat küçük bir problem vardı, filmindeki hiçbir dialoğu kaçırmamak için altyazıya ihtiyaç duyuyordum, fakat benim elimdeki film iki cd olmasına rağmen bulabildiğim yegane ingilizce altyazı üç cdlikti.

Durumdan vazife çıkartmaya zaten hazır bir FM sakini olarak, sıvadım kolları ve küçük bir perl betiki yazdım bu işi yapması için. Film hatırladığımdan bile güzeldi, ama böyle bir durumda bir beş, on dakika içinde problemi çözebilmek daha bile keyifliydi, GNU/Linux kullanıyor olmak keyifliydi :)

Perl Öğreniyoruz - 4

cayfer
12 Mayıs 2002, 7 dakika okuma süresi

Daha önceki bölümler:
1. bölüm
2. bölüm
3. bölüm
Bu hafta konumuzda çağrışımlı listeler var, Haftaya "regexp"ler! Bu arada merak ettiğim birşey var: Acaba bu Perl tefrikasından yararlanan var mı?

Neden Mac ?

sundance
13 Ekim 2000, 2 dakika okuma süresi

Tamam kabul ediyorum, eğer evlerinin garajında Steve Wozniak ve Steve Jobs ilk Apple bilgisayarı yapmasalardı veya biraz geç kalsalardı belki de şu anda bilgisayar kullanmak için ehliyet almamız gerekecekti*. Fakat tescilli bir "geek" olarak ısrarla söylüyorum ki bilgisayardan anlamayanlar Apple kullansın, ben PC'den memnunum :p

Perl Öğreniyoruz - 3

cayfer
5 Mayıs 2002, 5 dakika okuma süresi

2. bölümün sonunda bu hafta "listeler"den söz edeceğimi söylemiştim.

Listeler (arrays) Perl'in çok güçlü olduğu konulardan birisidir. Perl'de bir listeden söz ederken değişken adının başına bir @ işareti koymalısınız. (Hatırlıyorsanız sayıl (scalar) değişkenlerin adı $ işareti ile başlardı).

Kevin Poulsen iş başında!

sundance
17 Ekim 2006, 1 dakika okuma süresi

Güvenlik dünyasının meşhur kötü çocuklarından, eski Security Focus yazarı Kevin Paulsen, yazdığı bir Perl scriptle U.S. National Sex Offender Registry kayıtları ile MySpace kullanıcılarını karşılaştırıp, bir cinsel suç zanlısının tespitine yardımcı olmuş.

Kendisini daha çok Los Angeles'daki KISS FM'in 102. arayan kişiye verdiği Porsche 944 S2'i kazanabilmek için, bütün telefon konuşmalarını durduran kişi olarak tanıdığımız Dark Dante kod adlı Poulsen yıllardır bilgi güvenliği alanında gazetecilik yapmakta, hatta zaman zaman bu olaydaki gibi otoritelere yardımcı olmakta.