här är en script :twisted: till gammla conax man om man är smart man kan utväkla den till den nya också titta på din


Option Explicit
Dim PC,PI,P1,P2,P3
Dim AC,A4
Dim Prc,Pre
Dim lh,la,ld,lq
Dim ins,dat
Dim ack,nack,dmp
Dim sb,sbh
Dim li,ln
Dim lb
Dim Q1,Q2
Dim S2,S5
Dim nrq,nrp,nrs
Dim lvv
Dim lvr(6),lv

lvv = " "
S2 = " "
S5 = " "
nrq = "nano > "
nrp = "nano < "
nrs = "rest : "

ack = True
nack = False
dmp = False

Function DATE(ls)
Dim lb,ly,lm,ld,lc
lb = Int("&h" & Mid(ls,1,2))
ld = Right("0" & lb,2)
lb = Int("&h" & Mid(ls,3,1))
ly = 20 & Right("0" & lb,2)
lb = Int("&h" & Mid(ls,4,1))
lm = Right("0" & lb,2)
DATE = ly & "-" & lm & "-" & ld
End Function


Function SNO(ls)
Dim ln,li,lh,ld,ll
ln = Len(ls)
For li = 1 to ln
lh = Mid(ls,li,1)
If lh>"0" Then
ld = Int("&h" & lh)
ll = ll + ld * 16 ^ (ln-li)
End If
Next
SNO = ll
End Function

Function ACKN(dmp)
Dim n,b,ack
Sc.Delay(50)
n = Sc.BytesInBuffer
if n<1 Then
ack = "FF"
else
Sc.Read(1)
b = Sc.GetByte(0)
ack = Right("0" & Hex(b),2)
End If
If dmp Then Sc.Print("<" & ack)
ACKN = ack
End Function

Function QUIT(le,wait)
Dim ln,lq,ld,lb,li
Sc.Delay(wait*10)
ln = Sc.BytesInBuffer
lq = ""
For li = 1 To ln
Sc.Read(1)
lb = Sc.GetByte(0)
ld = Right("0" & Hex(lb),2)
lq = lq & ld
Next
Select Case ln
Case 0
lq = "FFFF"
Case 1
lq = lq & "FF"
Case Else
If (ln-2) Then
If le Then Sc.Print("<" & Mid(lq,1,(ln-2)*2))
End If
lq = Mid(lq,(ln-2)*2+1,4)
End Select
If le Then Sc.Print("<" & lq)
Q1 = LCase(Mid(lq,1,2))
Q2 = LCase(Mid(lq,3,2))
QUIT = lq
End Function

Function TEXT(ls)
Dim lt,li,lb,ld
ld = Len(ls)
For li=1 to ld-1 Step 2
lb = Int("&h" & Mid(ls,li,2))
lt = lt & Chr(Int(lb))
Next
TEXT = lt
End Function

Function NANO(dat,ln,ByVal lvk)
Dim nan,ls,lvn
Dim N1,N2
Dim ld,lr,lk,le,lp,li
Dim lev,lq

dat = LCase(dat)
ld = Len(dat)
lvr(lv) = ld
lq = Len(lvk)
Do While ld>ln
nan = Mid(dat,ln,4)
N1 = Mid(nan,1,2)
N2 = Mid(nan,3,2)
lr = Int("&h" & N2)*2
le = 0
lp = 0
lk = lv * 2
lev = lvk & Mid(lvv,lq+1,lk)
Select case N1

Case "01","03"
Sc.Print(Chr(13) & lev & nan)
ln = ln + 4
ls = Mid(dat,ln,lr)
ln = ln + lr
lvn = Mid(lvv,1,lq+lk+2)
Sc.Print(Chr(13) & lvn & ls & S2 & TEXT(ls))
lp = lr

Case "09"
Sc.Print(Chr(13) & lev & nan)
ln = ln + 4
ls = Mid(dat,ln,4)
lvn = "???" & Mid(lvv,4,lq+lk-3+2)
Sc.Print(Chr(13) & lvn & ls)
ln = ln + 4
ls = Mid(dat,ln,4)
Select Case Mid(ls,1,1)
Case "e"
lvn = "Emm"
Case "0"
lvn = "Ecm"
Case Else
lvn = "???"
End Select
lvn = lvn & "Pid" & Mid(lvv,7,lq+lk-6+2)
Sc.Print(Chr(13) & lvn & ls)
ln = ln + 4
lp = lr

Case "10","15","20","43"
Sc.Print(Chr(13) & lev & nan)
ln = ln + 4
ls = Mid(dat,ln,lr)
lvn = Mid(lvv,1,lq+lk+2)
Sc.Print(Chr(13) & lvn & ls)
ln = ln + lr
lp = lr

Case "13"
Sc.Print(Chr(13) & lev & nan)
ln = ln + 4
ls = Mid(dat,ln,2)
lvn = "???" & Mid(lvv,4,lq+lk-3+2)
Sc.Print(Chr(13) & lvn & ls)
ln = ln + 2
lp = 2

Case "11"
Sc.Print(Chr(13) & lev & nan)
ln = ln + 4
ls =Mid(dat,ln,16)
lvn = "PBM" & Mid(lvv,4,lq+lk-3+2)
Sc.Print(Chr(13) & lvn & ls)
ln = ln + 16
lp = 16

Case "21","22","f0","70"
Sc.Print(Chr(13) & lev & nan)
ln = ln + 4

Case "23"
Sc.Print(Chr(13) & lev & nan)
ln = ln + 4
ls = Mid(dat,ln,lr)
lvn = "S/N" & Mid(lvv,4,lq+lk-3+2)
Sc.Print(Chr(13) & lvn & ls & S2 & SNO(ls))
ln = ln + lr
lp = lr

Case "14","26":
Sc.Print(Chr(13) & lev & nan)
ln = ln + 4
If lr>4 then
lp = 4
Else
lp = lr
End If
ls = Mid(dat,ln,lp)
lvn = Mid(lvv,1,lq+lk+2)
Sc.Print(Chr(13) & lvn & ls)
ln = ln + lp


Case "28","2f"
Sc.Print(Chr(13) & lev & nan)
ln = ln + 4
ls = Mid(dat,ln,lr)
lvn = "Date :" & Mid(lvv,7,lq+lk-6+2)
Sc.Print(Chr(13) & lvn & ls & S2 & DATE(ls))
ln = ln + lr
lp = lr


Case Else
lp = ld - ln + 1
ls = Mid(dat,ln)
lvn = nrs & Mid(lvv,lq+1,lk+4)
Sc.Print(Chr(13) & nrs & ls)
ln = ld
Exit Do
End Select
lr = lr - lp
if lr Then
lv = lv + 1
lvr(lv) = lr
End if
For li = lv-1 to 0 Step -1
lvr(li) = lvr(li) - (lp + 4)
Next
For li = lv to 1 Step -1
lp = lvr(li)
Select Case lp
Case 0
Select Case li
Case 0
Exit Do
Case Else
lv = li
End Select
Case 1,2,3,4
ls = Mid(dat,ln,lp)
lvn = Mid(lvn,1,lq+li*2+2)
Sc.Print(Chr(13) & lvn & ls)
ln = ln + lp
lvr(li) = 0
lv = li - 1
Case Else
lv = li
Exit For
End Select
Next


Loop
NANO = ln
End Function

Function DATA(dmp,dat)
Dim rpl,ls,lt
Dim lx,ln,ld
Dim li,lb
Dim ll,lnd
lv = 0
dat = LCase(dat)
lnd = Len(dat) / 2
Select Case lnd

Case 0
lx = Int("&h" & P3)
Sc.Delay(lx*10)
lx = Sc.Read(lx) - 1
rpl = ""
For li=0 to lx
lb = Sc.GetByte(li)
rpl = rpl & Right("0" & Hex(lb),2)
Next
If dmp Then Sc.Print("<" & rpl)
ln = NANO(rpl,1,nrp)

Case Else
If dmp Then Sc.Print(">" & dat)
ln = 1
ln = NANO(dat,ln,nrq)
Sc.Write(dat)

End Select
DATA = QUIT(dmp,lnd)
End function

Function HEAD(dmp,lh,ack)
lh = LCase(lh)
PC = Mid(lh,1,2)
PI = Mid(lh,3,2)
P1 = Mid(lh,5,2)
P2 = Mid(lh,7,2)
P3 = Mid(lh,9,2)
If dmp Then Sc.Print(Chr(13) & "->" & lh)
Sc.Write(lh)
if ack Then
HEAD = ACKN(dmp)
Else
HEAD = QUIT(dmp,5)
End If
End Function


Sub Main()
Dim RetVal
Dim ls
ls = " VbScript for Telenor SC"
RetVal = Sc.MsgBox(" Set TX & RX Dump", vbYesNo,ls)
Sc.Print RetVal

Select Case RetVal
Case 6
dmp = True
Case 7
dmp = False
End Select
'Sc.ProgressBox " Searching For valid kod" & vbcr & " It can take some days !",sb,9999

Sc.Print(chr(13) & ls)
Sc.Print(chr(13) & " Telenor SmartCard Information")
'Sc.Print(chr(13) & " AutoFinder Secret CODE "& chr(13)&chr(13))
Sc.Verbose = False

lh = HEAD(dmp,"dd26000003",ack): ld = DATA(dmp,"100101")
lh = HEAD(dmp,"ddca0000"&Q2,ack): ld = DATA(dmp,"")
lh = HEAD(dmp,"dd82000014",ack): ld = DATA(dmp,"111201F00FFFFFCD000009040B00E03026A0E019 ")
lh = HEAD(dmp,"ddca0000"&Q2,ack): ld = DATA(dmp,"")
lh = HEAD(dmp,"dda4000009",ack): ld = DATA(dmp,"13070009040B000045")
lh = HEAD(dmp,"ddca0000"&Q2,ack): ld = DATA(dmp,"")

Sc.Print()
ls = "Subscriptions Test"
RetVal = Sc.MsgBox(" " & ls, vbYesNo,ls)
If RetVal=6 then
Sc.Print("Themes")
lh = HEAD(dmp,"ddb2000003",ack)
ld = DATA(dmp,"1501aa")
Do While Q1="98"
lh = HEAD(dmp,"ddca0000" & Q2,ack): ld = DATA(dmp,"")
Loop

Sc.Print()
ls = "Programms"
Sc.Print(ls)
lh = HEAD(dmp,"ddb2000003",ack)
ld = DATA(dmp,"150103")
Do While Q1="9c"
lh = HEAD(dmp,"ddca0000" & Q2,ack): ld = DATA(dmp,"")
Loop
End if

ls = "Hash Test"
RetVal = Sc.MsgBox(" " & ls, vbYesNo,ls)
If RetVal=6 then
lh = HEAD(dmp,"dda200004A",ack)
ld = DATA(dmp,"14480080F04470424320D638EEE7BBCC86ADF132 1A76C84921840251038953F6B1B85FD793114A9D5E130515DF 9997CFF6C90F553C39C06E8FE365C32086FFDEB1DF39C4FBEA C5209F37")
lq = Mid(la,1,2)
Select case lq
Case "60"
If dmp Then Sc.Print("<"&lq)
lq = Mid(la,3,2)
Select case lq
Case "60"
If dmp Then Sc.Print("<"&lq)
la = QUIT(dmp,0)
Case Else
Sc.Read(1)
lb = Sc.GetByte(0)
lq = lq & Right("0" & Hex(lb),2)
If dmp Then Sc.Print("<"&lq)
End Select
End Select
Select case Q1
Case "98"
lh = HEAD(dmp,"ddca0000" & Q2,ack): ld = DATA(dmp,"")
lh = HEAD(dmp,"ddca0000" & Q2,ack): ld = DATA(dmp,"")
lh = HEAD(dmp,"ddca0000" & Q2,ack): ld = DATA(dmp,"")
lh = HEAD(dmp,"ddca0000" & Q2,ack): ld = DATA(dmp,"")
End select
lh = HEAD(dmp,"dd82000014",ack)
ld = DATA(dmp,"111201F00FFFFFCD000009040B00E03026A0E019 ")
End If

End Sub