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,078 Member: 56090 Status: Online Thanks: 33 Thanked 98 Times in 46 Posts	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,270 Member: 468587 Status: Offline Sonork: 100.1612429 Thanks: 318 Thanked 677 Times in 404 Posts	Last edited by MOURAD™; 06-09-2012 at 15:11.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
thread	Thread Starter	Forum	Replies	Last Post
DLS Box and new unlock algo.	majid	Nokia Legacy Phones ( DCT-1 , DCT-2 , DCT-3 , DCT-L )	0	03-15-2002 17:33
Need al info about imei calc and algos!!	Gsmhq	Nokia Legacy Phones ( DCT-1 , DCT-2 , DCT-3 , DCT-L )	4	01-16-2002 10:31
Free solutions for GSM. Support for all free. Nokia Authority Id calculation algo !	te	Main Sales Section	6	12-15-2001 13: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 Product Supporter Join Date: Sep 2005 Location: FT_OK Then Age: 32 Posts: 376 Member: 177036 Status: Offline Thanks: 351 Thanked 533 Times in 127 Posts	is that all? no procedure call?

06-07-2012, 03:52	#3 (permalink)
ilanm Freak Poster Join Date: Sep 2005 Location: Toronto, Canada Posts: 374 Member: 178829 Status: Offline Thanks: 11 Thanked 23 Times in 19 Posts	Can someone confirm this?

06-07-2012, 10:20	#4 (permalink)
mouradsamsung Freak Poster Join Date: Dec 2005 Location: TUNISIA Posts: 161 Member: 208914 Status: Offline Thanks: 36 Thanked 368 Times in 45 Posts	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: 374 Member: 178829 Status: Offline Thanks: 11 Thanked 23 Times in 19 Posts	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: 710 Member: 653776 Status: Offline Sonork: 100.1584146 Thanks: 28 Thanked 110 Times in 83 Posts	As a newbie i found the first corrected algo more easy. Regards

06-08-2012, 09:43	#15 (permalink)
darmiles Product Supporter Join Date: Sep 2005 Location: FT_OK Then Age: 32 Posts: 376 Member: 177036 Status: Offline Thanks: 351 Thanked 533 Times in 127 Posts	my version DORO.exe - 4shared.com - online file sharing and storage - download