vad jag får ut från comhem kortet med hjälp av script
det är många 80 kan någon titta på den och ge mig en svara
80EFEC8010AD807334806E80F3E98022801DACCAC012C0EA10 DE6480292D80BAA3675D801F00805A8098FB8A80F280AD80CA F2802F8009E00F8007>800B
vad jag får ut från comhem kortet med hjälp av script
det är många 80 kan någon titta på den och ge mig en svara
80EFEC8010AD807334806E80F3E98022801DACCAC012C0EA10 DE6480292D80BAA3675D801F00805A8098FB8A80F280AD80CA F2802F8009E00F8007>800B
Executing Script: E:\Documents and Settings\Administrator\Desktop\script\comhem.Xvb
Trying to reset card...
Reset Successful
RX ATR : 23 DB FF F3 BD F3 F3
6
VbScript for comhem SC
comhem SmartCard Information
AutoFinder Secret CODE
->ca 88 00 00 46
TX Data : CA 88 00 00 46
RX Data : 89 <89
RX Data : <>
RX Data : FF <FF900
->ca 88 00 00f900
TX Data : CA 88 00 00 F9 00
RX Data : FF <FF><
RX Data : 00 <00900
->ca 88 00 00 46
TX Data : CA 88 00 00 46
RX Data : FF <FF><fffffe9c61e967c3e6b7636d94faf51cb0abb48786af8 4250a6fec7319fd3df5579462338d0962f71500965341c01bd 6307ca8800004640b00e03026a0e019
rest ()fffffe9c61e967c3e6b7636d94faf51cb0abb48786af8425 0a6fec7319fd3df5579462338d0962f71500965341c01bd630 7ca8800004640b00e03026a0e019
TX Data : FF FF FE 9C 61 E9 67 C3 E6 B7 63 6D 94 FA F5 1C
B0 AB B4 87 86 AF 84 25 0A 6F EC 73 19 FD 3D F5
57 94 62 33 8D 09 62 F7 15 00 96 53 41 C0 1B D6
30 7C A8 80 00 04 64 0B 00 E0 30 26 A0 E0 19
RX Data : 41
RX Data : C0
RX Data : 1B
RX Data : D6
RX Data : 30
RX Data : 89
RX Data : FF
RX Data : 7C
RX Data : A8
RX Data : 80
RX Data : 00
RX Data : 04
RX Data : 89
RX Data : FF
RX Data : 64
RX Data : 0B
RX Data : 00
RX Data : E0
RX Data : 30
RX Data : 89
RX Data : FF
RX Data : 26
RX Data : A0
RX Data : E0
RX Data : 19 <41C01BD63089FF7CA880000489FF640B00E03089FF26A0<E0 19
->ca 88 00 00019
TX Data : CA 88 00 00 01 09
RX Data : 01 <01><
RX Data : 09
RX Data : 89
RX Data : FF <09<89FF
->ca 88 00 00 46
TX Data : CA 88 00 00 46
RX Data : 89 <89><13070009040b000045
nano 28>CA 88 00 00 46 1307
??? 00
nano 28>CA 88 00 00 46 0904
??? 0b00
RASPid 0045
TX Data : 13 07 00 09 04 0B 00 00 45
RX Data : 00
RX Data : 00
RX Data : 45 <00<0045
->ca 88 00 00 46 045
TX Data : CA 88 00 00 46 04 05
RX Data : 04 <04><
RX Data : 89
RX Data : FF
RX Data : 05 <89<FF05
Subscriptions
->ca 88 00 00 46
TX Data : CA 88 00 00 46
RX Data : FF <FF><e9c61e967c3e6b7636d94faf51cb0abb48786af84250a 6fec7319fd3df5579462338d0962f71500965341c01bd6307
rest ()e9c61e967c3e6b7636d94faf51cb0abb48786af84250a6fe c7319fd3df5579462338d0962f71500965341c01bd6307
TX Data : E9 C6 1E 96 7C 3E 6B 76 36 D9 4F AF 51 CB 0A BB
48 78 6A F8 42 50 A6 FE C7 31 9F D3 DF 55 79 46
23 38 D0 96 2F 71 50 09 65 34 1C 01 BD 63 07
RX Data : 89
RX Data : FF
RX Data : D0
RX Data : 96
RX Data : 2F
RX Data : 71
RX Data : 50
RX Data : 89
RX Data : FF
RX Data : 09
RX Data : 65
RX Data : 34
RX Data : 1C
RX Data : 01
RX Data : 89
RX Data : FF
RX Data : BD
RX Data : 63
RX Data : 07 <89FFD0962F715089FF0965341C0189FFBD<6307
Events
->ca 88 00 00 46
TX Data : CA 88 00 00 46
RX Data : 00 <00
RX Data : <>
RX Data : 46 <46900
->ca88000046
TX Data : CA 88 00 00 46
RX Data : 00 <00><ffffffe9c61e967c3e6b7636d94faf51cb0abb48786af 84250a6fec7319fd3df5579462338d0962f71500965341c01b d6307a18e039d78cb606060ca8800004688ea44704243204ee 09643f2d937b79e46f978c6d34a379b6a3b765fc50bd07ba3d 9b4c4beca85e28f4d58702b0956859c4cbb8d27bab6362098c 4efec10ad73346ef3e9221daccac012c0ea10de64292dbaa36 75d1f005a98fb8af2adcaf22f09e00f07b
rest ()ffffffe9c61e967c3e6b7636d94faf51cb0abb48786af842 50a6fec7319fd3df5579462338d0962f71500965341c01bd63 07a18e039d78cb606060ca8800004688ea44704243204ee096 43f2d937b79e46f978c6d34a379b6a3b765fc50bd07ba3d9b4 c4beca85e28f4d58702b0956859c4cbb8d27bab6362098c4ef ec10ad73346ef3e9221daccac012c0ea10de64292dbaa3675d 1f005a98fb8af2adcaf22f09e00f07b
TX Data : FF FF FF E9 C6 1E 96 7C 3E 6B 76 36 D9 4F AF 51
CB 0A BB 48 78 6A F8 42 50 A6 FE C7 31 9F D3 DF
55 79 46 23 38 D0 96 2F 71 50 09 65 34 1C 01 BD
63 07 A1 8E 03 9D 78 CB 60 60 60 CA 88 00 00 46
88 EA 44 70 42 43 20 4E E0 96 43 F2 D9 37 B7 9E
46 F9 78 C6 D3 4A 37 9B 6A 3B 76 5F C5 0B D0 7B
A3 D9 B4 C4 BE CA 85 E2 8F 4D 58 70 2B 09 56 85
9C 4C BB 8D 27 BA B6 36 20 98 C4 EF EC 10 AD 73
34 6E F3 E9 22 1D AC CA C0 12 C0 EA 10 DE 64 29
2D BA A3 67 5D 1F 00 5A 98 FB 8A F2 AD CA F2 2F
09 E0 0F 07 0B
RX Data : FF
RX Data : BA
RX Data : B6
RX Data : 36
RX Data : 20
RX Data : 98
RX Data : 89
RX Data : FF
RX Data : C4
RX Data : EF
RX Data : EC
RX Data : 10
RX Data : AD
RX Data : 89
RX Data : FF
RX Data : 73
RX Data : 34
RX Data : 6E
RX Data : F3
RX Data : E9
RX Data : 89
RX Data : FF
RX Data : 22
RX Data : 1D
RX Data : AC
RX Data : CA
RX Data : C0
RX Data : 89
RX Data : FF
RX Data : 12
RX Data : C0
RX Data : EA
RX Data : 10
RX Data : DE
RX Data : 89
RX Data : FF
RX Data : 64
RX Data : 29
RX Data : 2D
RX Data : BA
RX Data : A3
RX Data : 89
RX Data : FF
RX Data : 67
RX Data : 5D
RX Data : 1F
RX Data : 00
RX Data : 5A
RX Data : 89
RX Data : FF
RX Data : 98
RX Data : FB
RX Data : 8A
RX Data : F2
RX Data : AD
RX Data : 89
RX Data : FF
RX Data : CA
RX Data : F2
RX Data : 2F
RX Data : 09
RX Data : E0
RX Data : 89
RX Data : FF
RX Data : 0F
RX Data : 07
RX Data : 0B <FFBAB636209889FFC4EFEC10AD89FF73346EF3E989FF221DA CCAC089FF12C0EA10DE89FF64292DBAA389FF675D1F005A89F F98FB8AF2AD89FFCAF22F09E089FF0F<070B
->ca 88 00 00 46
TX Data : CA 88 00 00 46
RX Data : 00 <00><fffffca880000460b00e03026a0e019
rest ()fffffca880000460b00e03026a0e019
TX Data : FF FF FC A8 80 00 04 60 B0 0E 03 02 6A 0E 01 09
RX Data : 02
RX Data : 89
RX Data : FF
RX Data : 6A
RX Data : 0E
RX Data : 01
RX Data : 09 <0289FF6A0E<0109
->caa4000000
TX Data : CA A4 00 00 00
RX Data : 00 <00
->ca88000046
TX Data : CA 88 00 00 46
RX Data : 00 <00><<ca8800004600>0109512
rest ()<ca8800004600>0109512
TX Data : CA 88 00 00 46 00 01 09 51 02
RX Data : 89
RX Data : FF
RX Data : 01
RX Data : 09
RX Data : 51
RX Data : 02 <89FF0109<5102
Secret Code Status 5102 No Info
Script E:\Documents and Settings\Administrator\Desktop\script\comhem.Xvb Transmission Completed
ni får gäran säga till vad ska jag ändra föratt utväkla script
MVH
Varför har du Topic "com hem nyckel" när inlägget i sig inte innehåller ett dyft om nycklar? Vidare så bör du ställa in rätt inställningar i Winexplorer innan du fortsätter att laborera, ta en titt på ATR t.ex..
När du har kollat på ATR så vet du vad du ska köra med för protokoll.
Slutligen bör du ställa in sc.verbose att den är True istället för False, för sådana därna script säger inte ett skit om vad som egentligen händer.
tack för hjälpen arkad
jag vet hur ska göra med true och False
det bra att det finns mera folk att vill vara med :wink:
vad hittar du för fel mera
Ja du kan ju visa en log över vad som händer nu istället, så får vi se.
hehe
här prova själv men det tar några timma
lycka till :twisted: :wink:
Sub Main()
sc.verbose=(msgbox("Do you want to see the data-stream ?",vbyesno)=vbyes)
for i=0 to 511
tmp=hex2(i)
sc.progressbox "Searching for valid instrunction classes (" & tmp & ")",i+1,512
sc.write(tmp & "00 00 00 00 00")
sc.read(2)
if sc.getbyte(0)<>&H6E then
classes=classes & tmp
end if
next
sc.print(vbnewline & "Supported classes: " & classes & vbnewline)
instru=""
if len(classes)>300 then
r=sc.buttonbox("It seems like the card doesn't care what class byte that is used. Do you want to want to run through all class bytes, or just check one ?",vbquestion+vbdefaultbutton2,"","Check all","Check one")
if r=2 then
classes=left(classes,2)
end if
end if
for i=1 to len(classes) step 2
thisClass=mid(classes,i,2)
for j=0 to 511
sc.progressbox "Searching for valid instrunctions in class " & thisclass & " (" & tmp & ")",j+1,512
tmp=hex2(j)
sc.write(thisclass & tmp & "00 00 00")
sc.read(1)
if sc.getbyte(0)=j then
if j=&H6D then
if sc.bytesinbuffer = 1 then
sc.read(1) '6D 00 then I guess...
else
instru=instru & vbcr & thisclass & tmp & "?"
sc.reset
end if
else
instru=instru & vbcr & thisclass & tmp
sc.reset
end if
else
if sc.getbyte(0)<>&H6E and sc.getbyte(0)<>&H6D then
instru=instru & vbcr & thisclass & tmp
end if
if sc.getbyte(0)=&H90 then
sc.reset
else
sc.read(1)
end if
end if
next
next
sc.print("Supported instructions:" & instru)
End Sub
function hex2(i)
s=hex(i)
if len(s)=1 then s="0" & s
hex2=s
end function
Har ingen större lust att testa.
hehe
och varför bråka du ?
du vill inte test
men du vill ha koder
eller logger
Nej, jag har inte frågat efter nyckel (för det var det du menade med koder?), logger? Nej det har jag redan, rätt lätt ihopslängt med lite enkel programmering. Jag hjälpte dig enbart med att få ihop winexplorer åt dig. Sen är det du som är lite paranoid =)
hehe