Code:
function BBIMEI(str:pchar):string ;
const
imei1 :Array[0..9] of string = ('63','62','61','60','67','66','65','64','6B','6A');
imei2 :Array[0..9] of string = ('DA','DB','D8','D9','DE','DF','DC','DD','D2','D3');
imei3 :Array[0..9] of string = ('94','95','96','97','90','91','92','93','9C','9D');
imei4 :Array[0..9] of string = ('92','93','90','91','96','97','94','95','9A','9B');
imei5 :Array[0..9] of string = ('C1','C0','C3','C2','C5','C4','C7','C6','C9','C8');
imei6 :Array[0..9] of string = ('B8','B9','BA','BB','BC','BD','BE','BF','B0','B1');
imei7 :Array[0..9] of string = ('A9','A8','AB','AA','AD','AC','AF','AE','A1','A0');
imei8 :Array[0..9] of string = ('A7','A6','A5','A4','A3','A2','A1','A0','AF','AE');
imei9 :Array[0..9] of string = ('BB','BA','B9','B8','BF','BE','BD','BC','B3','B2');
imei10:Array[0..9] of string = ('AD','AC','AF','AE','A9','A8','AB','AA','A5','A4');
imei11:Array[0..9] of string = ('C7','C6','C5','C4','C3','C2','C1','C0','CF','CE');
imei12:Array[0..9] of string = ('72','73','70','71','76','77','74','75','7A','7B');
imei13:Array[0..9] of string = ('D3','D2','D1','D0','D7','D6','D5','D4','DB','DA');
imei14:Array[0..9] of string = ('9A','9B','98','99','9E','9F','9C','9D','92','93');
imei15:Array[0..9] of string = ('8D','8C','8F','8E','89','88','8B','8A','85','84');
var
i,i1:integer;
res:string;
begin
result:='';
for i:=0 to 14 do begin
i1:=i;
case i1 of
0 :result:=result+imei1[strtoint(str[i])];
1 :result:=result+imei2[strtoint(str[i])];
2 :result:=result+imei3[strtoint(str[i])];
3 :result:=result+imei4[strtoint(str[i])];
4 :result:=result+imei5[strtoint(str[i])];
5 :result:=result+imei6[strtoint(str[i])];
6 :result:=result+imei7[strtoint(str[i])];
7 :result:=result+imei8[strtoint(str[i])];
8 :result:=result+imei9[strtoint(str[i])];
9 :result:=result+imei10[strtoint(str[i])];
10:result:=result+imei11[strtoint(str[i])];
11:result:=result+imei12[strtoint(str[i])];
12:result:=result+imei13[strtoint(str[i])];
13:result:=result+imei14[strtoint(str[i])];
14:result:=result+imei15[strtoint(str[i])];
end;
end;
result:='01001C0080FE1400'+result+'0005030000';
end; Can be written more nice, but it work.
Phone must be in factory (no application linked) for this.