Doro Algo - GSM-Forum

abdoune · 06-06-2012, 23:40

case (list.ItemIndex) of
0..3: begin //doro 345 409 410 610
for i:=7 to 14 do begin
v1:=strtoint(imei.Text[i]);
v2:=strtoint(imei.Text[i+1]);
v1:=v1+v2+v2; if (v1>10) then v1:= v1 mod 10;
nck:=nck+inttostr(v1) end ;result.text:=' NCK : '+nck+#13#10+
'- Input a non-accepted Sim, enter the code.'+#13#10+
'- Without Sim, type *#787464# and enter code.';
end;

Salam

darmiles · 06-07-2012, 02:51

is that all? no procedure call?

ilanm · 06-07-2012, 03:52

Can someone confirm this?

mouradsamsung · 06-07-2012, 10:20

is there any beta tester can put his imei here to test this algo ?

helpinterchange · 06-07-2012, 15:34

Quote:

Originally Posted by abdoune

case (list.ItemIndex) of
0..3: begin //doro 345 409 410 610
for i:=7 to 14 do begin
v1:=strtoint(imei.Text[i]);
v2:=strtoint(imei.Text[i+1]);
v1:=v1+v2+v2; if (v1>10) then v1:= v1 mod 10;
nck:=nck+inttostr(v1) end ;result.text:=' NCK : '+nck+#13#10+
'- Input a non-accepted Sim, enter the code.'+#13#10+
'- Without Sim, type *#787464# and enter code.';
end;

Salam

Hello

Only a little mistake in

if (v1>10) then v1:= v1 mod 10;

that generates some error codes like :

IMEI CODE OK CODE CALC
867453010055336 21005195 210105195
356694042881995 88840979 888410979
351948046251257 86027529 861027529
012808002677658 04401961 04401961
012525000137895 00277369 00277369

7 8 9 10 11 12 13 14 15
0 1 0 0 5 5 3 3 6
2 1 0 10 15 11 9 15
2 1 0 10 5 1 9 5
210105195

7 8 9 10 11 12 13 14 15
0 4 2 8 8 1 9 9 5
8 8 18 24 10 19 27 19
8 8 8 4 10 9 7 9
888410979

to fix this change to

Code:

procedure TForm1.btn1Click(Sender: TObject);
var
  i:Integer;
  v1,v2 :integer;
  nck:string;
begin
//doro 345 409 410 610
for i:=7 to 14 do
begin
 v1:=strtoint(imei.Text[i]);
 v2:=strtoint(imei.Text[i+1]);
 v1:=v1+v2+v2;

 if (v1 >= 10) then v1:= v1 mod 10;

 nck:=nck+inttostr(v1) ;
end;
 edtnck.text:=nck;
end;

Download demo
DepositFiles

Regards

Helpy

helpinterchange · 06-07-2012, 19:11

New way to calc

Code:

function CalcDoro(imei:string):string;
var
  imei2, nck : string;
  i,d : byte;
begin
  imei2 := copy(imei,2,length(imei)-1);
  nck:='';
  for i:=7 to length(imei2) do
  begin
    d := StrToInt(imei2[i])*2 + StrToInt(imei[i]);
    if (d >= 10) then d:= d mod 10;
     nck := nck + IntToStr(d);
  end;
  Result := copy(nck,1,8);
end;

Regards

Helpy

abdoune · 06-07-2012, 20:03

Quote:

Originally Posted by helpinterchange

New way to calc

Code:

function CalcDoro(imei:string):string;
var
  imei2, nck : string;
  i,d : byte;
begin
  imei2 := copy(imei,2,length(imei)-1);
  nck:='';
  for i:=7 to length(imei2) do
  begin
    d := StrToInt(imei2[i])*2 + StrToInt(imei[i]);
    if (d >= 10) then d:= d mod 10;
     nck := nck + IntToStr(d);
  end;
  Result := copy(nck,1,8);
end;

Regards

Helpy

thanks for the correction, we can you use only 3variables in this simply code:

Code:

 var
v1,i:byte;
nck:string;
begin
 for i:=7 to 14 do begin
 v1:=strtoint(imei.Text[i])+2*(strtoint(imei.Text[i+1]));
 if (v1>9) then v1:= v1 mod 10;
 nck:=nck+inttostr(v1) end ;
 label1.Caption:= '   NCK : '+nck+#13#10+
 '-Input a non-accepted Sim,enter the code.'+#13#10+
 '-Without Sim,type *#787464# ,enter the code.';
end;

Salam

ilanm · 06-07-2012, 20:18

Whats the #13#10 have to do with the algo? Isnt the code just 8 digits?

**orbita** · 06-07-2012, 20:30

Quote:

Originally Posted by ilanm

Whats the #13#10 have to do with the algo? Isnt the code just 8 digits?

What does #13#10 stand for, in Delphi code?

LBOZ_GSM · 06-07-2012, 20:45

Quote:

Originally Posted by helpinterchange

Download demo
DepositFiles

Regards

Helpy

works fine for Doro 410GSM

helpinterchange · 06-07-2012, 20:48

Quote:

Originally Posted by abdoune

thanks for the correction, we can you use only 3variables in this simply code:

Code:

 var
v1,i:byte;
nck:string;
begin
 for i:=7 to 14 do begin
 v1:=strtoint(imei.Text[i])+2*(strtoint(imei.Text[i+1]));
 if (v1>9) then v1:= v1 mod 10;
 nck:=nck+inttostr(v1) end ;
 label1.Caption:= '   NCK : '+nck+#13#10+
 '-Input a non-accepted Sim,enter the code.'+#13#10+
 '-Without Sim,type *#787464# ,enter the code.';
end;

Salam

Ok, only 1 variable

procedure TForm1.btn3Click(Sender: TObject);
var i:byte;
begin
for i:=7 to 14 do
nck.text:= nck.text + IntToStr((StrToInt(imei.text[i+1])*2 + StrToInt(imei.text[i])) mod 10);
end;

Thanks Brother

Regards

Helpy

helpinterchange · 06-08-2012, 01:29

Quote:

Originally Posted by helpinterchange

Ok, only 1 variable

procedure TForm1.btn3Click(Sender: TObject);
var i:byte;
begin
for i:=7 to 14 do
nck.text:= nck.text + IntToStr((StrToInt(imei.text[i+1])*2 + StrToInt(imei.text[i])) mod 10);
end;

Thanks Brother

Regards

Helpy

Now, without variables, and without use of FOR..TO sentences.

Code:

function Calc_Doro(imei:string; n:byte):string;
begin
  if n=15 then Calc_Doro:=''
  else Calc_Doro := IntToStr((StrToInt(imei[n+1])*2 + StrToInt(imei[n])) mod 10) + Calc_Doro(imei,n+1);
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
  nck.text := Calc_Doro(imei.text,7);
end;

Try it, work really.

Helpy

abdeslam728 · 06-08-2012, 02:02

As a newbie i found the first corrected algo more easy.
Regards

MOURAD™ · 06-08-2012, 09:36

darmiles · 06-08-2012, 09:43

my version

DORO.exe - 4shared.com - online file sharing and storage - download

06-06-2012, 23:40	#1 (permalink)
abdoune No Life Poster Join Date: Feb 2004 Location: Algeria Posts: 2,305 Member: 56090 Status: Offline Thanks Meter: 162	Doro Source case (list.ItemIndex) of 0..3: begin //doro 345 409 410 610 for i:=7 to 14 do begin v1:=strtoint(imei.Text[i]); v2:=strtoint(imei.Text[i+1]); v1:=v1+v2+v2; if (v1>10) then v1:= v1 mod 10; nck:=nck+inttostr(v1) end ;result.text:=' NCK : '+nck+#13#10+ '- Input a non-accepted Sim, enter the code.'+#13#10+ '- Without Sim, type #787464# and enter code.'; end; Salam Last edited by abdoune; 06-06-2012 at 23:50.*

06-08-2012, 09:36	#14 (permalink)
MOURAD™ No Life Poster Join Date: Mar 2007 Location: Guangzhou-China Posts: 1,289 Member: 468587 Status: Offline Sonork: 100.1612429 Thanks Meter: 682	Last edited by MOURAD™; 06-09-2012 at 15:11.

Similar Threads
thread	Thread Starter	Forum	Replies	Last Post
DLS Box and new unlock algo.	majid	Nokia Legacy Phones ( DCT-1 ,2 ,3 ,L )	0	03-15-2002 18:33
Need al info about imei calc and algos!!	Gsmhq	Nokia Legacy Phones ( DCT-1 ,2 ,3 ,L )	4	01-16-2002 11:31
Free solutions for GSM. Support for all free. Nokia Authority Id calculation algo !	te	Main Sales Section	6	12-15-2001 14:57
NEW FLASHING BOX :-)FOR NEW ALGO	Toto	Main Sales Section	2	09-03-2001 14:07
Anybody able to find out algo of new X35.....	Toto	x1x to x45/x50	0	06-10-2001 22:39

06-07-2012, 02:51	#2 (permalink)
darmiles No Life Poster Join Date: Sep 2005 Location: Resign Posts: 525 Member: 177036 Status: Offline Thanks Meter: 934	is that all? no procedure call?

06-07-2012, 03:52	#3 (permalink)
ilanm Freak Poster Join Date: Sep 2005 Location: Toronto, Canada Posts: 378 Member: 178829 Status: Offline Thanks Meter: 24	Can someone confirm this?

06-07-2012, 10:20	#4 (permalink)
mouradsamsung Freak Poster Join Date: Dec 2005 Location: TUNISIA Posts: 228 Member: 208914 Status: Offline Thanks Meter: 396	is there any beta tester can put his imei here to test this algo ?

06-07-2012, 20:18	#8 (permalink)
ilanm Freak Poster Join Date: Sep 2005 Location: Toronto, Canada Posts: 378 Member: 178829 Status: Offline Thanks Meter: 24	Whats the #13#10 have to do with the algo? Isnt the code just 8 digits?

06-08-2012, 02:02	#13 (permalink)
abdeslam728 No Life Poster Join Date: Dec 2007 Posts: 702 Member: 653776 Status: Offline Sonork: 100.1584146 Thanks Meter: 94	As a newbie i found the first corrected algo more easy. Regards

06-08-2012, 09:43	#15 (permalink)
darmiles No Life Poster Join Date: Sep 2005 Location: Resign Posts: 525 Member: 177036 Status: Offline Thanks Meter: 934	my version DORO.exe - 4shared.com - online file sharing and storage - download