IMEI Checksum (Luhn) Algoritması*
Wikipedia Luhn Algoritması :**
Delphi Fonksiyonu**:*
function Luhn_Hesapla(S:String):Char;
Var
i,F,V,Sum:integer;
begin
F:=2;
Sum:=0;
for i:=Length(S) downto 1 do
*begin
* if Not (S In ['0'..'9']) Then Exit;
* V:=F*(Ord(S)-Ord('0'));
* if V>9 Then V:=(V Mod 10)+1;
* Sum:=Sum+V;
* F:=3-F;
*end;
Sum:=Sum Mod 10;
if Sum0 Then Sum:=10-Sum;
Result:=Chr(Sum+$30);
end;
Wikipedia Luhn Algoritması :**
Misafirler için gizlenen link, görmek için
Giriş yap veya üye ol.
Delphi Fonksiyonu**:*
function Luhn_Hesapla(S:String):Char;
Var
i,F,V,Sum:integer;
begin
F:=2;
Sum:=0;
for i:=Length(S) downto 1 do
*begin
* if Not (S In ['0'..'9']) Then Exit;
* V:=F*(Ord(S)-Ord('0'));
* if V>9 Then V:=(V Mod 10)+1;
* Sum:=Sum+V;
* F:=3-F;
*end;
Sum:=Sum Mod 10;
if Sum0 Then Sum:=10-Sum;
Result:=Chr(Sum+$30);
end;