La nostra Community

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

(http://img111.imageshack.us/img111/9477/senzatitolo2jh1.jpg)

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 (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 (http://www.francesco-pompili.it/FantaVoti_v1002.zip)



copyright by francesco pompili aka micoud

versione 1.4 online

(http://img170.imageshack.us/img170/8494/senzatitolo2zf1.gif)


Download (24 mb) (http://www.francesco-pompili.it/fantacalcio/setup_1.4.zip)

Segnalatemi bugs o nuove features

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.

probabilmente è dovuto al fatto che da questa versione , prima che il prog si apra , tenta di connettersi al sito per verificare la presenza o meno di aggiornamenti.
appena ho tempo inserisco un menu per attivare o meno l uscita del prog su internet e uno per gestire i server proxy (mi dovrai fare da betatester pero ::))

Molto volentieri ;). Attendo con ansia :D

visto che nn ho molto tempo ho risolto (almeno lo spero) il problema cosi:
ora c'è un file di configurazione "Fantavoti.ini" in cui abilitare o meno il download automatico ed il check di nuove versioni modificado in Si/No il valore dopo "Download Automatico="

Stoppando il download automatico per aggiornare i voti è possibile fare cosi:

nel tab "Altro"
1-cliccare su "Download" , partira' il browser predefinito e verra' scaricato un file zip contenente i files con i voti
1a- è possibile scaricare "da soli" il file puntando a questo indirizzo: http://www.francesco-pompili.it/fantacalcio/Voti.zip
2-cliccare su "Carica Zip" , selezionare il file appena scaricato ed aspettare il messaggio di avvenuta importazione

(http://img412.imageshack.us/img412/2570/senzatitolo2wz3.th.gif) (http://img412.imageshack.us/my.php?image=senzatitolo2wz3.gif)

Affinche' tutto funzioni è necessario inserire nella cartella del programma i files contenuti nel rar sottostante sovrascrivendo i vecchi files
www.francesco-pompili.it/Fantavoti_test.rar

ps. dimmi se va

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

Ecco il codice per decrypt dei files in vb.net


' // 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 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 = CInt(lBytes / 27) * 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 - CInt(lBytes / 27) * 27)
       
For i = 0 To (lBytes - CInt(lBytes / 27) * 27) - 1

            fs_write.Write(Chr(fileData(i) Xor "&H" & chiave(i)))

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

        MsgBox("Fatto")

Ciao Francesco,
rinnovo pubblicamente i ringraziamenti per l'aiuto fornitomi. :D
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")

non so a me funziona , ti ho fatto un video

www.francesco-pompili.it/video.rar

Cmq come hai fatto tu è ancora meglio perche eviti il problema degli ultimi byte che nn riempono il vettore causando uno xor errato

ps. mi manderesti per email il file rcs che hai usato? grazie

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")

ecco la nuova versione per decriptare i voti stagione 2008/09 :

il cript  è caratterizzato ancora una volta da uno xor byte a byte (beata fantasia...) .
la chiave questa volta è di 26 byte ed è facilmente ottenibile sapendo che il file decriptato inizia cosi:


basta un hex editor e la calcolatrice di windows ;)

(http://img523.imageshack.us/img523/4836/senzanomecp1.gif)

Download (http://www.francesco-pompili.it/Decrypt_2009.rar)

nuova versione aggiornata alla stagione 2008-09

(http://img73.imageshack.us/img73/668/senzanomezm7to0.gif)

Download (http://www.francesco-pompili.it/fantacalcio/Setup_1.5.zip)

Se avete installato una versione precedente disinstallatela dal pannello di controllo e cancellate la cartella “Fanta Voti ” presente in “x:\Programmi\”  prima di installare questa versione