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

conax 64bitar.rar 873 b 04.01.2004 13:25

script for conax and comhem

vad inte rädd prova den :twisted:

Men förvänta dig inget :roll:

den här script tar minste en månad att får nåt om man får nåt :twisted:

Men man får inget

säg alldig nej :twisted:

kortet svara på script

Det är en rar-fil. Så den beter sig lite konstigt när man sak tanka ner den. I min web-läsare får jag bara en listning av filen. Det ska bara vara zip-filer som läggs upp där.

Hur använder man filen? Ändelsen är .xvb. Har jag aldrig sett...

Ja just det winexplorer. Lite trött är jag :P

Kan ni lägga scriptet ut på nätet så att vi kan få den och testa?

filen finns på vkeys upload.

http://vkey.dyn.ee

login och lösenord hittar du bland bulletins på ucs2000. är du inte medlem så blir du det på http://www.ucs2000.com/newmember.asp

Tack?

förvänta er inte nåt det här scriptet är för test

du ska ha

:Win Exploer 4.4 eller 4.5
:fil tryck på öppna scriptet
:card
:tryck på Execute scrip

Vad för test?

scrip is for test

:lol: :lol: :idea:

inte,men han testar ju i allafall!!//MVH :shock:

värre språkbruk har ju sällan skådats o killen verkar inte ha nån stenkoll direkt, men jag tror de flesta här diggar ch2001's engagemang. =))

Citat:

---

Ursprungligen postat av dacgbg

Om den är en av dinna script(ch2001) det är ingen ide att testa. :evil:

---

klaga inte på ngn som iaf försöker..jämfört med vissa andra :x

tack grabbar

han är bara svartsjuk :twisted:

Det är faktiskt ingen mening och testa dessa skript som läggs ut, inte om man hoppas på att få ut nycklar iaf. Vill man lära sej lite om skript i allmänhet kan det möjligen vara värt det men de flesta skript som folk lägger ut är löjligt dåliga. Dessutom kan ni glömma att det bara poppar upp ett key-extract script bara sådär. Är man smart nog och skriva ett sådant skript är man inte så dum att man lägger ut det!

/Rattle

Rattle

och vad ska man gör med det ska man sälja den

Citat:

---

Ursprungligen postat av Rattle

Det är faktiskt ingen mening och testa dessa skript som läggs ut, inte om man hoppas på att få ut nycklar iaf. Vill man lära sej lite om skript i allmänhet kan det möjligen vara värt det men de flesta skript som folk lägger ut är löjligt dåliga. Dessutom kan ni glömma att det bara poppar upp ett key-extract script bara sådär. Är man smart nog och skriva ett sådant skript är man inte så dum att man lägger ut det!

/Rattle

---

då har man inget att göra göra på denna forum om man inte har tänkts sig att dela med sig...

Javisst ja, jag glömde bort att detta forum endast är för dom som vill ha, inte dom som vill göra!

/Rattle
P.S Jag säger det igen, kan du göra ett sådant skript är du säkert smart nog att veta vad det innebär att publicera det och därför gör du det inte! Fattar man inte det så kommer man förbli tiggare hela livet.

om du är så smart gör nåt det varka att du kan en hel del

Nån som testat scriptet??
Var ärliga nu, annars testar jag gärna...

en gång sa enda vägen in i kortet är igenom script.Någonstans måste vi börja.Det är inte fråga om vem som kan mest här så detta måste VI sluta med att försöka bevisa.Det är ingen tävling det här.Vi har samtliga samma intresse här.Vi borde istället uttnyttja det och dela med oss av våra kunskaper utan att någon direkt,Pang boom,måste komma med negativ kritik.Självklart har var och en rätt att säga vad man tycker.Men det handlar mer om hur man uttrycker sig.Tycker man att någon är fel ute,självklart,skall man berätta det,men då skall man också kunna förklara varför.Det är så vi lär oss och kommer snabbare framåt.Det är också min förhoppning att alla här vill! :evil:

Ang.comhem scriptet på V-keys så har jag hört att det tydligen skall gå igenom alla kommandon för att se om det finns någon bakdörr som det fanns på på viaccess korten.Skulle detta finnas så kanske man slutligen kan läsa av dem.Chansen att finna denna bakdörr är säkert minimal,men någonstans måste vi ändå börja.Att vi skulle finna nycklar med detta script är det inget tal om.Men har vi riktigt tur så kanske vi hittar en väg till dem. :lol:
Så kom igen nu alla medlemmar,lägg energin på rätt saker!//MVH :!:

Visa ord Mr.F ska tänka mig för i fortsättningen innan jag säger något men har en ful vana att brusa upp över smått.. ska bättra mi iallafall..

väldiget fint sagt Mr.F

det finns bara en väg för att knäcka comhem eller conax och det är script

och det finns mycket duktiga folk här men do vill inte dela med sig kunskaper do har

men jag hoppas att det blir någon vändning här och nu

lycka till alla

MVH

Citat:

---

Ursprungligen postat av Pytten

Nån som testat scriptet??
Var ärliga nu, annars testar jag gärna...

---

scriptet har varit igång i 2 dagar hemma hos mig nu..inget än..den får väl köra så länge den vill...


den avbröts förut av en crash..data crash...finns det inga bra inställningar för win explorer så den kör scriptet snabbare

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.

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.

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.

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

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

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

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

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?

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

och ni ska ha do fyra filer i eran sys 32

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