




Numaradan İsim Değil, İsimden Numara Sorgulama.
-
Öncelikle böyle bir program varmı yokmu bilgim yok. sadece kendi geliştirmiş olduğum bir yöntemi sizinle paylaşmak istiyorum.neden sen yapmıyorsun diyenler olabilir biraz meşakatli bir yöntem bu yüzden sizlerdende bu yöntemin eksiklikleri ve nasıl geliştirilebileceği konusunda fikir istiyorum. yöntemi kullanıp yapanlar programı banada gönderirse sevinirim :)
Öncelikle yöntemden bahsetmek istiyorum. yöntem temel olarak androidlerde kim arıyor olarak bilinen programın veri tabanını kopyalamakla ilgili fakat bu işlemde hack yada ona benzer bir olay kullanmıyoruz tamamen yasal bir yolla hallediyoruz :)
1.adım yeni bir temiz gmail hesabı alıyoruz.
2.adım telefon numarası üretmek. bunun için ben vb.net kullanıcam
Dim tbt As String
Dim furki As Integer = 10
RichTextBox1.Text = "Name,Given Name,Additional Name,Family Name,Yomi Name,Given Name Yomi,Additional Name Yomi,Family Name Yomi,Name Prefix,Name Suffix,Initials,Nickname,Short Name,Maiden Name,Birthday,Gender,Location,Billing Information,Directory Server,Mileage,Occupation,Hobby,Sensitivity,Priority,Subject,Notes,Group Membership,Phone 1 - Type,Phone 1 - Value,Address 1 - Type,Address 1 - Formatted,Address 1 - Street,Address 1 - City,Address 1 - PO Box,Address 1 - Region,Address 1 - Postal Code,Address 1 - Country,Address 1 - Extended Address"
RichTextBox1.Text = RichTextBox1.Text & vbCrLf
For rex = 0 To 9999999
tbt = rex
If Len(tbt) = 1 Then
RichTextBox1.Text = RichTextBox1.Text & "Kisi" & rex & ",Soyad,,,,,,,,,,,,,,,,,,,,,,,,,* My Contacts,Mobile,+90541000000" & rex
RichTextBox1.Text = RichTextBox1.Text & vbCrLf
ElseIf Len(tbt) = 2 Then
RichTextBox1.Text = RichTextBox1.Text & "Kisi" & rex & ",Soyad,,,,,,,,,,,,,,,,,,,,,,,,,* My Contacts,Mobile,+9054100000" & rex
RichTextBox1.Text = RichTextBox1.Text & vbCrLf
ElseIf Len(tbt) = 3 Then
RichTextBox1.Text = RichTextBox1.Text & "Kisi" & rex & ",Soyad,,,,,,,,,,,,,,,,,,,,,,,,,* My Contacts,Mobile,+905410000" & rex
RichTextBox1.Text = RichTextBox1.Text & vbCrLf
ElseIf Len(tbt) = 4 Then
RichTextBox1.Text = RichTextBox1.Text & "Kisi" & rex & ",Soyad,,,,,,,,,,,,,,,,,,,,,,,,,* My Contacts,Mobile,+90541000" & rex
RichTextBox1.Text = RichTextBox1.Text & vbCrLf
ElseIf Len(tbt) = 5 Then
RichTextBox1.Text = RichTextBox1.Text & "Kisi" & rex & ",Soyad,,,,,,,,,,,,,,,,,,,,,,,,,* My Contacts,Mobile,+9054100" & rex
RichTextBox1.Text = RichTextBox1.Text & vbCrLf
ElseIf Len(tbt) = 6 Then
RichTextBox1.Text = RichTextBox1.Text & "Kisi" & rex & ",Soyad,,,,,,,,,,,,,,,,,,,,,,,,,* My Contacts,Mobile,+905410" & rex
RichTextBox1.Text = RichTextBox1.Text & vbCrLf
ElseIf Len(tbt) = 7 Then
RichTextBox1.Text = RichTextBox1.Text & "Kisi" & rex & ",Soyad,,,,,,,,,,,,,,,,,,,,,,,,,* My Contacts,Mobile,+90541" & rex
RichTextBox1.Text = RichTextBox1.Text & vbCrLf
End If
If tbt = furki * 1000 Then
furki += 1
RichTextBox1.SaveFile("d:\" & rex & ".csv")
RichTextBox1.Text = ""
End If
Next
bu örnek kodda 0541 000 00 00 ile 0541 999 99 99 nolu telefonları Kisi1 Kisi2 diyerek csv dosyasını oluşturuyoruz
3.adım google.com/contacts adresine yeni gmail hesabı ile girerek bu dosyayı yüklüyoruz.
4.adım BlueStacks adlı programı indirerek bilgisayarımıza kuruyoruz. ( programı bilmeyenler için program windows üzerinden android bir cihaz kullanmanıza olanak sağlıyor)
5.adım programı kurup çalıştırdıktan sonra gmail hesabımızla giriş yapıyoruz senk. işlemi sonrasında tüm telefon numaraları android cihaza yükleniyor.
6.adım google play store den kim arıyor programını yüklüyoruz
7.adım kim arıyora rehberimi güncelle diyoruz.
8.adım güncelleme bitti artık numaralar elimizde
sonuç
0541 000 00 00 ile 0541 999 99 99 arasındaki tüm numaralar artık elimizde ( tabi kim arıyordaki )
ben 0541 000 00 00 - 0541 001 00 00 arasını tarattım bu taratma işlemi 20 dakika sürdü bu hesaba göre toplamda 14 gün falan bilgisayarın açık kalması gerekiyor :D tabi bu sadece 0541 e bunun 0542si turkceli aveasıda var baya uzun bir fakat cihaz sayısı çoğaltılırsa işlem dahada kolaylaşabilir sanırım.
örnek numaralar
Elif Yenilmez +905410000000,Other,Sütlüce,,Sütlüce,,,,,
Fadime Yıldırım,+905410000001,Other,Turkey,,Turkey,,,,,
Aykut Demir 905410009632,Other,Turkey,,Turkey,,,,,
Bazidli Irfan,+905410000004,Other,Turkey,,Turkey,,,,,
Burçin Eryılmazgencer,+905410001111,Other,Turkey,,Turkey,,,,,
Çagrı Kendir,+905410000002,Other,Turkey,,Turkey,,,,,
Gamze Zavallı,+905410000062,Other,Turkey,,Turkey,,,,,
Hakan Ilhan,+905410000055,Other,Istanbul,,Istanbul,,,,,
Kaysu Vergi Mimarsinan+905410000284,Other,Turkey,,Turkey,,,,,
Mehmet Gülşen,+905410002223,Other,Turkey,,Turkey,,,,,
Mehmet Özkaraman,+905410004040,Other,Turkey,,Turkey,,,,,
Meryem Taş,+905410005815,Other,Turkey,,Turkey,,,,,
Orhan Demirdaş+905410006622,Other,Turkey,,Turkey,,,,,
Özgür Doğan+905410001905,Other,Turkey,,Turkey,,,,,
Ziraat,ziraat+905410007965,Other,Turkey,,Turkey,,,,,
yorumlarınızı bekliyorum. ilk konum kural hatası yaptıysam şimdiden affola :)
-
Üşenmeden uzun uzun yazıp güzelce anlatmışsın.
Teşekkürler ilgin ve bilgilendirmen için.
Birazdan ustadlar gelir ben sıramı devredeyim :)
-
sanırım bu olaya sosyal mühendslik deniyor. :)
birileri programla toparlasada biz sadece ismi igirip ara butonuna bassak :D
-
Ağır kasmışın koçum, sniffler alırız nerden hangi servisle çekiosa=)
-
HolyOne bunu yazdı
Ağır kasmışın koçum, sniffler alırız nerden hangi servisle çekiosa=)
şeyhim adam sosyal mühendislikle yaklaşmış
şu sniff olayını açabilirmisin
-
"Üşenmeden uzun uzun yazıp güzelce anlatmışsın.
Teşekkürler ilgin ve bilgilendirmen için.
Birazdan ustadlar gelir ben sıramı devredeyim :)"
rica ederim hocam :)
"sanırım bu olaya sosyal mühendslik deniyor. :)
birileri programla toparlasada biz sadece ismi igirip ara butonuna bassak :D"
aynı şeyi bende istiyorum hocam internette aradım bulamadım benden bu kadarı geldi artık programı bekliyorum :P
"Ağır kasmışın koçum, sniffler alırız nerden hangi servisle çekiosa=)"
üstadım daha yeniyim tbt de elimden bu geldi :D inşallah zamanla öğrenicem her yöntemi :)
-
HolyOne bunu yazdı
Ağır kasmışın koçum, sniffler alırız nerden hangi servisle çekiosa=)
Çocuğa pm ile balık tutmayı öğret. :-)
-
çizik
numanbaba tarafından 08/May/14 23:38 tarihinde düzenlenmiştir -
10.000.000 :)) sadece benim aldıklarım
bunda numara üretmesi çok uzun sürüyor isterseniz ben size sadece 543 535 532 vb.. lü numaraları üreteyim vereyim siz csv olarak ayarlayın zaten alan aldı adaffixten ip banlamaya başladılar ne kadar çok sorgu o kadar çok ban :)
-
kim arıyordan, ordan burdan güncelledikçe çok sağlam bi telefon arşivi olur elinde hocam. hatta üşenmezsen 118 li hatlardan şu numara kimin bu numara kimin diye sıradan sorarsın, bilgi alabildiklerini de veritabanına eklersin, sonra onu çok sağlam fiyatlara pazarlayabilirsin :)
proje sağlam, önü açık, iş görür bence ;)
-
ElizaBeTH bunu yazdı
10.000.000 :)) sadece benim aldıklarım
bunda numara üretmesi çok uzun sürüyor isterseniz ben size sadece 543 535 532 vb.. lü numaraları üreteyim vereyim siz csv olarak ayarlayın zaten alan aldı adaffixten ip banlamaya başladılar ne kadar çok sorgu o kadar çok ban :)
Nerede duruyor şimdi o güzel numaracıklar???
3-5 tane ünlüyü,para babasını vakfa derneğe yardım topluyoruz diye arasak öğrencilerin yıllık bursları çıkar ( Ayyy kıyamam çok iyi niyetliyim :P )