cd_update.zip

[crash]

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

[kronblom]

Googla på cd_update.zip....ta 5:e träffen!

Nema problema!

[crash]

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)

[kronblom]

Ursäkta misstaget! Jag har den på en gammal dator på jobbet eller möjligen på diskett....återkommer i morron em!

[crash]

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)

[crash]

Ingen som kan maila den? crash68(a)usa.com

Mvh.

[T-bird]

Hittade det här i gömmorna.
Vad hade du tänkt gör med den?

 
' 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

[crash]

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?

[T-bird]

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

[FreddeL]

Hörde idag att det inte gick att backa korten.
Så scripten är väl värdelösa