Nokia Cep Telefonlarını Perl ile Programlayın

0
FZ

Görüşler

0
zahter
Mobile phone hacking mi basliyor? :)
Aslinda ben bunu birazda nokiada ki bazi salakliklarin duzelmesi icin istiyorum.Zira menuleri ozellestirilemiyor.Aramak istediginiz bir numarayi rehberde kayitli oldugu halde elle cevirmek istediginizde bir numaranin onundeki 4 haneyi de degistirseniz rehberdeki isim gorunuyor.Bunu siemens telefonlarda da gordum ve bunu 2-3 seneye yakindir biliyorum.Duyduguma gore cep telefonlari firmalari aralarinda uyumluluk olmasi icin(or:nokiadaki resimli mesaj ,siemens te de gorulebilmeli) ayni sistemi kullaniyorlarmis.Bu yuzden birinde olan ozellik digerinde oldugu gibi hata da digerinde oluyor:)
Ornek olarak Xman'in cebi 0542 1234567 olsun ve de numarayi cevirecek cebin rehberinde kayitli olsun.Siz 0542 1234567 yerine 9542 1234567 (9 yerine herhangi bir sayi yazin) yazinca araniyor/calling... ekraninda Xman yaziyor.
or:2 0542 1234567 yerine 0535 1234567 yazarsanizda rehberdeki Xman ekranda gorunuyor ve ornekler cogaltilabilir.Numara farkli ama gorunen isim ayni:p Ne yapiyor acaba isim&numara icin sadece ondeki 4 numaraya mi bakiyor.
2. bloktaki (1234567,xxxxxxx) sayilari degistirince olmuyor sanirim.Gecmis aramalarla ilgili problemler ise bambaska.
Belkide son zamanlardaki yanlis aramalarin artmasi bu yuzdendir.Boyle hatalarin duzeltilmesini beklemektense,biz duzeltebilsek keske.
0
tongucyumruk
Bari parrot koysunlar da Python da çalıştırabilelim.
Görüş belirtmek için giriş yapın...

İlgili Yazılar

Perl Öğreniyoruz - 4

cayfer

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ı?

Perl Öğreniyoruz - 3

cayfer

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ı).

`Diğerleri(miz) için Flash´

butch

Perl::Flash ın beta sürümünün hazır olduğu Slashdot da duyuruldu. Artık Perl kullanarak Flash animasyonları yapılabilecek. Proje hakkında geniş bilgi burada...

Kevin Poulsen iş başında!

sundance

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.

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.