Detta är saxat ur ett annat forum, vet inte om det fungerar men personer i forumet påstår att det fungerar, har inte Comh*em själv så att jag kan inte testa;
Comhem fungerar med Titaniumkort.
'
'secret service code comhem RSA.
'This will just work on some cards. If it works for you congratulations you got the key.
'
Sub Main()
sc.print ("OK Extract key 20 this will take some minutes")
sc.write ("87 06 00 00 12")
sc.read (21)
sc.write ("dd c4 00 00 03")
sc.read (1)
sc.write ("68 01 80")
Sc.read (2)
sc.write ("dd ca 00 00 82")
sc.read (1)
sc.delay 2000
sc.read (64)
sc.write ("87 06 00 00 12")
sc.read (21)
sc.delay 500
sc.read (64)
sc.reset
sc.write ("ca A4 00 00 00")
sc.delay (200)
sc.read (2)
sc.write ("CA A4 02 00 00")
sc.delay (200)
sc.read (2)
sc.write ("ca f0 00 00 41")
sc.write ("EA 38 F3 07 D3 31 FE F6 78 89 EB CC 7C 4E DF F8 37 44 0D F3 22 FA 25 01 F6 89 EB 20 00 4E 52 46 37 24 56 76 07 D3 31 01 F6 89 EB CC 7C 4E 52 F8 37 44 0D F3 07 D3 31 01 F6 89 EB CC 7C 4E 52 F8 60")
sc.delay (1000)
sc.read (3)
sc.print ("If You see this You are Lucky!")
End Sub