Program to read a sec. code...

[MrHazeem]

Hello..

Can any one help me to develop a small program using BORLAND C++ BUILDER or C++ LANG. to read a security code from nokia 6120 TDMA for ex. ...?
P.S.: I'm a programmer ..
Thanks in advance ...

Abed
Nokia Monster

[etgo]

theres another easier way than making a small program to read sec codes..

[UNLIMITED Team]

theres another easier way than making a small program to read sec codes..

please check the date of this thread :D

[OTMAN-GSM]

hahahahahahahha.....................;;;;;

[thecult]

:D :D it's curious, this was posted in year 2002, and now (2007) Nokia 6120 is an actual phone again

[CrossX]

If dont have tdma or cdma box Use diego soft it´s free and it could read spc, sec. code, esn etc, etc.
good luk

[Dave.W]

did you see the date 2002???

this is talking about Nokia 6120, the phone with an antenna! DCT3! old school, you know?!

[ackxxx]

I have the source ready 4 for read/write sec.code of msm qualcomm like LG U880/900/310/...
regardz && sorry4OT

Ack***
---

[MobSol]

I have the source ready 4 for read/write sec.code of msm qualcomm like LG U880/900/310/...
regardz && sorry4OT

Ack***
---

get 'em uploaded so many mates avail on it :)

[ackxxx]

get 'em uploaded so many mates avail on it :)
ok

procedure TFormMain.Btn_ReadLockClick(Sender: TObject);
var pck : t_intvect;
i : integer;
begin
if not(FormMain.InitializeCOM) then exit;
setlength(pck,133);
pck[0] := $26;
pck[1] := $52;
for i:=2 to 133 do
pck[i] := $00;
DO_CMD(pck,True,True,False);
pck := ReadCMD;
if pck[0] = $13
then
else EdtUSER_CODE.Text := Char(pck[3])+Char(pck[4])+Char(pck[5])+Char(pck[6]);
end;


procedure TFormMain.Btn_WriteLockClick(Sender: TObject);
var pck : t_intvect;
i : integer;
begin
if not(FormMain.InitializeCOM) then exit;
setlength(pck,133);
pck[0] := $27;
pck[1] := $52;
for i:=2 to 133 do
pck[i] := $00;
pck[3] := Integer(EdtUSER_CODE.Text[1]);
pck[4] := Integer(EdtUSER_CODE.Text[2]);
pck[5] := Integer(EdtUSER_CODE.Text[3]);
pck[6] := Integer(EdtUSER_CODE.Text[4]);
DO_CMD(pck,True,True,False);
pck := ReadCMD;
end;

[K-Dix]

:D :D

2002 and DO_CMD(pck,True,True,False)....

[ackxxx]

DO_CMD(arg1,arg2,arg3,arg4)

send arg1 to device

arg1 = array of byte
arg2 = add 2 byte(z) CRC ? y or n
arg3 = add 1 byte EOq ($7E) ? y or n
arg4 = read after write ? y or n
---

[andrew_tm]

ack***: please stop post sources, lets other ppl make money !

[MobSol]

Ack***,

FormMain.InitializeCOM (FormMain) - this part is missing from the program you have posted, if you have it, pls upload it too so we may start playing with it

BR

[blindman72]

wow verry surprise
yes sir we need it

[blindman72]

wow...
verry surprise
yes sir we need it

thank's