Hej!
Finns det någon vänlig själ som kan maila detta ubergamla program till mig? till crash68(a)usa.com då tack :)
cd_update.zip cd_update.vxb ...
/crash
Utskriftsvy
Hej!
Finns det någon vänlig själ som kan maila detta ubergamla program till mig? till crash68(a)usa.com då tack :)
cd_update.zip cd_update.vxb ...
/crash
;)Citat:
Ursprungligen postat av kronblom
Nema problema!
Nja! En update till acer dvdrom eller nåt funkar nog inte :)
maila den gärna till mig om du har möjlighet. den finns inte på google, jag lovar :)
Mvh CrASh (sb1265)
Ursäkta misstaget! Jag har den på en gammal dator på jobbet eller möjligen på diskett....återkommer i morron em!
Okej kanon ;)
Din postlåda är full oxå, så det är ingen som kan skicka pm till dig. tänkte bara säga det ifall du inte visste om det. (fast vill man slippa en massa pm så är det ju bra att ha den full hehe)
Ingen som kan maila den? crash68(a)usa.com
Mvh.
Hittade det här i gömmorna.
Vad hade du tänkt gör med den?
Kod:
' This script updates you OrgCD-card to 2004-12-31 on :
' Canal+
' Nordic 1
' Nordic 2
' Nordic 3
' TSS
' Nordic 4
' Nordic 5
' Write you UA there the (xx xx xx xx) are ! ;-)
' Tested it up to S/N 011 3507 xxxx-x with success.
' Don't spread it out on the Internet, keep it to yourself...!
Sub Main()
Dim prefix
Dim endDate
Dim serial
Dim hexstr
' This is what you need to change, serialnumber and perhaps endDate
serial = "xx xx xx xx" ' Four last bytes of your serialnumber
'endDate = "3F 4C" ' 2004-12-31
endDate = "3F 5C" ' 2005-12-31
' DO NOT EDIT BELOW THIS LINE
'----------------------------------------------------------------------------------------------------
prefix = "12 81 82 F0 7E 00 00 00 " & serial & " 70 32 43 10 71 2E 05 00 05 20 20 20 20 20 81 24 60 "
hexstr = prefix & "10 50 0E 3E 21 27 00 00 " & endDate & " 17 3B 0C 01 FF FF FF 20 10 00 43 61 6E 61 6C 2B 20 20 20 20 20 20 20 20 20"
Sc.Write("DD 84 00 00 40")
Sc.Delay(100)
Sc.Read(1)
Sc.Write(hexstr)
Sc.Delay(100)
Sc.Read(2)
hexstr = prefix & "20 50 0E 3E 21 27 00 00 " & endDate & " 17 3B 0C 01 FF FF FF 20 10 00 4E 6F 72 64 69 63 20 31 20 20 20 20 20 20 20"
Sc.Write("DD 84 00 00 40")
Sc.Delay(100)
Sc.Read(1)
Sc.Write(hexstr)
Sc.Delay(100)
Sc.Read(2)
hexstr = prefix & "30 50 0E 3E 21 27 00 00 " & endDate & " 17 3B 0C 01 FF FF FF 20 10 00 4E 6F 72 64 69 63 20 32 20 20 20 20 20 20 20"
Sc.Write("DD 84 00 00 40")
Sc.Delay(100)
Sc.Read(1)
Sc.Write(hexstr)
Sc.Delay(100)
Sc.Read(2)
hexstr = prefix & "40 50 0E 3E 21 27 00 00 " & endDate & " 17 3B 0C 01 FF FF FF 20 10 00 4E 6F 72 64 69 63 20 33 20 20 20 20 20 20 20"
Sc.Write("DD 84 00 00 40")
Sc.Delay(100)
Sc.Read(1)
Sc.Write(hexstr)
Sc.Delay(100)
Sc.Read(2)
hexstr = prefix & "50 50 0E 3E 21 27 00 00 " & endDate & " 17 3B 0C 01 FF FF FF 20 10 00 54 53 53 20 20 20 20 20 20 20 20 20 20 20 20"
Sc.Write("DD 84 00 00 40")
Sc.Delay(100)
Sc.Read(1)
Sc.Write(hexstr)
Sc.Delay(100)
Sc.Read(2)
hexstr = prefix & "60 50 0E 3E 21 27 00 00 " & endDate & " 17 3B 0C 01 FF FF FF 20 10 00 4E 6F 72 64 69 63 20 34 20 20 20 20 20 20 20"
Sc.Write("DD 84 00 00 40")
Sc.Delay(100)
Sc.Read(1)
Sc.Write(hexstr)
Sc.Delay(100)
Sc.Read(2)
hexstr = prefix & "70 50 0E 3E 21 27 00 00 " & endDate & " 17 3B 0C 01 FF FF FF 20 10 00 4E 6F 72 64 69 63 20 35 20 20 20 20 20 20 20"
Sc.Write("DD 84 00 00 40")
Sc.Delay(100)
Sc.Read(1)
Sc.Write(hexstr)
Sc.Delay(100)
Sc.Read(2)
sc.write ("DD 26 00 00 03 ")
sc.read (1)
sc.write ("1C 00 00")
sc.read (2)
sc.write ("DD CA 00 00 31")
sc.read (50)
sc.read (2)
sc.print ("") &vbcr
sc.write ("DD CA 00 00 31")
sc.read (50)
sc.read (2)
sc.print ("") &vbcr
sc.write ("DD CA 00 00 31")
sc.read (50)
sc.read (2)
sc.print ("") &vbcr
sc.write ("DD CA 00 00 31")
sc.read (50)
sc.read (2)
sc.print ("") &vbcr
sc.write ("DD CA 00 00 31")
sc.read (50)
sc.read (2)
sc.print ("") &vbcr
sc.write ("DD CA 00 00 31")
sc.read (50)
sc.read (2)
sc.print ("") &vbcr
sc.write ("DD CA 00 00 31")
sc.read (50)
sc.read (2)
sc.print ("") &vbcr
End Sub
Har några gamla kort liggande, tänkte det var intressant att se vad som händer om man kör scriptet på de. :)
Nån som vet om något av korten som moscades för några år sen går ännu?
Inga av dom korten fungerar längre och det torde inte vara en nyhet :lol:
Det här scriptet + en del andra blev publika när CD började med kort + nano byte (om jag inte minns fel så var det nano 63 som infördes)
Scriptet kan alltså endast ses som en referens på hur det en gång fungerade.
Kan kolla ikväll om jag bara kommer ihåg efter det andra scriptet
Hörde idag att det inte gick att backa korten.
Så scripten är väl värdelösa:(