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