- 25 Ara 2016
- 3,806
- 2,404
- 163
- 54
Görseli görüntülemek için izniniz yok! Lütfen giriş yapınız veya üye olunuz.
IMEI Numarasının Son Hanesini Bulma
15 rakamlı olan imei numarasının son hanesi kontrol amaçlıdır ve Luhn Algoritmasına göre belirlenir.
Örnek olarak: 36184503753229? şeklinde bir imei oluşturalım ve son haneyi ? şeklinde ifade edelim.
İlk haneden başlayıp birer atlayarak toplayalım.
3+1+4+0+7+3+2=20
Geri kalan sayıları 2 ile çarpıp basamak değerlerini toplayalım.
6*2=12 -> 1+2=(3) + 8*2=16 -> 1+6=(7) + 5*2=10 -> 1+0=(1) + 3*2=(6) + 5*2=10 -> 1+0=(1) + 2*2=(4) + 9*2=18 -> 1+8=(9) = 31
20+31=51
Luhn algoritmasına göre sayının 10'a bölünmesi gerektiği için son rakamımız 60-51=9 olmalıdır. bunun sonucunda imei numarası 361845037532299 olarak belirlenir.
Sonuç iki haneli yani 10 çıkarsa, sonuç 0 olur.
Bir yazılımda kullanmak isterseniz eğer:
Kod:
<%
'-------------------------------------------------------------------------------------------------Luhn
Function LuhnAlgoritma(KontrolEdilecek)
For i = 2 To Len(KontrolEdilecek) Step 2
CiftKarakter = CiftKarakter & (CInt(Mid(KontrolEdilecek, i, 1)) * 2)
' Response.Write "CiftKarakter:"&Mid(KontrolEdilecek, i, 1)&"x2("&CiftKarakter&")<hr>"
Next
For i = 1 To Len(CiftKarakter)
Toplam = Toplam + CInt(Mid(CiftKarakter, i, 1))
Next
For i = 1 To Len(KontrolEdilecek) Step 2
Toplam = Toplam + CInt(Mid(KontrolEdilecek, i, 1))
' Response.Write "TekKarakter:"&Mid(KontrolEdilecek, i, 1)&"<hr>"
Next
LuhnAlgoritma = KontrolEdilecek&" - "&(10 - (Toplam Mod 10))
End Function
'-------------------------------------------------------------------------------------------------KARAKTER TAMAMLA
Function Fn_Karakter(Veri,Karakter,Boyut)
' Response.Write Fn_Karakter("253","0","6") 'Çıktı:000253
If len(Veri) < Boyut Then
Fn_Karakter = String(Boyut-Len(Veri),""&Karakter&"") & Veri
Else
Fn_Karakter = Veri
End If
End Function
'-------------------------------------------------------------------------------------------------ÜRETME
tac="35000001"
SonImei=0
For ix=SonImei+1 To SonImei+2000
ImeiSira=Fn_Karakter(ix,"0",6)
Response.Write LuhnAlgoritma(tac&ImeiSira)
Response.Write "<hr>"
Next
%>============================================
Ülkemizde imei değiştirmek Yasal Değildir. Suç teşkil eder. Forumumuzda verilen bu tür bilgiler , bilgi amacıyla verilmiştir. Sorumluluk size aittir.
Moderatör tarafında düzenlendi:
