Är det någon som testat scriptet på vkeys sida?

[aladinsane]

Någon som vet och kan förklara vad scriptet gör och vad man får ut. t.ex. vad de olika beteckningarna som RX data, TX data o.s.v. betyder??? Jag fick ut en massa "supported instructions". Vad är det?

Jag har kört det men det jag får ut förstår jag lika mycket av som kinesiska d.v.s. nada, niet, nothing, inte ett skit. Det roliga är att om jag mot all förmodan nu skulle fått ut en fungerande nyckel så har jag inte en aning om det, men jag har givetvist behållt logen tills jag lärt mig mer, eller tills ngn som kan detta har kikat på den.

[arkad]

Förlåt om jag stör nu, men någon (läs ch2001) i den här tråden är lika naiv som lassemaja.

Och nu för att rättfärdiga meddelandet som sig.
Aladinsane: RX är receive och TX transmit.

Lägg ner det där skriptet, ifall ni vill ödlsa tid på det så är det fine för mig. Men ni kommer aldrig att lösa det genom att gå till väga på det där sättet. Man måste lära sig, det finns inga genvägar.

[aladinsane]

Precis. Håller med föregående talare. Finns inga genvägar så jag har bestämt mig för att lära mig hur det funkar eftersom jag iaf har hårdvara som det går att kommunicera med kortet överhuvudtaget. Vem vet, lilla jag kanske lägger ut en nyckel här om ett par månader :P Inte så troligt men jag ger iaf inte upp hoppet... Newton kom ju underfund med tyngdkraften av att få ett äpple i huvudet så jag kanske får ut en nyckel när min katt trampar på tangentbordet när jag kör ett script...
Nä nu ska jag inte börja drömma för mycket men det finns allt för många pessimister här tycker jag, och jag är definitivt INTE en av dem.

[ch2001]

arkad
Det finns alltid genvägar och genvägar på ett kort är bakdörrar någon kommer hitta den med script men jag tror inte det är jag

men jag ger alldrig upp som ni gör

ni bara snakar och snaker och väntar ni bara på koder

[ch2001]

och det här script för test för att öka intresse för script
många vet inte vad gör en script man do är väldiget duktig på VB

[Icanos]

jag är grym i vb :P sry för att skryta men, har hållit på i ungefär 6år med VB!

[ch2001]

om du är bra och duktig använd din kunskpare och titta lite här

http://www.websamba.com/ConaxWonderland/

om du behöver mera info hör av dig

[_age_]

Jag vill göra så mycket jag kan för att få detta o fungera. Jag har en del datorkraft o vad jag förstår då behövs det köras en del script mot kortet för att få ut nödvändig information.

Finns det någon lathund för hur man arbetar med detta script?

[ch2001]

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

[ch2001]

och ni ska ha do fyra filer i eran sys 32

vb40032.dll
comdlg32.dll
comdlg32.ocx
olepro32.dll