Per passare il tempo , e per aiutare un amico che gestisce il nostro fantacalcio , ho realizzato questo programmino...



Se connessi ad internet , scarica i voti dal sito della gazzetta,li decripta e successivamente potete:
-calcolare il punteggio della/e vostra/e fantasquadra/e
-esportare la formazione su un file di testo
-consultare i voti di tutti i giocatori
-consultare i voti dei giocatori scelti tramite filtro (cognome  e/o ruolo)

Per funzionare bisogna aver installato il net framework 2 di microsoft , prelevabile da qui
http://www.microsoft.com/downloads/details.aspx?displaylang=it&FamilyID=0856eacb-4362-4b0d-8edd-aab15c5e04f5

Se lo installate su un pc con una connessione attiva , il net framework sara' scaricato in automatico durante l'installazione (circa 22 mb)

Il programma è scaricabile al seguente indirizzo:

www.francesco-pompili.it/FantaVoti_v1002.zip



copyright by francesco pompili aka micoud

Ciao. Non nascondo di essermi iscritto a questo forum xchè trovo molto bello e funzionale il tuo prg. Tuttavia vorrei chiederti se pensi di poter gestire una versione di questo tuo software che chieda all'utente (in questo caso ti manifesto la mia situazione) di inserire la user id e password e porta tcp per uscire dal proxy aziendale.
Infatti il tuo prg funziona perfettamente da casa ma qui, al lavoro, non va.
grazie anticipatamente per l'attenzione.

p.s.: questa tua nuova versione, da lavoro, all'avvio, mi restituisce il seguente errore che ti allego, mentre la precedente partitva regolarmente ma, essendo dietro proxy, non riusciva a scaricare le info dal sito gazzetta.

Molto volentieri . Attendo con ansia

Visto che ho ricevuto alcune richieste metto qui come decriptare i files rcs

la chiave in STRING è 123456abcdefqqwertyuasdfghj
la chiave in HEX è 31 32 33 34 35 36 61 62 63 64 65 66 71 71 77 65 72 74 79 75 61 73 64 66 67 68 6A
la chiave in DEC è 49 50 51 52 53 54 97 98 99 100 101 102 113 113 119 101 114 116 121 117 97 115 100 102 103 104 106

la chiave viene applicata ogni 27 Byte con operazione logica XOR

Prendete il file leggete 27 byte e fate lo xor byte a byte , ripetere fino alla fine del file

Ciao Francesco,
rinnovo pubblicamente i ringraziamenti per l'aiuto fornitomi.
Devo tuttavia dirti che ho fatto un copia incolla del codice qui da te postato ma, come si suol dire, looppa al'infinito ed il file generato cresce a dismisura.
Comunque, facendo tesoro del nostro lavoro dietro le quinte, ti posto ad uso e consumo di tutti la mia procedura di decript già testata e ridotta all'osso perfettamente funzionante.
Se ci sono problemi fatemi sapere.

        Dim leggifile As New FileStream("c:\mcc20.rcs", FileMode.Open, FileAccess.Read)
        Dim fileData(leggifile.Length) As Byte
        Dim i As Integer
        Dim flussodati As FileStream = File.Create(leggifile.Name.Replace(".rcs", ".txt"))
        Dim scrivifile As New StreamWriter(flussodati)
        Dim chiave As Array = Split("31;32;33;34;35;36;61;62;63;64;65;66;71;71;77;65;72;74;79;75;61;73;64;66;67;68;6A", ";")

        Do
            leggifile.Read(fileData, leggifile.Position, 1)
            scrivifile.Write(Chr(fileData.GetValue(leggifile.Position - 1) Xor "&H" & chiave(i)))
            i = i + 1
            If i = 27 Then i = 0

        Loop While Not leggifile.Position = leggifile.Length

        scrivifile.Close()
        leggifile.Close()
        flussodati.Close()
        MsgBox("Caricamento terminato")

grazie ho cambiato codice ed ho commesso questo errore

Prendiamo il file mcc20.rcs

il ciclo era
While Not fs_read.Position = CInt(lBytes / 27) * 27

a causa dello scarto lasciato fuori dalla divisione , il ciclo si sarebbe dovuto fermare a 55242 , mentre la grandezza del file era  < ovvero 55238 ...ecco spiegato il ciclo infinito (nn accadeva con tutti i files )

Risolto l arcano ecco come ho sistemato:

While Not fs_read.Position = lBytes - ( lbytes mod 27)
......
end while
i=0
 fs_read.Read(fileData, 0, lbytes mod 27)
        For i = 0 To (lbytes mod 27 - 1)
.....
end for
....

in definitiva il codice funzionante (in alternativa al tuo) è questo:

' // files di esempio
      Dim fs_read As New FileStream("C:\MCC05.rcs", FileMode.Open, FileAccess.Read)
      Dim fs_write As New StreamWriter(File.Create(fs_read.Name.Replace(".rcs", ".txt")))
       
      Dim lBytes As Long = fs_read.Length
      Dim fileData(lBytes) As Byte
      Dim i As Integer
      Dim lbytes_27 As Long = lBytes Mod 27

      Dim chiave As Array
      chiave = Split("31;32;33;34;35;36;61;62;63;64;65;66;71;71;77;65;72;74;79;75;61;73;64;66;67;68;6A", ";")

       
'// leggiamo il file a blocchi di 27 bytes fino dove possibile

 While Not fs_read.Position = lBytes - lbytes_27
            fs_read.Read(fileData, 0, 27)
'// Scriviamo sul file il decript  xorando byte a byte i 27 byte    
 
For i = 0 To 26
 fs_write.Write(Chr(fileData(i) Xor "&H" & chiave(i)))
 
 Next

        End While
        i = 0
'// Ora leggiamo i byte rimasti che saranno < 27 e  scriviamo sul file decryptando come prima
       fs_read.Read(fileData, 0, lbytes_27)
       
For i = 0 To (lbytes_27 - 1)
            fs_write.Write(Chr(fileData(i) Xor "&H" & chiave(i)))

        Next
'//chiudiamo i files
        fs_read.Close()
        fs_write.Close()

        MsgBox("Fatto")